;;; compiled by eric@geech.gnu.ai.mit.edu on Fri Mar 26 21:06:39 1993
;;; from file /gd/gnu/emacs/19.0/lisp/simula.el
;;; emacs version 19.0.509.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(provide (quote simula-mode))
(defconst simula-tab-always-indent nil "\
*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.")
(defconst simula-indent-level 3 "\
*Indentation of SIMULA statements with respect to containing block.")
(defconst simula-substatement-offset 3 "\
*Extra indentation after DO, THEN, ELSE, WHEN and OTHERWISE.")
(defconst simula-continued-statement-offset 3 "\
*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-label-offset -4711 "\
*Offset of SIMULA label lines relative to usual indentation")
(defconst simula-if-indent (quote (0 . 0)) "\
*Extra indentation of THEN and ELSE with respect to the starting IF.
Value is a cons cell, the car is extra THEN indention and the cdr
extra ELSE indention. IF after ELSE is indented as the starting IF.")
(defconst simula-inspect-indent (quote (0 . 0)) "\
*Extra indentation of WHEN and OTHERWISE with respect to the
corresponding INSPECT. Value is a cons cell, the car is
extra WHEN indention and the cdr extra OTHERWISE indention.")
(defconst simula-electric-indent nil "\
*If this variable is non-nil, the simula-indent-line function
will check the previous line to see if it has to be reindented.")
(defconst simula-abbrev-keyword (quote 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.")
(defconst simula-abbrev-stdproc (quote 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.")
(defvar simula-abbrev-file nil "\
*File with abbrev definitions that are merged together with
the standard abbrev definitions.  Please note that the standard
definitions are required for simula-mode to function correctly.")
(defvar simula-mode-syntax-table nil "\
Syntax table in simula-mode buffers.")
(byte-code "„[ Á ÂÃÄ#ˆÂÅÆ#ˆÂÇÆ#ˆÂÈÉ#ˆÂÊË#ˆÂÌÍ#ˆÂÎÏ#ˆÂÐÆ#ˆÂÑÆ#ˆÂÒÆ#ˆÂÓÔ#ˆÂÕÆ#ˆÂÖÆ#ˆÂ×Æ#ˆÁ‡" [simula-mode-syntax-table standard-syntax-table modify-syntax-entry 33 "<" 36 "." 37 39 "\"" 40 "()" 41 ")(" 59 ">" 91 92 93 95 "w" 124 123 125] 4)
(defvar simula-mode-map nil "\
Keymap used in simula mode.")
(byte-code "„1 Á ÂÃÄ#ˆÂÅÆ#ˆÂÇÈ#ˆÂÉÊ#ˆÂËÌ#ˆÂÍÎ#ˆÂÏÐ#ˆÁ‡" [simula-mode-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-command] 4)
(defvar simula-mode-abbrev-table nil "\
Abbrev table in simula-mode buffers")
(fset 'simula-mode #[nil "À ˆÁ\n!ˆÃÅÇÈ!ˆÉÇÊ!ˆË\nÌ!ˆÇÎ!ˆÏÇÐ!ˆÇÑ!ˆÒÇÓ!ˆÔÇÕ!ˆÖÇ×!ˆØÇÙ!ˆÚÇÛ!ˆÜÇÝ!ˆÔ„} ƒq à!ˆ‚v áÞÜ\"ˆÜ\"ã ˆ)$åæ!ˆçè!‡" [kill-all-local-variables use-local-map simula-mode-map simula-mode major-mode "SIMULA" mode-name make-local-variable comment-column 40 end-comment-column 75 set-syntax-table simula-mode-syntax-table paragraph-start "^[ 	]*$\\|\\f" paragraph-separate indent-line-function simula-indent-line require-final-newline t comment-start "! " comment-end " ;" comment-start-skip "!+ *" parse-sexp-ignore-comments nil comment-multi-line simula-mode-abbrev-table simula-abbrev-file read-abbrev-file define-abbrev-table abbrevs-changed simula-install-standard-abbrevs local-abbrev-table abbrev-mode 1 run-hooks simula-mode-hook] 3 "\
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 multipple-
    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 indention and the cdr
    extra ELSE indention. 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 indention and the cdr extra OTHERWISE indention.
 simula-electric-indent nil
    If this variable  non-nil value, 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

Warning: simula-mode-hook should not read in an abbrev file without calling
the function simula-install-standard-abbrevs afterwards, preferrably not
at all." nil])
(fset 'simula-indent-line #[nil "d`ZÀ ÁÅŽÆÇ!ˆÈ ˆ	…? ÊÇ!ˆËÌ!ˆÍÎ!…? Ï ?…? À Ñ =?…> Ò ˆj),‡" [simula-calculate-indent t case-fold-search indent origin ((byte-code "dZbˆÁ \n=ƒ Ã ˆ‚ Ä ˆ\njˆÁ‡" [origin current-indentation indent back-to-indentation delete-horizontal-space] 2)) end-of-line 0 expand-abbrev simula-electric-indent forward-line skip-chars-forward " 	" looking-at "\\(end\\|if\\|then\\|else\\|when\\|otherwise\\)\\>" simula-context post-indent current-indentation delete-horizontal-space] 3 "\
Indent this line as SIMULA code.  If simula-electric-indent
is non-nil, indent previous line if necessary."])
(fset 'simula-indent-command #[(&optional whole-exp) "À\n„ „ ŠÄÅ!ˆn)ƒ˜ ŠÆÇ!ˆÈ )É d`ZŠÄÅ!ˆn)Ê‰ÑŽ=ƒP ŠÄÅ!ˆn)ƒ[ Ò ˆ‚[ ÆÇ!ˆÓ ˆjˆ)`\n…“ ŠÆÔ!ˆ`bˆÕÔ!ˆ`‰V…’ =?…’ ÖZ×$).‚š Ø )‡" [t case-fold-search whole-exp simula-tab-always-indent skip-chars-backward " 	" forward-line 0 simula-calculate-indent current-indentation nil end beg bol origin current indent ((byte-code "„	 d	ZbˆÂ‡" [bol origin nil] 2)) back-to-indentation delete-horizontal-space 1 simula-next-statement indent-code-rigidly "%" insert-tab] 7 "\
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." "P"])
(fset 'simula-context #[nil "ŠÀÁ!ˆg)Â=ƒ Ã‡ŠÄ`ÇÈe\"ˆÄ	\no„¢ ÀÁ!ˆgÂ=„‘ `	WƒŒ ËÌ!ˆÍÃ!ˆhÎ=ƒH `	‚- hÏ=ƒh ËÐ!ˆgÎ=ƒa `	Ñ\n‚- ÍÃ!ˆ‚- gÒ=ƒr ÍÃ!ˆËÓ!ˆgÎ=ƒ… `	Ñ\n‚- ÍÃ!ˆ‚- \nƒ¢ ÔÃ!ˆÇÈ!ˆ`	Ä\n‚ *`WƒfÕÖ×#ƒfhØ>ƒæ ÙhÚ>ƒÚ „Ú ÕÛ×#ƒº hÂ=ƒº ÀÃ!ˆ‚Å ÜÝ!ƒ£ Ä‚£ hÞ>ƒ#ÁËß\"ˆƒ£ `Wƒ£ gÎ=ƒÄ‰‚ö nƒÀÃ!ˆ‚ÍÃ!ˆËß\"ˆ‚ô hÏ=ƒ7àá×#„£ â‚£ hÒ=ƒ_`=„GmƒMã‚£ ÍÃ!ˆàä×#„£ ã‚£ ÀÃ!ˆ‚£ +‡" [forward-line 0 37 1 nil origin return-value skip-chars-backward "^;" saved-point loopvalue skip-chars-forward "^;\"'" forward-char 59 34 "^\";" t 39 "^';" backward-char re-search-forward "\\<end\\>\\|!\\|\"\\|'\\|^%\\|\\<comment\\>" move (100 68) 2 (100 68) ";\\|\\<end\\>\\|\\<else\\>\\|\\<otherwise\\>\\|\\<when\\>\\|^%" looking-at "[ 	\n]*\\(;\\|\\<end\\>\\|\\<else\\>\\|\\<otherwise\\>\\|\\<when\\>\\)" (33 116 84) "^%;" search-forward "\"" 3 4 "'"] 5 "\
Returns value according to position of point inside SIMULA text:
    0    point inside COMMENT
    1    point on SIMULA-compiler directive line
    2    point inside END comment
    3    point inside string
    4    point inside character constant
  nil    otherwise."])
(fset 'simula-electric-label #[nil "À ˆÁcˆd`ZÂÃ C‰	ÊŽË>?…h Ì>„< Í=ƒ5 „< gÏ>?…h Ð ?…h ÑÒ!ˆÓÔ!ˆÓÕ!ˆÖ×!?…h ÓÔ!ˆn…h Ø Ú ˆj)-‡" [expand-abbrev 58 t read-event unread-command-events last-command-char com-char next-char case-fold-search origin ((byte-code "dZb‡" [origin] 2)) (61 45) (10 13) 9 simula-tab-always-indent (61 45) simula-context backward-char 1 skip-chars-backward " 	" "a-zA-Z0-9_" looking-at "virtual\\>" simula-calculate-indent amount delete-horizontal-space] 4 "\
If this is a label that starts the line, reindent the line" nil])
(fset 'simula-backward-up-level #[(count) "`ÀÃÄÅ*‡" [t case-fold-search origin nil (byte-code "ÁVƒ' ÁV…O ÂÃ!ˆÄ „ gÅ>ƒ  S‚\" T‰‚ ÁW…O ÆÃ!ˆÇÈ!ˆÄ „H gÉ>ƒE T‚G SÇÊ!ˆ‚' ‡" [count 0 re-search-backward "\\<begin\\>\\|\\<end\\>" simula-context (98 66) re-search-forward backward-word 1 (101 69) -1] 3) ((error (byte-code "bˆÁÂ!‡" [origin error "No higher block level"] 2)) (quit (byte-code "bˆÁÂÃ\"‡" [origin signal quit nil] 3)))] 3 "\
Move backward up COUNT block levels.
If COUNT is negative, move forward up block level instead" "p"])
(fset 'simula-forward-down-level #[(count) "`ÁÅÆÇ+‡" [count t case-fold-search origin start-count nil (byte-code "ÁWƒ2 ÁW…f ÂÃ!ˆÄ „# gÅ>ƒ  T‚\" SWƒ ÇÈÉ\"ˆ‚ ÁV…f ÊÃ!ˆËÌ!ˆÄ „S gÍ>ƒP S‚R TËÎ!ˆVƒ2 ÇÈÉ\"ˆ‚2 ‡" [count 0 re-search-backward "\\<begin\\>\\|\\<end\\>" simula-context (101 69) start-count signal error nil re-search-forward backward-word 1 (98 66) -1] 3) ((error (byte-code "bˆÁÂ!‡" [origin error "No containing block level"] 2)) (quit (byte-code "bˆÁÂÃ\"‡" [origin signal quit nil] 3)))] 3 "\
Move forward down COUNT block levels.
If COUNT is negative, move backward down block level instead" "p"])
(fset 'simula-previous-statement #[(count) "ÁWƒ Â[!‡ÃÄ`ÃÈÉ+‡" [count 0 simula-next-statement nil t origin case-fold-search status (byte-code "À ˆhÁ>ƒ ÂÃ!ˆÄÅ!„$ ÂÆ!ˆ‚$ hÇ=ƒ$ ÈÃ!ˆÉ\nS‰\n!ƒ: ËÌÍÎ#‰„$ ƒP gÇ=ƒL ÐÃ!ˆ‚P ÂÆ!ˆÑ ‡" [simula-skip-comment-backward (110 78) backward-word 1 looking-at "\\<begin\\>" -1 59 backward-char natnump count simula-search-backward ";\\|\\<begin\\>" nil move status forward-char simula-skip-comment-forward] 4) ((error (byte-code "bˆÁÂ!‡" [origin error "Incomplete statement (too many ENDs)"] 2)) (quit (byte-code "bˆÁÂÃ\"‡" [origin signal quit nil] 3)))] 3 "\
Move backward COUNT statements.
If COUNT is negative, move forward instead (simula-next-statement)" "p"])
(fset 'simula-next-statement #[(count) "ÁWƒ Â[!‡ÃÄ`ÃÈÉ+‡" [count 0 simula-previous-statement nil t origin case-fold-search status (byte-code "À ˆÁÂ!ƒ ÃÄ!ˆÅS‰!ƒ# ÇÈdÉ#‰\n„ \n…5 hËU?…5 ÌÄ!ˆÍ ‡" [simula-skip-comment-forward looking-at "\\<end\\>" forward-word 1 natnump count simula-search-forward ";\\|\\<end\\>" move status 59 backward-word simula-skip-comment-backward] 4) ((error (byte-code "bˆÁÂ!‡" [origin error "Incomplete statement (too few ENDs)"] 2)) (quit (byte-code "bˆÁÂÃ\"‡" [origin signal quit nil] 3)))] 3 "\
Move backward COUNT statements.
If COUNT is negative, move forward instead (simula-next-statement)" "p"])
(fset 'simula-skip-comment-backward #[nil "ÀÁ‡" [simula-out (byte-code "ÀÂÃ!ˆhÄ=ƒ ŠÅÆ!ˆÇ )‚ Ç 	È>ƒH hÉ=ƒ@ gÊ>„@ ŠÂË!ˆÌÍ!)„@ ÂË!ˆ‚ ÎÏÀ\"ˆ‚ 	Ð=ƒ^ ÑÒ!ƒ Ç Ó>„N ‚ 	Æ=ƒt ÔÐ!ˆoƒ ÎÏÀ\"ˆ‚ 	Õ=ƒ ÑÖ!ˆ×Æ!ˆÎÏÀ\"ˆ‚ " [nil context skip-chars-backward " 	\n" 59 backward-char 1 simula-context (nil 3 4) 58 (45 61) ": 	a-zA-Z0-9_" looking-at "virtual\\>" throw simula-out 0 re-search-backward "!\\|\\<comment\\>" (0 1) end-of-line 2 "\\<end\\>" forward-word] 3)] 2 "\
Search towards bob to find first char that is outside a comment" nil])
(fset 'simula-skip-comment-forward #[nil "ÀÁ‡" [simula-out (byte-code "ÀÁ!ˆÂÃ!ƒ ÄÅÆÇ#ˆ‚  nƒ$ gÈ=ƒ$ ÉÊ!ˆ‚  ÂË!ƒ7 ÂÌ!„7 ÀÍ!ˆ‚  ÎÏÐ\"ˆ‚  " [skip-chars-forward " 	\n" looking-at "!\\|\\<comment\\>" search-forward ";" nil move 37 forward-line 1 "[a-z0-9_]*[ 	]*:[^-=]" "virtual\\>" "a-zA-Z0-9_ 	:" throw simula-out t] 4)] 2 "\
Search towards eob to find first char that is outside a comment" nil])
(byte-code "ÀÁMˆÂÃM‡" [simula-forward-up-level #[nil "À`ÀÁ‰‰ƒ8 ÇÈeÉ#ƒ1 Ê hË>…# \nÌ>‰?…+ Í ‰‚ Á‰„ ƒ@ À‚D bˆÁ-‡" [t nil temp return-value case-fold-search origin continue-loop re-search-backward "\\<begin\\>\\|\\<end\\>" move simula-context (100 68) (nil 2) simula-forward-up-level] 6] simula-calculate-indent #[nil "ŠÀ `ÁÂ‰‰‰‰	‰\nÁ=ƒ? ËÌ!ˆn„3 À Á=ƒ3 ÍÎ!ˆ‚! ÏÌ!ˆi	bˆ‚„\nÐ=ƒL ÑÒ!‚„\nÓ=ƒY ÑÔ!‚„Õ ‰ƒd ‚„ÏÖ!ˆ×Ø!ƒx [Ú‚Ö ×Û!ƒ§ gÜ>ƒŒ @‚¡ gÞ>ƒš A‚¡ ßà!ˆÁá ˆ‚Ö ×â!ƒÆ gã>ƒ» $@‚À $Aå ˆ‚Ö ×æ!„Ö ×ç!ƒÖ (é ˆƒhê=„hë>ƒö Šìà!ˆ×í!)?‚÷ Úƒîà!ˆé ˆŠïÁ!ˆ`)Šo?…'ðh!ñ=ƒ#ìà!ˆ×ò!?‚'hó>?)n„‚Íôõ#ƒöÀ „*g‰ê=ƒKîà!ˆ‚Ï×í!ƒ[\\‚Ï×Ø!ƒlßà!ˆîà!ˆ‚Ï×ö!ƒ7\\ø ˆ‚Ï×ù!ƒ¯ú>ƒ’ßà!ˆ‚©7û>ƒ¢@‚¥A\\\\á ˆ‚Ï×ü!ƒÏ7ý>ƒÅ@‚ÈA\\\\å ˆƒç><ƒâ>@‚ä>\\ŠïÁ!ˆ`)Â‚*À ?…ŠÏÖ!ˆ×ÿ!†×@ !?)ƒA  \\é ˆo?…Bðh!ñ=ƒ<Šìà!ˆ×ò!)?‚BhB >?ƒMƒXƒk><ƒk><ƒf>@‚h>\\„{ŠïÁ!ˆ`)‚*ïÁ!ˆ‚*.	‡" [simula-context 0 nil prev-cont found-end temp start-line continued indent origin where skip-chars-backward " 	\n" re-search-backward "^\\|!\\|\\<comment\\>" skip-chars-forward 3 error "Inside string" 4 "Inside character constant" simula-inside-parens " 	" looking-at "end\\>" simula-indent-level t "if\\>\\|then\\>\\|else\\>" (84 116) simula-if-indent (69 101) forward-word 1 simula-find-if "when\\>\\|otherwise\\>" (87 119) simula-inspect-indent simula-find-inspect "virtual\\>" "[a-z0-9_]*[ 	]*:[^-=]" simula-label-offset simula-skip-comment-backward 59 (78 110) backward-word "begin\\>" simula-previous-statement forward-line char-syntax 119 "begin\\|then\\|else\\|when\\|otherwise\\|do" (58 59) ";\\|\\<\\(begin\\|end\\|if\\|else\\|then\\|when\\|otherwise\\|do\\)\\>" move "do\\>" simula-substatement-offset simula-find-do-match "\\(if\\|then\\|else\\)\\>" (73 105) (84 116) "\\<when\\>\\|\\<otherwise\\>" (87 119) simula-continued-statement-offset "virtual" "!\\|comment\\>\\|[a-z0-9_]*[ 	]*:[^-=]" current-indentation (58 59)] 9]] 2)
(fset 'simula-find-if #[nil "ÀÁ‡" [simula-out (byte-code "ÀÁÂÃ#ƒ- gÄ>ƒ- ŠÅ ˆÆh!Ç=ƒ$ ÈÉ!ˆÊË!„) ÌÍÃ\"ˆ)‚  ÊÎ!„: ÏÐ!ˆ‚  ÌÍÃ\"ˆ‚  " [simula-search-backward "\\<if\\>\\|;\\|\\<begin\\>" nil t (73 105) simula-skip-comment-backward char-syntax 119 backward-word 1 looking-at "else\\>" throw simula-out "\\<if\\>" error "Missing IF or misplaced BEGIN or ';' (can't find IF)"] 4)] 2 "\
Find starting IF of a IF-THEN[-ELSE[-IF-THEN...]] statement"])
(fset 'simula-find-inspect #[nil "ÀÁ‡" [simula-out (byte-code "ÀÂÃÄÅ#ƒ0 gÆU„0 gÇ>ƒ 	T‚ 	ÀUƒ* ÈÉÅ\"ˆ‚ 	S‚ ÊË!ˆ‚ " [0 level simula-search-backward "\\<inspect\\>\\|\\<otherwise\\>\\|;" nil t 59 (79 111) throw simula-out error "Missing INSPECT or misplaced ';' (can't find INSPECT)"] 4)] 2 "\
Find INSPECT matching WHEN or OTHERWISE"])
(fset 'simula-find-do-match #[nil "ÀÁÂÃ#ƒ Ä „  ÅÆ!… Ä ??… ÇÈ!‡" [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 "\
Find keyword matching DO: FOR, WHILE, INSPECT or WHEN"])
(fset 'simula-inside-parens #[nil "ŠÀÂÃ*‡" [0 parlevel simula-out (byte-code "ÀÁÂÃ#ƒQ Ä Â=ƒ  gÅ=ƒ+ ÇUƒ$ ÈÉÂ\"ˆ‚  ÊË!ˆ‚  gÌ=ƒI ÇUƒA ÈÉiT\"ˆ‚  S‚  T‚  ÈÉÂ\"ˆ‚  " [re-search-backward "(\\|)\\|;" nil t simula-context 59 parlevel 0 throw simula-out error "Parethesis mismatch or misplaced ';'" 40] 4)] 2 "\
Return position after '(' on line if inside parentheses, nil otherwise."])
(defun simula-goto-definition nil "\
Goto point of definition of variable, procedure or class." (interactive))
(byte-code "ÀÁMˆÂÃM‡" [simula-expand-stdproc #[nil "ƒ	 Á ƒ Â ‡Ã=ƒ ÄÅ!‡Æ=ƒ  ÇÅ!‡È=…) ÉÅ!‡" [simula-abbrev-stdproc simula-context unexpand-abbrev upcase upcase-word -1 downcase downcase-word capitalize capitalize-word] 2] simula-expand-keyword #[nil "ƒ	 Á ƒ Â ‡Ã=ƒ ÄÅ!‡Æ=ƒ  ÇÅ!‡È=…) ÉÅ!‡" [simula-abbrev-keyword simula-context unexpand-abbrev upcase upcase-word -1 downcase downcase-word capitalize capitalize-word] 2]] 2)
(fset 'simula-electric-keyword #[nil "Á=‰ƒ ÃÅ\"ˆÆÇ!ˆÈÅ!ˆÉ Ê‰…9 Í=…9 Îh!Ï=…9 ŠÐÅ!ˆÑÒ!)?*ƒB Ó ‚„ „M Ó ˆ‚t Õ=ƒ[ Ö×!ˆ‚t Ø=ƒi Ù×!ˆ‚t Ú=ƒt Û×!ˆd`ZÊÜÝßà+)‡" [this-command self-insert-command show-char insert-char last-command-char 1 sit-for 0 backward-char simula-context t case-fold-search where 2 char-syntax 119 backward-word looking-at "end\\>" unexpand-abbrev simula-abbrev-keyword upcase upcase-word -1 downcase downcase-word capitalize capitalize-word nil null pos (byte-code "Àh!Á=ƒN ÂÃ!ˆÄÅ!ƒ0 ŠÆÃ!ˆÇ ƒ# ÈÃ!ˆ‚/ ÉÊË``Ì \\\"P!ˆ)ÍÎ!ˆnƒN Ï ‰Ñ =„J Ò ˆjˆ)‚R ÓÎ!ˆdZbˆ…` ÖÃ!‡" [char-syntax 119 backward-word 1 looking-at "end\\>" simula-backward-up-level pos-visible-in-window-p sit-for message "Matches " buffer-substring window-width skip-chars-backward " 	" simula-calculate-indent indent current-indentation delete-horizontal-space skip-chars-forward pos show-char delete-char] 7) ((quit (byte-code "dZb‡" [pos] 2)))] 4 "\
Expand SIMULA keyword. If it starts the line, reindent."])
(byte-code "ÀÁMˆÂÃM‡" [simula-search-backward #[(string &optional limit move) "ÁPÂÄÅ)‡" [string "\\|\\<end\\>" nil level simula-out (byte-code "À	\n#…B Ä „  ÅÆ!ƒ: ÇÉ!ƒ  ÀÊ!ˆÄ „ gË>ƒ2 S‚5 T‚ ÌÍÎ\"ˆ‚  ‡" [re-search-backward string limit move simula-context looking-at "\\<end\\>" 0 level natnump "\\<begin\\>\\|\\<end\\>" (98 66) throw simula-out t] 4)] 2] simula-search-forward #[(string &optional limit move) "ÁPÂÄÅ)‡" [string "\\|\\<begin\\>" nil level exit (byte-code "À	\n#…d ÄÅ!bˆÆ ƒ ÇÅ!Sbˆ‚  ÈÉ!ƒV ÇÅ!SbˆÅ\nË\n!ƒ  ÀÌ!ˆÍÎ!ˆÆ „O gÏ>ƒJ \nS‚M \nT\nÍÐ!ˆ‚* ÇÅ!SbˆÑÒÓ\"ˆ‚  ‡" [re-search-forward string limit move match-beginning 0 simula-context match-end looking-at "\\<begin\\>" level natnump "\\<begin\\>\\|\\<end\\>" backward-word 1 (101 69) -1 throw exit t] 4)] 2]] 2)
(fset 'simula-install-standard-abbrevs #[nil "ÀÁÂ\"‡" [mapcar #[(args) "ÀÁ\n#‡" [apply define-abbrev simula-mode-abbrev-table args] 4] (("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))] 3 "\
Define Simula keywords, standard procedures and classes in
local abbrev table." nil])