;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:51:07 1995
;;; from file /gd/gnu/emacs/19.0/lisp/simula.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/simula.el' was compiled for Emacs 19"))


(provide (quote simula-mode))
#@176 *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 nil (#$ . -512))
#@69 *Indentation of SIMULA statements with respect to containing block.
(defconst simula-indent-level 3 (#$ . -745))
#@62 *Extra indentation after DO, THEN, ELSE, WHEN and OTHERWISE.
(defconst simula-substatement-offset 3 (#$ . -864))
#@240 *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 3 (#$ . -984))
#@62 *Offset of SIMULA label lines relative to usual indentation.
(defconst simula-label-offset -4711 (#$ . -1288))
#@209 *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 (quote (0 . 0)) (#$ . -1406))
#@168 *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 (quote (0 . 0)) (#$ . -1678))
#@74 *Non-nil means `simula-indent-line' function may reindent previous line.
(defconst simula-electric-indent nil (#$ . -1913))
#@176 *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 (quote upcase) (#$ . -2044))
#@203 *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 (quote abbrev-table) (#$ . -2287))
#@228 *File with extra abbrev definitions for use in SIMULA mode.
These are used together with the standard abbrev definitions for SIMULA.
Please note that the standard definitions are required
for SIMULA mode to function correctly.
(defvar simula-abbrev-file nil (#$ . -2563))
#@38 Syntax table in SIMULA mode buffers.
(defvar simula-mode-syntax-table nil (#$ . 2841))
(byte-code "„] БВ !ГДЕ#€ГЖЗ#€ГИЗ#€ГЙК#€ГЛМ#€ГНО#€ГПР#€ГСЗ#€ГТЗ#€ГУЗ#€ГФХ#€ГЦЗ#€ГЧЗ#€ГШЗ#€Б‡" [simula-mode-syntax-table copy-syntax-table standard-syntax-table modify-syntax-entry 33 "<" 36 "." 37 39 "\"" 40 "()" 41 ")(" 59 ">" 91 92 93 95 "w" 124 123 125] 4)
#@29 Keymap used in SIMULA mode.
(defvar simula-mode-map nil (#$ . 3209))
(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)
#@37 Abbrev table in SIMULA mode buffers
(defvar simula-mode-abbrev-table nil (#$ . 3605))
#@2232 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

Warning: simula-mode-hook should not read in an abbrev file without calling
the function simula-install-standard-abbrevs afterwards, preferably not
at all.
(defalias '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 (#$ . 3699) 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А БЕЋЖ€З €…= Жy€ЙКw€ЛМ!…= Н ?…= А П =?…< Р €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)) 0 expand-abbrev simula-electric-indent " 	\f" nil looking-at "\\(end\\|if\\|then\\|else\\|when\\|otherwise\\)\\>" simula-context post-indent current-indentation delete-horizontal-space] 3 (#$ . 6746)])
#@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) "А\n„ „ ЉДЕx€n)ѓ• ЉЖy€З )И d`ZЉДЕx€n)Е‰	\n\fПЋ=ѓO ЉДЕx€n)ѓY Р €‚Y Жy€С €j€)`\f\n…ђ ЉТy€`\n\fb€УТ!€`‰	\nV…Џ =?…Џ Ф\n	ZХ$).‚— Ц )‡" [t case-fold-search whole-exp simula-tab-always-indent " 	\f" nil 0 simula-calculate-indent current-indentation 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 (#$ . 7350) "P"])
#@274 Returns 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 "ЉАy€g)Б=ѓ В‡ЉГ`Жex€Г\fo„љ Аy€gБ=„‰ `Wѓ„ ЙГw€Вu€hК=ѓC `‚) hЛ=ѓb МГw€gК=ѓ\\ `Н‚) Вu€‚) gО=ѓk Вu€ПГw€gК=ѓ~ `Н‚) Вu€‚) ѓљ РВ!€ЖГx€`Г‚ *`\fWѓNСТ\fУ#ѓNhФ>ѓЪ ХhЦ>ѓП „П СЧ\fУ#ѓ± hБ=ѓ± Вy€‚» ШЩ!ѓ› Г‚› hЪ>ѓАЫ\fw€ѓ› `\fWѓ› gК=ѓь Г‰‚з nѓВy€‚	Вu€Ы\fw€‚ж hЛ=ѓ#ЬЭ\fУ#„› Ю‚› hО=ѓH`\f=„3mѓ8Я‚› Вu€Ьа\fУ#„› Я‚› Вy€‚› +‡" [0 37 1 nil origin return-value "^;" saved-point loopvalue "^;\"'" 59 34 "^\";" t 39 "^';" backward-char re-search-forward "\\<end\\>\\|!\\|\"\\|'\\|^%\\|\\<comment\\>" move (100 68) 2 (100 68) ";\\|\\<end\\>\\|\\<else\\>\\|\\<otherwise\\>\\|\\<when\\>\\|^%" looking-at "[ 	\n\f]*\\(;\\|\\<end\\>\\|\\<else\\>\\|\\<otherwise\\>\\|\\<when\\>\\)" (33 116 84) "^%;" search-forward "\"" 3 4 "'"] 5 (#$ . 8346)])
#@61 If this is a label that starts the line, reindent the line.
(defalias 'simula-electric-label #[nil "А €Бc€d`ZВГ C‰	КЋЛ>?…h М>„< Н=ѓ5 „< gП>?…h Р ?…h СТ!€УФx€ХФx€ЦЧ!?…h УФx€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 " 	\f" nil "a-zA-Z0-9_" looking-at "virtual\\>" simula-calculate-indent amount delete-horizontal-space] 4 (#$ . 9416) nil])
#@97 Move backward up COUNT block levels.
If COUNT is negative, move forward up block level instead.
(defalias '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 (#$ . 9983) "p"])
#@101 Move forward down COUNT block levels.
If COUNT is negative, move backward down block level instead.
(defalias '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 (#$ . 10550) "p"])
#@77 Move backward COUNT statements.
If COUNT is negative, move forward instead.
(defalias 'simula-previous-statement #[(count) "БWѓ В[!‡ГД`ГИЙЏ+‡" [count 0 simula-next-statement nil t origin case-fold-search status (byte-code "А €hБ>ѓ ВГ!€ДЕ!„$ ВЖ!€‚$ hЗ=ѓ$ ИГ!€Й\nS‰\n!ѓ: ЛМНО#‰„$ ѓO gЗ=ѓK Гu€‚O ВЖ!€Р ‡" [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 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 (#$ . 11200) "p"])
#@77 Move forward COUNT statements.
If COUNT is negative, move backward instead.
(defalias 'simula-next-statement #[(count) "БWѓ В[!‡ГД`ГИЙЏ+‡" [count 0 simula-previous-statement nil t origin case-fold-search status (byte-code "А €БВ!ѓ\f Гv€ДS‰!ѓ  ЖЗdИ#‰	„\f 	…2 hКU?…2 ЛГ!€М ‡" [simula-skip-comment-forward looking-at "\\<end\\>" 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 (#$ . 11894) "p"])
#@66 Search towards bob to find first char that is outside a comment.
(defalias 'simula-skip-comment-backward #[nil "АБЌ‡" [simula-out (byte-code "АВАx€hГ=ѓ ЉДЕ!€Ж )‚ Ж 	З>ѓH hИ=ѓ@ gЙ>„@ ЉКАx€ЛМ!)„@ КАx€‚ НОА\"€‚ 	П=ѓ^ РС!ѓ Ж Т>„N ‚ 	Е=ѓs П€oѓ НОА\"€‚ 	У=ѓ РФ!€Еv€НОА\"€‚ " [nil context " 	\n\f" 59 backward-char 1 simula-context (nil 3 4) 58 (45 61) ": 	\fa-zA-Z0-9_" looking-at "virtual\\>" throw simula-out 0 re-search-backward "!\\|\\<comment\\>" (0 1) 2 "\\<end\\>"] 3)] 2 (#$ . 12521) nil])
#@66 Search towards eob to find first char that is outside a comment.
(defalias 'simula-skip-comment-forward #[nil "АБЌ‡" [simula-out (byte-code "АБw€ВГ!ѓ ДЕБЖ#€‚  nѓ# gЗ=ѓ# Иy€‚  ВЙ!ѓ6 ВК!„6 ЛБw€‚  МНО\"€‚  " [" 	\n\f" nil looking-at "!\\|\\<comment\\>" search-forward ";" move 37 1 "[a-z0-9_]*[ 	\f]*:[^-=]" "virtual\\>" "a-zA-Z0-9_ 	\f:" throw simula-out t] 4)] 2 (#$ . 13033) nil])
(defalias 'simula-forward-up-level #[nil "А`АБ‰‰ѓ8 ЗИeЙ#ѓ1 К hЛ>…# \nМ>‰?…+ Н ‰‚\f Б‰„ ѓ@ А‚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])
(defalias 'simula-calculate-indent #[nil "ЉА `БВ‰‰‰‰	‰\nБ=ѓ? ЛВx€n„3 А Б=ѓ3 МН!€‚! ЛВw€i	b€‚u\nО=ѓL ПР!‚u\nС=ѓY ПТ!‚uУ ‰ѓd ‚uФВw€ХЦ!ѓx [Ш‚Х ХЩ!ѓ¦ gЪ>ѓЊ @‚  gЬ>ѓљ A‚  Эv€БЮ €‚Х ХЯ!ѓЕ gа>ѓє !@‚ї !Aв €‚Х Хг!„Х Хд!ѓХ %ж €\fѓ hз=„ hи>ѓх ЉйЭ!€Хк!)?‚ц Шѓ лЭ!€ж €ЉБy€`)Љo?…$hzм=ѓ йЭ!€Хн!?‚$hо>?)n„sМпр#ѓрА „'g‰з=ѓHлЭ!€‚КХк!ѓX\\‚КХЦ!ѓhЭv€лЭ!€‚КХс!ѓ{2\\у €‚КХф!ѓЄх>ѓЌЭv€‚¤2ц>ѓќ@‚ A\\\\Ю €‚КХч!ѓК2ш>ѓА@‚ГA\\\\в €ѓв9<ѓЭ9@‚Я9\\ЉБy€`)В‚'А ?…ЉФВw€Хъ!†Хы!?)ѓь \\ж €o?…5hzм=ѓ1ЉйЭ!€Хн!)?‚5hэ>?ѓ@ѓKѓ^9<ѓ^9<ѓY9@‚[9\\„mЉБy€`)‚'Бy€‚'.	‡" [simula-context 0 nil prev-cont found-end temp start-line continued indent origin where " 	\n\f" re-search-backward "^\\|!\\|\\<comment\\>" 3 error "Inside string" 4 "Inside character constant" simula-inside-parens " 	\f" looking-at "end\\>" simula-indent-level t "if\\>\\|then\\>\\|else\\>" (84 116) simula-if-indent (69 101) 1 simula-find-if "when\\>\\|otherwise\\>" (87 119) simula-inspect-indent simula-find-inspect "virtual\\>" "[a-z0-9_]*[ 	\f]*:[^-=]" simula-label-offset simula-skip-comment-backward 59 (78 110) backward-word "begin\\>" simula-previous-statement 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_]*[ 	\f]*:[^-=]" current-indentation (58 59)] 9])
#@62 Find starting IF of a IF-THEN[-ELSE[-IF-THEN...]] statement.
(defalias 'simula-find-if #[nil "АБЌ‡" [simula-out (byte-code "АБВГ#ѓ, gД>ѓ, ЉЕ €hzЖ=ѓ# ЗИ!€ЙК!„( ЛМГ\"€)‚  ЙН!„9 ОП!€‚  ЛМГ\"€‚  " [simula-search-backward "\\<if\\>\\|;\\|\\<begin\\>" nil t (73 105) simula-skip-comment-backward 119 backward-word 1 looking-at "else\\>" throw simula-out "\\<if\\>" error "Missing IF or misplaced BEGIN or ';' (can't find IF)"] 4)] 2 (#$ . 15369)])
#@42 Find INSPECT matching WHEN or OTHERWISE.
(defalias '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 (#$ . 15817)])
#@55 Find keyword matching DO: FOR, WHILE, INSPECT or WHEN
(defalias '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 (#$ . 16179)])
#@73 Return position after `(' on line if inside parentheses, nil otherwise.
(defalias '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 "Parenthesis mismatch or misplaced ';'" 40] 4)] 2 (#$ . 16559)])
#@59 Goto point of definition of variable, procedure or class.
(defalias 'simula-goto-definition #[nil "А‡" [nil] 1 (#$ . 16970) nil])
(defalias 'simula-expand-stdproc #[nil "ѓ	 Б ѓ\f В ‡Г=ѓ ДЕ!‡Ж=ѓ  ЗЕ!‡И=…) ЙЕ!‡" [simula-abbrev-stdproc simula-context unexpand-abbrev upcase upcase-word -1 downcase downcase-word capitalize capitalize-word] 2])
(defalias 'simula-expand-keyword #[nil "ѓ	 Б ѓ\f В ‡Г=ѓ ДЕ!‡Ж=ѓ  ЗЕ!‡И=…) ЙЕ!‡" [simula-abbrev-keyword simula-context unexpand-abbrev upcase upcase-word -1 downcase downcase-word capitalize capitalize-word] 2])
#@58 Expand SIMULA keyword.  If it starts the line, reindent.
(defalias 'simula-electric-keyword #[nil "Б=‰ѓ Г\fЕ\"€ЖЗ!€ИЕ!€Й К‰\f…8 \fН=…8 hzО=…8 ЉПЕ!€РС!)?*ѓA Т ‚ѓ „L Т €‚s Ф=ѓZ ХЦ!€‚s Ч=ѓh ШЦ!€‚s Щ=ѓs ЪЦ!€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 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 "hzА=ѓL БВ!€ГД!ѓ. ЉЕВ!€Ж ѓ\" ЗВ!€‚- ИЙ``К \\{P!€)ЛМx€nѓL Н ‰П =„H Р €j€)‚P ЛМw€dZb€…^ УВ!‡" [119 backward-word 1 looking-at "end\\>" simula-backward-up-level pos-visible-in-window-p sit-for message "Matches " window-width " 	\f" nil simula-calculate-indent indent current-indentation delete-horizontal-space pos show-char delete-char] 6) ((quit (byte-code "dZb‡" [pos] 2)))] 4 (#$ . 17538)])
(defalias '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])
(defalias 'simula-search-forward #[(string &optional limit move) "БPВДЕЌ)‡" [string "\\|\\<begin\\>" nil level exit (byte-code "А	\n#…` Д”b€Е ѓ Д•Sb€‚  ЖЗ!ѓS Д•Sb€ДЙ!ѓ  АК!€ЛМ!€Е „L gН>ѓG S‚J TЛО!€‚' Д•Sb€ПРС\"€‚  ‡" [re-search-forward string limit move 0 simula-context looking-at "\\<begin\\>" level natnump "\\<begin\\>\\|\\<end\\>" backward-word 1 (101 69) -1 throw exit t] 4)] 2])
#@71 Define Simula keywords, procedures and classes in local abbrev table.
(defalias '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 (#$ . 19259) nil])