Working JSON converting

js/Kernel-Collections.deploy.js

@@ -756,23 +756,23 @@ return self;}
 smalltalk.Collection);
 
 smalltalk.addMethod(
-unescape('_asJSONString'),
+unescape('_asOrderedCollection'),
 smalltalk.method({
-selector: unescape('asJSONString'),
+selector: unescape('asOrderedCollection'),
 fn: function () {
 var self=this;
-return smalltalk.send((smalltalk.JSON || JSON), "_stringify_", [smalltalk.send(self, "_collect_", [(function(each){return smalltalk.send(each, "_asJSONString", []);})])]);
+return smalltalk.send(self, "_asArray", []);
 return self;}
 }),
 smalltalk.Collection);
 
 smalltalk.addMethod(
-unescape('_asOrderedCollection'),
+unescape('_asJSON'),
 smalltalk.method({
-selector: unescape('asOrderedCollection'),
-fn: function () {
+selector: unescape('asJSON'),
+fn: function (){
 var self=this;
-return smalltalk.send(self, "_asArray", []);
+return smalltalk.send(smalltalk.send(self, "_asArray", []), "_collect_", [(function(each){return smalltalk.send(each, "_asJSON", []);})]);
 return self;}
 }),
 smalltalk.Collection);
@@ -1779,23 +1779,23 @@ return self;}
 smalltalk.String);
 
 smalltalk.addMethod(
-unescape('_asJSONString'),
+unescape('_asSymbol'),
 smalltalk.method({
-selector: unescape('asJSONString'),
+selector: unescape('asSymbol'),
 fn: function () {
 var self=this;
-return self;
+return smalltalk.send((smalltalk.Symbol || Symbol), "_lookup_", [self]);
 return self;}
 }),
 smalltalk.String);
 
 smalltalk.addMethod(
-unescape('_asSymbol'),
+unescape('_asJSON'),
 smalltalk.method({
-selector: unescape('asSymbol'),
-fn: function () {
+selector: unescape('asJSON'),
+fn: function (){
 var self=this;
-return smalltalk.send((smalltalk.Symbol || Symbol), "_lookup_", [self]);
+return self;
 return self;}
 }),
 smalltalk.String);
@@ -3144,6 +3144,20 @@ return self;}
 }),
 smalltalk.HashedCollection);
 
+smalltalk.addMethod(
+unescape('_asJSON'),
+smalltalk.method({
+selector: unescape('asJSON'),
+fn: function (){
+var self=this;
+var c=nil;
+(c=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
+smalltalk.send(self, "_keysAndValuesDo_", [(function(key, value){return smalltalk.send(c, "_at_put_", [key, smalltalk.send(value, "_asJSON", [])]);})]);
+return c;
+return self;}
+}),
+smalltalk.HashedCollection);
+
 
 smalltalk.addMethod(
 unescape('_fromPairs_'),
@@ -3281,12 +3295,12 @@ return self;}
 smalltalk.Dictionary);
 
 smalltalk.addMethod(
-unescape('_asJSONString'),
+unescape('_asJSON'),
 smalltalk.method({
-selector: unescape('asJSONString'),
-fn: function () {
+selector: unescape('asJSON'),
+fn: function (){
 var self=this;
-return smalltalk.send(smalltalk.send(self, "_asHashedCollection", []), "_asJSONString", []);
+return smalltalk.send(smalltalk.send(self, "_asHashedCollection", []), "_asJSON", []);
 return self;}
 }),
 smalltalk.Dictionary);

js/Kernel-Collections.js

@@ -1081,33 +1081,33 @@ referencedClasses: []
 smalltalk.Collection);
 
 smalltalk.addMethod(
-unescape('_asJSONString'),
+unescape('_asOrderedCollection'),
 smalltalk.method({
-selector: unescape('asJSONString'),
+selector: unescape('asOrderedCollection'),
 category: 'converting',
 fn: function () {
 var self=this;
-return smalltalk.send((smalltalk.JSON || JSON), "_stringify_", [smalltalk.send(self, "_collect_", [(function(each){return smalltalk.send(each, "_asJSONString", []);})])]);
+return smalltalk.send(self, "_asArray", []);
 return self;},
 args: [],
-source: unescape('asJSONString%0A%09%5EJSON%20stringify%3A%20%28self%20collect%3A%20%5B%3Aeach%20%7C%20each%20asJSONString%5D%29'),
-messageSends: ["stringify:", "collect:", "asJSONString"],
-referencedClasses: ["JSON"]
+source: unescape('asOrderedCollection%0A%09%5Eself%20asArray'),
+messageSends: ["asArray"],
+referencedClasses: []
 }),
 smalltalk.Collection);
 
 smalltalk.addMethod(
-unescape('_asOrderedCollection'),
+unescape('_asJSON'),
 smalltalk.method({
-selector: unescape('asOrderedCollection'),
+selector: unescape('asJSON'),
 category: 'converting',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.send(self, "_asArray", []);
+return smalltalk.send(smalltalk.send(self, "_asArray", []), "_collect_", [(function(each){return smalltalk.send(each, "_asJSON", []);})]);
 return self;},
 args: [],
-source: unescape('asOrderedCollection%0A%09%5Eself%20asArray'),
-messageSends: ["asArray"],
+source: unescape('asJSON%0A%09%5Eself%20asArray%20collect%3A%20%5B%3Aeach%20%7C%20each%20asJSON%5D'),
+messageSends: ["collect:", "asArray", "asJSON"],
 referencedClasses: []
 }),
 smalltalk.Collection);
@@ -2534,34 +2534,34 @@ referencedClasses: []
 smalltalk.String);
 
 smalltalk.addMethod(
-unescape('_asJSONString'),
+unescape('_asSymbol'),
 smalltalk.method({
-selector: unescape('asJSONString'),
+selector: unescape('asSymbol'),
 category: 'converting',
 fn: function () {
 var self=this;
-return self;
+return smalltalk.send((smalltalk.Symbol || Symbol), "_lookup_", [self]);
 return self;},
 args: [],
-source: unescape('asJSONString%0A%09%5Eself'),
-messageSends: [],
-referencedClasses: []
+source: unescape('asSymbol%0A%09%5ESymbol%20lookup%3A%20self'),
+messageSends: ["lookup:"],
+referencedClasses: ["Symbol"]
 }),
 smalltalk.String);
 
 smalltalk.addMethod(
-unescape('_asSymbol'),
+unescape('_asJSON'),
 smalltalk.method({
-selector: unescape('asSymbol'),
+selector: unescape('asJSON'),
 category: 'converting',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.send((smalltalk.Symbol || Symbol), "_lookup_", [self]);
+return self;
 return self;},
 args: [],
-source: unescape('asSymbol%0A%09%5ESymbol%20lookup%3A%20self'),
-messageSends: ["lookup:"],
-referencedClasses: ["Symbol"]
+source: unescape('asJSON%0A%09%5Eself'),
+messageSends: [],
+referencedClasses: []
 }),
 smalltalk.String);
 
@@ -4470,6 +4470,25 @@ referencedClasses: ["Dictionary"]
 }),
 smalltalk.HashedCollection);
 
+smalltalk.addMethod(
+unescape('_asJSON'),
+smalltalk.method({
+selector: unescape('asJSON'),
+category: 'converting',
+fn: function (){
+var self=this;
+var c=nil;
+(c=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
+smalltalk.send(self, "_keysAndValuesDo_", [(function(key, value){return smalltalk.send(c, "_at_put_", [key, smalltalk.send(value, "_asJSON", [])]);})]);
+return c;
+return self;},
+args: [],
+source: unescape('asJSON%0A%09%7C%20c%20%7C%0A%09c%20%3A%3D%20self%20class%20new.%0A%09self%20keysAndValuesDo%3A%20%5B%3Akey%20%3Avalue%20%7C%0A%09%09c%20at%3A%20key%20put%3A%20value%20asJSON%5D.%0A%09%5Ec'),
+messageSends: ["new", "class", "keysAndValuesDo:", "at:put:", "asJSON"],
+referencedClasses: []
+}),
+smalltalk.HashedCollection);
+
 
 smalltalk.addMethod(
 unescape('_fromPairs_'),
@@ -4652,17 +4671,17 @@ referencedClasses: ["HashedCollection"]
 smalltalk.Dictionary);
 
 smalltalk.addMethod(
-unescape('_asJSONString'),
+unescape('_asJSON'),
 smalltalk.method({
-selector: unescape('asJSONString'),
+selector: unescape('asJSON'),
 category: 'converting',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.send(smalltalk.send(self, "_asHashedCollection", []), "_asJSONString", []);
+return smalltalk.send(smalltalk.send(self, "_asHashedCollection", []), "_asJSON", []);
 return self;},
 args: [],
-source: unescape('asJSONString%0A%09%5Eself%20asHashedCollection%20asJSONString'),
-messageSends: ["asJSONString", "asHashedCollection"],
+source: unescape('asJSON%0A%09%5Eself%20asHashedCollection%20asJSON'),
+messageSends: ["asJSON", "asHashedCollection"],
 referencedClasses: []
 }),
 smalltalk.Dictionary);

js/Kernel-Objects.deploy.js

@@ -528,11 +528,13 @@ smalltalk.addMethod(
 unescape('_asJSON'),
 smalltalk.method({
 selector: unescape('asJSON'),
-fn: function () {
-    var self = this;
-    return smalltalk.send(smalltalk.JSON || JSON, "_parse_", [smalltalk.send(self, "_asJSONString", [])]);
-    return self;
-}
+fn: function (){
+var self=this;
+var variables=nil;
+(variables=smalltalk.send((smalltalk.HashedCollection || HashedCollection), "_new", []));
+smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "_allInstanceVariableNames", []), "_do_", [(function(each){return smalltalk.send(variables, "_at_put_", [each, smalltalk.send(smalltalk.send(self, "_instVarAt_", [each]), "_asJSON", [])]);})]);
+return variables;
+return self;}
 }),
 smalltalk.Object);
 
@@ -626,11 +628,10 @@ smalltalk.addMethod(
 unescape('_asJSONString'),
 smalltalk.method({
 selector: unescape('asJSONString'),
-fn: function () {
-    var self = this;
-    return smalltalk.send(smalltalk.JSON || JSON, "_stringify_", [self]);
-    return self;
-}
+fn: function (){
+var self=this;
+return smalltalk.send((smalltalk.JSON || JSON), "_stringify_", [smalltalk.send(self, "_asJSON", [])]);
+return self;}
 }),
 smalltalk.Object);
 
@@ -1818,6 +1819,17 @@ fn: function () {
 }),
 smalltalk.Number);
 
+smalltalk.addMethod(
+unescape('_asJSON'),
+smalltalk.method({
+selector: unescape('asJSON'),
+fn: function (){
+var self=this;
+return self;
+return self;}
+}),
+smalltalk.Number);
+
 
 smalltalk.addMethod(
 unescape('_pi'),
@@ -2009,6 +2021,17 @@ fn: function (aBoolean) {
 }),
 smalltalk.Boolean);
 
+smalltalk.addMethod(
+unescape('_asJSON'),
+smalltalk.method({
+selector: unescape('asJSON'),
+fn: function (){
+var self=this;
+return self;
+return self;}
+}),
+smalltalk.Boolean);
+
 
 
 smalltalk.addClass('Date', smalltalk.Object, [], 'Kernel-Objects');
@@ -2643,6 +2666,17 @@ fn: function (aString, aString2, aString3) {
 }),
 smalltalk.UndefinedObject);
 
+smalltalk.addMethod(
+unescape('_asJSON'),
+smalltalk.method({
+selector: unescape('asJSON'),
+fn: function (){
+var self=this;
+return (typeof null == 'undefined' ? nil : null);
+return self;}
+}),
+smalltalk.UndefinedObject);
+
 
 smalltalk.addMethod(
 unescape('_new'),

js/Kernel-Objects.js

@@ -740,15 +740,17 @@ unescape('_asJSON'),
 smalltalk.method({
 selector: unescape('asJSON'),
 category: 'converting',
-fn: function () {
-    var self = this;
-    return smalltalk.send(smalltalk.JSON || JSON, "_parse_", [smalltalk.send(self, "_asJSONString", [])]);
-    return self;
-},
+fn: function (){
+var self=this;
+var variables=nil;
+(variables=smalltalk.send((smalltalk.HashedCollection || HashedCollection), "_new", []));
+smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "_allInstanceVariableNames", []), "_do_", [(function(each){return smalltalk.send(variables, "_at_put_", [each, smalltalk.send(smalltalk.send(self, "_instVarAt_", [each]), "_asJSON", [])]);})]);
+return variables;
+return self;},
 args: [],
-source: unescape('asJSON%0A%09%5EJSON%20parse%3A%20self%20asJSONString'),
-messageSends: ["parse:", "asJSONString"],
-referencedClasses: ["JSON"]
+source: unescape('asJSON%0A%09%7C%20variables%20%7C%0A%09variables%20%3A%3D%20HashedCollection%20new.%0A%09self%20class%20allInstanceVariableNames%20do%3A%20%5B%3Aeach%20%7C%0A%09%09variables%20at%3A%20each%20put%3A%20%28self%20instVarAt%3A%20each%29%20asJSON%5D.%0A%09%5Evariables'),
+messageSends: ["new", "do:", "allInstanceVariableNames", "class", "at:put:", "asJSON", "instVarAt:"],
+referencedClasses: ["HashedCollection"]
 }),
 smalltalk.Object);
 
@@ -878,14 +880,13 @@ unescape('_asJSONString'),
 smalltalk.method({
 selector: unescape('asJSONString'),
 category: 'converting',
-fn: function () {
-    var self = this;
-    return smalltalk.send(smalltalk.JSON || JSON, "_stringify_", [self]);
-    return self;
-},
+fn: function (){
+var self=this;
+return smalltalk.send((smalltalk.JSON || JSON), "_stringify_", [smalltalk.send(self, "_asJSON", [])]);
+return self;},
 args: [],
-source: unescape('asJSONString%0A%09%5EJSON%20stringify%3A%20self'),
-messageSends: ["stringify:"],
+source: unescape('asJSONString%0A%09%5EJSON%20stringify%3A%20self%20asJSON'),
+messageSends: ["stringify:", "asJSON"],
 referencedClasses: ["JSON"]
 }),
 smalltalk.Object);
@@ -2532,6 +2533,22 @@ referencedClasses: []
 }),
 smalltalk.Number);
 
+smalltalk.addMethod(
+unescape('_asJSON'),
+smalltalk.method({
+selector: unescape('asJSON'),
+category: 'converting',
+fn: function (){
+var self=this;
+return self;
+return self;},
+args: [],
+source: unescape('asJSON%0A%09%5Eself'),
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.Number);
+
 
 smalltalk.addMethod(
 unescape('_pi'),
@@ -2794,6 +2811,22 @@ referencedClasses: []
 }),
 smalltalk.Boolean);
 
+smalltalk.addMethod(
+unescape('_asJSON'),
+smalltalk.method({
+selector: unescape('asJSON'),
+category: 'converting',
+fn: function (){
+var self=this;
+return self;
+return self;},
+args: [],
+source: unescape('asJSON%0A%09%5Eself'),
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.Boolean);
+
 
 
 smalltalk.addClass('Date', smalltalk.Object, [], 'Kernel-Objects');
@@ -3690,6 +3723,22 @@ referencedClasses: ["ClassBuilder"]
 }),
 smalltalk.UndefinedObject);
 
+smalltalk.addMethod(
+unescape('_asJSON'),
+smalltalk.method({
+selector: unescape('asJSON'),
+category: 'converting',
+fn: function (){
+var self=this;
+return (typeof null == 'undefined' ? nil : null);
+return self;},
+args: [],
+source: unescape('asJSON%0A%09%5Enull'),
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.UndefinedObject);
+
 
 smalltalk.addMethod(
 unescape('_new'),

st/Kernel-Collections.st

@@ -265,12 +265,12 @@ asSet
 	^Set withAll: self
 !
 
-asJSONString
-	^JSON stringify: (self collect: [:each | each asJSONString])
-!
-
 asOrderedCollection
 	^self asArray
+!
+
+asJSON
+	^self asArray collect: [:each | each asJSON]
 ! !
 
 !Collection methodsFor: 'copying'!
@@ -758,12 +758,12 @@ asJavaScriptSelector
 	^(self asSelector replace: '^_' with: '') replace: '_.*' with: ''.
 !
 
-asJSONString
-	^self
-!
-
 asSymbol
 	^Symbol lookup: self
+!
+
+asJSON
+	^self
 ! !
 
 !String methodsFor: 'copying'!
@@ -1511,6 +1511,14 @@ removeKey: aKey ifAbsent: aBlock
 
 asDictionary
 	^Dictionary fromPairs: self associations
+!
+
+asJSON
+	| c |
+	c := self class new.
+	self keysAndValuesDo: [:key :value |
+		c at: key put: value asJSON].
+	^c
 ! !
 
 !HashedCollection methodsFor: 'copying'!
@@ -1681,8 +1689,8 @@ asHashedCollection
 	^HashedCollection fromPairs: self associations
 !
 
-asJSONString
-	^self asHashedCollection asJSONString
+asJSON
+	^self asHashedCollection asJSON
 ! !
 
 !Dictionary methodsFor: 'initialization'!

st/Kernel-Objects.st

@@ -114,11 +114,15 @@ asJavascript
 !
 
 asJSON
-	^JSON parse: self asJSONString
+	| variables |
+	variables := HashedCollection new.
+	self class allInstanceVariableNames do: [:each |
+		variables at: each put: (self instVarAt: each) asJSON].
+	^variables
 !
 
 asJSONString
-	^JSON stringify: self
+	^JSON stringify: self asJSON
 ! !
 
 !Object methodsFor: 'copying'!
@@ -823,6 +827,10 @@ to: stop by: step
 	  			pos := pos + 1.
 	    			value := value + step]].
 	^array
+!
+
+asJSON
+	^self
 ! !
 
 !Number methodsFor: 'copying'!
@@ -1005,6 +1013,12 @@ not
 	>
 ! !
 
+!Boolean methodsFor: 'converting'!
+
+asJSON
+	^self
+! !
+
 !Boolean methodsFor: 'copying'!
 
 shallowCopy
@@ -1231,6 +1245,12 @@ subclass: aString instanceVariableNames: aString2 package: aString3
 	    superclass: self subclass: aString instanceVariableNames: aString2 package: aString3
 ! !
 
+!UndefinedObject methodsFor: 'converting'!
+
+asJSON
+	^null
+! !
+
 !UndefinedObject methodsFor: 'copying'!
 
 shallowCopy