# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1405826314 25200
# Node ID bb2b4613fdc8a5dc3522bff3f5c2e32ca5a98712
# Parent  bb4723fec05e8bffc32993f14feeb823e12d2903
Added support for encoding integers and booleans as JSON

diff -r bb4723fec05e -r bb2b4613fdc8 cbackend.js
--- a/cbackend.js	Sat Jul 19 19:59:51 2014 -0700
+++ b/cbackend.js	Sat Jul 19 20:18:34 2014 -0700
@@ -716,6 +716,12 @@
 			'return &(str->header);'
 		]
 	});
+	intObj.addMessage('jsonEncode', {
+		vars: {},
+		lines: [
+			'return mcall(' + getMethodId('string') + ', 1, &self->header);'
+		]
+	});
 	//7FFFFFFFFFFFFFFF
 	//01234567890123456789
 	intObj.addMessage('hex', {
diff -r bb4723fec05e -r bb2b4613fdc8 modules/false.tp
--- a/modules/false.tp	Sat Jul 19 19:59:51 2014 -0700
+++ b/modules/false.tp	Sat Jul 19 20:18:34 2014 -0700
@@ -12,4 +12,5 @@
 		true
 	}
 	string <- { "false" }
+	jsonEncode <- { "false" }
 }
diff -r bb4723fec05e -r bb2b4613fdc8 modules/json.tp
--- a/modules/json.tp	Sat Jul 19 19:59:51 2014 -0700
+++ b/modules/json.tp	Sat Jul 19 20:18:34 2014 -0700
@@ -189,6 +189,11 @@
 				baz <- ["fizz" "buzz" "buzzzz"]
 				qux <- ((dict hash) set: "fo" "shizzle") set: "my" "nizzle"
 				arr <- #["pirate" "booty"]
+				numbers <- [1 2 3 42 (0-1337)]
+				booleans <- [
+					true 
+					false
+				]
 			}
 			print: (encode: o) . "\n"
 			0
diff -r bb4723fec05e -r bb2b4613fdc8 modules/true.tp
--- a/modules/true.tp	Sat Jul 19 19:59:51 2014 -0700
+++ b/modules/true.tp	Sat Jul 19 20:18:34 2014 -0700
@@ -12,4 +12,5 @@
 		false
 	}
 	string <- { "true" }
+	jsonEncode <- { "true" }
 }