| '(forth-mode) |
'(forth-mode) |
| (append |
(append |
| '(("\\\\ \\(.*\\)$" nil comment)) ; comments |
'(("\\\\ \\(.*\\)$" nil comment)) ; comments |
| '(("( [^)\n]* -- [^)\n]* )" nil decl)) |
'(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl)) |
| '(("( -- [^)\n]* )" nil decl)) |
|
| '(("( [^)\n]* -- )" nil decl)) |
|
| '(("( -- )" nil decl)) |
|
| '(("( " ")" comment)) |
'(("( " ")" comment)) |
| '(("\" [^\"\n]*\"" nil string)) |
'(("\" [^\"\n]*\"" nil string)) |
| '(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|LOOP\\)" nil keyword)) |
'(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|CASE\\|ENDCASE\\|OF\\|ENDOF\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|LOOP\\)" nil keyword)) |
| '((": *[^ \n]*" nil defun)) |
'((": *[^ \n]*" nil defun)) |
| '(("Defer *[^ \n]*" nil defun)) |
'(("Defer *[^ \n]*" nil defun)) |
| '(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define)) |
'(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define)) |
