r20364: SWAT updates, part 1
[kai/samba.git] / 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 %>