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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
# JOE syntax highlight file for Prolog
# by Christian Nicolai (http://mycrobase.de)
=Idle
=Ident
=Comment
=String +Constant
=Number +Constant
=Escape
=StringEscape +Escape
=Keyword
=Bad
=Brace
=Variable
=Predicate +DefinedFunction +DefinedIdent
:idle Idle
* idle
"\n" idle
"%" line_comment recolor=-1
"/" maybe_comment
"0-9" first_digit recolor=-1
"'" string_sq_1 recolor=-1
"\"" string_dq_1 recolor=-1
# marking -> predicate hilite
# buffering -> keyword hilite
"a-z" atom mark buffer
"A-Z" variable recolor=-1
"_" _variable
"[]" brace recolor=-1
:line_comment Comment comment
* line_comment
"BFHNTX" line_comment noeat call=comment_todo.comment_todo()
"\n" idle
:maybe_comment Idle
* idle noeat
"*" comment recolor=-2
:comment Comment comment
* comment
"*" maybe_end_comment
"BFHNTX" comment noeat call=comment_todo.comment_todo()
:maybe_end_comment Comment comment
* comment noeat
"/" idle
"*" maybe_end_comment
:brace Brace
* idle noeat
:string_sq_1 String string
* string_sq noeat
:string_sq String string
* string_sq
"\'" idle
"\\" string_sq_esc recolor=-1
:string_sq_esc StringEscape string
* string_sq
"\n" string_sq recolor=-2
:string_dq_1 String string
* string_dq noeat
:string_dq String string
* string_dq
"\"" idle
"\\" string_dq_esc recolor=-1
:string_dq_esc StringEscape string
* string_dq
"\n" string_dq recolor=-2
:first_digit Number
* idle noeat
# no float support
# "." float
"0-9" first_number
:first_number Number
* idle noeat
"0-9" first_number
"." float
:float Number
* idle noeat
"eE" epart
"0-9" float
:epart Number
* idle noeat
"0-9+\-" enum
:enum Number
* idle noeat
"0-9" enum
# list of keywords includes some predicates...
:atom Ident
* atom_end noeat markend strings
"append" kw
"atom" kw
"atomic" kw
"call" kw
"catch" kw
"clause" kw
"close" kw
"fail" kw
"findall" kw
"float" kw
"halt" kw
"integer" kw
"is" kw
"member" kw
"nl" kw
"nonvar" kw
"number" kw
"once" kw
"op" kw
"open" kw
"read" kw
"repeat" kw
"throw" kw
"true" kw
"var" kw
"write" kw
done
"a-zA-Z0-9_" atom
:kw Keyword
* idle noeat
:atom_end Idle
* idle noeat
" " atom_end
"(" pred_end recolormark
":" maybe_pred_end
:pred_end Predicate
* idle noeat
:maybe_pred_end Idle
* idle noeat
"-" pred_end recolormark
:variable Variable
* idle noeat
"a-zA-Z0-9_" variable
:_variable Idle
* idle noeat
# if it's not only _, color it
"a-zA-Z0-9_" variable recolor=-2
|
