version 1.35, 1999/10/15 23:18:20
|
version 1.40, 2000/04/12 20:53:46
|
Line 40
|
Line 40
|
|
|
|
|
(defvar forth-positives |
(defvar forth-positives |
" : :noname m: :m code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class " |
" : :noname m: :m code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class try recover " |
"*Contains all words which will cause the indent-level to be incremented |
"*Contains all words which will cause the indent-level to be incremented |
on the next line. |
on the next line. |
OBS! All words in forth-positives must be surrounded by spaces.") |
OBS! All words in forth-positives must be surrounded by spaces.") |
|
|
(defvar forth-negatives |
(defvar forth-negatives |
" ; ;m end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase endof end-struct [then] [else] [endif] endwith end-class class; how: " |
" ; ;m end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase endof end-struct [then] [else] [endif] endwith end-class class; how: recover endtry " |
"*Contains all words which will cause the indent-level to be decremented |
"*Contains all words which will cause the indent-level to be decremented |
on the current line. |
on the current line. |
OBS! All words in forth-negatives must be surrounded by spaces.") |
OBS! All words in forth-negatives must be surrounded by spaces.") |
Line 990 The region is sent terminated by a newli
|
Line 990 The region is sent terminated by a newli
|
; (define-key global-map '(shift button3) 'mouse-function-menu) |
; (define-key global-map '(shift button3) 'mouse-function-menu) |
)) |
)) |
|
|
|
;;; Highlighting |
|
|
|
(if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el")) |
|
(require 'hilit19) |
|
(require 'hl319)) |
|
|
|
(hilit-set-mode-patterns |
|
'(forth-mode) |
|
(append |
|
'(("\\\\ \\(.*\\)$" nil comment)) ; comments |
|
'(("( [^)\n]* -- [^)\n]* )" nil decl)) |
|
'(("( -- [^)\n]* )" nil decl)) |
|
'(("( [^)\n]* -- )" nil decl)) |
|
'(("( -- )" nil decl)) |
|
'(("( " ")" comment)) |
|
'(("\" [^\"\n]*\"" nil string)) |
|
'(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|LOOP\\)" nil keyword)) |
|
'((": *[^ \n]*" nil defun)) |
|
'(("Defer *[^ \n]*" nil defun)) |
|
'(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define)) |
|
'(("\\(include\\|require\\) *[^ \n]*" nil include)) |
|
'(("[\n ]\\(\\$[0-9A-Fa-f]+[\n ]\\|&[0-9]+[\n ]\\|[0-9]+[\n ]\\|%[01]+[\n ]\\|'[^ \n]+\\)+" nil formula)) |
|
'((":noname" nil defun)))) |
|
|
;; end |
;; end |
|
|