steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Font lock for USE: and USING: args.

db4
Jose A. Ortega Ruiz 2008-11-16 01:51:20 +01:00
parent aa43297364
commit 16cc409354
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
misc/factor.el
View File

@ -82,7 +82,7 @@
(defconst factor--parsing-words (defconst factor--parsing-words
'("{" "}" "^:" "^::" ";" "<<" "<PRIVATE" ">>" '("{" "}" "^:" "^::" ";" "<<" "<PRIVATE" ">>"
"BIN:" "BV{" "B{" "C:" "C-STRUCT:" "C-UNION:" "CHAR:" "CS{" "C{" "BIN:" "BV{" "B{" "C:" "C-STRUCT:" "C-UNION:" "CHAR:" "CS{" "C{"
"DEFER:" "ERROR:" "FORGET:" "DEFER:" "ERROR:" "EXCLUDE:" "FORGET:"
"GENERIC#" "GENERIC:" "HEX:" "HOOK:" "H{" "GENERIC#" "GENERIC:" "HEX:" "HOOK:" "H{"
"IN:" "INSTANCE:" "INTERSECTION:" "IN:" "INSTANCE:" "INTERSECTION:"
"M:" "MACRO:" "MACRO::" "MAIN:" "MATH:" "METHOD:" "MIXIN:" "M:" "MACRO:" "MACRO::" "MAIN:" "MATH:" "METHOD:" "MIXIN:"
@ -108,6 +108,9 @@
(defconst factor--regex-const-definition (defconst factor--regex-const-definition
(factor--regex-second-word '("SYMBOL:"))) (factor--regex-second-word '("SYMBOL:")))
(defconst factor--regex-using-line "^USING: +\\([^;]*\\);")
(defconst factor--regex-use-line "^USE: +\\(.*\\)$")
(defconst factor-font-lock-keywords (defconst factor-font-lock-keywords
`(("#!.*$" . font-lock-comment-face) `(("#!.*$" . font-lock-comment-face)
("!( .* )" . font-lock-comment-face) ("!( .* )" . font-lock-comment-face)
@ -122,7 +125,9 @@
(,factor--regex-parsing-words-ext . font-lock-keyword-face) (,factor--regex-parsing-words-ext . font-lock-keyword-face)
(,factor--regex-word-definition 2 font-lock-function-name-face) (,factor--regex-word-definition 2 font-lock-function-name-face)
(,factor--regex-type-definition 2 font-lock-type-face) (,factor--regex-type-definition 2 font-lock-type-face)
(,factor--regex-const-definition 2 font-lock-constant-face))) (,factor--regex-const-definition 2 font-lock-constant-face)
(,factor--regex-using-line 1 font-lock-constant-face)
(,factor--regex-use-line 1 font-lock-constant-face)))
(defun factor-indent-line () (defun factor-indent-line ()
"Indent current line as Factor code" "Indent current line as Factor code"