407 lines
6.4 KiB
Plaintext
407 lines
6.4 KiB
Plaintext
|
# JOE syntax highlight file for OCaml
|
||
|
|
|
||
|
|
=Idle
|
||
|
|
=Bad
|
||
|
|
=Comment
|
||
|
|
=Constant
|
||
|
|
=Number +Constant
|
||
|
|
=String +Constant
|
||
|
|
=StringEscape +Escape
|
||
|
|
=Character +String
|
||
|
|
=CharacterEscape +StringEscape
|
||
|
|
=Boolean +Constant
|
||
|
|
=Keyword
|
||
|
|
=Type
|
||
|
|
=Operator +Keyword
|
||
|
|
=Control
|
||
|
|
=Brace
|
||
|
|
=LowId +Ident
|
||
|
|
=CapId +DefinedIdent
|
||
|
|
=Builtin +DefinedFunction +DefinedIdent
|
||
|
|
=Structure +Keyword
|
||
|
|
=StorageClass +Type +Keyword
|
||
|
|
=Statement +Keyword
|
||
|
|
=Loop +Statement
|
||
|
|
=Conditional +Statement
|
||
|
|
|
||
|
|
# Bugs:
|
||
|
|
# = in some contexts is a control, not an operator (let, etc)
|
||
|
|
# "type" keyword introduces a type = type
|
||
|
|
|
||
|
|
:expr Idle
|
||
|
|
* expr
|
||
|
|
"#.,)];" control recolor=-1
|
||
|
|
"!?" prefixop recolor=-1
|
||
|
|
"=<>@^&+*/$%" infixop recolor=-1
|
||
|
|
"\-" minus recolor=-1
|
||
|
|
"~" tilde recolor=-1
|
||
|
|
"[" brace recolor=-1
|
||
|
|
"|" pipe recolor=-1
|
||
|
|
":" colon recolor=-1
|
||
|
|
"(" bracket recolor=-1
|
||
|
|
"0" zero recolor=-1
|
||
|
|
"1-9" decimal recolor=-1
|
||
|
|
"\"" string recolor=-1
|
||
|
|
"\'" char recolor=-1
|
||
|
|
"a-z_" lowid buffer recolor=-1
|
||
|
|
"A-Z`" capid buffer recolor=-1
|
||
|
|
|
||
|
|
:bad Bad
|
||
|
|
* expr
|
||
|
|
|
||
|
|
:control Control
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:prefixop Operator
|
||
|
|
* operator noeat
|
||
|
|
|
||
|
|
:infixop Operator
|
||
|
|
* operator noeat
|
||
|
|
|
||
|
|
:operator Operator
|
||
|
|
* expr noeat
|
||
|
|
"!?~=<>@^|&+*/$%.:\-" operator
|
||
|
|
|
||
|
|
:minus Operator
|
||
|
|
* operator noeat
|
||
|
|
"0" zero recolor=-2
|
||
|
|
"1-9" decimal recolor=-2
|
||
|
|
|
||
|
|
:tilde Operator
|
||
|
|
* prefixop noeat
|
||
|
|
"a-z" opparam noeat
|
||
|
|
|
||
|
|
:opparam LowId
|
||
|
|
* expr noeat
|
||
|
|
"a-zA-Z0-9_'" opparam
|
||
|
|
":" control
|
||
|
|
|
||
|
|
:brace Control
|
||
|
|
* expr noeat
|
||
|
|
"|" expr
|
||
|
|
|
||
|
|
:pipe Operator
|
||
|
|
* infixop noeat
|
||
|
|
"]" pipeclose recolor=-2
|
||
|
|
|
||
|
|
:pipeclose Control
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:colon Operator
|
||
|
|
* type1 noeat
|
||
|
|
"=" assign recolor=-2
|
||
|
|
|
||
|
|
:assign Operator
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:bracket Control
|
||
|
|
* expr noeat
|
||
|
|
"*" comment recolor=-2
|
||
|
|
|
||
|
|
:zero Number
|
||
|
|
* expr noeat
|
||
|
|
"0-9_" decimal
|
||
|
|
"b" binaryl buffer
|
||
|
|
"B" binaryh buffer
|
||
|
|
"o" octall buffer
|
||
|
|
"O" octalh buffer
|
||
|
|
"x" hexl buffer
|
||
|
|
"X" hexh buffer
|
||
|
|
"e" epartl buffer
|
||
|
|
"E" eparth buffer
|
||
|
|
"." float
|
||
|
|
|
||
|
|
:decimal Number
|
||
|
|
* expr noeat
|
||
|
|
"0-9_" decimal
|
||
|
|
"." float
|
||
|
|
"e" epartl buffer
|
||
|
|
"E" eparth buffer
|
||
|
|
|
||
|
|
:binaryl Number
|
||
|
|
* lowid noeat recolor=-2
|
||
|
|
"01" binary
|
||
|
|
:binaryh Number
|
||
|
|
* capid noeat recolor=-2
|
||
|
|
"01" binary
|
||
|
|
:binary Number
|
||
|
|
* expr noeat
|
||
|
|
"01_" binary
|
||
|
|
|
||
|
|
:octall Number
|
||
|
|
* lowid noeat recolor=-2
|
||
|
|
"0-7" octal
|
||
|
|
:octalh Number
|
||
|
|
* capid noeat recolor=-2
|
||
|
|
"0-7" octal
|
||
|
|
:octal Number
|
||
|
|
* expr noeat
|
||
|
|
"0-7_" octal
|
||
|
|
|
||
|
|
:hexl Number
|
||
|
|
* lowid noeat recolor=-2
|
||
|
|
"0-9a-fA-F" hex
|
||
|
|
:hexh Number
|
||
|
|
* capid noeat recolor=-2
|
||
|
|
"0-9a-fA-F" hex
|
||
|
|
:hex Number
|
||
|
|
* expr noeat
|
||
|
|
"0-9a-fA-F_" hex
|
||
|
|
|
||
|
|
:float Number
|
||
|
|
* expr noeat
|
||
|
|
"0-9_" float
|
||
|
|
"e" epartl buffer
|
||
|
|
"E" eparth buffer
|
||
|
|
|
||
|
|
:epartl Number
|
||
|
|
* lowid noeat recolor=-2
|
||
|
|
"0-9" enum
|
||
|
|
"+\-" enum1
|
||
|
|
:eparth Number
|
||
|
|
* capid noeat recolor=-2
|
||
|
|
"0-9" enum
|
||
|
|
"+\-" enum1
|
||
|
|
|
||
|
|
:enum1 Number
|
||
|
|
* bad noeat
|
||
|
|
"0-9_" enum
|
||
|
|
:enum Number
|
||
|
|
* expr noeat
|
||
|
|
"0-9_" enum
|
||
|
|
|
||
|
|
:string String string
|
||
|
|
* string
|
||
|
|
"\"" expr
|
||
|
|
"\\" string_escape recolor=-1
|
||
|
|
"%" string_control recolor=-1
|
||
|
|
|
||
|
|
:string_escape StringEscape string
|
||
|
|
* string
|
||
|
|
"x" string_hex1
|
||
|
|
"0-7" string_octal2
|
||
|
|
|
||
|
|
:string_hex1 StringEscape string
|
||
|
|
* string noeat
|
||
|
|
"0-9a-fA-F" string_hex2
|
||
|
|
|
||
|
|
:string_hex2 StringEscape string
|
||
|
|
* string noeat
|
||
|
|
"0-9a-fA-F" string
|
||
|
|
|
||
|
|
:string_octal2 StringEscape string
|
||
|
|
* string noeat
|
||
|
|
"0-7" string_octal3
|
||
|
|
|
||
|
|
:string_octal3 StringEscape string
|
||
|
|
* string noeat
|
||
|
|
"0-7" string
|
||
|
|
|
||
|
|
:string_control StringEscape string
|
||
|
|
* string_control
|
||
|
|
"\"" string noeat
|
||
|
|
"diouxXeEfFgGaAcspn%SC" string
|
||
|
|
|
||
|
|
:char Character string
|
||
|
|
* charend
|
||
|
|
"\\" char_escape recolor=-1
|
||
|
|
|
||
|
|
:charend Character string
|
||
|
|
* bad noeat
|
||
|
|
"\'" expr
|
||
|
|
|
||
|
|
:char_escape CharacterEscape string
|
||
|
|
* charend
|
||
|
|
"x" char_hex1
|
||
|
|
"0-7" char_octal2
|
||
|
|
|
||
|
|
:char_hex1 CharacterEscape string
|
||
|
|
* bad noeat
|
||
|
|
"0-9a-fA-F" char_hex2
|
||
|
|
|
||
|
|
:char_hex2 CharacterEscape string
|
||
|
|
* charend noeat
|
||
|
|
"0-9a-fA-F" charend
|
||
|
|
|
||
|
|
:char_octal2 CharacterEscape string
|
||
|
|
* charend noeat
|
||
|
|
"0-7" char_octal3
|
||
|
|
|
||
|
|
:char_octal3 CharacterEscape string
|
||
|
|
* charend noeat
|
||
|
|
"0-7" charend
|
||
|
|
|
||
|
|
:lowid LowId
|
||
|
|
* expr noeat strings
|
||
|
|
"_" kw
|
||
|
|
"and" kw
|
||
|
|
"as" kw
|
||
|
|
"assert" kw
|
||
|
|
"begin" kw
|
||
|
|
"class" kw
|
||
|
|
"constraint" kw
|
||
|
|
"do" kw
|
||
|
|
"done" kw
|
||
|
|
"downto" kw
|
||
|
|
"else" kw
|
||
|
|
"end" kw
|
||
|
|
"exception" kw
|
||
|
|
"external" kw
|
||
|
|
"false" bool
|
||
|
|
"for" loop
|
||
|
|
"fun" kw
|
||
|
|
"function" struct
|
||
|
|
"functor" struct
|
||
|
|
"if" cond
|
||
|
|
"in" kw
|
||
|
|
"include" kw
|
||
|
|
"inherit" kw
|
||
|
|
"initializer" kw
|
||
|
|
"lazy" storage
|
||
|
|
"let" kw
|
||
|
|
"match" kw
|
||
|
|
"method" struct
|
||
|
|
"module" struct
|
||
|
|
"mutable" storage
|
||
|
|
"object" kw
|
||
|
|
"of" kw
|
||
|
|
"open" kw
|
||
|
|
"private" storage
|
||
|
|
"raise" kw # technically not, but ...
|
||
|
|
"rec" kw
|
||
|
|
"sig" kw
|
||
|
|
"struct" kw
|
||
|
|
"then" cond
|
||
|
|
"to" kw
|
||
|
|
"true" bool
|
||
|
|
"try" kw
|
||
|
|
"type" kw
|
||
|
|
"val" kw
|
||
|
|
"virtual" storage
|
||
|
|
"when" loop
|
||
|
|
"while" loop
|
||
|
|
"with" kw
|
||
|
|
"asr" operatorkw
|
||
|
|
"land" operatorkw
|
||
|
|
"lor" operatorkw
|
||
|
|
"lsl" operatorkw
|
||
|
|
"lsr" operatorkw
|
||
|
|
"lxor" operatorkw
|
||
|
|
"mod" operatorkw
|
||
|
|
"new" operatorkw
|
||
|
|
"or" operatorkw
|
||
|
|
done
|
||
|
|
"a-zA-Z0-9_'" lowid
|
||
|
|
|
||
|
|
:kw Keyword
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:operatorkw Operator
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:bool Boolean
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:loop Loop
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:struct Structure
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:storage StorageClass
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:cond Conditional
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:capid CapId
|
||
|
|
* expr noeat strings
|
||
|
|
"Arg" stdlib
|
||
|
|
"Array" stdlib
|
||
|
|
"ArrayLabels" stdlib
|
||
|
|
"Buffer" stdlib
|
||
|
|
"Callback" stdlib
|
||
|
|
"Char" stdlib
|
||
|
|
"Complex" stdlib
|
||
|
|
"Digest" stdlib
|
||
|
|
"Filename" stdlib
|
||
|
|
"Format" stdlib
|
||
|
|
"Gc" stdlib
|
||
|
|
"Genlex" stdlib
|
||
|
|
"Hashtbl" stdlib
|
||
|
|
"Int32" stdlib
|
||
|
|
"Int64" stdlib
|
||
|
|
"Lazy" stdlib
|
||
|
|
"Lexing" stdlib
|
||
|
|
"List" stdlib
|
||
|
|
"ListLabels" stdlib
|
||
|
|
"Map" stdlib
|
||
|
|
"Marshal" stdlib
|
||
|
|
"MoreLabels" stdlib
|
||
|
|
"Nativeint" stdlib
|
||
|
|
"Oo" stdlib
|
||
|
|
"Parsing" stdlib
|
||
|
|
"Printexc" stdlib
|
||
|
|
"Printf" stdlib
|
||
|
|
"Queue" stdlib
|
||
|
|
"Random" stdlib
|
||
|
|
"Scanf" stdlib
|
||
|
|
"Set" stdlib
|
||
|
|
"Sort" stdlib
|
||
|
|
"Stack" stdlib
|
||
|
|
"StdLabels" stdlib
|
||
|
|
"Stream" stdlib
|
||
|
|
"String" stdlib
|
||
|
|
"StringLabels" stdlib
|
||
|
|
"Sys" stdlib
|
||
|
|
"Weak" stdlib
|
||
|
|
done
|
||
|
|
"a-zA-Z0-9_'" capid
|
||
|
|
|
||
|
|
:stdlib Builtin
|
||
|
|
* expr noeat
|
||
|
|
|
||
|
|
:type1 Type
|
||
|
|
* expr noeat
|
||
|
|
"a-z *>'\t\-" type1
|
||
|
|
"(" type2
|
||
|
|
|
||
|
|
:type2 Type
|
||
|
|
* expr noeat
|
||
|
|
"a-z *>'\t\-" type2
|
||
|
|
"(" type3
|
||
|
|
")" type1
|
||
|
|
|
||
|
|
:type3 Type
|
||
|
|
* expr noeat
|
||
|
|
"a-z *>'\t\-" type3
|
||
|
|
"(" type4
|
||
|
|
")" type2
|
||
|
|
|
||
|
|
:type4 Type
|
||
|
|
* expr noeat
|
||
|
|
"a-z *>'\t\-" type4
|
||
|
|
"(" expr # too deep nesting
|
||
|
|
")" type2
|
||
|
|
|
||
|
|
:comment Comment comment
|
||
|
|
* expr call=.comment()
|
||
|
|
|
||
|
|
.subr comment
|
||
|
|
|
||
|
|
:comment_body Comment comment
|
||
|
|
* comment_body
|
||
|
|
"(" nest_comment
|
||
|
|
"*" end_comment
|
||
|
|
"BFHNTX" comment_body noeat call=comment_todo.comment_todo()
|
||
|
|
|
||
|
|
:end_comment Comment comment
|
||
|
|
* comment_body noeat
|
||
|
|
")" end_comment return
|
||
|
|
|
||
|
|
:nest_comment Comment comment
|
||
|
|
* comment_body
|
||
|
|
"*" comment_body call=.comment()
|
||
|
|
|
||
|
|
.end
|