Code: Select all
Structure sec
Array a.i(4)
Array b.i(4)
Array c.i(4)
Array d.i(4)
EndStructure
Define s.sec, x.sec
a$ = ~"{\"a\":[2,0,0,0],\"b\":[0,0,2,0],\"c\":[1,1,0,0],\"d\":[2,0,0,0]}"
ParseJSON(0, a$)
ExtractJSONStructure(JSONValue(0), @s.sec, sec)
FreeJSON(0)
ParseJSON(0, a$)
ExtractJSONStructure(JSONValue(0), @x.sec, sec)
FreeJSON(0)