# 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