| (("char") non-immediate (font-lock-keyword-face . 1) |
(("char") non-immediate (font-lock-keyword-face . 1) |
| "[ \t\n]" t string (font-lock-string-face . 1)) |
"[ \t\n]" t string (font-lock-string-face . 1)) |
| ("'.'?" non-immediate (font-lock-string-face . 1)) |
("'.'?" non-immediate (font-lock-string-face . 1)) |
| (("s\"" "c\"") immediate (font-lock-string-face . 1) |
(("s\"" "c\"" "s\\\"") immediate (font-lock-string-face . 1) |
| "[\"\n]" nil string (font-lock-string-face . 1)) |
"[\"\n]" nil string (font-lock-string-face . 1)) |
| ((".\"") compile-only (font-lock-string-face . 1) |
((".\"" ".\\\"") compile-only (font-lock-string-face . 1) |
| "[\"\n]" nil string (font-lock-string-face . 1)) |
"[\"\n]" nil string (font-lock-string-face . 1)) |
| (("abort\"") compile-only (font-lock-keyword-face . 1) |
(("abort\"") compile-only (font-lock-keyword-face . 1) |
| "[\"\n]" nil string (font-lock-string-face . 1)) |
"[\"\n]" nil string (font-lock-string-face . 1)) |
| |
|
| (("create" "variable" "constant" "2variable" "2constant" "fvariable" |
(("create" "variable" "constant" "2variable" "2constant" "fvariable" |
| "fconstant" "value" "field" "user" "vocabulary" |
"fconstant" "value" "field" "user" "vocabulary" |
| "create-interpret/compile") |
"create-interpret/compile" "interpret/compile:") |
| non-immediate (font-lock-type-face . 2) |
non-immediate (font-lock-type-face . 2) |
| "[ \t\n]" t name (font-lock-variable-name-face . 3)) |
"[ \t\n]" t name (font-lock-variable-name-face . 3)) |
| ("\\S-+%" non-immediate (font-lock-type-face . 2)) |
("\\S-+%" non-immediate (font-lock-type-face . 2)) |
| (defvar forth-defining-words |
(defvar forth-defining-words |
| '("VARIABLE" "CONSTANT" "2VARIABLE" "2CONSTANT" "FVARIABLE" "FCONSTANT" |
'("VARIABLE" "CONSTANT" "2VARIABLE" "2CONSTANT" "FVARIABLE" "FCONSTANT" |
| "USER" "VALUE" "field" "end-struct" "VOCABULARY" "CREATE" ":" "CODE" |
"USER" "VALUE" "field" "end-struct" "VOCABULARY" "CREATE" ":" "CODE" |
| "DEFER" "ALIAS") |
"DEFER" "ALIAS" "interpret/compile:") |
| "List of words, that define the following word. |
"List of words, that define the following word. |
| Used for imenu index generation.") |
Used for imenu index generation.") |
| |
|