Mercurial > repos > tabletprog

diff modules/list.tp @ 271:bb4723fec05e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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: ",") . "]"
+				}
 			}
 		}
 	}