Merge pull request #45 from Irwin1985/version_9

ObjectToJSON() bug fixed

Author: Irwin1985

jsonfox.app

@@ -4,7 +4,7 @@ define class JSONClass as session
 	LastErrorText 	= ""
 	lError 			= .f.
 	lShowErrors 	= .t.
-	version 		= "9.9"
+	version 		= "9.10"
 	hidden lInternal
 	hidden lTablePrompt
 	Dimension aCustomArray[1]
@@ -56,7 +56,33 @@ define class JSONClass as session
 		Else
 			return loJSONObj
 		EndIf		
-	endfunc
+	ENDFUNC
+	
+	* tokenize
+	FUNCTION dumpTokens
+		lparameters tcJsonStr as memo, tcOutput as string
+		try
+			this.ResetError()
+			local lexer
+			if this.NETScanner
+				lexer = createobject("NetScanner", tcJsonStr)
+			else
+				lexer = createobject("Tokenizer", tcJsonStr)
+			endif
+			Local laTokens
+			laTokens = lexer.scanTokens()
+			IF FILE(tcOutput)
+				DELETE FILE (tcOutput)
+			ENDIF
+			FOR EACH loToken IN laTokens
+				STRTOFILE(tokenStr(loToken), tcOutput, 1)
+			ENDFOR
+		catch to loEx
+			this.ShowExceptionError(loEx)
+		finally
+			release lexer, laTokens
+		ENDTRY
+	ENDFUNC
 
 	* Stringify
 	function Stringify as memo
@@ -292,7 +318,7 @@ define class JSONClass as session
 		return lcOutput
 	endfunc
 	* tokenize
-	function dumpTokens	
+	function dumpTokens2	
 		lparameters tcJsonStr as memo
 		try
 			this.ResetError()

src/jsonclass.prg

@@ -46,8 +46,9 @@ define class ObjectToJSON as session
 				for k = 1 to alen(tValue)
 					lcArray = lcArray + iif(len(lcArray) > 1, ',', '')
 					try
+						local array laLista[1]
 						*local array aLista(alen(tValue[k]))
-						=acopy(tValue[k], aLista)
+						=acopy(tValue[k], laLista)
 						lcArray = lcArray + this.AnyToJson(@aLista)
 					catch
 						lcArray = lcArray + this.AnyToJson(tValue[k])
@@ -67,7 +68,8 @@ define class ObjectToJSON as session
 							lcArray = lcArray + ','
 						endif
 						try
-							=acopy(tValue[k, j], aLista)
+							local array laLista[1]
+							=acopy(tValue[k, j], laLista)
 							lcArray = lcArray + this.AnyToJson(@aLista)
 						catch
 							lcArray = lcArray + this.AnyToJson(tValue[k, j])
@@ -91,7 +93,8 @@ define class ObjectToJSON as session
 				lcJSONStr = lcJSONStr + iif(len(lcJSONStr) > 1, ',', '') + '"' + lcProp + '":'
 				try
 					*local array aCopia(alen(tValue. &gaMembers[j]))
-					=acopy(tValue. &gaMembers[j], aCopia)
+					local array laLista[1]
+					=acopy(tValue. &gaMembers[j], laLista)
 					lcJSONStr = lcJSONStr + this.AnyToJson(@aCopia)
 				catch
 					try