home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / modes / icon.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  9.0 KB  |  92 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:31:41 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/icon.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar icon-mode-abbrev-table nil "\
  14. Abbrev table in use in Icon-mode buffers.")
  15. (define-abbrev-table 'icon-mode-abbrev-table nil)
  16. (defvar icon-mode-map nil "\
  17. Keymap used in Icon mode.")
  18. (byte-code "¼│┴ ┬├─#ê┬┼─#ê┬╞╟#ê┬╚╔#ê┬╩╦#ê┬╠═#ê┬╬╧#ê┬╨╤#ê┴ç" [icon-mode-map make-sparse-keymap define-key "{" electric-icon-brace "}" "" mark-icon-function "" beginning-of-icon-defun "" end-of-icon-defun "" indent-icon-exp "" backward-delete-char-untabify "    " icon-indent-command] 4)
  19. (defvar icon-mode-syntax-table nil "\
  20. Syntax table in use in Icon-mode buffers.")
  21. (byte-code "¼▌┴ ┬├─#ê┬┼╞#ê┬╟╚#ê┬╔╩#ê┬╦╩#ê┬╠╩#ê┬═╩#ê┬╬╩#ê┬╧╩#ê┬╨╩#ê┬╤╩#ê┬╥╩#ê┬╙╩#ê┬╘╩#ê┬╒╓#ê┴ç" [icon-mode-syntax-table make-syntax-table modify-syntax-entry 92 "\\" 35 "<" 10 ">" 36 "." 47 42 43 45 61 37 60 62 38 124 39 "\""] 4)
  22. (defconst icon-indent-level 4 "\
  23. *Indentation of Icon statements with respect to containing block.")
  24. (defconst icon-brace-imaginary-offset 0 "\
  25. *Imagined indentation of a Icon open brace that actually follows a statement.")
  26. (defconst icon-brace-offset 0 "\
  27. *Extra indentation for braces, compared with other text in same context.")
  28. (defconst icon-continued-statement-offset 4 "\
  29. *Extra indent for lines not starting new statements.")
  30. (defconst icon-continued-brace-offset 0 "\
  31. *Extra indent for substatements that start with open-braces.
  32. This is in addition to icon-continued-statement-offset.")
  33. (defconst icon-auto-newline nil "\
  34. *Non-nil means automatically newline before and after braces
  35. inserted in Icon code.")
  36. (defconst icon-tab-always-indent t "\
  37. *Non-nil means TAB in Icon mode should always reindent the current line,
  38. regardless of where in the line point is when the TAB command is used.")
  39. (fset 'icon-mode #[nil "└ ê┴\n!ê├┼╔\n!ê╦╠!ê═P ╦╧!ê ╦╨!ê╤╦╥!ê╙╦╘!ê╒╦╓!ê╫╦╪!ê┘╦┌!ê█╦▄!ê▌▐▀!ç" [kill-all-local-variables use-local-map icon-mode-map icon-mode major-mode "Icon" mode-name icon-mode-abbrev-table local-abbrev-table set-syntax-table icon-mode-syntax-table make-local-variable paragraph-start "^$\\|" page-delimiter paragraph-separate indent-line-function icon-indent-line require-final-newline t comment-start "# " comment-end "" comment-column 32 comment-start-skip "# *" comment-indent-hook icon-comment-indent run-hooks icon-mode-hook] 2 "\
  40. Major mode for editing Icon code.
  41. Expression and list commands understand all Icon brackets.
  42. Tab indents for Icon code.
  43. Paragraphs are separated by blank lines only.
  44. Delete converts tabs to spaces as it moves back.
  45. \\{icon-mode-map}
  46. Variables controlling indentation style:
  47.  icon-tab-always-indent
  48.     Non-nil means TAB in Icon mode should always reindent the current line,
  49.     regardless of where in the line point is when the TAB command is used.
  50.  icon-auto-newline
  51.     Non-nil means automatically newline before and after braces
  52.     inserted in Icon code.
  53.  icon-indent-level
  54.     Indentation of Icon statements within surrounding block.
  55.     The surrounding block's indentation is the indentation
  56.     of the line on which the open-brace appears.
  57.  icon-continued-statement-offset
  58.     Extra indentation given to a substatement, such as the
  59.     then-clause of an if or body of a while.
  60.  icon-continued-brace-offset
  61.     Extra indentation given to a brace that starts a substatement.
  62.     This is in addition to icon-continued-statement-offset.
  63.  icon-brace-offset
  64.     Extra indentation for line if it starts with an open brace.
  65.  icon-brace-imaginary-offset
  66.     An open brace following other text is treated as if it were
  67.     this far to the right of the start of its line.
  68.  
  69. Turning on Icon mode calls the value of the variable icon-mode-hook with no args,
  70. if that value is non-nil." nil])
  71. (fset 'icon-comment-indent #[nil "└┴!½é┬çè├─xên½â┬¬éiT
  72. ])ç" [looking-at "^#" 0 "     " nil comment-column] 2])
  73. (fset 'electric-icon-brace #[(arg) "└\n¼╢l½│è├└xên)¼ë ½º┼ ê╞ êcê┼ ê ½è╞ ê`╚Z┼ êè    ½ä    Tbê╔╩!ê)    ½îè    bê╦╠\n!!)¬à╦╠\n!!)ç" [nil insertpos arg "     " icon-auto-newline icon-indent-line newline last-command-char 2 delete-char -1 self-insert-command prefix-numeric-value] 3 "\
  74. Insert character and correct line's indentation." "P"])
  75. (fset 'icon-indent-command #[(&optional whole-exp) "½¡┴ ┬ëè½â╟yê`╚╔!ê` bê╔yê`) V¡å╩
  76. ╦$+ç¼îè╠┬xên)¼â═ ç┴ ç" [whole-exp icon-indent-line nil end beg shift-amt icon-tab-always-indent 0 forward-sexp 1 indent-code-rigidly "#" "     " insert-tab] 5 nil "P"])
  77. (fset 'icon-indent-line #[nil "└┴!┴ëëd`Z╟yê`┴=½å╚ ¬╪╔=½å╩ ¬╠╦╠!½à╟¬┬═┴wê<½à@╦╬!½É╦╧!¼ïè╨ ê╚ )¬ƒg╤U¼à╦╥!½ëZ¬îg╘U½ç\\═┴wêiZë╟U½Äd\nZ`V½¢d\nZbê¬ö
  78. `|êjêd\nZ`V½àd\nZbê -ç" [calculate-icon-indent nil pos case-fold-search shift-amt beg indent 0 current-indentation t calculate-icon-indent-within-comment looking-at "[     ]*#" "     " "else\\b" "else\\s_" icon-backward-to-start-of-if 125 "end\\b" icon-indent-level 123 icon-brace-offset] 7 "\
  79. Indent current line as Icon code.
  80. Return the amount the indentation changed by."])
  81. (fset 'calculate-icon-indent #[(&optional parse-start) "è└yê`┴ëëë½åbê¬â╚ `W½É`╔`└#ëA@¬j╩ 8¼à╦ 8½å╦ 8éσ ½Ä f╠U¼ê Tbêiéσ\n½É═e!ê╬ ½àéσ└¬  ¼à╚ ê`bê═ !ê╬ ½ƒ╨ !êièbê╤┴wêg)╠=½ä¬ü└\\\\¬╠ bêè╙╘!½å╒╩!ê¬â╓uê╫┴wê╙╪!½à╓yê¬r`W¡üi)«ón½ì└U½ç\\¬é╤┴xên½â└¬é▄ \\\\.ç" [0 nil toplevel containing-sexp state case-fold-search indent-point parse-start beginning-of-icon-defun parse-partial-sexp 3 4 123 icon-backward-to-noncomment icon-is-continuation-line icon-continued-statement-offset icon-backward-to-start-of-continued-exp "     " icon-continued-brace-offset looking-at "procedure\\s " forward-sexp 1 "     \n" "#" icon-indent-level icon-brace-offset icon-brace-imaginary-offset current-indentation] 6 "\
  82. Return appropriate indentation for current line as Icon code.
  83. In usual case returns an integer: the column to indent to.
  84. Returns nil if line starts inside a string, t if in a comment."])
  85. (byte-code "└┬├Mê─┼Mê╞╟Mê╚╔Mç" [(("by" . t) ("case" . t) ("create") ("do") ("dynamic" . t) ("else") ("every" . t) ("if" . t) ("global" . t) ("initial" . t) ("link" . t) ("local" . t) ("of") ("record" . t) ("repeat" . t) ("static" . t) ("then") ("to" . t) ("until" . t) ("while" . t)) icon-resword-alist icon-is-continuation-line #[nil "hëzë┬=½Å├─vê`┼vê`{\"¬ä╟>?*ç" [ch ch-syntax 119 assoc -1 1 icon-resword-alist (0 59 125 123 41 93 34 39 10)] 4] icon-backward-to-noncomment #[(lim) "└ë    ?¡í├ xê`┼yê╞╟`\n\"8½ï `W½å╚╔!ê¬`╩ë¬\\*ç" [nil stop opoint "     \n " lim 0 5 parse-partial-sexp search-backward "#" t] 5] icon-backward-to-start-of-continued-exp #[(lim) "h└>½ä┴┬!ê├yê─┼wê`X½àTbç╟ ¼é├çgz╚=½æ╔`è╩vê`){ \"A½é├ç├ê╠!ç" [(41 93) forward-sexp -1 0 "     " nil lim icon-is-continued-line 119 assoc 1 icon-resword-alist icon-backward-to-start-of-continued-exp] 3] icon-is-continued-line #[nil "è└ê┴ )ç" [0 icon-is-continuation-line] 1]] 2)
  86. (fset 'icon-backward-to-start-of-if #[(&optional limit) "¼çè┴ ê`)┬├
  87. ╞U?¡ª╟┬!ê╚╔!½å
  88. Të¬l╚╩!½å
  89. Së¬a`W½[╞bê¬T*ç" [limit beginning-of-icon-defun 1 nil case-fold-search if-level 0 backward-sexp looking-at "else\\b" "if\\b"] 3 "\
  90. Move to the start of the last ``unbalanced'' if."])
  91. (fset 'mark-icon-function #[nil "└`!ê┴ ê└`!ê┬yê├ ç" [push-mark end-of-icon-defun -1 beginning-of-icon-defun] 2 "\
  92. Put mark at end of Icon function, point at beginning." nil])
  93. (fset 'beginning-of-icon-defun #[nil "└┴e┬#½ä├─!ç┼ç" [re-search-backward "^procedure\\s \\|^end[     \n]" move looking-at "e" t] 4 "\
  94. Go to the start of the enclosing procedure; return t if at top level." nil])
  95. (fset 'end-of-icon-defun #[nil "o¼â└uê┴┬d├#ê└vê─yç" [-1 re-search-forward "\\(\\s \\|^\\)end\\(\\s \\|$\\)" move 1] 4 nil nil])
  96. (fset 'indent-icon-exp #[nil "└C`C└ëëëëëëëëëë`┴    \n  
  97. è╤╥!ê)è└ m?à╜ ?à╜\n└¼╬m½å╒ë ¼┼\n    ╓`└ê`└ë\n%ë\n@\nAA@½É\nAA@┴Y½ç\nAA@╫    8½â╪ ê┘\n8½à╥yê¬4╒ë½2\n┴X½â╒  ¼\nU¼â└\nV½ÆAASë¬j\nW½ö└B└BTë¬h@¼æ\nA@«çè╤┌!ê`)áê╥yê█└wêlä5@½╒@┴Y½╬@f▄U¼ç@¬╓è▌▐!g▄U▀ !êα ½ùß@!ê\"i
  98. ½ä#¬ü┴\\\\¬ô½èΣ !êσ ¬à@)¬ùµ@¡ä@[!''ëáê)gΦU¼à▌Θ!½ç*Zg▄U½ç+\\iU¼ï`┴yê`|êjê▌,!ä5φ,è└ê`)╒#â5ε ê┴yêé5.ç" [nil 0 next-depth opoint at-do at-brace at-else last-sexp this-indent ostate state inner-loop-done outer-loop-done restart case-fold-search contain-stack indent-stack forward-sexp 1 last-depth innerloop-done t parse-partial-sexp 4 icon-indent-line 3 -1 "     " 123 looking-at "else\\W" icon-backward-to-noncomment icon-is-continuation-line icon-backward-to-start-of-continued-exp icon-continued-statement-offset icon-continued-brace-offset icon-backward-to-start-of-if current-indentation calculate-icon-indent val 125 "end\\b" icon-indent-level icon-brace-offset comment-start-skip re-search-forward indent-for-comment] 16 "\
  99. Indent each line of the Icon grouping following point." nil])
  100.