-; Modula-2 editing support package
-; Author Mick Jordan
-; amended Peter Robinson
-; ported to GNU Michael Schmidt
-;;;From: "Michael Schmidt" <michael@pbinfo.UUCP>
-;;;Modified by Tom Perrine <Perrin@LOGICON.ARPA> (TEP)
+;;; modula2.el --- Modula-2 editing support package
+;; Author: Michael Schmidt <michael@pbinfo.UUCP>
+;; Tom Perrine <Perrin@LOGICON.ARPA>
+;; Maintainer: FSF
+;; Keywords: languages
-;;; Added by TEP
+;; This file is part of GNU Emacs.
+
+;; The authors distributed this without a copyright notice
+;; back in 1988, so it is in the public domain. The original included
+;; the following credit:
+
+;; Author Mick Jordan
+;; amended Peter Robinson
+
+;;; Commentary:
+
+;; A major mode for editing Modula-2 code. It provides convenient abbrevs
+;; for Modula-2 keywords, knows about the standard layout rules, and supports
+;; a native compile command.
+
+;;; Code:
+
+(defgroup modula2 nil
+ "Major mode for editing Modula-2 code."
+ :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
+ :prefix "m2-"
+ :group 'languages)
+
+;;; Added by Tom Perrine (TEP)
(defvar m2-mode-syntax-table nil
- "Syntax table in use in Modula-2-mode buffers.")
+ "Syntax table in use in Modula-2 buffers.")
-(defvar m2-compile-command "m2c"
- "Command to compile Modula-2 programs")
+(defcustom m2-compile-command "m2c"
+ "Command to compile Modula-2 programs."
+ :type 'string
+ :group 'modula2)
-(defvar m2-link-command "m2l"
- "Command to link Modula-2 programs")
+(defcustom m2-link-command "m2l"
+ "Command to link Modula-2 programs."
+ :type 'string
+ :group 'modula2)
-(defvar m2-link-name nil
- "Name of the executable.")
+(defcustom m2-link-name nil
+ "Name of the Modula-2 executable."
+ :type '(choice (const nil) string)
+ :group 'modula2)
+(defcustom m2-end-comment-column 75
+ "*Column for aligning the end of a comment, in Modula-2."
+ :type 'integer
+ :group 'modula2)
(if m2-mode-syntax-table
()
(define-key map "\C-c\C-c" 'm2-compile)
(setq m2-mode-map map)))
-(defvar m2-indent 5 "*This variable gives the indentation in Modula-2-Mode")
-
+(defcustom m2-indent 5
+ "*This variable gives the indentation in Modula-2-Mode."
+ :type 'integer
+ :group 'modula2)
+
+;;;###autoload
(defun modula-2-mode ()
-"This is a mode intended to support program development in Modula-2.
-All control constructs of Modula-2 can be reached by typing
-Control-C followed by the first character of the construct.
-\\{m2-mode-map}
- Control-c b begin Control-c c case
- Control-c d definition Control-c e else
- Control-c f for Control-c h header
- Control-c i if Control-c m module
- Control-c l loop Control-c o or
- Control-c p procedure Control-c Control-w with
- Control-c r record Control-c s stdio
- Control-c t type Control-c u until
- Control-c v var Control-c w while
- Control-c x export Control-c y import
- Control-c { begin-comment Control-c } end-comment
- Control-c Control-z suspend-emacs Control-c Control-t toggle
- Control-c Control-c compile Control-x ` next-error
- Control-c Control-l link
-
- m2-indent controls the number of spaces for each indentation.
- m2-compile-command holds the command to compile a Modula-2 program.
- m2-link-command holds the command to link a Modula-2 program."
+ "This is a mode intended to support program development in Modula-2.
+All control constructs of Modula-2 can be reached by typing C-c
+followed by the first character of the construct.
+\\<m2-mode-map>
+ \\[m2-begin] begin \\[m2-case] case
+ \\[m2-definition] definition \\[m2-else] else
+ \\[m2-for] for \\[m2-header] header
+ \\[m2-if] if \\[m2-module] module
+ \\[m2-loop] loop \\[m2-or] or
+ \\[m2-procedure] procedure Control-c Control-w with
+ \\[m2-record] record \\[m2-stdio] stdio
+ \\[m2-type] type \\[m2-until] until
+ \\[m2-var] var \\[m2-while] while
+ \\[m2-export] export \\[m2-import] import
+ \\[m2-begin-comment] begin-comment \\[m2-end-comment] end-comment
+ \\[suspend-emacs] suspend Emacs \\[m2-toggle] toggle
+ \\[m2-compile] compile \\[m2-next-error] next-error
+ \\[m2-link] link
+
+ `m2-indent' controls the number of spaces for each indentation.
+ `m2-compile-command' holds the command to compile a Modula-2 program.
+ `m2-link-command' holds the command to link a Modula-2 program."
(interactive)
(kill-all-local-variables)
(use-local-map m2-mode-map)
(setq mode-name "Modula-2")
(make-local-variable 'comment-column)
(setq comment-column 41)
- (make-local-variable 'end-comment-column)
- (setq end-comment-column 75)
+ (make-local-variable 'm2-end-comment-column)
(set-syntax-table m2-mode-syntax-table)
(make-local-variable 'paragraph-start)
- (setq paragraph-start (concat "^$\\|" page-delimiter))
+ (setq paragraph-start (concat "$\\|" page-delimiter))
(make-local-variable 'paragraph-separate)
(setq paragraph-separate paragraph-start)
(make-local-variable 'paragraph-ignore-fill-prefix)
; (make-local-variable 'indent-line-function)
; (setq indent-line-function 'c-indent-line)
(make-local-variable 'require-final-newline)
- (setq require-final-newline t)
+ (setq require-final-newline mode-require-final-newline)
(make-local-variable 'comment-start)
(setq comment-start "(* ")
(make-local-variable 'comment-end)
(setq comment-column 41)
(make-local-variable 'comment-start-skip)
(setq comment-start-skip "/\\*+ *")
- (make-local-variable 'comment-indent-hook)
- (setq comment-indent-hook 'c-comment-indent)
+ (make-local-variable 'comment-indent-function)
+ (setq comment-indent-function 'c-comment-indent)
(make-local-variable 'parse-sexp-ignore-comments)
(setq parse-sexp-ignore-comments t)
- (run-hooks 'm2-mode-hook))
-
+ (make-local-variable 'font-lock-defaults)
+ (setq font-lock-defaults
+ '((m3-font-lock-keywords
+ m3-font-lock-keywords-1 m3-font-lock-keywords-2)
+ nil nil ((?_ . "w") (?. . "w") (?< . ". 1") (?> . ". 4")) nil
+ ;; Obsoleted by Emacs 19.35 parse-partial-sexp's COMMENTSTOP.
+ ;(font-lock-comment-start-regexp . "(\\*")
+ ))
+ (run-mode-hooks 'm2-mode-hook))
+\f
+;; Regexps written with help from Ron Forrester <ron@orcad.com>
+;; and Spencer Allain <sallain@teknowledge.com>.
+(defconst m3-font-lock-keywords-1
+ '(
+ ;;
+ ;; Module definitions.
+ ("\\<\\(INTERFACE\\|MODULE\\|PROCEDURE\\)\\>[ \t]*\\(\\sw+\\)?"
+ (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
+ ;;
+ ;; Import directives.
+ ("\\<\\(EXPORTS\\|FROM\\|IMPORT\\)\\>"
+ (1 font-lock-keyword-face)
+ (font-lock-match-c-style-declaration-item-and-skip-to-next
+ nil (goto-char (match-end 0))
+ (1 font-lock-constant-face)))
+ ;;
+ ;; Pragmas as warnings.
+ ;; Spencer Allain <sallain@teknowledge.com> says do them as comments...
+ ;; ("<\\*.*\\*>" . font-lock-warning-face)
+ ;; ... but instead we fontify the first word.
+ ("<\\*[ \t]*\\(\\sw+\\)" 1 font-lock-warning-face prepend)
+ )
+ "Subdued level highlighting for Modula-3 modes.")
+
+(defconst m3-font-lock-keywords-2
+ (append m3-font-lock-keywords-1
+ (eval-when-compile
+ (let ((m3-types
+ (regexp-opt
+ '("INTEGER" "BITS" "BOOLEAN" "CARDINAL" "CHAR" "FLOAT" "REAL"
+ "LONGREAL" "REFANY" "ADDRESS" "ARRAY" "SET" "TEXT"
+ "MUTEX" "ROOT" "EXTENDED")))
+ (m3-keywords
+ (regexp-opt
+ '("AND" "ANY" "AS" "BEGIN" "BRANDED" "BY" "CASE" "CONST" "DIV"
+ "DO" "ELSE" "ELSIF" "EVAL" "EXCEPT" "EXIT" "FINALLY"
+ "FOR" "GENERIC" "IF" "IN" "LOCK" "LOOP" "METHODS" "MOD" "NOT"
+ "OBJECT" "OF" "OR" "OVERRIDES" "READONLY" "RECORD" "REF"
+ "REPEAT" "RETURN" "REVEAL" "THEN" "TO" "TRY"
+ "TYPE" "TYPECASE" "UNSAFE" "UNTIL" "UNTRACED" "VAR" "VALUE"
+ "WHILE" "WITH")))
+ (m3-builtins
+ (regexp-opt
+ '("ABS" "ADR" "ADRSIZE" "BITSIZE" "BYTESIZE" "CEILING"
+ "DEC" "DISPOSE" "FIRST" "FLOOR" "INC" "ISTYPE" "LAST"
+ "LOOPHOLE" "MAX" "MIN" "NARROW" "NEW" "NUMBER" "ORD"
+ "ROUND" "SUBARRAY" "TRUNC" "TYPECODE" "VAL")))
+ )
+ (list
+ ;;
+ ;; Keywords except those fontified elsewhere.
+ (concat "\\<\\(" m3-keywords "\\)\\>")
+ ;;
+ ;; Builtins.
+ (cons (concat "\\<\\(" m3-builtins "\\)\\>") 'font-lock-builtin-face)
+ ;;
+ ;; Type names.
+ (cons (concat "\\<\\(" m3-types "\\)\\>") 'font-lock-type-face)
+ ;;
+ ;; Fontify tokens as function names.
+ '("\\<\\(END\\|EXCEPTION\\|RAISES?\\)\\>[ \t{]*"
+ (1 font-lock-keyword-face)
+ (font-lock-match-c-style-declaration-item-and-skip-to-next
+ nil (goto-char (match-end 0))
+ (1 font-lock-function-name-face)))
+ ;;
+ ;; Fontify constants as references.
+ '("\\<\\(FALSE\\|NIL\\|NULL\\|TRUE\\)\\>" . font-lock-constant-face)
+ ))))
+ "Gaudy level highlighting for Modula-3 modes.")
+
+(defvar m3-font-lock-keywords m3-font-lock-keywords-1
+ "Default expressions to highlight in Modula-3 modes.")
+
+;; We don't actually have different keywords for Modula-2. Volunteers?
+(defconst m2-font-lock-keywords-1 m3-font-lock-keywords-1
+ "Subdued level highlighting for Modula-2 modes.")
+
+(defconst m2-font-lock-keywords-2 m3-font-lock-keywords-2
+ "Gaudy level highlighting for Modula-2 modes.")
+
+(defvar m2-font-lock-keywords m2-font-lock-keywords-1
+ "Default expressions to highlight in Modula-2 modes.")
+\f
(defun m2-newline ()
"Insert a newline and indent following line like previous line."
(interactive)
(m2-tab))
(defun m2-case ()
- "Build skeleton CASE statment, prompting for the <expression>."
+ "Build skeleton CASE statement, prompting for the <expression>."
(interactive)
(let ((name (read-string "Case-Expression: ")))
(insert "CASE " name " OF")
(insert "DEFINITION MODULE ")
(let ((name (read-string "Name: ")))
(insert name ";\n\n\n\nEND " name ".\n"))
- (previous-line 3))
+ (forward-line -3))
(defun m2-else ()
"Insert ELSE keyword and indent for next line."
(m2-tab))
(defun m2-for ()
- "Build skeleton FOR loop statment, prompting for the loop parameters."
+ "Build skeleton FOR loop statement, prompting for the loop parameters."
(interactive)
(insert "FOR ")
- (let ((name (read-string "Loop Initialiser: ")) limit by)
+ (let ((name (read-string "Loop Initializer: ")) limit by)
(insert name " TO ")
(setq limit (read-string "Limit: "))
(insert limit)
(insert "*)\n\n"))
(defun m2-if ()
- "Insert skeleton IF statment, prompting for <boolean-expression>."
+ "Insert skeleton IF statement, prompting for <boolean-expression>."
(interactive)
(insert "IF ")
(let ((thecondition (read-string "<boolean-expression>: ")))
(insert "IMPLEMENTATION MODULE ")
(let ((name (read-string "Name: ")))
(insert name ";\n\n\n\nEND " name ".\n")
- (previous-line 3)
+ (forward-line -3)
(m2-header)
(m2-type)
(newline)
(defun m2-stdio ()
(interactive)
(insert "
->FROM TextIO IMPORT
+FROM TextIO IMPORT
WriteCHAR, ReadCHAR, WriteINTEGER, ReadINTEGER,
WriteCARDINAL, ReadCARDINAL, WriteBOOLEAN, ReadBOOLEAN,
WriteREAL, ReadREAL, WriteBITSET, ReadBITSET,
WriteBasedCARDINAL, ReadBasedCARDINAL, WriteChars, ReadChars,
WriteString, ReadString, WhiteSpace, EndOfLine;
->FROM SysStreams IMPORT sysIn, sysOut, sysErr;
+FROM SysStreams IMPORT sysIn, sysOut, sysErr;
"))
(defun m2-end-comment ()
(interactive)
(if (not (bolp))
- (indent-to end-comment-column))
+ (indent-to m2-end-comment-column))
(insert "*)"))
(defun m2-compile ()
(interactive)
- (setq modulename (buffer-name))
- (compile (concat m2-compile-command " " modulename)))
+ (compile (concat m2-compile-command " " (buffer-name))))
(defun m2-link ()
(interactive)
- (setq modulename (buffer-name))
(if m2-link-name
(compile (concat m2-link-command " " m2-link-name))
(compile (concat m2-link-command " "
(setq m2-link-name (read-string "Name of executable: "
- modulename))))))
+ (buffer-name)))))))
-(defun execute-monitor-command (command)
+(defun m2-execute-monitor-command (command)
(let* ((shell shell-file-name)
(csh (equal (file-name-nondirectory shell) "csh")))
(call-process shell nil t t "-cf" (concat "exec " command))))
(setq modulename
(read-string "Module name: "))
(switch-to-buffer "*Command Execution*")
- (execute-monitor-command (concat "m2whereis " modulename))
+ (m2-execute-monitor-command (concat "m2whereis " modulename))
(goto-char (point-min))
(condition-case ()
(progn (re-search-forward "\\(.*\\.def\\) *$")
((string-equal (substring (buffer-name) -3) ".md")
(find-file-other-window
(concat (substring (buffer-name) 0 -3) ".mi")))))
+
+(provide 'modula2)
+
+;; arch-tag: a21df1cb-5ece-4709-9219-1e7cd2d85d90
+;;; modula2.el ends here