Mercurial > repos > tabletprog
diff modules/list.tp @ 271:bb4723fec05e
Support for encoding objects, dictionaries, lists and arrays to JSON in json module
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 19 Jul 2014 19:59:51 -0700 |
parents | f3d5068cbd43 |
children | ea94b1e43c97 ed908b7fcec6 |
line wrap: on
line diff
--- a/modules/list.tp Fri Jul 18 20:45:50 2014 -0700 +++ b/modules/list.tp Sat Jul 19 19:59:51 2014 -0700 @@ -14,6 +14,7 @@ contains? <- :val { false } string <- { "[]" } print <- { print: string } + jsonEncode <- { "[]" } } #{ empty <- { _empty } @@ -83,6 +84,11 @@ } print: "]" } + + jsonEncode <- { + parts <- map: :el { json encode: el } + "[" . (parts join: ",") . "]" + } } } }