dirty fix for bad json setting file

[AdamStrangeParticipant]

ted2 does not save the son file correcty – one single line with no line breaks making it unreadable by humans.

Here is a very dirty fix

Monkey

Method SaveState() Local obj:=New JsonObject Local docs:=New JsonArray For Local doc:=Eachin _openDocs docs.Add( New JsonString( doc.Path ) ) Next obj["openDocuments"]=docs Local recent:=New JsonArray For Local path:=Eachin _recent recent.Add( New JsonString( path ) ) End obj["recentFiles"]=recent Local projects:=New JsonArray For Local dir:=Eachin _projects projects.Add( New JsonString( dir ) ) Next obj["openProjects"]=projects obj["windowRect"]=ToJson( Frame ) obj["consoleSize"]=New JsonNumber( _docker.GetViewSize( _console ) ) obj["browserSize"]=New JsonNumber( _docker.GetViewSize( _browser ) ) obj["helpTreeSize"]=New JsonNumber( _helpView.GetViewSize( _helpView.HelpTree ) ) If _lockedDoc obj["lockedDocument"]=New JsonString( _lockedDoc.Path ) local k:Int local out:string = "" local str:string = "" local chr:string local tab:string = "" local length:int for k = 0 to obj.ToJson().Length chr = obj.ToJson().Mid(k,1) select chr case "{", "[" str = str + chr out = out + str + "~n" tab = tab + " " str = tab case "}", "]" out = out + str + "~n" length = tab.Length tab = tab.Left( length - 2 ) str = tab + chr case "," str = str + chr out = out + str + "~n" str = tab default str = str + chr end next out = out + str + "~n" SaveString( out,"bin/ted2.state.json" ) End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

Method SaveState() Local obj:=New JsonObject Local docs:=New JsonArray For Local doc:=Eachin _openDocs docs.Add( New JsonString( doc.Path ) ) Next obj["openDocuments"]=docs Local recent:=New JsonArray For Local path:=Eachin _recent recent.Add( New JsonString( path ) ) End obj["recentFiles"]=recent Local projects:=New JsonArray For Local dir:=Eachin _projects projects.Add( New JsonString( dir ) ) Next obj["openProjects"]=projects obj["windowRect"]=ToJson( Frame ) obj["consoleSize"]=New JsonNumber( _docker.GetViewSize( _console ) ) obj["browserSize"]=New JsonNumber( _docker.GetViewSize( _browser ) ) obj["helpTreeSize"]=New JsonNumber( _helpView.GetViewSize( _helpView.HelpTree ) ) If _lockedDoc obj["lockedDocument"]=New JsonString( _lockedDoc.Path ) local k:Int local out:string = "" local str:string = "" local chr:string local tab:string = "" local length:int for k = 0 to obj.ToJson().Length       chr = obj.ToJson().Mid(k,1)       select chr         case "{", "["           str = str + chr           out = out + str + "~n"           tab = tab + "  "           str = tab         case "}", "]"           out = out + str + "~n"           length = tab.Length           tab = tab.Left( length - 2 )           str = tab + chr         case ","           str = str + chr           out = out + str + "~n"           str = tab         default           str = str + chr       end     next     out = out + str + "~n"      SaveString( out,"bin/ted2.state.json" ) End

[Mark SiblyKeymaster]

Yes, will clean up json output soon…

[wiebowParticipant]

Hi Mark,

For Ted2 or for json in general?

[AdamStrangeParticipant]

Mark, you could just take this and make a dirty SaveJson method?

[Author]

Posts