alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix null etc.

Browse Source
This commit is contained in:
Brad Nelson
2024-11-15 20:23:16 -08:00
parent 0c9ba3ef86
commit e417373461
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
examples/gemini/json.fs
View File

@ -132,15 +132,19 @@ defer <value>
again again
; ;
s" null" _s aconstant null
s" true" _s aconstant true
s" false" _s aconstant false
:noname :noname
<whitespace> <whitespace>
token case token case
[char] " of <string> endof [char] " of <string> endof
[char] { of <object> endof [char] { of <object> endof
[char] [ of <array> endof [char] [ of <array> endof
[char] t of e: true s" true" _s endof [char] t of e: true true endof
[char] f of e: false s" false" _s endof [char] f of e: false false endof
[char] n of e: null s" null" _s endof [char] n of e: null null endof
<number> <number>
endcase endcase
<whitespace> <whitespace>
@ -185,7 +189,12 @@ defer <value>
loop a> _s" ]" ,c loop a> _s" ]" ,c
then then
endof endof
STRING of [char] " _c >a top range a> escaped ,c [char] " _c ,c endof STRING of
top null top adrop = if exit then
top true top adrop = if exit then
top false top adrop = if exit then
[char] " _c >a top range a> escaped ,c [char] " _c ,c
endof
INTEGER of INTEGER of
_s" " >a _s" " >a
top >count @ 0 ?do top >count @ 0 ?do