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
|
Description="Lisp"
Categories = {"source"}
Identifiers=[[ [a-zA-Z_][\w\-]* ]]
Keywords={
{ Id=1,
Regex=[[\(([\w\-\_]+)]],
},
{ Id=2,
Regex=[[ def(un|macro|method)\s+([\w\-]+)]], Group=2
},
{ Id=3,
Regex=[[ \:\w+ ]],
},
{ Id=4,
Regex=[[ \*\w+?\* ]],
},
{ Id=5,
Regex=[[ \+\w+?\+ ]],
},
{ Id=6,
Regex=[[ \%\w+?\% ]],
},
}
Strings={
Delimiter=[[ " ]],
Escape=[=[\\["\w]]=],
}
Comments={
{ Block=false,
Delimiter= { [[;]] },
},
{ Block=true,
Nested=false,
Delimiter= { [[\;\|]],[[\|\;]],}
}
}
Operators=[[\(|\)|\[|\]|\{|\}|\,|\:|\&|<|>|\!|\+|\=|\/|\*|\'|\@|\#|\`]]
-- fix recognition of $
function OnStateChange(oldState, newState, token)
--recognize hereDoc multine strings
if oldState==HL_STANDARD and newState==HL_STRING then
exitDelim = string.match(token, "%[(%a+)%]")
if exitDelim then exitDelim = "[/"..exitDelim.."]" end
end
if oldState==HL_STRING and token==exitDelim then
exitDelim=nil
return HL_STRING_END
end
return newState
end
|
