# JSON highlighter per json.org

# Written by Rebecca Turner (@ReBecaOrg)

# Define colors

=Idle
=Comma
=PairSep
=Bracket	+Brace
=Brace		+Control +Operator
=Constant
=Number		+Constant
=Boolean	+Constant
=Null		+Constant
=String		+Constant
=Key		+Attr +Type +String
=Escape
=StringEscape	+Escape +String

=Bad
=ERROR		+Bad

:json Idle
	*			end		noeat call=.value()
	" \t\n"			json

:end Idle
	*			endBAD		noeat
	" \t\n"			end

:endBAD Bad
	*			end

.subr value

:value Idle
	*			valueBAD	noeat
	"\""			end		noeat call=.string()
	"-0-9"			end		noeat call=.number()
	"tfn"			end		noeat call=.bareword()
	"{"			end		noeat call=.object()
	"["			end		noeat call=.array()

:valueBAD Bad
	*			value

:end Idle
	*			NULL		noeat return

.end

.subr object

:object Brace
	*			objectBAD	noeat
	"{"			maybeempty

:objectBAD ERROR
	*			end

:maybeempty Brace
	*			key		noeat
	" \t\n"			maybeempty
	"}"			end		recolor=-1

:key Idle
	*			keyBAD		noeat
	"\""			pairsep		noeat call=.keystring()
	" \t\n"			key

:keyBAD Bad
	*			key

:pairsep PairSep
	*			pairsepBAD	noeat
	":"			value
	" \t\n"			pairsep

:pairsepBAD Bad
	*			pairsep

:value Idle
	*			nextpair	noeat call=.value()
	" \t\n"			value

:nextpair Comma
	*			nextpairBAD	noeat
	"}"			end		recolor=-1
	","			key
	" \t\n"			nextpair

:nextpairBAD Bad
	*			nextpair

:end Brace
	*			NULL		noeat return
.end

.subr array

:array Bracket
	*			arrayBAD	noeat
	"["			maybeempty

:arrayBAD ERROR
	*			end

:maybeempty Bracket
	*			value		noeat
	" \t\n"			maybeempty
	"]"			end		recolor=-1

:value Idle
	*			nextvalue	noeat call=.value()
	" \t\n"			value

:nextvalue Comma
	*			nextvalueBAD	noeat
	"]"			end		recolor=-1
	","			value
	" \t\n"			nextvalue

:nextvalueBAD Bad
	*			nextvalue

:end Bracket
	*			NULL		noeat return

.end

.subr string

:string String string
	*			stringBAD	noeat
	"\""			body

:body String string
	*			body
	"\""			end
	"\\"			escape		recolor=-1

:stringBAD ERROR
	*			end

:escape StringEscape string
	*			escapeBAD	recolor=-2 noeat
	"\"/bfnrt\\"		body
	"u"			unicode1

:escapeBAD Bad
	*			body

:unicode1 StringEscape string
	*			unicodeBAD	recolor=-3 noeat
	"0-9a-fA-F"		unicode2

:unicode2 StringEscape string
	*			unicodeBAD	recolor=-4 noeat
	"0-9a-fA-F"		unicode3

:unicode3 StringEscape string
	*			unicodeBAD	recolor=-5 noeat
	"0-9a-fA-F"		unicode4

:unicode4 StringEscape string
	*			unicodeBAD	recolor=-6 noeat
	"0-9a-fA-F"		body

:unicodeBAD Bad
	*			body

:end Idle
	*			NULL		noeat return

.end

.subr keystring

:string Key
	*			stringBAD	noeat
	"\""			body

:body Key
	*			body
	"\""			end
	"\\"			escape		recolor=-1

:stringBAD ERROR
	*			end

:escape Escape
	*			escapeBAD	recolor=-2 noeat
	"\"/bfnrt\\"		body
	"u"			unicode1

:escapeBAD Bad
	*			body

:unicode1 Escape
	*			unicodeBAD	recolor=-3 noeat
	"0-9a-fA-F"		unicode2

:unicode2 Escape
	*			unicodeBAD	recolor=-4 noeat
	"0-9a-fA-F"		unicode3

:unicode3 Escape
	*			unicodeBAD	recolor=-5 noeat
	"0-9a-fA-F"		unicode4

:unicode4 Escape
	*			unicodeBAD	recolor=-6 noeat
	"0-9a-fA-F"		body

:unicodeBAD Bad
	*			body

:end Idle
	*			NULL		noeat return

.end

.subr bareword

:bareword Idle
	*			body		noeat mark buffer

:body Bad
	*			end		noeat markend strings
	"true"			boolean
	"false"			boolean
	"null"			null
	
done
	"truefalsn"		body

:boolean Boolean
	*			end		noeat

:null Null
	*			end		noeat

:end Idle
	*			NULL		noeat return

.end

.subr number

:number Number
	*			numberBAD
	"0-9"			numberA		noeat
	"-"			numberA

:numberBAD ERROR
	*			end

:numberA Number
	"0"			decimalpoint
	"1-9"			integer

:integer Number
	*			end		noeat
	"0-9"			integer
	"."			decimalpart
	"eE"			exponentpart

:decimalpoint Number
	*			end		noeat
	"0-9"			decimalpointBAD
	"eE"			exponentpart
	"."			decimalpart

:decimalpointBAD Bad
	*			end

:decimalpart Number
	*			decimalpartBAD
	"0-9"			decimalpartA

:decimalpartBAD Bad
	*			end

:decimalpartA Number
	*			end		noeat
	"0-9"			decimalpartA
	"eE"			exponentpart

:exponentpart Number
	*			exponentpartBAD
	"-+"			exponentpartA
	"0-9"			exponentpartB

:exponentpartBAD Bad
	*			end

:exponentpartA Number
	*			exponentpartBAD
	"0-9"			exponentpartB

:exponentpartB Number
	*			end		noeat
	"0-9"			exponentpartB

:end Idle
	*			NULL		noeat return

.end