Mercurial > repos > tabletprog
diff samples/json.tp @ 154:6e579a75a0a9
Add JSON parser and sample
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 10 Aug 2013 11:51:47 -0700 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/samples/json.tp Sat Aug 10 11:51:47 2013 -0700 @@ -0,0 +1,12 @@ +#{ + main <- { + arr <- json decode: "[\"foo\", \"bar\", 13245, \"baz\" ]" + foreach: arr :idx val { + print: (string: idx) . ": " . (string: val) . "\n" + } + obj <- json decode: "{\"foo\": \"bar\", \"baz\": \"qux\", \"meaningOfLife\": 42 }" + foreach: obj :idx val { + print: (string: idx) . ": " . (string: val) . "\n" + } + } +}