forked from zyedidia/micro
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ocaml.yaml
45 lines (43 loc) · 1.44 KB
/
ocaml.yaml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
filetype: ocaml
detect:
filename: "\\.mli?$"
rules:
- identifier: "\\b[A-Z][0-9a-z_]{2,}\\b"
#declarations
- statement: "\\b(let|val|method|in|and|rec|private|virtual|constraint)\\b"
#structure items
- type: "\\b(type|open|class|module|exception|external)\\b"
#patterns
- statement: "\\b(fun|function|functor|match|try|with)\\b"
#patterns-modifiers
- statement: "\\b(as|when|of)\\b"
#conditions
- statement: "\\b(if|then|else)\\b"
#blocs
- type: "\\b(begin|end|object|struct|sig|for|while|do|done|to|downto)\\b"
#constantes
- constant.bool: "\\b(true|false)\\b"
#modules/classes
- special: "\\b(include|inherit|initializer)\\b"
#expr modifiers
- special: "\\b(new|ref|mutable|lazy|assert|raise)\\b"
- constant.string:
start: "'"
end: "'"
skip: "\\\\."
rules:
- constant.specialChar: "%."
- constant.specialChar: "\\\\[abfnrtv'\\\"\\\\]"
- constant.specialChar: "\\\\([0-7]{3}|x[A-Fa-f0-9]{2}|u[A-Fa-f0-9]{4}|U[A-Fa-f0-9]{8})"
- constant.string:
start: "\""
end: "\""
skip: "\\\\."
rules:
- constant.specialChar: "%."
- constant.specialChar: "\\\\[abfnrtv'\\\"\\\\]"
- constant.specialChar: "\\\\([0-7]{3}|x[A-Fa-f0-9]{2}|u[A-Fa-f0-9]{4}|U[A-Fa-f0-9]{8})"
- comment:
start: "\\(\\*"
end: "\\*\\)"
rules: []