Mercurial > repos > tabletprog

view samples/json.tp @ 289:befaefdfcd8a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make sure that true and false modules are initialized before anything else and that the list module is initialized before any modules besides true and false
author Michael Pavone <pavone@retrodev.com>
date Tue, 22 Jul 2014 23:32:49 -0700
parents 6e579a75a0a9
children
line wrap: on
line source

#{
	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"
		}
	}
}