58 lines
1.7 KiB
EmacsLisp
58 lines
1.7 KiB
EmacsLisp
|
; Highlighting patterns for hilit19 under caml-mode
|
||
|
|
|
||
|
|
; defined also in caml.el
|
||
|
|
(defvar caml-quote-char "'"
|
||
|
|
"*Quote for character constants. \"'\" for Objective Caml, \"`\" for Caml-Light.")
|
||
|
|
|
||
|
|
(defconst caml-mode-patterns
|
||
|
|
(list
|
||
|
|
;comments
|
||
|
|
'("\\(^\\|[^\"]\\)\\((\\*[^*]*\\*+\\([^)*][^*]*\\*+\\)*)\\)"
|
||
|
|
2 comment)
|
||
|
|
;string
|
||
|
|
(list 'hilit-string-find (string-to-char caml-quote-char) 'string)
|
||
|
|
(list (concat caml-quote-char "\\(\\\\\\([ntbr" caml-quote-char "\\]\\|"
|
||
|
|
"[0-9][0-9][0-9]\\)\\|.\\)" caml-quote-char)
|
||
|
|
nil
|
||
|
|
'string)
|
||
|
|
;labels
|
||
|
|
'("[?]?\\<[A-Za-z][A-Za-z0-9_\']*:" nil brown)
|
||
|
|
'("[?]?\\<:[A-Za-z][A-Za-z0-9_\']*\\>" nil brown)
|
||
|
|
;modules
|
||
|
|
'("\\<open\\>" nil brown)
|
||
|
|
'("\\<[A-Z][A-Za-z0-9_\']*\\>" nil MidnightBlue)
|
||
|
|
'("`[A-Za-z][A-Za-z0-9_\']*\\>" nil MidnightBlue)
|
||
|
|
;definition
|
||
|
|
(list (concat
|
||
|
|
"\\<\\(let\\|rec\\|in\\|type\\|of\\|and"
|
||
|
|
"\\|exception\\|val\\|and\\|function\\|fun"
|
||
|
|
"\\|parser\\|mutable\\|module\\|inherit"
|
||
|
|
"\\|external\\|method\\|virtual\\|private"
|
||
|
|
"\\|constraint\\|as\\|closed\\)\\>")
|
||
|
|
nil 'ForestGreen)
|
||
|
|
;blocking
|
||
|
|
'("\\(\\<\\|:\\)\\(class\\|struct\\|sig\\|begin\\|end\\)\\>"
|
||
|
|
2 include)
|
||
|
|
;control
|
||
|
|
(list (concat
|
||
|
|
"\\<\\(if\\|then\\|else\\|match\\|when"
|
||
|
|
"\\|with\\|try\\|for\\|do\\|while\\|done"
|
||
|
|
"\\|downto\\|to\\|or\\|new\\)\\>"
|
||
|
|
"\\|\|\\|->\\|&\\|#")
|
||
|
|
nil 'keyword)
|
||
|
|
'(";" nil struct))
|
||
|
|
"Hilit19 patterns used for Caml mode")
|
||
|
|
|
||
|
|
(hilit-set-mode-patterns 'caml-mode caml-mode-patterns)
|
||
|
|
(hilit-set-mode-patterns
|
||
|
|
'inferior-caml-mode
|
||
|
|
(append
|
||
|
|
(list
|
||
|
|
;inferior
|
||
|
|
'("^[#-]" nil firebrick)
|
||
|
|
'("`[A-Za-z][A-Za-z0-9_\']*\\>" nil MidnightBlue)
|
||
|
|
'("[? \t]:[A-Za-z][A-Za-z0-9_\']*\\>" nil brown))
|
||
|
|
caml-mode-patterns))
|
||
|
|
|
||
|
|
(provide 'caml-hilit)
|