services/json.esp

   1 <%
   2
   3 /*
   4  * Copyright:
   5  *   (C) 2006 by Derrell Lipman
   6  *       All rights reserved
   7  *
   8  * License:
   9  *   LGPL 2.1: http://creativecommons.org/licenses/LGPL/2.1/
  10  */
  11
  12 /*
  13  * This module provides a JSON encoder.
  14  */
  15
  16
  17 /* escape a string as required by json */
  18 function _escape(s)
  19 {
  20     var i;
  21     var arr = new Array();
  22
  23     for (i = 0; i < strlen(s); i++)
  24     {
  25         var c = substr(s, i, 1);
  26         if (c == '\x00')
  27         {
  28             arr[i] = '\\u0000';
  29         }
  30         if (Json._internal.convert[c] != undefined)
  31         {
  32             arr[i] = Json._internal.convert[c];
  33         }
  34         else
  35         {
  36             arr[i] = c;
  37         }
  38     }
  39
  40     if (arr.length == 0)
  41     {
  42         return "";
  43     }
  44
  45     return join("", arr);
  46 }
  47
  48 /* encode an arbitrary object.  called recursively, for object and array */
  49 function _encode(o)
  50 {
  51     var type = nativeTypeOf(o);
  52
  53     if (type == "undefined")
  54     {
  55         return "null";          /* you really shouldn't count on this! */
  56     }
  57     else if (type == "null")
  58     {
  59         return "null";
  60     }
  61     else if (type == "boolean")
  62     {
  63         if (o)
  64         {
  65             return "true";
  66         }
  67         else
  68         {
  69             return "false";
  70         }
  71     }
  72     else if (type == "c_function" ||
  73              type == "js_function" ||
  74              type == "string_c_function")
  75     {
  76         /* no output */
  77     }
  78     else if (type == "float" ||
  79              type == "integer" ||
  80              type == "integer64")
  81     {
  82         return o + 0;
  83     }
  84     else if (type == "pointer")
  85     {
  86         var x = "" + o;
  87         return '"' + substr(x, 16, strlen(x) - 16 - 1) + '"';
  88     }
  89     else if (type == "object")
  90     {
  91         var buf;
  92
  93         /* Is this an array or an ordinary object? */
  94         if (o["length"] != undefined)
  95         {
  96             var i;
  97
  98             /* Assume it's an array if there's a length field */
  99             buf = "[";
 100             for (i = 0; i < o.length; i++)
 101             {
 102                 /*
 103                  * NOTE: We don't support sparse arrays nor associative
 104                  * arrays.  Should we later want to do either, we're supposed
 105                  * to send it as an object rather than as an array.
 106                  */
 107                 if (i > 0)
 108                 {
 109                     buf = buf + ",";
 110                 }
 111                 buf = buf + this.encode(o[i]);
 112             }
 113             buf = buf + "]";
 114         }
 115         else if (o["__type"] == "_JSON_Date")
 116         {
 117             buf = "" + o.encoding();
 118         }
 119         else
 120         {
 121             /* No length field, so it must be an ordinary object */
 122             var key;
 123             var first = true;
 124
 125             buf = "{";
 126             for (key in o)
 127             {
 128                 if (! first)
 129                 {
 130                     buf = buf + ",";
 131                 }
 132                 buf = buf + '"' + key + '":' + this.encode(o[key]);
 133                 first = false;
 134             }
 135             buf = buf + "}";
 136         }
 137
 138         return buf;
 139     }
 140     else if (type == "string")
 141     {
 142         return '"' + this._internal.escape(o) + '"';
 143     }
 144     else
 145     {
 146         return '{ "unknown_object":"' + type + '"}';
 147     }
 148 }
 149
 150 /* Allocate the public Json access object */
 151 Json = new Object();
 152
 153 /* Json.encode(): encode an arbitrary object */
 154 Json.encode = _encode;
 155 _encode = null;
 156
 157 /* Json.decode(): decode a string into its object form */
 158 Json.decode = literal_to_var;
 159
 160 /* Internal stuff, not for external access */
 161 Json._internal = new Object();
 162
 163 Json._internal.escape = _escape;
 164 _escape = null;
 165
 166 Json._internal.convert = new Object();
 167 Json._internal.convert['\b'] = '\\b';
 168 Json._internal.convert['\t'] = '\\t';
 169 Json._internal.convert['\n'] = '\\n';
 170 Json._internal.convert['\f'] = '\\f';
 171 Json._internal.convert['\r'] = '\\r';
 172 Json._internal.convert['"'] = '\\"';
 173 Json._internal.convert['\\'] = '\\\\';
 174 Json._internal.convert['\x01'] = '\\u0001';
 175 Json._internal.convert['\x02'] = '\\u0002';
 176 Json._internal.convert['\x03'] = '\\u0003';
 177 Json._internal.convert['\x04'] = '\\u0004';
 178 Json._internal.convert['\x05'] = '\\u0005';
 179 Json._internal.convert['\x06'] = '\\u0006';
 180 Json._internal.convert['\x07'] = '\\u0007';
 181 Json._internal.convert['\x08'] = '\\u0008';
 182 Json._internal.convert['\x09'] = '\\u0009';
 183 Json._internal.convert['\x0a'] = '\\u000a';
 184 Json._internal.convert['\x0b'] = '\\u000b';
 185 Json._internal.convert['\x0c'] = '\\u000c';
 186 Json._internal.convert['\x0d'] = '\\u000d';
 187 Json._internal.convert['\x0e'] = '\\u000e';
 188 Json._internal.convert['\x0f'] = '\\u000f';
 189 Json._internal.convert['\x10'] = '\\u0010';
 190 Json._internal.convert['\x11'] = '\\u0011';
 191 Json._internal.convert['\x12'] = '\\u0012';
 192 Json._internal.convert['\x13'] = '\\u0013';
 193 Json._internal.convert['\x14'] = '\\u0014';
 194 Json._internal.convert['\x15'] = '\\u0015';
 195 Json._internal.convert['\x16'] = '\\u0016';
 196 Json._internal.convert['\x17'] = '\\u0017';
 197 Json._internal.convert['\x18'] = '\\u0018';
 198 Json._internal.convert['\x19'] = '\\u0019';
 199 Json._internal.convert['\x1a'] = '\\u001a';
 200 Json._internal.convert['\x1b'] = '\\u001b';
 201 Json._internal.convert['\x1c'] = '\\u001c';
 202 Json._internal.convert['\x1d'] = '\\u001d';
 203 Json._internal.convert['\x1e'] = '\\u001e';
 204 Json._internal.convert['\x1f'] = '\\u001f';
 205 /*
 206  * At some point, we probably want to add \x80-\xff as well, and it's then
 207  * probably more efficient to generate these strings dynamically.  (Even now
 208  * it may be, but this was the the way I started, and so it remains.)
 209  */
 210
 211
 212 /* Test it */
 213 /*
 214 libinclude("base.js");
 215 function testFormat()
 216 {
 217     var test = new Object();
 218     test.int = 23;
 219     test.str = "hello world";
 220     test.float = 223.1;
 221     test.bool = true;
 222     test.array = new Array();
 223     test.array[0] = "hello";
 224     test.array[1] = "world";
 225     test.obj = new Object();
 226     test.obj.int = 1000;
 227     test.obj.array = new Array();
 228     test.obj.array[0] = 42;
 229     test.obj.array[1] = 223;
 230     printf("%s\n", Json.encode(test));
 231 }
 232 testFormat();
 233 */
 234
 235 /*
 236 libinclude("base.js");
 237 function testParse()
 238 {
 239     var s;
 240
 241     s = '{ "x" : 23 }';
 242     obj = Json.decode(s);
 243     printf("Decode/encode of\n\t%s\nyielded\n\t%s\n\n", s, Json.encode(obj));
 244
 245     s = '{ "x" : [ 23, 42] }';
 246     obj = Json.decode(s);
 247     printf("Decode/encode of\n\t%s\nyielded\n\t%s\n\n", s, Json.encode(obj));
 248
 249     s = '[ 13, 19, { "x" : [ 23, 42] }, 223 ]';
 250     obj = Json.decode(s);
 251     printf("Decode/encode of\n\t%s\nyielded\n\t%s\n\n", s, Json.encode(obj));
 252
 253     s = '{ "x" : [ "hi" ] }';
 254     obj = Json.decode(s);
 255     printf("Decode/encode of\n\t%s\nyielded\n\t%s\n\n", s, Json.encode(obj));
 256
 257     s = '[ 13, 19, { "x" : [ 23, 42, { "y":{"a":"hello", "b":"world", "c":[1,2,3]}}] }, 223 ]';
 258     obj = Json.decode(s);
 259     printf("Decode/encode of\n\t%s\nyielded\n\t%s\n\n", s, Json.encode(obj));
 260 }
 261 testParse();
 262 */
 263
 264 /*
 265  * Local Variables:
 266  * mode: c
 267  * End:
 268  */
 269 %>