From bd4f48f9c29fedcef94d69eec5b2158f228b4cac Mon Sep 17 00:00:00 2001 From: "chris.double" Date: Mon, 7 Aug 2006 11:41:40 +0000 Subject: [PATCH] json: add serializer for hashtables --- contrib/json/json-writer.factor | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/contrib/json/json-writer.factor b/contrib/json/json-writer.factor index b87ed4d20f..0b75c541f5 100644 --- a/contrib/json/json-writer.factor +++ b/contrib/json/json-writer.factor @@ -71,4 +71,13 @@ M: sequence json-print ( array -- string ) ] 2map ; M: object json-print ( object -- string ) - CHAR: { write1 slots slots>fields "," join write CHAR: } write1 ; \ No newline at end of file + CHAR: { write1 slots slots>fields "," join write CHAR: } write1 ; + +: hash-map ( hashtable quot -- array ) + >r hash>alist r> [ dup first swap second ] swap append map ; + +M: hashtable json-print ( hashtable -- string ) + CHAR: { write1 + [ [ swap jsvar-encode >json % CHAR: : , >json % ] "" make ] hash-map "," join write + CHAR: } write1 ; + \ No newline at end of file