JSONStringify - Quest function in-progress (There has to be a better approach!)

[KVonGit]

I'm stringifying objects (and dictionaries too, once I get objects down pat) to use AJAX to GET and POST the data.

I did not start off with all the backslashes! I kept having to add more for the JSON to be formatted correctly when the script to GET the data is called.

Is there a better way to do this? (I'm thinking there has to be a better way. This is just sloppy!)

  <function name="JSONStringify" parameters="obj" type="string">
    isdic = false
    if (TypeOf(obj) = "object") {
      keys = GetAttributeNames(obj, false)
    }
    else {
      isdic = true
      keys = NewStringList()
      foreach (key, obj) {
        list add (keys, key)
      }
    }
    json = NewStringList()
    foreach (att, keys) {
      if (isdic) {
        val = DictionaryItem(obj,att)
      }
      else {
        val = GetAttribute(obj, att)
      }
      switch (TypeOf(val)) {
        case ("string") {
          val = "\\\\\\\"" + val + "\\\\\\\""
        }
        case ("boolean") {
          if (val) {
            val = "\\\\\\\"@@boolean@@true\\\\\\\""
          }
          else {
            val = "\\\\\\\"@@boolean@@false\\\\\\\""
          }
        }
        case ("int") {
          val = "\\\\\\\"@@int@@" + ToString(val) + "\\\\\\\""
        }
        case ("stringlist") {
          val = "[\\\\\\\"" + Join(val,"\\\\\\\",\\\\\\\"") + "\\\\\\\"]"
        }
        case ("stringdictionary") {
          newvals = NewStringList()
          foreach (key, val) {
            list add (newval, "\\\\\\\\\\\"" + key + "\\\\\\\\\\\":\\\\\\\\\\\"" + val + "\\\\\\\\\\\"")
          }
          val = "\\\\\\\"@@stringdictionary@@{" + Join(newvals, ",") + "}\\\\\\\""
          //val = "\\\\\\\"STRING_DICTIONARY_NOT_CONVERTED\\\\\\\""
        }
        case ("dictionary") {
          //stringified = JSONStringify(val)
          //val = "\\\\\\\"@@dictionary@@" + Replace(Replace(stringified, "\\", ""), "\"", "@@doublequote@@") + "\\\\\\\""
          val = "\\\\\\\"DICTIONARY_NOT_CONVERTED\\\\\\\""
        }
        case ("objectlist") {
          olist = NewStringList()
          foreach (o, val) {
            list add (olist, o.name)
          }
          val = "\\\\\\\"@@objectlist@@[\\\\\\\\\\\"" + Join(olist, "\\\\\\\\\\\",\\\\\\\\\\\"") + "\\\\\\\\\\\"]\\\\\\\""
        }
        case ("object") {
          if (HasAttribute(val, "name")) {
            val = "\\\\\\\"@@object@@" + val.name + "\\\\\\\""
          }
          else {
            Log ("TODO - found 'object' type with no name attribute:" + TypeOf(val))
            Log (att)
           // Log (val)
            val = "UNNAMED_OBJECT_TYPE_NOT_CONVERTED"
          }
        }
        default {
          Log ("TODO:" + TypeOf(val))
          Log (att)
         // Log (val)
          val = "UNKOWN_TYPE_NOT_CONVERTED"
        }
      }
      list add (json, "\\\\\\\"" + att + "\\\\\\\":" + val + "")
    }
    json = "{" + Join(json, ",") + "}"
    // Log (json)
    // JS.eval ("var myJSON = '" + json + "'; var myJSONObject = JSON.parse(myJSON.replaceAll(\"@@@doublequote@@@\", \"'\"));")
    return (json)
  </function>

---

With this code, I can JSONStringify(game.pov). POST that, then GET it, then in JS JSON.parse(data) successfully converts it into an object. (The JS object is not the ultimate goal, I'm just testing it that way right now because I haven't finished writing the function to apply the data and update the object attributes in Quest.)