JSON minminal parser for Red

JSON-mini.red

Red []

digit-nz:	charset "123456789"
digit:		append copy digit-nz #"0"
hex:		append copy digit "abcdefABCDEF"
sign: 		charset "+-"
exponent-e:	charset "eE"
dquot:		#"^""

exponent:   [ exponent-e opt sign some digit ]
decimal:    [ #"." some digit ]
number:     [ opt #"-" [ "0" | digit-nz any digit ] opt decimal opt exponent ]
array:      [ "[" opt [ value any ["," value] ] "]" ]
value:      [ string | number | array | "true" | "false" | "null" ]
str-escape:	[ dquot | #"\" | #"/" | "b" | "f" | "n" | "r" | "t" | "u" 4 hex ]
string:		[ dquot any [#"\" str-escape | not dquot skip ] dquot ]

print parse "[^"Fish bone^"]" value