Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
progmodes /
[ HOME SHELL ]
Name
Size
Permission
Action
antlr-mode.elc
77.56
KB
-rw-r--r--
asm-mode.elc
7.42
KB
-rw-r--r--
autoconf.elc
4.55
KB
-rw-r--r--
bat-mode.elc
6.56
KB
-rw-r--r--
bug-reference.elc
7.3
KB
-rw-r--r--
cc-align.elc
39.52
KB
-rw-r--r--
cc-awk.elc
17.95
KB
-rw-r--r--
cc-bytecomp.elc
10.56
KB
-rw-r--r--
cc-cmds.elc
97.51
KB
-rw-r--r--
cc-defs.elc
66.37
KB
-rw-r--r--
cc-engine.elc
231.26
KB
-rw-r--r--
cc-fonts.elc
153.13
KB
-rw-r--r--
cc-guess.elc
13.35
KB
-rw-r--r--
cc-langs.elc
110.05
KB
-rw-r--r--
cc-menus.elc
8.05
KB
-rw-r--r--
cc-mode.elc
227.86
KB
-rw-r--r--
cc-styles.elc
16.66
KB
-rw-r--r--
cc-vars.elc
77.01
KB
-rw-r--r--
cfengine.elc
48.18
KB
-rw-r--r--
cmacexp.elc
6.2
KB
-rw-r--r--
compile.elc
92.53
KB
-rw-r--r--
cperl-mode.elc
212.98
KB
-rw-r--r--
cpp.elc
23.2
KB
-rw-r--r--
cwarn.elc
11.9
KB
-rw-r--r--
dcl-mode.elc
50.32
KB
-rw-r--r--
ebnf-abn.elc
6.95
KB
-rw-r--r--
ebnf-bnf.elc
8.02
KB
-rw-r--r--
ebnf-dtd.elc
13.53
KB
-rw-r--r--
ebnf-ebx.elc
8.12
KB
-rw-r--r--
ebnf-iso.elc
7.77
KB
-rw-r--r--
ebnf-otz.elc
8.47
KB
-rw-r--r--
ebnf-yac.elc
7.4
KB
-rw-r--r--
ebnf2ps.elc
121.12
KB
-rw-r--r--
ebrowse.elc
202.8
KB
-rw-r--r--
elisp-mode.elc
58.74
KB
-rw-r--r--
etags.elc
61.3
KB
-rw-r--r--
executable.elc
7.83
KB
-rw-r--r--
f90.elc
95.13
KB
-rw-r--r--
flymake-cc.elc
3.55
KB
-rw-r--r--
flymake-proc.elc
38.04
KB
-rw-r--r--
flymake.elc
63.5
KB
-rw-r--r--
fortran.elc
59.75
KB
-rw-r--r--
gdb-mi.elc
188.72
KB
-rw-r--r--
glasses.elc
10.37
KB
-rw-r--r--
grep.elc
40.95
KB
-rw-r--r--
gud.elc
98.55
KB
-rw-r--r--
hideif.elc
48.36
KB
-rw-r--r--
hideshow.elc
25.56
KB
-rw-r--r--
icon.elc
16.75
KB
-rw-r--r--
idlw-complete-structtag.elc
4.22
KB
-rw-r--r--
idlw-help.elc
35.91
KB
-rw-r--r--
idlw-shell.elc
129.89
KB
-rw-r--r--
idlw-toolbar.elc
27.44
KB
-rw-r--r--
idlwave.elc
250.95
KB
-rw-r--r--
inf-lisp.elc
21.06
KB
-rw-r--r--
js.elc
176.3
KB
-rw-r--r--
ld-script.elc
5.44
KB
-rw-r--r--
m4-mode.elc
6.34
KB
-rw-r--r--
make-mode.elc
62.21
KB
-rw-r--r--
meta-mode.elc
31.41
KB
-rw-r--r--
mixal-mode.elc
36.18
KB
-rw-r--r--
modula2.elc
30.37
KB
-rw-r--r--
octave.elc
63.2
KB
-rw-r--r--
opascal.elc
52.47
KB
-rw-r--r--
pascal.elc
39.22
KB
-rw-r--r--
perl-mode.elc
29.41
KB
-rw-r--r--
prog-mode.elc
15.82
KB
-rw-r--r--
project.elc
17.06
KB
-rw-r--r--
prolog.elc
85.47
KB
-rw-r--r--
ps-mode.elc
33
KB
-rw-r--r--
python.elc
178.17
KB
-rw-r--r--
ruby-mode.elc
63.86
KB
-rw-r--r--
scheme.elc
18.81
KB
-rw-r--r--
sh-script.elc
116.3
KB
-rw-r--r--
simula.elc
44.83
KB
-rw-r--r--
sql.elc
182.59
KB
-rw-r--r--
subword.elc
18.77
KB
-rw-r--r--
tcl.elc
40.14
KB
-rw-r--r--
vera-mode.elc
45.08
KB
-rw-r--r--
verilog-mode.elc
450.39
KB
-rw-r--r--
vhdl-mode.elc
528.7
KB
-rw-r--r--
which-func.elc
10.4
KB
-rw-r--r--
xref.elc
56.91
KB
-rw-r--r--
xscheme.elc
38
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : simula.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'simula nil "Major mode for editing Simula code." :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) :prefix "simula-" :group 'languages) #@175 Non-nil means TAB in SIMULA mode should always reindent the current line. Otherwise TAB indents only when point is within the run of whitespace at the beginning of the line. (defconst simula-tab-always-indent-default nil (#$ . 590)) #@175 Non-nil means TAB in SIMULA mode should always reindent the current line. Otherwise TAB indents only when point is within the run of whitespace at the beginning of the line. (custom-declare-variable 'simula-tab-always-indent 'simula-tab-always-indent-default '(#$ . 830) :type 'boolean :group 'simula) #@68 Indentation of SIMULA statements with respect to containing block. (defconst simula-indent-level-default 3 (#$ . 1138)) #@68 Indentation of SIMULA statements with respect to containing block. (custom-declare-variable 'simula-indent-level 'simula-indent-level-default '(#$ . 1264) :type 'integer :group 'simula) #@61 Extra indentation after DO, THEN, ELSE, WHEN and OTHERWISE. (defconst simula-substatement-offset-default 3 (#$ . 1456)) #@61 Extra indentation after DO, THEN, ELSE, WHEN and OTHERWISE. (custom-declare-variable 'simula-substatement-offset 'simula-substatement-offset-default '(#$ . 1582) :type 'integer :group 'simula) #@239 Extra indentation for lines not starting a statement or substatement. If value is a list, each line in a multipleline continued statement will have the car of the list extra indentation with respect to the previous line of the statement. (defconst simula-continued-statement-offset-default 3 (#$ . 1782)) #@239 Extra indentation for lines not starting a statement or substatement. If value is a list, each line in a multipleline continued statement will have the car of the list extra indentation with respect to the previous line of the statement. (custom-declare-variable 'simula-continued-statement-offset 'simula-continued-statement-offset-default '(#$ . 2094) :type 'integer :group 'simula) #@61 Offset of SIMULA label lines relative to usual indentation. (defconst simula-label-offset-default -4711 (#$ . 2485)) #@61 Offset of SIMULA label lines relative to usual indentation. (custom-declare-variable 'simula-label-offset 'simula-label-offset-default '(#$ . 2608) :type 'integer :group 'simula) #@208 Extra indentation of THEN and ELSE with respect to the starting IF. Value is a cons cell, the car is extra THEN indentation and the cdr extra ELSE indentation. IF after ELSE is indented as the starting IF. (defconst simula-if-indent-default '(0 . 0) (#$ . 2794)) #@208 Extra indentation of THEN and ELSE with respect to the starting IF. Value is a cons cell, the car is extra THEN indentation and the cdr extra ELSE indentation. IF after ELSE is indented as the starting IF. (custom-declare-variable 'simula-if-indent 'simula-if-indent-default '(#$ . 3065) :type '(cons integer integer) :group 'simula) #@167 Extra indentation of WHEN and OTHERWISE with respect to the INSPECT. Value is a cons cell, the car is extra WHEN indentation and the cdr extra OTHERWISE indentation. (defconst simula-inspect-indent-default '(0 . 0) (#$ . 3407)) #@167 Extra indentation of WHEN and OTHERWISE with respect to the INSPECT. Value is a cons cell, the car is extra WHEN indentation and the cdr extra OTHERWISE indentation. (custom-declare-variable 'simula-inspect-indent 'simula-inspect-indent-default '(#$ . 3642) :type '(cons integer integer) :group 'simula) #@73 Non-nil means `simula-indent-line' function may reindent previous line. (defconst simula-electric-indent-default nil (#$ . 3952)) #@73 Non-nil means `simula-indent-line' function may reindent previous line. (custom-declare-variable 'simula-electric-indent 'simula-electric-indent-default '(#$ . 4088) :type 'boolean :group 'simula) #@175 Specify how to convert case for SIMULA keywords. Value is one of the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table' or nil if they should not be changed. (defconst simula-abbrev-keyword-default 'upcase (#$ . 4292)) #@175 Specify how to convert case for SIMULA keywords. Value is one of the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table' or nil if they should not be changed. (custom-declare-variable 'simula-abbrev-keyword 'simula-abbrev-keyword-default '(#$ . 4534) :type '(choice (const upcase) (const downcase) (const capitalize) (const nil)) :group 'simula) #@202 Specify how to convert case for standard SIMULA procedure and class names. Value is one of the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table', or nil if they should not be changed. (defconst simula-abbrev-stdproc-default 'abbrev-table (#$ . 4902)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable simula-abbrev-stdproc simula-abbrev-stdproc-default "Specify how to convert case for standard SIMULA procedure and class names.\nValue is one of the symbols `upcase', `downcase', `capitalize',\n(as in) `abbrev-table', or nil if they should not be changed." :type (choice (const upcase) (const downcase) (const capitalize) (const abbrev-table) (const nil)) :group simula simula-abbrev-file nil "File with extra abbrev definitions for use in SIMULA mode.\nThese are used together with the standard abbrev definitions for SIMULA.\nPlease note that the standard definitions are required\nfor SIMULA mode to function correctly." (choice file (const nil))] 8) #@38 Syntax table in SIMULA mode buffers. (defvar simula-mode-syntax-table nil (#$ . 5945)) (defconst simula-syntax-propertize-function #[(start end) "b\210` W\205\\ \302\303 \304#\205\\ \305\224\203\" \306\305\224\305\225\307\310$\210\202 \311\224\204, \312\224\203K \311\224\203: \306\311\224\311\225\307\313$\210\312\224\203 \306\312\224\312\225\307\314$\210\202 \315\224\203 \306\315\224\315\225\307\316$\210\202 \207" [start end re-search-forward "\\<\\(c\\)omment\\>\\|\\<end\\>\\([^;\n]\\).*?\\(\n\\|\\(.\\)\\(;\\|\\(?:e\\(?:lse\\|nd\\)\\|otherwise\\|when\\)\\)\\)\\|'\\('\\)'" t 1 put-text-property syntax-table (11) 2 4 (2097163) (2097164) 6 (1)] 5]) #@45 Subdued level highlighting for Simula mode. (defconst simula-font-lock-keywords-1 '(("^%\\([^ \n].*\\)" 1 font-lock-constant-face t) ("\\<\\(class\\|procedure\\)\\>[ ]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))) (#$ . 6612)) #@44 Medium level highlighting for Simula mode. (defconst simula-font-lock-keywords-2 (byte-code "\301\302\303\304\305BE\"\207" [simula-font-lock-keywords-1 append ("\\<\\(false\\|none\\|notext\\|true\\)\\>" . font-lock-constant-face) "\\<\\(a\\(?:ctivate\\|fter\\|nd\\|t\\)\\|be\\(?:fore\\|gin\\)\\|d\\(?:elay\\|o\\)\\|e\\(?:lse\\|nd\\|qv?\\|xternal\\)\\|for\\|g\\(?:oto\\|[eot]\\)\\|hidden\\|i\\(?:mp\\|n\\(?:ner\\|spect\\)\\|[fns]\\)\\|l\\(?:abel\\|[et]\\)\\|n\\(?:ew?\\|ot\\)\\|o\\(?:r\\|therwise\\)\\|pr\\(?:ior\\|otected\\)\\|qua\\|reactivate\\|s\\(?:tep\\|witch\\)\\|t\\(?:h\\(?:en\\|is\\)\\|o\\)\\|until\\|virtual\\|wh\\(?:en\\|ile\\)\\)\\>" "\\<\\(array\\|boolean\\|character\\|integer\\|long\\|name\\|re\\(?:al\\|f\\)\\|short\\|text\\|value\\)\\>" font-lock-type-face] 6) (#$ . 6883)) #@43 Gaudy level highlighting for Simula mode. (defconst simula-font-lock-keywords-3 (byte-code "\301\302\303\304D\305E\"\207" [simula-font-lock-keywords-2 append ("\\<\\(\\sw+\\)[ ]+class\\>" 1 font-lock-function-name-face) "\\<\\(array\\|boolean\\|character\\|integer\\|long\\|name\\|real\\|short\\|text\\|value\\)\\>\\([ ]+\\sw+\\>\\)*" (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (or (match-beginning 2) (match-end 1))) (goto-char (match-end 1)) (1 font-lock-variable-name-face)) ("\\<\\(ref\\)\\>[ ]*\\((\\(\\sw+\\))\\)?" (3 font-lock-function-name-face nil t) (font-lock-match-c-style-declaration-item-and-skip-to-next nil nil (1 font-lock-variable-name-face)))] 5) (#$ . 7680)) #@50 Default expressions to highlight in Simula mode. (defvar simula-font-lock-keywords simula-font-lock-keywords-1 (#$ . 8396)) #@35 Lucid Emacs menu for SIMULA mode. (defvar simula-mode-menu '(["Indent Line" simula-indent-line t] ["Backward Statement" simula-previous-statement t] ["Forward Statement" simula-next-statement t] ["Backward Up Level" simula-backward-up-level t] ["Forward Down Statement" simula-forward-down-level t]) (#$ . 8526)) (byte-code "\204c \301\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\307#\210\303\325\307#\210\303\326\307#\210\303\327\330#\210\303\331\307#\210\303\332\307#\210\303\333\307#\210\301\207" [simula-mode-syntax-table copy-syntax-table standard-syntax-table modify-syntax-entry 33 "<" 36 "." 37 "< b" 10 "> b" 39 "\"" 40 "()" 41 ")(" 59 ">" 91 92 93 95 "_" 124 123 125] 4) #@31 Keymap used in `simula-mode'. (defvar simula-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324\301\324!B#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\343\312\344\345#\210\343\306\344\346#\210\343\310\344\347#\210\343\304\344\350#\210\343\322\344\351#\210\343\320\344\352#\210)\207" [map make-sparse-keymap define-key "" simula-backward-up-level "" simula-previous-statement "" simula-forward-down-level "" simula-next-statement "" backward-delete-char-untabify ":" simula-electric-label "" simula-indent-exp " " simula-indent-command [menu-bar simula] "SIMULA" [menu-bar simula indent-exp] ("Indent Expression" . simula-indent-exp) [menu-bar simula indent-line] ("Indent Line" . simula-indent-command) [menu-bar simula separator-navigate] ("--") [menu-bar simula backward-stmt] ("Previous Statement" . simula-previous-statement) [menu-bar simula forward-stmt] ("Next Statement" . simula-next-statement) [menu-bar simula backward-up] ("Backward Up Level" . simula-backward-up-level) [menu-bar simula forward-down] ("Forward Down Statement" . simula-forward-down-level) put menu-enable (not (eobp)) (not (bobp)) (not (eobp)) (not (bobp)) (not buffer-read-only) (not buffer-read-only)] 6) (#$ . 9336)) #@26 Pops up the SIMULA menu. (defalias 'simula-popup-menu #[(_e) "\302\303P B!\207" [mode-name simula-mode-menu popup-menu " Mode Commands"] 3 (#$ . 10774) "@e"]) (defvar simula-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [simula-mode-hook variable-documentation put "Hook run after entering Simula mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp simula-mode-map definition-name simula-mode] 4) (defvar simula-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [simula-mode-abbrev-table simula-mode-map variable-documentation put purecopy "Keymap for `simula-mode'." boundp simula-mode-syntax-table definition-name simula-mode (lambda (#1=#:def-tmp-var) (defvar simula-mode-syntax-table #1#)) make-syntax-table "Syntax table for `simula-mode'." (lambda (#1#) (defvar simula-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `simula-mode'." derived-mode-parent prog-mode] 5) #@2096 Major mode for editing SIMULA code. \{simula-mode-map} Variables controlling indentation style: `simula-tab-always-indent' Non-nil means TAB in SIMULA mode should always reindent the current line, regardless of where in the line point is when the TAB command is used. `simula-indent-level' Indentation of SIMULA statements with respect to containing block. `simula-substatement-offset' Extra indentation after DO, THEN, ELSE, WHEN and OTHERWISE. `simula-continued-statement-offset' 3 Extra indentation for lines not starting a statement or substatement, e.g. a nested FOR-loop. If value is a list, each line in a multiple- line continued statement will have the car of the list extra indentation with respect to the previous line of the statement. `simula-label-offset' -4711 Offset of SIMULA label lines relative to usual indentation. `simula-if-indent' (0 . 0) Extra indentation of THEN and ELSE with respect to the starting IF. Value is a cons cell, the car is extra THEN indentation and the cdr extra ELSE indentation. IF after ELSE is indented as the starting IF. `simula-inspect-indent' (0 . 0) Extra indentation of WHEN and OTHERWISE with respect to the corresponding INSPECT. Value is a cons cell, the car is extra WHEN indentation and the cdr extra OTHERWISE indentation. `simula-electric-indent' nil If this variable is non-nil, `simula-indent-line' will check the previous line to see if it has to be reindented. `simula-abbrev-keyword' `upcase' Determine how SIMULA keywords will be expanded. Value is one of the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table', or nil if they should not be changed. `simula-abbrev-stdproc' `abbrev-table' Determine how standard SIMULA procedure and class names will be expanded. Value is one of the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table', or nil if they should not be changed. Turning on SIMULA mode calls the value of the variable simula-mode-hook with no arguments, if that value is non-nil. (defalias 'simula-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\3240\325\"\204V 01=\204V \3260\3251C#\210\327 !\210\330\f!\21001\306\331!\210\332\306\333!\210\334\306\335!\210 \306\336!\210\337 \306\340!\210\341 \306\342!\210\343\"\306\344!\210\345$\306\346!\210\347&\306\350!\210\307(\306\351!\210\352)\306\353!\2102+\354\355!\210)\356\357!\207" [delay-mode-hooks major-mode mode-name simula-mode-map simula-mode-syntax-table parent make-local-variable t prog-mode simula-mode "Simula" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table comment-column 40 paragraph-start "[ ]*$\\|\f" paragraph-separate indent-line-function simula-indent-line comment-start "! " comment-end " ;" comment-start-skip "!+ *" parse-sexp-ignore-comments nil comment-multi-line font-lock-defaults ((simula-font-lock-keywords simula-font-lock-keywords-1 simula-font-lock-keywords-2 simula-font-lock-keywords-3) nil t ((95 . "w"))) syntax-propertize-function abbrev-mode 1 run-mode-hooks simula-mode-hook simula-mode-abbrev-table local-abbrev-table simula-syntax-propertize-function] 6 (#$ . 12080) nil]) #@43 Indent SIMULA expression following point. (defalias 'simula-indent-exp #[nil "`\303\211\304 \210m\203 \nb\2028 \305\216\306\307!\210\310 \311\307!\210\312 \210`W\2057 \313\314!\2041 \315 \210\307y\210\202\" )+\207" [end simula-electric-indent here nil simula-skip-comment-forward #[nil "\205 \301\211\223\207" [end nil] 3] simula-next-statement 1 point-marker simula-previous-statement beginning-of-line looking-at "[ ]*$" simula-indent-line] 3 (#$ . 15571) nil]) #@109 Indent this line as SIMULA code. If `simula-electric-indent' is non-nil, indent previous line if necessary. (defalias 'simula-indent-line #[nil "d`Z\305 \306\307\216 \2059 \310\210\311 \210\312 \210\313\314w\210\315\316!\2059 \317 ?\2059 \305 \320 \f=?\2058 \321 \210\fj),\207" [case-fold-search indent origin simula-electric-indent post-indent simula-calculate-indent t #[nil "dZb\210\302 =\203 \303 \207\304 \210 j\207" [origin indent current-indentation back-to-indentation delete-horizontal-space] 2] 0 expand-abbrev beginning-of-line " \f" nil looking-at "\\(end\\|if\\|then\\|else\\|when\\|otherwise\\)\\>" simula-context current-indentation delete-horizontal-space] 3 (#$ . 16052)]) #@451 Indent current line as SIMULA code, or insert TAB character. If `simula-tab-always-indent' is non-nil, always indent current line. Otherwise, indent only if point is before any non-whitespace character on the line. A numeric argument, regardless of its value, means indent rigidly all the lines of the SIMULA statement after point so that this line becomes properly indented. The relative indentation among the lines of the statement are preserved. (defalias 'simula-indent-command #[(&optional whole-exp) "\306 \204 \n\204 \212\307\310x\210n)\203\216 \212\311 \210\312 )\313 d`Z\212\307\310x\210n)\310\211 \314\216=\203L \212\307\310x\210n)\203V \315 \210\202V \311 \210\316 \210j\210)` \205\211 \212\311\317!\210`b\210\320\321!\210`\211\fV\205\210 =?\205\210 \322\f Z\323$).\202\220 \324 )\207" [case-fold-search whole-exp simula-tab-always-indent end beg bol t " \f" nil beginning-of-line simula-calculate-indent current-indentation #[nil "?\205 d Zb\207" [bol origin] 2] back-to-indentation delete-horizontal-space 2 simula-next-statement 1 indent-code-rigidly "%" insert-tab origin current indent] 7 (#$ . 16758) "P"]) #@273 Return value according to syntactic SIMULA context of point. 0 point inside COMMENT comment 1 point on SIMULA-compiler directive line 2 point inside END comment 3 point inside string 4 point inside character constant nil otherwise. (defalias 'simula-context #[nil "\212\304 \210g)\305=\203 \306\207\212\307`\310ex\210\307o\204\216 \304 \210g\305=\204\200 `\nW\203| \311\307w\210\306u\210h\312=\203? `\202' h\313=\203\\ \314\307w\210g\312=\203V `\315\202' \306u\210\202' g\316=\203e \306u\210\317\307w\210g\312=\203v `\315\202' \306u\210\202' \203\216 \320u\210\310\307x\210`\307\202 *`W\203Z\321\322\323#\203Zh\324>\203\344 \325\321\326\323#\203\305 h\327>\204\245 h\305=\203\277 \304\325!\204\245 \307\211\204\245 hz\330=\203\217 gz\330=\203\217 \212\331\306!\210\332\333!\203\340 \307)\202\217 h\334>\203\335\336w\210 \203\217 `W\203\217 g\312=\203\307\211\202\361 n\203\304\325!\210\202\306u\210\336w\210\202\360 h\313=\203.\337\340\323#\204\217 \341\202\217 h\316=\203S`=\204>m\203C\342\202\217 \306u\210\337\343\323#\204\217 \342\202\217 \304\325!\210\202\217 +\207" [origin return-value saved-point loopvalue beginning-of-line 37 1 nil "^;" "^;\"'" 59 34 "^\";" t 39 "^';" -1 re-search-forward "\\<end\\>\\|!\\|\"\\|'\\|^%\\|\\<comment\\>" move (100 68) 2 ";\\|\\<end\\>\\|\\<else\\>\\|\\<otherwise\\>\\|\\<when\\>\\|^%" (100 68) 119 backward-word-strictly looking-at "end\\>\\|else\\>\\|otherwise\\>\\|when\\>" (33 116 84) 0 "^%;" search-forward "\"" 3 4 "'"] 5 (#$ . 17925)]) #@61 If this is a label that starts the line, reindent the line. (defalias 'simula-electric-label #[nil "\304 \210\305c\210d`Z\306\307 \310\216\311 C\"\211,\207" [next-char case-fold-search origin unread-command-events expand-abbrev 58 t read-event #[nil "\304>\204D \305>\204 \306=\203 \204 g\307>\204D \310 \204D \311u\210\312\313x\210\314\313x\210\315\316!\204D \312\313x\210n\203D \317 \320 \210\nj\210)d Zb\207" [next-char simula-tab-always-indent amount origin (61 45) (10 13) 9 (61 45) simula-context -1 " \f" nil "a-zA-Z0-9_" looking-at "virtual\\>" simula-calculate-indent delete-horizontal-space] 2] append] 3 (#$ . 19502) nil]) #@97 Move backward up COUNT block levels. If COUNT is negative, move forward up block level instead. (defalias 'simula-backward-up-level #[(count) "`\303\3041k \3051` \n\306V\2033 \n\306V\205[ \307\310!\210\311 \204 g\312>\203, \nS\202. \nT\211\202 \n\306W\205[ \313\310!\210\314\315!\210\311 \204T g\316>\203Q \nT\202S \nS\314\317!\210\2023 00\202s 0\210 b\210\320\321!\202s \210 b\210\322\323\324\"*\207" [case-fold-search origin count t (quit) (error) 0 re-search-backward "\\<begin\\>\\|\\<end\\>" simula-context (98 66) re-search-forward backward-word-strictly 1 (101 69) -1 error "No higher block level" signal quit nil] 4 (#$ . 20156) "p"]) #@101 Move forward down COUNT block levels. If COUNT is negative, move backward down block level instead. (defalias 'simula-forward-down-level #[(count) "`\304\3051\202 \3061w \307W\203? \307W\205r \310\311!\210\312 \2041 g\313>\203. T\2020 S W\203 \314\315\316\"\210\202 \307V\205r \317\311!\210\320\321!\210\312 \204` g\322>\203] S\202_ T\320\323!\210 V\203? \314\315\316\"\210\202? 00\202\212 0\210\nb\210\315\324!\202\212 \210\nb\210\314\325\316\"+\207" [count case-fold-search origin start-count t (quit) (error) 0 re-search-backward "\\<begin\\>\\|\\<end\\>" simula-context (101 69) signal error nil re-search-forward backward-word-strictly 1 (98 66) -1 "No containing block level" quit] 3 (#$ . 20812) "p"]) #@77 Move backward COUNT statements. If COUNT is negative, move forward instead. (defalias 'simula-previous-statement #[(count) "\304W\203 \305[!\207\306\307`\3101u \3111j \312 \210h\313>\2033 \314\315!\210\316\317!\204< \314\320!\210\202< h\321=\203< \320u\210\322S\211!\203O \323\324\306\325#\211\204< \203c g\321=\203_ \315u\210\202c \314\320!\210\326 00\202} 0\210 b\210\327\330!\202} \210 b\210\331\332\306\"+\207" [count origin case-fold-search status 0 simula-next-statement nil t (quit) (error) simula-skip-comment-backward (110 78) backward-word-strictly 1 looking-at "\\<begin\\>" -1 59 natnump simula-search-backward ";\\|\\<begin\\>" move simula-skip-comment-forward error "Incomplete statement (too many ENDs)" signal quit] 4 (#$ . 21544) "p"]) #@77 Move forward COUNT statements. If COUNT is negative, move backward instead. (defalias 'simula-next-statement #[(count) "\304W\203 \305[!\207\306\307`\3101Z \3111O \312 \210\313\314!\203& \315\316!\210\317S\211!\2039 \320\321d\322#\211\204& \205J h\323U?\205J \324\316!\210\325 00\202b 0\210 b\210\326\327!\202b \210 b\210\330\331\306\"+\207" [count origin case-fold-search status 0 simula-previous-statement nil t (quit) (error) simula-skip-comment-forward looking-at "\\<end\\>" forward-word-strictly 1 natnump simula-search-forward ";\\|\\<end\\>" move 59 backward-word-strictly simula-skip-comment-backward error "Incomplete statement (too few ENDs)" signal quit] 4 (#$ . 22313) "p"]) #@66 Search towards bob to find first char that is outside a comment. (defalias 'simula-skip-comment-backward #[(&optional stop-at-end) "\3022\221 \303\304\303x\210h\305=\203' \212\306u\210\307 \203# \310=\203# \303)\202* \307 \311\267\202 h\312=\203O g\313>\204O \212\314\303x\210\315\316!)\204O \314\303x\210\202 \317\302\303\"\210\202 \320\321!\203 \307 \322>\204W \202 \323 \210o\203v \317\302\303\"\210\202 \306u\210\202 \320\324!\210\325\326!\210\317\302\303\"\210\202 \202 )0\207" [context stop-at-end simula-out nil " \n\f" 59 -1 simula-context 2 #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 48 3 48 4 48 0 87 1 103 2 124)) 58 (45 61) ": \fa-zA-Z0-9_" looking-at "virtual\\>" throw re-search-backward "!\\|\\<comment\\>" (0 1) beginning-of-line "\\<end\\>" forward-word-strictly 1] 3 (#$ . 23017) nil]) #@66 Search towards eob to find first char that is outside a comment. (defalias 'simula-skip-comment-forward #[nil "\3002C \301\302w\210\303\304!\203 \305\306\302\307#\210\202 n\203( g\310=\203( \311\312!\210\202 \303\313!\203; \303\314!\204; \315\302w\210\202 \316\300\317\"\210\202 \207" [simula-out " \n\f" nil looking-at "!\\|\\<comment\\>" search-forward ";" move 37 beginning-of-line 2 "[a-z0-9_]*[ \f]*:[^-=]" "virtual\\>" "a-zA-Z0-9_ \f:" throw t] 4 (#$ . 23892) nil]) (defalias 'simula-forward-up-level #[nil "\305`\305\306\211\211 \2035 \307\310e\311#\203/ \312 h\313>\205\" \314>\211?\205* \315 \211\202 \306\211\204 \203= \305\202A b\210\306-\207" [temp return-value case-fold-search origin continue-loop t nil re-search-backward "\\<begin\\>\\|\\<end\\>" move simula-context (100 68) (nil 2) simula-forward-up-level] 6]) (defalias 'simula-calculate-indent #[nil "\212\306 `\307\310\211\211\211\211 :\211 ;\311\267\202L \312\310x\210n\2040 \306 \307=\2030 \313\314!\210\202 \312\310w\210i:b\210\202?\307\202?\315\316!\202?\315\317!\202?\320 \211\203W \n\202?\321\310w\210\322\323!\203j <[\324\202\302 \322\325!\203\226 g\326>\203} =@\202\220 g\327>\203\212 =A\202\220 \330\331!\210\307\332 \210\202\302 \322\333!\203\263 g\334>\203\251 >@\202\255 >A\335 \210\202\302 \322\336!\204\302 \322\337!\203\302 ?\340\341!\210 \203\356 h\342=\204\356 h\343>\203\343 \212\344\331!\210\322\345!)?\202\344 \324\203\356 \346\331!\210\340 \210\347 \212o?\205 hz\350=\203 \344\331!\210\322\351!?\202 h\352>?)n\204>\313\353 \354#\203\310\306 \204g\211\342=\203/\346\331!\210\202\253\322\345!\203= <\\\202\253\322\323!\203N\330\331!\210\346\331!\210\202\253\322\355!\203_ @\\\356 \210\202\253\322\357!\203\215\n\360>\203r\330\331!\210\202\207\361 @\n\362>\203\202=@\202\205=A#\332 \210\202\253\322\363!\203\253\361 @\n\364>\203\243=@\202\246=A#\335 \210\f\203\300 A<\203\274A@\202\276A\\\347 \310\202\306 ?\205\336\212\321\310w\210\322\365!\206\335\322\366!?)\f\n\203\352 \367 \\\340 \210o?\205\nhz\350=\203\212\344\331!\210\322\351!)?\202\nh\370>?\203\f\203 \f\203.A<\203. A<\203*A@\202,A\\\n\2048\347 \202\371 \210\202 . \207" [prev-cont found-end temp start-line continued indent simula-context 0 nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 26 1 60 3 64 4 70)) " \n\f" re-search-backward "^\\|!\\|\\<comment\\>" error "Inside string" "Inside character constant" simula-inside-parens " \f" looking-at "end\\>" t "if\\>\\|then\\>\\|else\\>" (84 116) (69 101) forward-word-strictly 1 simula-find-if "when\\>\\|otherwise\\>" (87 119) simula-find-inspect "virtual\\>" "[a-z0-9_]*[ \f]*:[^-=]" simula-skip-comment-backward dont-skip-end 59 (78 110) backward-word-strictly "begin\\>" simula-previous-statement line-beginning-position 119 "begin\\|then\\|else\\|when\\|otherwise\\|do" (58 59) ";\\|\\<\\(begin\\|end\\|if\\|else\\|then\\|when\\|otherwise\\|do\\)\\>" move "do\\>" simula-find-do-match "\\(if\\|then\\|else\\)\\>" (73 105) + (84 116) "\\<when\\>\\|\\<otherwise\\>" (87 119) "virtual" "!\\|comment\\>\\|[a-z0-9_]*[ \f]*:[^-=]" current-indentation (58 59) beginning-of-line origin where simula-indent-level simula-if-indent simula-inspect-indent simula-label-offset simula-substatement-offset simula-continued-statement-offset] 9]) #@62 Find starting IF of a IF-THEN[-ELSE[-IF-THEN...]] statement. (defalias 'simula-find-if #[nil "\3002E \301\302\303\304#\2030 g\305>\2030 \212\306 \210hz\307=\203' \310\311!\210\312\313!\204, \314\300\304\"\210)\202 \312\315!\204= \316\317!\210\202 \314\300\304\"\210\202 \207" [simula-out simula-search-backward "\\<if\\>\\|;\\|\\<begin\\>" nil t (73 105) simula-skip-comment-backward 119 backward-word-strictly 1 looking-at "else\\>" throw "\\<if\\>" error "Missing IF or misplaced BEGIN or ';' (can't find IF)"] 4 (#$ . 27308)]) #@42 Find INSPECT matching WHEN or OTHERWISE. (defalias 'simula-find-inspect #[nil "\3012; \302\303\304\305\306#\2034 g\307U\2044 g\310>\203 T\202 \302U\203. \311\301\306\"\210\202 S\202 \312\313!\210\202 \207" [level simula-out 0 simula-search-backward "\\<inspect\\>\\|\\<otherwise\\>\\|;" nil t 59 (79 111) throw error "Missing INSPECT or misplaced ';' (can't find INSPECT)"] 4 (#$ . 27847)]) #@56 Find keyword matching DO: FOR, WHILE, INSPECT or WHEN. (defalias 'simula-find-do-match #[nil "\300\301\302\303#\203 \304 \204 \305\306!\205 \304 ??\205 \307\310!\207" [re-search-backward "\\<\\(do\\|for\\|while\\|inspect\\|when\\|end\\|begin\\)\\>\\|;" nil move simula-context looking-at "\\<\\(for\\|while\\|inspect\\|when\\)\\>" error "No matching FOR, WHILE or INSPECT for DO, or misplaced ';'"] 4 (#$ . 28255)]) #@73 Return position after `(' on line if inside parentheses, nil otherwise. (defalias 'simula-inside-parens #[nil "\212\301\3022Z \303\304\305\306#\203R \307 \305=\203 g\310=\2031 \301U\203* \311\302\305\"\210\202 \312\313!\210\202 g\314=\203L \301U\203F \311\302iT\"\210\202 S\202 T\202 \311\302\305\"\210\202 *\207" [parlevel 0 simula-out re-search-backward "(\\|)\\|;" nil t simula-context 59 throw error "Parenthesis mismatch or misplaced `;'" 40] 4 (#$ . 28681)]) #@59 Goto point of definition of variable, procedure or class. (defalias 'simula-goto-definition #[nil "\300\207" [nil] 1 (#$ . 29166) nil]) (defalias 'simula-expand-stdproc #[nil "\203 \303 \203\f \304 \207\305\267\202. \306\307!\207\310\307!\207\311\307!\207\312 !\n\232?\205/ \310\307!\210\313 \207\314\207" [simula-abbrev-stdproc last-abbrev last-abbrev-text simula-context unexpand-abbrev #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (upcase 18 downcase 22 capitalize 26 abbrev-table 30)) upcase-word -1 downcase-word capitalize-word symbol-name expand-abbrev nil] 2]) (defalias 'simula-expand-keyword #[nil "\203 \304 \203\f \305 \207\306\267\202 \307\310!\207\311\310!\207\312\310!\207 \313=\2053 \314\n! \232?\2053 \311\310!\210\315 \207" [simula-abbrev-keyword simula-abbrev-stdproc last-abbrev last-abbrev-text simula-context unexpand-abbrev #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (upcase 18 downcase 22 capitalize 26)) upcase-word -1 downcase-word capitalize-word abbrev-table symbol-name expand-abbrev] 2]) #@58 Expand SIMULA keyword. If it starts the line, reindent. (defalias 'simula-electric-keyword #[nil "\306=\211\203 \307\n\310\"\210\311\312!\210\313u\210\314 \315\211 \2054 \f\316=\2054 hz\317=\2054 \212\320\310!\210\321\322!)?*\203= \323 \202\333 \204G \323 \210\202i \324\267\202b \325\313!\210\202i \326\313!\210\202i \327\313!\210\202i \204i \323 \210d`Z\315 $\3301\324 hz\317=\203\277 \320\310!\210\321\322!\203\241 \212\331\310!\210\332 \203\226 \311\310!\210\202\240 \333\334``\335 \\{\"\210)\336\337x\210n\203\277 \340 \211 %\341 =\204\273 \342 \210%j\210)\202\303 \336\337w\210d$Zb\210 \205\320 \343\310!0\202\332 \210d$Zb*)\207" [this-command show-char last-command-event case-fold-search where simula-abbrev-keyword self-insert-command insert-char 1 sit-for 0 -1 simula-context t 2 119 backward-word-strictly looking-at "end\\>" unexpand-abbrev #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (upcase 77 downcase 84 capitalize 91)) upcase-word downcase-word capitalize-word (quit) simula-backward-up-level pos-visible-in-window-p message "Matches %s" window-width " \f" nil simula-calculate-indent current-indentation delete-horizontal-space delete-char pos indent] 6 (#$ . 30279)]) #@485 Search backward from point for regular expression REGEXP, ignoring matches found inside SIMULA comments, string literals, and BEGIN..END blocks. Set point to the end of the occurrence found, and return point. An optional second argument BOUND bounds the search, it is a buffer position. The match found must not extend after that position. Optional third argument NOERROR, if t, means if fail just return nil (no error). If not nil and not t, move to limit of search and return nil. (defalias 'simula-search-backward #[(regexp &optional bound noerror) "\306P`\307\211 \3102\342 \311\f \312#\203\307 \313 \314\216\315 \211\316\267\202O \317!\203/ \320\2020 \321\202Q \317!\203D \317\322!\203D \320\202K \317\323!\205K \321\202Q \307* \320=\203] \324\310`\"\210 \321=\203 \325 \326 !\203\303 \311\327 \312#\203\241 \315 \211\307=\203\214 g\330>\203\214 S \202\235 \n\331>\203\235 g\332>\203\235 T )\202f \203\255 \320=\203\260 b\210 \204\273 \333\334C\"\210\324\310\307\"\210\202f )\202 \203\323 \320=\203\326 b\210 ?\205\341 \333\334C\"0,\207" [regexp match context start-point comb-regexp bound "\\|\\<end\\>" nil simula-backward re-search-backward 1 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] simula-context #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 37 2 52)) looking-at t BLOCK ";\\|\\<end\\>\\|\\<else\\>\\|\\<otherwise\\>\\|\\<when\\>" "\\<end\\>" throw 0 natnump "\\<begin\\>\\|\\<end\\>" (98 66) (nil 2) (101 69) signal search-failed save-match-data-internal level noerror] 5 (#$ . 31527)]) #@484 Search forward from point for regular expression REGEXP, ignoring matches found inside SIMULA comments, string literals, and BEGIN..END blocks. Set point to the end of the occurrence found, and return point. An optional second argument BOUND bounds the search, it is a buffer position. The match found must not extend after that position. Optional third argument NOERROR, if t, means if fail just return nil (no error). If not nil and not t, move to limit of search and return nil. (defalias 'simula-search-forward #[(regexp &optional bound noerror) "\306P`\307\211 \3102\333 \311\f \312#\203\300 \313 \314\216\212\315\224b\210\316 \211\2047 \317!\2032 \320\2023 \321\202P \n\322=\203N \317!\205J \317\323!\205J \320\202P \307+ \320=\203\\ \324\310`\"\210 \321=\203 \315 \325!\203\274 \311\326 \312#\203\232 \316 \211\307=\203\205 T\202\226 \n\322=\203\226 h\327>\203\226 S)\202e \203\246 \320=\203\251 b\210 \204\264 \330\331C\"\210\324\310\307\"\210\202e )\202 \203\314 \320=\203\317 b\210 ?\205\332 \330\331C\"0,\207" [regexp match context start-point comb-regexp bound "\\|\\<begin\\>" nil simula-forward re-search-forward 1 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 0 simula-context looking-at t BLOCK 2 ";\\|\\<end\\>\\|\\<else\\>\\|\\<otherwise\\>\\|\\<when\\>" throw natnump "\\<begin\\>\\|\\<end\\>" (100 68) signal search-failed save-match-data-internal level noerror] 5 (#$ . 33164)]) #@71 Define Simula keywords, procedures and classes in local abbrev table. (defalias 'simula-install-standard-abbrevs #[nil "\303\304\211\205\" @\305\n@A@\3068\304\307&\210 A\211\204 \304*\207" [args --dolist-tail-- simula-mode-abbrev-table (("abs" "Abs" simula-expand-stdproc) ("accum" "Accum" simula-expand-stdproc) ("activate" "ACTIVATE" simula-expand-keyword) ("addepsilon" "AddEpsilon" simula-expand-stdproc) ("after" "AFTER" simula-expand-keyword) ("and" "AND" simula-expand-keyword) ("arccos" "ArcCos" simula-expand-stdproc) ("arcsin" "ArcSin" simula-expand-stdproc) ("arctan" "ArcTan" simula-expand-stdproc) ("arctan2" "ArcTan2" simula-expand-stdproc) ("array" "ARRAY" simula-expand-keyword) ("at" "AT" simula-expand-keyword) ("before" "BEFORE" simula-expand-keyword) ("begin" "BEGIN" simula-expand-keyword) ("blanks" "Blanks" simula-expand-stdproc) ("boolean" "BOOLEAN" simula-expand-keyword) ("breakoutimage" "BreakOutImage" simula-expand-stdproc) ("bytefile" "ByteFile" simula-expand-stdproc) ("call" "Call" simula-expand-stdproc) ("cancel" "Cancel" simula-expand-stdproc) ("cardinal" "Cardinal" simula-expand-stdproc) ("char" "Char" simula-expand-stdproc) ("character" "CHARACTER" simula-expand-keyword) ("checkpoint" "CheckPoint" simula-expand-stdproc) ("class" "CLASS" simula-expand-keyword) ("clear" "Clear" simula-expand-stdproc) ("clocktime" "ClockTime" simula-expand-stdproc) ("close" "Close" simula-expand-stdproc) ("comment" "COMMENT" simula-expand-keyword) ("constant" "Constant" simula-expand-stdproc) ("copy" "Copy" simula-expand-stdproc) ("cos" "Cos" simula-expand-stdproc) ("cosh" "CosH" simula-expand-stdproc) ("cotan" "CoTan" simula-expand-stdproc) ("cputime" "CpuTime" simula-expand-stdproc) ("current" "Current" simula-expand-stdproc) ("datetime" "DateTime" simula-expand-stdproc) ("decimalmark" "DecimalMark" simula-expand-stdproc) ("delay" "DELAY" simula-expand-keyword) ("deleteimage" "DeleteImage" simula-expand-stdproc) ("detach" "Detach" simula-expand-stdproc) ("digit" "Digit" simula-expand-stdproc) ("directbytefile" "DirectByteFile" simula-expand-stdproc) ("directfile" "DirectFile" simula-expand-stdproc) ("discrete" "Discrete" simula-expand-stdproc) ("do" "DO" simula-expand-keyword) ("downcase" "Downcase" simula-expand-stdproc) ("draw" "Draw" simula-expand-stdproc) ("eject" "Eject" simula-expand-stdproc) ("else" "ELSE" simula-electric-keyword) ("empty" "Empty" simula-expand-stdproc) ("end" "END" simula-electric-keyword) ("endfile" "Endfile" simula-expand-stdproc) ("entier" "Entier" simula-expand-stdproc) ("eq" "EQ" simula-expand-keyword) ("eqv" "EQV" simula-expand-keyword) ("erlang" "Erlang" simula-expand-stdproc) ("error" "Error" simula-expand-stdproc) ("evtime" "EvTime" simula-expand-stdproc) ("exp" "Exp" simula-expand-stdproc) ("external" "EXTERNAL" simula-expand-keyword) ("false" "FALSE" simula-expand-keyword) ("field" "Field" simula-expand-stdproc) ("file" "File" simula-expand-stdproc) ("first" "First" simula-expand-stdproc) ("follow" "Follow" simula-expand-stdproc) ("for" "FOR" simula-expand-keyword) ("ge" "GE" simula-expand-keyword) ("getchar" "GetChar" simula-expand-stdproc) ("getfrac" "GetFrac" simula-expand-stdproc) ("getint" "GetInt" simula-expand-stdproc) ("getreal" "GetReal" simula-expand-stdproc) ("go" "GO" simula-expand-keyword) ("goto" "GOTO" simula-expand-keyword) ("gt" "GT" simula-expand-keyword) ("head" "Head" simula-expand-stdproc) ("hidden" "HIDDEN" simula-expand-keyword) ("histd" "HistD" simula-expand-stdproc) ("histo" "Histo" simula-expand-stdproc) ("hold" "Hold" simula-expand-stdproc) ("idle" "Idle" simula-expand-stdproc) ("if" "IF" simula-expand-keyword) ("image" "Image" simula-expand-stdproc) ("imagefile" "ImageFile" simula-expand-stdproc) ("imp" "IMP" simula-expand-keyword) ("in" "IN" simula-expand-keyword) ("inbyte" "InByte" simula-expand-stdproc) ("inbytefile" "InByteFile" simula-expand-stdproc) ("inchar" "InChar" simula-expand-stdproc) ("infile" "InFile" simula-expand-stdproc) ("infrac" "InFrac" simula-expand-stdproc) ("inimage" "InImage" simula-expand-stdproc) ("inint" "InInt" simula-expand-stdproc) ("inner" "INNER" simula-expand-keyword) ("inreal" "InReal" simula-expand-stdproc) ("inrecord" "InRecord" simula-expand-stdproc) ("inspect" "INSPECT" simula-expand-keyword) ("integer" "INTEGER" simula-expand-keyword) ("intext" "InText" simula-expand-stdproc) ("into" "Into" simula-expand-stdproc) ("is" "IS" simula-expand-keyword) ("isochar" "ISOChar" simula-expand-stdproc) ("isopen" "IsOpen" simula-expand-stdproc) ("isorank" "ISORank" simula-expand-stdproc) ("label" "LABEL" simula-expand-keyword) ("last" "Last" simula-expand-stdproc) ("lastitem" "LastItem" simula-expand-stdproc) ("lastloc" "LastLoc" simula-expand-stdproc) ("le" "LE" simula-expand-keyword) ("length" "Length" simula-expand-stdproc) ("letter" "Letter" simula-expand-stdproc) ("line" "Line" simula-expand-stdproc) ("linear" "Linear" simula-expand-stdproc) ("linesperpage" "LinesPerPage" simula-expand-stdproc) ("link" "Link" simula-expand-stdproc) ("linkage" "Linkage" simula-expand-stdproc) ("ln" "Ln" simula-expand-stdproc) ("locate" "Locate" simula-expand-stdproc) ("location" "Location" simula-expand-stdproc) ("lock" "Lock" simula-expand-stdproc) ("locked" "Locked" simula-expand-stdproc) ("log10" "Log10" simula-expand-stdproc) ("long" "LONG" simula-expand-keyword) ("lowcase" "LowCase" simula-expand-stdproc) ("lowerbound" "LowerBound" simula-expand-stdproc) ("lowten" "LowTen" simula-expand-stdproc) ("lt" "LT" simula-expand-keyword) ("main" "Main" simula-expand-stdproc) ("max" "Max" simula-expand-stdproc) ("maxint" "MaxInt" simula-expand-stdproc) ("maxlongreal" "MaxLongReal" simula-expand-stdproc) ("maxloc" "MaxLoc" simula-expand-stdproc) ("maxrank" "MaxRank" simula-expand-stdproc) ("maxreal" "MaxReal" simula-expand-stdproc) ("min" "Min" simula-expand-stdproc) ("minint" "MinInt" simula-expand-stdproc) ("minlongreal" "MinLongReal" simula-expand-stdproc) ("minrank" "MinRank" simula-expand-stdproc) ("minreal" "MinReal" simula-expand-stdproc) ("mod" "Mod" simula-expand-stdproc) ("more" "More" simula-expand-stdproc) ("name" "NAME" simula-expand-keyword) ("ne" "NE" simula-expand-keyword) ("negexp" "NegExp" simula-expand-stdproc) ("new" "NEW" simula-expand-keyword) ("nextev" "NextEv" simula-expand-stdproc) ("none" "NONE" simula-expand-keyword) ("normal" "Normal" simula-expand-stdproc) ("not" "NOT" simula-expand-keyword) ("notext" "NOTEXT" simula-expand-keyword) ("open" "Open" simula-expand-stdproc) ("or" "OR" simula-expand-keyword) ("otherwise" "OTHERWISE" simula-electric-keyword) ("out" "Out" simula-expand-stdproc) ("outbyte" "OutByte" simula-expand-stdproc) ("outbytefile" "OutByteFile" simula-expand-stdproc) ("outchar" "OutChar" simula-expand-stdproc) ("outfile" "OutFile" simula-expand-stdproc) ("outfix" "OutFix" simula-expand-stdproc) ("outfrac" "OutFrac" simula-expand-stdproc) ("outimage" "OutImage" simula-expand-stdproc) ("outint" "OutInt" simula-expand-stdproc) ("outreal" "OutReal" simula-expand-stdproc) ("outrecord" "OutRecord" simula-expand-stdproc) ("outtext" "OutText" simula-expand-stdproc) ("page" "Page" simula-expand-stdproc) ("passivate" "Passivate" simula-expand-stdproc) ("poisson" "Poisson" simula-expand-stdproc) ("pos" "Pos" simula-expand-stdproc) ("precede" "Precede" simula-expand-stdproc) ("pred" "Pred" simula-expand-stdproc) ("prev" "Prev" simula-expand-stdproc) ("printfile" "PrintFile" simula-expand-stdproc) ("prior" "PRIOR" simula-expand-keyword) ("procedure" "PROCEDURE" simula-expand-keyword) ("process" "Process" simula-expand-stdproc) ("protected" "PROTECTED" simula-expand-keyword) ("putchar" "PutChar" simula-expand-stdproc) ("putfix" "PutFix" simula-expand-stdproc) ("putfrac" "PutFrac" simula-expand-stdproc) ("putint" "PutInt" simula-expand-stdproc) ("putreal" "PutReal" simula-expand-stdproc) ("qua" "QUA" simula-expand-keyword) ("randint" "RandInt" simula-expand-stdproc) ("rank" "Rank" simula-expand-stdproc) ("reactivate" "REACTIVATE" simula-expand-keyword) ("real" "REAL" simula-expand-keyword) ("ref" "REF" simula-expand-keyword) ("resume" "Resume" simula-expand-stdproc) ("setaccess" "SetAccess" simula-expand-stdproc) ("setpos" "SetPos" simula-expand-stdproc) ("short" "SHORT" simula-expand-keyword) ("sign" "Sign" simula-expand-stdproc) ("simset" "SimSet" simula-expand-stdproc) ("simulaid" "SimulaId" simula-expand-stdproc) ("simulation" "Simulation" simula-expand-stdproc) ("sin" "Sin" simula-expand-stdproc) ("sinh" "SinH" simula-expand-stdproc) ("sourceline" "SourceLine" simula-expand-stdproc) ("spacing" "Spacing" simula-expand-stdproc) ("sqrt" "Sqrt" simula-expand-stdproc) ("start" "Start" simula-expand-stdproc) ("step" "STEP" simula-expand-keyword) ("strip" "Strip" simula-expand-stdproc) ("sub" "Sub" simula-expand-stdproc) ("subepsilon" "SubEpsilon" simula-expand-stdproc) ("suc" "Suc" simula-expand-stdproc) ("switch" "SWITCH" simula-expand-keyword) ("sysin" "SysIn" simula-expand-stdproc) ("sysout" "SysOut" simula-expand-stdproc) ("tan" "Tan" simula-expand-stdproc) ("tanh" "TanH" simula-expand-stdproc) ("terminate_program" "Terminate_Program" simula-expand-stdproc) ("terminated" "Terminated" simula-expand-stdproc) ("text" "TEXT" simula-expand-keyword) ("then" "THEN" simula-electric-keyword) ("this" "THIS" simula-expand-keyword) ("time" "Time" simula-expand-stdproc) ("to" "TO" simula-expand-keyword) ("true" "TRUE" simula-expand-keyword) ("uniform" "Uniform" simula-expand-stdproc) ("unlock" "Unlock" simula-expand-stdproc) ("until" "UNTIL" simula-expand-keyword) ("upcase" "Upcase" simula-expand-stdproc) ("upperbound" "UpperBound" simula-expand-stdproc) ("value" "VALUE" simula-expand-keyword) ("virtual" "VIRTUAL" simula-expand-keyword) ("wait" "Wait" simula-expand-stdproc) ("when" "WHEN" simula-electric-keyword) ("while" "WHILE" simula-expand-keyword)) nil define-abbrev 2 system] 8 (#$ . 34655) nil]) (byte-code "\203 \303!\210\304\305 \210)\306\307!\203( \310\302!\203( \311\312\n\"\204( \307\312\313\304\314$\210\304\207" [simula-abbrev-file abbrevs-changed hilit-patterns-alist read-abbrev-file nil simula-install-standard-abbrevs fboundp hilit-set-mode-patterns boundp assoc simula-mode (("^%\\([ \f].*\\)?$" nil comment) ("^%include\\>" nil include) ("\"[^\"\n]*\"\\|'.'\\|'![0-9]+!'" nil string) ("\\<\\(ACTIVATE\\|AFTER\\|AND\\|ARRAY\\|AT\\|BEFORE\\|BEGIN\\|BOOLEAN\\|CHARACTER\\|CLASS\\|DELAY\\|DO\\|ELSE\\|END\\|EQ\\|EQV\\|EXTERNAL\\|FALSE\\|FOR\\|GE\\|GO\\|GOTO\\|GT\\|HIDDEN\\|IF\\|IMP\\|IN\\|INNER\\|INSPECT\\|INTEGER\\|IS\\|LABEL\\|LE\\|LONG\\|LT\\|NAME\\|NE\\|NEW\\|NONE\\|NOT\\|NOTEXT\\|OR\\|OTHERWISE\\|PRIOR\\|PROCEDURE\\|PROTECTED\\|QUA\\|REACTIVATE\\|REAL\\|REF\\|SHORT\\|STEP\\|SWITCH\\|TEXT\\|THEN\\|THIS\\|TO\\|TRUE\\|UNTIL\\|VALUE\\|VIRTUAL\\|WHEN\\|WHILE\\)\\>" nil keyword) ("!\\|\\<COMMENT\\>" ";" comment)) case-insensitive] 5) #@60 Address accepting submission of `simula-mode' bug reports. (defconst simula-mode-help-address "bug-gnu-emacs@gnu.org" (#$ . 45511)) (byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\305\306\303#\210\311\312!\207" [make-obsolete-variable simula-mode-help-address report-emacs-bug-address "24.4" defalias simula-submit-bug-report report-emacs-bug nil make-obsolete provide simula] 4)
Close
