Mercurial > repos > tabletprog

view samples/json.tp @ 278:1205c7a43cb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add bindings for SDL_ClearError, SDL_GetError, SDL_LoadBMP, SDL_CreateTextureFromSurface and a partial binding for SDL_RendererCopy
author Michael Pavone <pavone@retrodev.com>
date Mon, 21 Jul 2014 12:51:38 -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"
		}
	}
}