Mercurial > repos > tabletprog

view samples/json.tp @ 370:57d78a0af132

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add code to socket module to allow listening for incoming connections
author Michael Pavone <pavone@retrodev.com>
date Wed, 12 Aug 2015 19:13:31 -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"
		}
	}
}