Gecko [ 122.154.134.11 ]

Name	Size	Permission
ada-mode.elc	107.46 KB	-rw-r--r--
ada-prj.elc	17.96 KB	-rw-r--r--
ada-stmt.elc	36.03 KB	-rw-r--r--
ada-xref.elc	54.99 KB	-rw-r--r--
antlr-mode.elc	77.63 KB	-rw-r--r--
asm-mode.elc	6.08 KB	-rw-r--r--
autoconf.elc	3.37 KB	-rw-r--r--
bug-reference.elc	5.83 KB	-rw-r--r--
cap-words.elc	3.54 KB	-rw-r--r--
cc-align.elc	35.43 KB	-rw-r--r--
cc-awk.elc	20.23 KB	-rw-r--r--
cc-bytecomp.elc	10.45 KB	-rw-r--r--
cc-cmds.elc	92.26 KB	-rw-r--r--
cc-compat.elc	2.97 KB	-rw-r--r--
cc-defs.elc	46.7 KB	-rw-r--r--
cc-engine.elc	143.05 KB	-rw-r--r--
cc-fonts.elc	140.72 KB	-rw-r--r--
cc-langs.elc	70.29 KB	-rw-r--r--
cc-menus.elc	7.32 KB	-rw-r--r--
cc-mode.elc	144.75 KB	-rw-r--r--
cc-styles.elc	16.11 KB	-rw-r--r--
cc-subword.elc	6.99 KB	-rw-r--r--
cc-vars.elc	71.07 KB	-rw-r--r--
cfengine.elc	8.09 KB	-rw-r--r--
cmacexp.elc	6.58 KB	-rw-r--r--
compile.elc	69.45 KB	-rw-r--r--
cperl-mode.elc	215.39 KB	-rw-r--r--
cpp.elc	21.52 KB	-rw-r--r--
cwarn.elc	12.8 KB	-rw-r--r--
dcl-mode.elc	49.31 KB	-rw-r--r--
delphi.elc	50.03 KB	-rw-r--r--
ebnf-abn.elc	7.39 KB	-rw-r--r--
ebnf-bnf.elc	7.99 KB	-rw-r--r--
ebnf-dtd.elc	13.82 KB	-rw-r--r--
ebnf-ebx.elc	8.77 KB	-rw-r--r--
ebnf-iso.elc	8.14 KB	-rw-r--r--
ebnf-otz.elc	8.51 KB	-rw-r--r--
ebnf-yac.elc	7.53 KB	-rw-r--r--
ebnf2ps.elc	121.25 KB	-rw-r--r--
ebrowse.elc	202.93 KB	-rw-r--r--
etags.elc	54.14 KB	-rw-r--r--
executable.elc	7.6 KB	-rw-r--r--
f90.elc	82.59 KB	-rw-r--r--
flymake.elc	61.25 KB	-rw-r--r--
fortran.elc	60.13 KB	-rw-r--r--
gdb-ui.elc	138.61 KB	-rw-r--r--
glasses.elc	10.15 KB	-rw-r--r--
grep.elc	27.75 KB	-rw-r--r--
gud.elc	93.94 KB	-rw-r--r--
hideif.elc	26.67 KB	-rw-r--r--
hideshow.elc	24.54 KB	-rw-r--r--
icon.elc	16.23 KB	-rw-r--r--
idlw-complete-structtag.elc	4.75 KB	-rw-r--r--
idlw-help.elc	35.31 KB	-rw-r--r--
idlw-shell.elc	134.39 KB	-rw-r--r--
idlw-toolbar.elc	28.34 KB	-rw-r--r--
idlwave.elc	254.7 KB	-rw-r--r--
inf-lisp.elc	18.43 KB	-rw-r--r--
ld-script.elc	4.91 KB	-rw-r--r--
m4-mode.elc	4.91 KB	-rw-r--r--
make-mode.elc	58.79 KB	-rw-r--r--
mantemp.elc	3.77 KB	-rw-r--r--
meta-mode.elc	27.42 KB	-rw-r--r--
mixal-mode.elc	35.32 KB	-rw-r--r--
modula2.elc	14.23 KB	-rw-r--r--
octave-inf.elc	11.87 KB	-rw-r--r--
octave-mod.elc	44.6 KB	-rw-r--r--
pascal.elc	40.31 KB	-rw-r--r--
perl-mode.elc	22.42 KB	-rw-r--r--
prolog.elc	12.7 KB	-rw-r--r--
ps-mode.elc	33.38 KB	-rw-r--r--
python.elc	86.23 KB	-rw-r--r--
ruby-mode.elc	34.59 KB	-rw-r--r--
scheme.elc	15.94 KB	-rw-r--r--
sh-script.elc	94.73 KB	-rw-r--r--
simula.elc	44.81 KB	-rw-r--r--
sql.elc	101.34 KB	-rw-r--r--
sym-comp.elc	7.15 KB	-rw-r--r--
tcl.elc	38.58 KB	-rw-r--r--
vera-mode.elc	44.5 KB	-rw-r--r--
verilog-mode.elc	331.76 KB	-rw-r--r--
vhdl-mode.elc	510.47 KB	-rw-r--r--
which-func.elc	9.72 KB	-rw-r--r--
xscheme.elc	37.76 KB	-rw-r--r--

Code Editor : modula2.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:10 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/modula2.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`modula2.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-declare-group '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)
#@42 Syntax table in use in Modula-2 buffers.
(defvar m2-mode-syntax-table nil (#$ . 795))
#@39 Command to compile Modula-2 programs.
(custom-declare-variable 'm2-compile-command '"m2c" '(#$ . 887) :type 'string :group 'modula2)
#@36 Command to link Modula-2 programs.
(custom-declare-variable 'm2-link-command '"m2l" '(#$ . 1026) :type 'string :group 'modula2)
#@34 Name of the Modula-2 executable.
(custom-declare-variable 'm2-link-name 'nil '(#$ . 1160) :type '(choice (const nil) string) :group 'modula2)
#@57 *Column for aligning the end of a comment, in Modula-2.
(custom-declare-variable 'm2-end-comment-column '75 '(#$ . -1308) :type 'integer :group 'modula2)
(byte-code "\204L�\302 \303\304\305	#\210\303\306\307	#\210\303\310\311	#\210\303\312\313	#\210\303\314\315	#\210\303\316\315	#\210\303\317\315	#\210\303\320\315	#\210\303\321\315	#\210\303\322\315	#\210\303\323\324	#\210	)\302\207" [m2-mode-syntax-table table make-syntax-table modify-syntax-entry 92 "\\" 40 ". 1" 41 ". 4" 42 ". 23" 43 "." 45 61 37 60 62 39 "\""] 4)
#@31 Keymap used in Modula-2 mode.
(defvar m2-mode-map nil (#$ . 1840))
(byte-code "\204\270�\302 \303	\304\305#\210\303	\306\307#\210\303	\310\311#\210\303	\312\313#\210\303	\314\315#\210\303	\316\317#\210\303	\320\321#\210\303	\322\323#\210\303	\324\325#\210\303	\326\327#\210\303	\330\331#\210\303	\332\333#\210\303	\334\335#\210\303	\336\337#\210\303	\340\341#\210\303	\342\343#\210\303	\344\345#\210\303	\346\347#\210\303	\350\351#\210\303	\352\353#\210\303	\354\355#\210\303	\356\357#\210\303	\360\361#\210\303	\362\363#\210\303	\364\365#\210\303	\366\367#\210\303	\370\371#\210\303	\372\373#\210\303	\374\375#\210	)\302\207" [m2-mode-map map make-sparse-keymap define-key "	" m2-tab "b" m2-begin "c" m2-case "d" m2-definition "e" m2-else "f" m2-for "h" m2-header "i" m2-if "m" m2-module "l" m2-loop "o" m2-or "p" m2-procedure "" m2-with "r" m2-record "s" m2-stdio "t" m2-type "u" m2-until "v" m2-var "w" m2-while "x" m2-export "y" m2-import "{" m2-begin-comment "}" m2-end-comment "\n" m2-newline "" suspend-emacs "" m2-visit "" m2-toggle "\f" m2-link "" m2-compile] 4)
#@56 *This variable gives the indentation in Modula-2-Mode.
(custom-declare-variable 'm2-indent '5 '(#$ . -2953) :type 'integer :group 'modula2)
#@1074 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.
(defalias 'modula-2-mode #[nil "\306 \210\307!\210\310\311\312\303!\210\313\312\314!\210\315\f!\210\312\316!\210\317
P\312\320!\210\312\321!\210\322\312\323!\210!\312\324!\210\325\312\326!\210\327\312\303!\210\313\312\330!\210\331\312\332!\210\333\312\334!\210\322\312\335!\210\336\337\340!\207" [m2-mode-map major-mode mode-name comment-column m2-mode-syntax-table page-delimiter kill-all-local-variables use-local-map modula-2-mode "Modula-2" make-local-variable 41 m2-end-comment-column set-syntax-table paragraph-start "$\\|" paragraph-separate paragraph-ignore-fill-prefix t require-final-newline comment-start "(* " comment-end " *)" comment-start-skip "/\\*+ *" comment-indent-function c-comment-indent parse-sexp-ignore-comments font-lock-defaults ((m3-font-lock-keywords m3-font-lock-keywords-1 m3-font-lock-keywords-2) nil nil ((95 . "w") (46 . "w") (60 . ". 1") (62 . ". 4")) nil) run-mode-hooks m2-mode-hook mode-require-final-newline] 2 (#$ . 3101) nil])
#@48 Subdued level highlighting for Modula-3 modes.
(defconst m3-font-lock-keywords-1 '(("\\<\$INTERFACE\\|MODULE\\|PROCEDURE\$\\>[ 	]*\$\\sw+\$?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) ("\\<\$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))) ("<\\*[ 	]*\$\\sw+\$" 1 font-lock-warning-face prepend)) (#$ . 5176))
#@46 Gaudy level highlighting for Modula-3 modes.
(defconst m3-font-lock-keywords-2 (append m3-font-lock-keywords-1 '("\\<\$\\(?:A\\(?:N[DY]\\|S\$\\|B\$?:EGIN\\|RANDED\\|Y\$\\|C\$?:ASE\\|ONST\$\\|D\$?:IV\\|O\$\\|E\$?:LS\\(?:E\\|IF\$\\|VAL\\|X\$?:\\(?:CEP\\|I\$T\\)\\)\\|F\$?:INALLY\\|OR\$\\|GENERIC\\|I[FN]\\|LO\$?:CK\\|OP\$\\|M\$?:ETHODS\\|OD\$\\|NOT\\|O\$?:BJECT\\|VERRIDES\\|[FR]\$\\|RE\$?:ADONLY\\|CORD\\|F\\|PEAT\\|TURN\\|VEAL\$\\|T\$?:HEN\\|O\\|RY\\|YPE\\(?:CASE\$?\\)\\|UN\$?:SAFE\\|T\\(?:IL\\|RACED\$\\)\\|VA\$?:LUE\\|R\$\\|W\$?:HILE\\|ITH\$\\)\\)\\>" ("\\<\$\\(?:A\\(?:BS\\|DR\\(?:SIZE\$?\\)\\|B\$?:\\(?:IT\\|YTE\$SIZE\\)\\|CEILING\\|D\$?:EC\\|ISPOSE\$\\|F\$?:IRST\\|LOOR\$\\|I\$?:NC\\|STYPE\$\\|L\$?:AST\\|OOPHOLE\$\\|M\$?:AX\\|IN\$\\|N\$?:ARROW\\|EW\\|UMBER\$\\|ORD\\|ROUND\\|SUBARRAY\\|T\$?:RUNC\\|YPECODE\$\\|VAL\\)\\)\\>" . font-lock-builtin-face) ("\\<\$\\(?:A\\(?:DDRESS\\|RRAY\$\\|B\$?:ITS\\|OOLEAN\$\\|C\$?:ARDINAL\\|HAR\$\\|EXTENDED\\|FLOAT\\|INTEGER\\|LONGREAL\\|MUTEX\\|R\$?:E\\(?:AL\\|FANY\$\\|OOT\\)\\|\$?:SE\\|TEX\$T\\)\\)\\>" . font-lock-type-face) ("\\<\$END\\|EXCEPTION\\|RAISES?\$\\>[ 	{]*" (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))) ("\\<\$FALSE\\|NIL\\|NULL\\|TRUE\$\\>" . font-lock-constant-face))) (#$ . 5652))
#@53 Default expressions to highlight in Modula-3 modes.
(defvar m3-font-lock-keywords m3-font-lock-keywords-1 (#$ . 7066))
#@48 Subdued level highlighting for Modula-2 modes.
(defconst m2-font-lock-keywords-1 m3-font-lock-keywords-1 (#$ . 7191))
#@46 Gaudy level highlighting for Modula-2 modes.
(defconst m2-font-lock-keywords-2 m3-font-lock-keywords-2 (#$ . 7315))
#@53 Default expressions to highlight in Modula-2 modes.
(defvar m2-font-lock-keywords m2-font-lock-keywords-1 (#$ . 7437))
#@64 Insert a newline and indent following line like previous line.
(defalias 'm2-newline #[nil "\301 \302 \210j)\207" [hpos current-indentation newline] 1 (#$ . 7562) nil])
#@26 Indent to next tab stop.
(defalias 'm2-tab #[nil "\301 \245T_j\207" [m2-indent current-indentation] 2 (#$ . 7739) nil])
#@54 Insert a BEGIN keyword and indent for the next line.
(defalias 'm2-begin #[nil "\300c\210\301 \210\302 \207" ["BEGIN" m2-newline m2-tab] 1 (#$ . 7867) nil])
#@64 Build skeleton CASE statement, prompting for the <expression>.
(defalias 'm2-case #[nil "\301\302!\303\304\261\210\305 \210\305 \210\306\307\261\210)\310\210\311 \207" [name read-string "Case-Expression: " "CASE " " OF" m2-newline "END (* case " " *);" 0 m2-tab] 3 (#$ . 8030) nil])
#@68 Build skeleton DEFINITION MODULE, prompting for the <module name>.
(defalias 'm2-definition #[nil "\301c\210\302\303!\211\304\305\261\210)\306y\207" [name "DEFINITION MODULE " read-string "Name: " ";\n\n\n\nEND " ".\n" -3] 5 (#$ . 8325) nil])
#@47 Insert ELSE keyword and indent for next line.
(defalias 'm2-else #[nil "\301 \210\302\303\"\210\304c\210\301 \210\305 \207" [m2-indent m2-newline backward-delete-char-untabify nil "ELSE" m2-tab] 3 (#$ . 8577) nil])
#@71 Build skeleton FOR loop statement, prompting for the loop parameters.
(defalias 'm2-for #[nil "\303c\210\304\305!\306\211\211\307\261\210\304\310!\211c\210\304\311!\211\312\230\204&�\313\261\210\314c\210\315 \210\315 \210\316\n\317	\320\261\210+\321\210\322 \207" [by limit name "FOR " read-string "Loop Initializer: " nil " TO " "Limit: " "Step: " "" " BY " " DO" m2-newline "END (* for " " to " " *);" 0 m2-tab] 6 (#$ . 8799) nil])
#@66 Insert a comment block containing the module title, author, etc.
(defalias 'm2-header #[nil "\300c\210\301\302!c\210\303c\210\304 c\210\305c\210\306 c\210\307\310 \311\312 \313\260c\210\314c\207" ["(*\n    Title: 	" read-string "Title: " "\n    Created:	" current-time-string "\n    Author: 	" user-full-name "\n		<" user-login-name "@" system-name ">\n" "*)\n\n"] 5 (#$ . 9249) nil])
#@67 Insert skeleton IF statement, prompting for <boolean-expression>.
(defalias 'm2-if #[nil "\301c\210\302\303!\211\304\261\210\305 \210\305 \210\306\307\261\210)\310\210\311 \207" [thecondition "IF " read-string "<boolean-expression>: " " THEN" m2-newline "END (* if " " *);" 0 m2-tab] 4 (#$ . 9641) nil])
#@33 Build skeleton LOOP (with END).
(defalias 'm2-loop #[nil "\300c\210\301 \210\301 \210\302c\210\303\210\304 \207" ["LOOP" m2-newline "END (* loop *);" 0 m2-tab] 1 (#$ . 9956) nil])
#@68 Build skeleton IMPLEMENTATION MODULE, prompting for <module-name>.
(defalias 'm2-module #[nil "\301c\210\302\303!\211\304\305\261\210\306y\210\307 \210\310 \210\311 \210\312 \210\311 \210\313 \210\314 \210\315\316\261\210)\317 \210\311 \210\320 \207" [name "IMPLEMENTATION MODULE " read-string "Name: " ";\n\n\n\nEND " ".\n" -3 m2-header m2-type newline m2-var m2-begin m2-begin-comment " Module " " Initialisation Code " m2-end-comment m2-tab] 5 (#$ . 10143) nil])
(defalias 'm2-or #[nil "\301 \210\302!\210\303c\210\301 \210\304 \207" [m2-indent m2-newline backward-delete-char-untabify "|" m2-tab] 2 nil nil])
(defalias 'm2-procedure #[nil "\302c\210\303\304!\305\211\306\261\210\303\307!\310\261\210\303\311!\211\312\230\204$�\313\261\210\314c\210\315 \210\316c\210\315 \210\315 \210\317c\210	c\210\314c\210\320\210\321 *\207" [args name "PROCEDURE " read-string "Name: " nil " (" "Arguments: " ")" "Result Type: " "" " : " ";" m2-newline "BEGIN" "END " 0 m2-tab] 3 nil nil])
(defalias 'm2-with #[nil "\301c\210\302\303!\211c\210\304c\210\305 \210\305 \210\306\307\261\210)\310\210\311 \207" [name "WITH " read-string "Record-Type: " " DO" m2-newline "END (* with " " *);" 0 m2-tab] 4 nil nil])
(defalias 'm2-record #[nil "\300c\210\301 \210\301 \210\302c\210\303\210\304 \207" ["RECORD" m2-newline "END (* record *);" 0 m2-tab] 1 nil nil])
(defalias 'm2-stdio #[nil "\300c\207" ["\nFROM TextIO IMPORT\n   WriteCHAR, ReadCHAR, WriteINTEGER, ReadINTEGER,\n   WriteCARDINAL, ReadCARDINAL, WriteBOOLEAN, ReadBOOLEAN,\n   WriteREAL, ReadREAL, WriteBITSET, ReadBITSET,\n   WriteBasedCARDINAL, ReadBasedCARDINAL, WriteChars, ReadChars,\n   WriteString, ReadString, WhiteSpace, EndOfLine;\n\nFROM SysStreams IMPORT sysIn, sysOut, sysErr;\n\n"] 1 nil nil])
(defalias 'm2-type #[nil "\300c\210\301 \210\302 \207" ["TYPE" m2-newline m2-tab] 1 nil nil])
(defalias 'm2-until #[nil "\300c\210\301 \210\301 \210\302c\210\303\304!\305\261\210\306\210\307 \207" ["REPEAT" m2-newline "UNTIL " read-string "<boolean-expression>: " ";" 0 m2-tab] 2 nil nil])
(defalias 'm2-var #[nil "\300 \210\301c\210\300 \210\302 \207" [m2-newline "VAR" m2-tab] 1 nil nil])
(defalias 'm2-while #[nil "\301c\210\302\303!\211\304\261\210\305 \210\305 \210\306\307\261\210)\310\210\311 \207" [name "WHILE " read-string "<boolean-expression>: " " DO" m2-newline "END (* while " " *);" 0 m2-tab] 4 nil nil])
(defalias 'm2-export #[nil "\300c\207" ["EXPORT QUALIFIED "] 1 nil nil])
(defalias 'm2-import #[nil "\300c\210\301\302!c\210\303c\207" ["FROM " read-string "Module: " " IMPORT "] 2 nil nil])
(defalias 'm2-begin-comment #[nil "n\204	�\301\302\"\210\303c\207" [comment-column indent-to 0 "(*  "] 3 nil nil])
(defalias 'm2-end-comment #[nil "n\204�j\210\301c\207" [m2-end-comment-column "*)"] 1 nil nil])
(defalias 'm2-compile #[nil "\301\302\303 Q!\207" [m2-compile-command compile " " buffer-name] 4 nil nil])
(defalias 'm2-link #[nil "\203�\302	\303Q!\207\302	\303\304\305\306 \"\211Q!\207" [m2-link-name m2-link-command compile " " read-string "Name of executable: " buffer-name] 6 nil nil])
(defalias 'm2-execute-monitor-command #[(command) "\304	!\305\232\306	\307\310\211\311\312P&*\207" [shell-file-name shell csh command file-name-nondirectory "csh" call-process nil t "-cf" "exec "] 8])
(defalias 'm2-visit #[nil "\303\211\211\212\304\305!\306\307!\210\310\311P!\210eb\210\303\312\313\217\210\303\314\315\217\210\n\204/�	\204/�\316\317\"\210)\n\203D�\320\n!\210	\205K�\212\320	!)\202K�	\205K�\320	!+\207" [modulename modfile deffile nil read-string "Module name: " switch-to-buffer "*Command Execution*" m2-execute-monitor-command "m2whereis " (byte-code "\301\302!\210\303\224\303\225{\301\207" [deffile re-search-forward "\$.*\\.def\$ *$" 1] 2) ((search-failed)) (byte-code "\301\302!\210\303\224\303\225{\301\207" [modfile re-search-forward "\$.*\\.mod\$ *$" 1] 2) ((search-failed)) error "I can find neither definition nor implementation of %s" find-file] 3 nil nil])
#@52 Toggle between .mod and .def files for the module.
(defalias 'm2-toggle #[nil "\300 \301\302O\303\230\203�\304\300 \305\301O\306P!\207\300 \301\302O\306\230\203(�\304\300 \305\301O\303P!\207\300 \307\302O\310\230\203<�\304\300 \305\307O\311P!\207\300 \307\302O\311\230\205O�\304\300 \305\307O\310P!\207" [buffer-name -4 nil ".def" find-file-other-window 0 ".mod" -3 ".mi" ".md"] 4 (#$ . 14152) nil])
(provide 'modula2)

${this.title}

Code Editor : modula2.elc