27 lines
745 B
Prolog
27 lines
745 B
Prolog
jsontext = $$cat($$PWD/test.json)
|
|
parseJson(jsontext, json)
|
|
|
|
# print all keys
|
|
message(json._KEYS_ $${json._KEYS_})
|
|
|
|
# print array
|
|
message(json.array._KEYS_ $${json.array._KEYS_})
|
|
for(key, json.array._KEYS_): \
|
|
message(json.array.$${key} $$eval(json.array.$${key}))
|
|
|
|
# print object
|
|
message(json.object._KEYS_ $${json.object._KEYS_})
|
|
for(key, json.object._KEYS_): \
|
|
message(json.object.$${key} $$eval(json.object.$${key}))
|
|
|
|
# print value tyes
|
|
message(json.string: $${json.string})
|
|
message(json.number: $${json.number})
|
|
message(json.true: $${json.true})
|
|
message(json.false: $${json.false})
|
|
message(json.null: $${json.null})
|
|
|
|
# check that booleans work
|
|
$${json.true}: message(json.true is true)
|
|
!$${json.false}: message(json.false is false)
|