annotate samples/json.tp @ 333:577406b25f89
Added binding for SDL_SetTextureColorMod and SDL_GetTextureColorMod and updated the Freetype sample to use it for setting the color of text
| author |
Michael Pavone <pavone@retrodev.com> |
| date |
Sun, 29 Mar 2015 09:43:24 -0700 |
| parents |
6e579a75a0a9 |
| children |
|
| rev |
line source |
|
154
|
1 #{
|
|
|
2 main <- {
|
|
|
3 arr <- json decode: "[\"foo\", \"bar\", 13245, \"baz\" ]"
|
|
|
4 foreach: arr :idx val {
|
|
|
5 print: (string: idx) . ": " . (string: val) . "\n"
|
|
|
6 }
|
|
|
7 obj <- json decode: "{\"foo\": \"bar\", \"baz\": \"qux\", \"meaningOfLife\": 42 }"
|
|
|
8 foreach: obj :idx val {
|
|
|
9 print: (string: idx) . ": " . (string: val) . "\n"
|
|
|
10 }
|
|
|
11 }
|
|
|
12 }
|
