| '(forth-mode) |
'(forth-mode) |
| (append |
(append |
| '(("\\\\ \\(.*\\)$" nil comment)) ; comments |
'(("\\\\ \\(.*\\)$" nil comment)) ; comments |
| '(("( [^)]* -- [^)]* )" nil decl)) |
'(("( [^)\n]* -- [^)\n]* )" nil decl)) |
| '(("( -- [^)]* )" nil decl)) |
'(("( -- [^)\n]* )" nil decl)) |
| '(("( [^)]* -- )" nil decl)) |
'(("( [^)\n]* -- )" nil decl)) |
| '(("( -- )" nil decl)) |
'(("( -- )" nil decl)) |
| '(("( " ")" comment)) |
'(("( " ")" comment)) |
| '(("\" [^\"]*\"" nil string)) |
'(("\" [^\"\n]*\"" nil string)) |
| '(("\\(IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\)" nil keyword)) |
'(("\\(IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\)" nil keyword)) |
| '((": *[^ ]*" nil defun)) |
'((": *[^ \n]*" nil defun)) |
| '(("Defer *[^ ]*" nil defun)) |
'(("Defer *[^ \n]*" nil defun)) |
| '(("Variable *[^ ]*" nil define)) |
'(("Variable *[^ \n]*" nil define)) |
| '(("Constant *[^ ]*" nil define)) |
'(("Constant *[^ \n]*" nil define)) |
| '(("include *[^ ]*" nil include)) |
'(("include *[^ \n]*" nil include)) |
| '(("require *[^ ]*" nil include)) |
'(("require *[^ \n]*" nil include)) |
| '(("[ ]\\$[0-9A-Fa-f]+" nil formula)) |
'(("[ ]\\$[0-9A-Fa-f]+" nil formula)) |
| '(("[ ]&[0-9]+" nil formula)) |
'(("[ ]&[0-9]+" nil formula)) |
| '(("[ ][0-9]+" nil formula)) |
'(("[ ][0-9]+" nil formula)) |
| '(("[ ]%[01]+" nil formula)) |
'(("[ ]%[01]+" nil formula)) |
| '(("[ ]'[^ ]+" nil formula)) |
'(("[ ]'[^ \n]+" nil formula)) |
| '((":noname" nil defun)))) |
'((":noname" nil defun)))) |
| |
|
| ;; end |
;; end |
