ACC SHELL
# JOE syntax highlight file for Haskell
# Define colors
#
# bold inverse blink dim underline
# white cyan magenta blue yellow green red black
# bg_white bg_cyan bg_magenta bg_blue bg_yellow bg_green bg_red bg_black
# not too colorfull to not distract user
=Idle
=Special bold
=ConId bold yellow
=ModId
=VarId
=VarSym
=ReservedId bold
=Comment green
=Pragma bold green
=Error bg_red black
=FloatNumber bold cyan
=DecNumber bold cyan
=HexNumber cyan
=OctNumber cyan
=CharLit cyan
=StringLit cyan
=StringGap bg_cyan black
=EscapedChar bold cyan
:reset Idle
* reset
"a-z_" varid buffer recolor=-1
"A-Z" conormodid mark recolor=-1
":" consym buffer recolor=-1
"!#$%&*+./<=>?@\\^|~" varsym buffer recolor=-1
"-" dashorvarsym mark buffer recolor=-1
"(),;[]`}" special recolor=-1
"{" specialorncomment recolor=-1
"0-9" integerstart mark noeat
"\'" charlit recolor=-1
"\"" strlit recolor=-1
:special Special
* reset noeat
:specialorncomment Special
* reset noeat
"-" ncommentstart recolor=-2
:ncommentstart Comment
* reset noeat call=.comment()
"#" pragma recolor=-3
.subr comment
:ncomment Comment
* ncomment
"-" ncommentmaybeend
"{" ncommentmaybenest
:ncommentmaybeend Comment
* ncomment noeat
"}" ncomment return
:ncommentmaybenest Comment
* ncomment noeat
"-" ncomment call=.comment()
.end
:pragma Pragma
* pragma
"#" pragmamaybeend1
"-" pragmamaybebadend
:pragmamaybeend1 Pragma
* pragma noeat
"-" pragmamaybeend2
:pragmamaybeend2 Pragma
* pragma noeat
"}" reset
:pragmamaybebadend Error
* pragma noeat
"}" errorstate recolor=-2
:errorstate Error
* reset
:conormodid ConId
* reset noeat
"." probablymodid recolor=-1
"a-zA-Z0-9'_" conormodid
# give it color varid to color the dot in case it is *not* a modid in the
# right color
:probablymodid VarSym
* ismodid noeat recolormark recolor=-1
" \t\r\n\v\f" reset
:ismodid ModId
* reset noeat
:varid VarId
* reset noeat strings
"case" reservedid
"class" reservedid
"data" reservedid
"default" reservedid
"deriving" reservedid
"do" reservedid
"else" reservedid
"if" reservedid
"import" reservedid
"infix" reservedid
"infixl" reservedid
"infixr" reservedid
"instance" reservedid
"let" reservedid
"module" reservedid
"newtype" reservedid
"of" reservedid
"then" reservedid
"type" reservedid
"where" reservedid
"_" reservedid
done
"a-zA-Z0-9_'" varid
:reservedid ReservedId
* reset noeat
:consym ConId
* reset noeat strings
":" reservedid
"::" reservedid
done
"-!#$%&*+./<=>?@\\^|~:" consym
:varsym VarSym
* reset noeat strings
".." reservedid
"=" reservedid
"\\" reservedid
"|" reservedid
"<-" reservedid
"->" reservedid
"@" reservedid
"~" reservedid
done
"-!#$%&*+./<=>?@\\^|~:" varsym
:dashorvarsym VarSym
* varsym noeat
"-" dashdash hold
:dashdash VarSym
* linecomment recolormark noeat
"!#$%&*+./<=>?@\\^|~:" varsym
"-" dashdash
:linecomment Comment
* linecomment
"\n" reset
:integerstart DecNumber
* decnum
"0" intdispatch
:decnum DecNumber
* reset noeat
"." floatmaybemant
"e" floatexponentstart
"0-9" decnum
:intdispatch DecNumber
* decnum noeat
"oO" octstart
"xX" hexstart
# Catch "0o " which is "integer 0" "symbol o" "whitespace"
# and "0oo" which is "integer 0" "symbol oo"
:octstart OctNumber
* varid noeat recolor=-2
"0-7" octint recolor=-3
# Catch "0o08" which is "(octal) integer 0" "integer 8"
:octint OctNumber
* reset noeat
"0-7" octint
:hexstart HexNumber
* varid noeat recolor=-2
"0-9a-fA-F" hexint recolor=-3
:hexint HexNumber
* reset noeat
"0-9a-fA-F" hexint
# default jumps to varsym because the dot that sent us here is the first
# char of a symbol.
:floatmaybemant FloatNumber
* varsym noeat recolor=-2
"0-9" floatmantissa recolormark
:floatmantissa FloatNumber
* reset noeat
"0-9" floatmantissa
"eE" floatexponentstart
# after an 'e'
# default jump is for identifiers starting with e directly pasted to a
# number
# recolormark is needed in the case we got here from decnum
:floatexponentstart FloatNumber
* varid noeat recolor=-2
"+-" floatexponentstart2
"0-9" floatexponent recolormark
# in case of non-digit:
# the e is a one-char-identifier, the + or - is the start of a symbol
:floatexponentstart2 FloatNumber
* unrollfloat noeat recolor=-3
"0-9" floatexponent recolormark
:floatexponent FloatNumber
* reset noeat
"0-9" floatexponent
# the error is just for testing...
:unrollfloat VarId
* varsym noeat recolor=-2
:charlit CharLit
* charlitend
"\n" errorstate noeat recolor=-2
"\'" errorstate noeat recolor=-2
"\\" escape_charlit mark recolor=-1
:charlitend CharLit
* charliterror noeat
"\'" reset
:escape_charlit EscapedChar
* charliterror recolor=-2
"0-9" escdecchar
"o" escoctcharstart
"x" eschexcharstart
"abfnrtv\\\"\'" charlitend
"A-Z" escasciichar buffer
"^" escasciictrlchar
:escoctcharstart EscapedChar
* charliterror recolor=-3 noeat
"0-7" escoctchar
:escoctchar EscapedChar
* charlitend noeat
"0-7" escoctchar
:escdecchar EscapedChar
* charlitend noeat
"0-9" escdecchar
:eschexcharstart EscapedChar
* charliterror recolor=-3 noeat
"0-9a-fA-F" eschexchar
:eschexchar EscapedChar
* charlitend noeat
"0-9a-fA-F" eschexchar
:escascnotfoundchar EscapedChar
* charliterror recolormark noeat
"A-Z" escasciichar
:escasciichar EscapedChar
* charliterror recolormark
"A-Z'" escascnotfoundchar noeat strings
"NUL" asciidonechar
"STX" asciidonechar
"ETX" asciidonechar
"EOT" asciidonechar
"ENQ" asciidonechar
"ACK" asciidonechar
"BEL" asciidonechar
"BS" asciidonechar
"HT" asciidonechar
"LF" asciidonechar
"VT" asciidonechar
"FF" asciidonechar
"CR" asciidonechar
"SO" asciiSOchar
"SI" asciidonechar
"DLE" asciidonechar
"DC1" asciidonechar
"DC2" asciidonechar
"DC3" asciidonechar
"DC4" asciidonechar
"NAK" asciidonechar
"SYN" asciidonechar
"ETB" asciidonechar
"CAN" asciidonechar
"EM" asciidonechar
"SUB" asciidonechar
"ESC" asciidonechar
"FS" asciidonechar
"GS" asciidonechar
"RS" asciidonechar
"US" asciidonechar
"SP" asciidonechar
"DEL" asciidonechar
done
:asciiSOchar EscapedChar
* charliterror recolormark
"'" charlitend noeat
"H" charlitend
:escasciictrlchar EscapedChar
* charliterror noeat recolor=-3
"A-Z@[\\]^_" charlitend
:asciidonechar EscapedChar
* charlitend noeat
:charliterror Error
* charliterror
"\'" charlitend noeat
# now for string literals
:strlit StringLit
* strlit
"\"" reset
"\n" errorstate noeat recolor=-2
"\\" escape_strlit mark recolor=-1
:escape_strlit EscapedChar
* strliterror recolor=-2
"0-9" escdecstr
"o" escoctstrstart
"x" eschexstrstart
"abfnrtv\\\"\'&" strlit
"A-Z" escasciistr buffer
"^" escasciictrlstr
" \t\n\r\v" stringgap recolor=-2
:escoctstrstart EscapedChar
* strliterror recolor=-3 noeat
"0-7" escoctstr
:escoctstr EscapedChar
* strlit noeat
"0-7" escoctstr
:escdecstr EscapedChar
* strlit noeat
"0-9" escdecstr
:eschexstrstart EscapedChar
* strliterror recolor=-3 noeat
"0-9a-fA-F" eschexstr
:eschexstr EscapedChar
* strlit noeat
"0-9a-fA-F" eschexstr
:escascnotfoundstr EscapedChar
* strliterror recolormark noeat
"A-Z" escasciistr
:escasciistr EscapedChar
* strliterror noeat recolormark
"A-Z\"" escascnotfoundstr noeat strings
"NUL" asciidonestr
"STX" asciidonestr
"ETX" asciidonestr
"EOT" asciidonestr
"ENQ" asciidonestr
"ACK" asciidonestr
"BEL" asciidonestr
"BS" asciidonestr
"HT" asciidonestr
"LF" asciidonestr
"VT" asciidonestr
"FF" asciidonestr
"CR" asciidonestr
"SO" asciiSOstr
"SI" asciidonestr
"DLE" asciidonestr
"DC1" asciidonestr
"DC2" asciidonestr
"DC3" asciidonestr
"DC4" asciidonestr
"NAK" asciidonestr
"SYN" asciidonestr
"ETB" asciidonestr
"CAN" asciidonestr
"EM" asciidonestr
"SUB" asciidonestr
"ESC" asciidonestr
"FS" asciidonestr
"GS" asciidonestr
"RS" asciidonestr
"US" asciidonestr
"SP" asciidonestr
"DEL" asciidonestr
done
:asciiSOstr EscapedChar
* strlit noeat
"H" strlit
:escasciictrlstr EscapedChar
* strliterror noeat recolor=-3
"A-Z@[\\]^_" strlit
:asciidonestr EscapedChar
* strlit noeat
:stringgap StringGap
* strgaperror recolor=-1
"\\" strlit
" \n\r\t\v" stringgap
:strgaperror Error
* strgaperror
"\\" strlit
"\"" reset
:strliterror Error
* strlit noeat
ACC SHELL 2018