# JOE syntax highlight file for Perl

# Define colors

=Idle
=Ident
=Comment
=Pod		+Preproc
=Variable	+DefinedIdent # TODO: Make this work.
=Constant
=Number		+Constant
=String		+Constant
=StringEscape	+Escape
=StringVariable	+StringEscape
=Regex		+String
=RegexEscape	+StringEscape
=Type
=Keyword
=Statement	+Keyword
=Loop		+Statement
=Conditional	+Statement
=Structure	+Statement
=Bad

:begin Idle
	*		begin noeat call=.perl()

#
# Perl as a subroutine for Mason
#

.subr perl

# Detect pod

:idle Idle
	*		idle1		noeat
.ifdef mason_line
	"\n"		idle return
.else
	"\n"		idle
.endif
	"="		pod_start

# allow keywords

:idle1 Idle
	*		idle1
	"#"		line_comment_i	recolor=-1
	"\n"		idle noeat
	"0"		first_digit	recolor=-1
	"1-9"		decimal	recolor=-1
	"."		maybe_float
	"\""		string		recolor=-1
	"'"		char		recolor=-1
	"`"		backtick	recolor=-1
	"<"		maybe_inc
	"$"		not_string	buffer recolor=-1
.ifdef mason_block
	"&%"		perl_maybe_done	buffer
	"-@\i"		ident		buffer recolor=-1
.else
	"/"		regex		recolor=-1
	"-\i@%&"	ident		buffer recolor=-1
.endif

:perl_maybe_done Idle
	*		ident noeat
	">"		idle1	recolor=-2 return

# prevent keywords

:rest Idle
	*		rest
	"({;~"		idle1
	"#"		line_comment	recolor=-1
	"\n"		idle noeat
	"0"		first_digit	recolor=-1
	"1-9"		decimal	recolor=-1
	"."		maybe_float
	"\""		string		recolor=-1
	"'"		char		recolor=-1
	"`"		backtick	recolor=-1
	"$"		not_string	buffer recolor=-1
	"<"		maybe_inc
.ifdef mason_block
	"&%"		perl_maybe_done buffer recolor=-1
	"\i@"		maybe_string	buffer
.else
	"\i@%&"		maybe_string	buffer
.endif

:pod_start Idle
	*		pod_start
	"\n"		pod_block

:pod_block Pod
	*		pod_block
	"="		pod_ident	buffer

:pod_ident Pod
	*		pod_block	noeat strings
	"=cut"		rest
done
	"\c"		pod_ident

:maybe_inc Idle
	*		rest		noeat
.ifdef mason_block
	"/"		perl_maybe_done_2
.endif
	"<"		maybe_inc1

:perl_maybe_done_2 Idle
	*		perl_idle	noeat
	"a-z"		perl_maybe_done_2
	">"		idle


:maybe_inc1 Idle
	*		rest		noeat
	" 	"	maybe_inc1
	"'\""		quoted_inc_start	save_c recolor=-1
	"\i"		inc		buffer noeat

:quoted_inc_start Variable
	*		quoted_inc	buffer

:quoted_inc Variable
	*		quoted_inc
	&		skipline	save_s

:inc Variable
	*		skipline	save_s noeat
	"\c"		inc

# Should be treated as a normal line here...

:skipline Idle
	*		skipline
	"\n"		next_line

:todelim String string
	*		todelim
	"\n"		next_line	strings
	"&"		founddelim
done

# eat \n so it's not in string.
:next_line String string
	*		todelim		buffer
	"\n"		next_line

:founddelim Variable
	*		idle		noeat

:regex Regex
	*		regex
	"\\"		regex_quote	recolor=-1
	"/"		rest

:regex_quote RegexEscape
	*		regex

:not_string Idle
	*		rest noeat
	"\i"		ident
	"\"'`#"		rest

:line_comment Comment comment
	*		line_comment
	"BFHNTX"	line_comment	noeat call=comment_todo.comment_todo()
	"\n"		rest

:line_comment_i Comment comment
	*		line_comment_i
	"BFHNTX"	line_comment_i	noeat call=comment_todo.comment_todo()
	"\n"		idle noeat

:end_of_file_comment Comment comment
	"BFHNTX"	end_of_file_comment	noeat call=comment_todo.comment_todo()
	*		end_of_file_comment

:first_digit Number
	*		rest	noeat
	"x"		hex
	"b"		binary
	"."		float
	"eE"		epart
	"0-7"		octal
	"89"		bad_number	recolor=-1

:bad_number Bad
	*		rest	noeat
	"0-9"		bad_number

:octal Number
	*		rest	noeat
	"0-7_"		octal
	"89"		bad_number	recolor=-1

:binary Number
	*		rest	noeat
	"01_"		binary
	"2-9"		bad_number	recolor=-1

:hex Number
	*		rest	noeat
	"0-9A-Fa-f_"	hex

:decimal Number
	*		rest	noeat
	"0-9_"		decimal
	"eE"		epart
	"."		float

:maybe_float Number
	*		rest	recolor=-2	noeat
	"0-9"		float		recolor=-2

:float Number
	*		rest	noeat
	"eE"		epart
	"0-9_"		float

:epart Number
	*		rest	noeat
	"0-9+\-"	enum

:enum Number
	*		rest	noeat
	"0-9_"		enum

:string	String string
	*		string
	"\""		rest
	"\\"		string_escape	recolor=-1
	"$@"		string_subst	recolor=-1

:string_subst StringVariable string
	*		string	noeat recolor=-1
	"\c"		string_subst

:string_escape StringEscape string
	*		string
	"x"		string_hex1
	"c"		string_ctrl
	"N"		string_named
	"0-7"		string_octal2
	"\n"		string		recolor=-2

:string_named StringEscape string
	*		string
	"{"		string_named_rest

:string_named_rest StringEscape string
	*		string_named_rest
	"}"		string

:string_ctrl StringEscape string
	*		string

:string_hex1 StringEscape string
	*		string		noeat
	"{"		string_unicode
	"0-9a-fA-F"	string_hex2

:string_unicode StringEscape string
	*		string_unicode
	"}"		string

: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

:char String string
	*		char
	"\n"		idle noeat
	"'"		rest
	"\\"		char_escape	recolor=-1

:char_escape	StringEscape string
	*		char		recolor=-2
	"\\'"		char

:backtick	String string
	*		backtick
	"`"		rest
	"\\"		backtick_escape	recolor=-1
	"$@"		backtick_subst recolor=-1

:backtick_subst StringVariable string
	*		backtick	noeat recolor=-1
	"\c"		backtick_subst

:backtick_escape StringEscape string
	*		backtick
	"x"		backtick_hex1
	"c"		backtick_ctrl
	"N"		backtick_named
	"0-7"		backtick_octal2
	"\n"		backtick		recolor=-2

:backtick_named StringEscape string
	*		backtick
	"{"		backtick_named_rest

:backtick_named_rest StringEscape string
	*		backtick_named_rest
	"}"		backtick

:backtick_ctrl StringEscape string
	*		backtick

:backtick_hex1 StringEscape string
	*		backtick		noeat
	"{"		backtick_unicode
	"0-9a-fA-F"	backtick_hex2

:backtick_unicode StringEscape string
	*		backtick_unicode
	"}"		backtick

:backtick_hex2 StringEscape string
	*		backtick		noeat
	"0-9a-fA-F"	backtick

:backtick_octal2 StringEscape string
	*		backtick		noeat
	"0-7"		backtick_octal3

:backtick_octal3 StringEscape string
	*		backtick		noeat
	"0-7"		backtick

# TODO: Tease out the variable logic from this so that we can highlight
# variables separate from other identifiers.

:ident Ident
	*		rest		noeat strings
	"BEGIN"		kw
	"END"		kw
	"if"		cond
	"unless"	cond
	"while"		loop
	"until"		loop
	"foreach"	loop
	"sub"		struct
	"my"		kw
	"do"		loop
	"if"		cond
	"else"		cond
	"elsif"		cond
	"for"		loop
	"continue"	loop
	"last"		loop
	"print"		stmt
	"reset"		kw
	"die"		stmt
	"goto"		stmt
	"require"	stmt
	"use"		kw
	"eval"		kw
	"redo"		kw
	"next"		loop
	"warn"		stmt
	"return"	stmt
	"printf"	stmt
	"close"		stmt
	"package"	kw
	"m"		match
	"qr"		match
	"qq"		match
	"qx"		match
	"qw"		match
	"q"		match
	"s"		subst
	"tr"		subst
	"y"		subst
	"__END__"	end_of_file_comment
	"__DATA__"	end_of_file_comment
done
	"\c"		ident

:maybe_string Idle
	*		rest		noeat strings
	"qr"		match
	"qq"		match
	"qx"		match
	"qw"		match
	"q"		match
done
	"\c"		maybe_string

:type Type
	*		rest	noeat

:kw Keyword
	*		rest	noeat

:cond Conditional
	*		rest	noeat

:loop Loop
	*		rest	noeat

:struct Structure
	*		rest	noeat

:stmt Statement
	*		rest	noeat

:match Idle
	*		inmatch		save_c recolor=-1
	" 	"	match

:inmatch Regex
	*		inmatch
	%		inmatch		call=.inmatch()
	&		rest
	"\\"		inmatch_quote	recolor=-1

:inmatch_quote RegexEscape
	*		inmatch

:subst Idle
	*		insubst		save_c recolor=-1
	"<([{`"		delim_insubst	save_c recolor=-1
	" 	"	subst

:insubst Regex
	*		insubst
	&		inrepl
	"\\"		insubst_quote	recolor=-1

:insubst_quote RegexEscape
	*		insubst

:inrepl Regex
	*		inrepl
	&		rest
	"\\"		inrepl_quote

:inrepl_quote RegexEscape
	*		inrepl

:delim_insubst Regex
	*		delim_insubst
	&		delim_repl
	"\\"		delim_quote

:delim_quote RegexEscape
	*		delim_insubst

:delim_repl Regex
	*		repl		save_c recolor=-1
	" 	"	delim_repl

:repl Regex
	*		repl
	&		rest
	"\\"		repl_quote

:repl_quote RegexEscape
	*		repl

.end

.subr inmatch

:inmatch Regex
	*		inmatch
	%		inmatch		call=.inmatch()
	&		inmatch		return
	"\\"		inmatch_quote	recolor=-1

:inmatch_quote RegexEscape
	*		inmatch
.end