Mercurial > repos > tabletprog

view samples/json.tp @ 334:98534108b854

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add width and height accessors to texture objects in SDL module
author Michael Pavone <pavone@retrodev.com>
date Mon, 30 Mar 2015 19:12:40 -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"
		}
	}
}