jscript: Pass msg as jsstr_t to create_error.
[wine] / dlls / jscript / error.c
1 /*
2  * Copyright 2009 Piotr Caban
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17  */
18
19 #include "config.h"
20 #include "wine/port.h"
21
22 #include <math.h>
23
24 #include "jscript.h"
25
26 #include "wine/debug.h"
27
28 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
29
30 static const WCHAR descriptionW[] = {'d','e','s','c','r','i','p','t','i','o','n',0};
31 static const WCHAR messageW[] = {'m','e','s','s','a','g','e',0};
32 static const WCHAR nameW[] = {'n','a','m','e',0};
33 static const WCHAR numberW[] = {'n','u','m','b','e','r',0};
34 static const WCHAR toStringW[] = {'t','o','S','t','r','i','n','g',0};
35
36 /* ECMA-262 3rd Edition    15.11.4.4 */
37 static HRESULT Error_toString(script_ctx_t *ctx, vdisp_t *vthis, WORD flags,
38         unsigned argc, jsval_t *argv, jsval_t *r)
39 {
40     jsdisp_t *jsthis;
41     jsstr_t *name = NULL, *msg = NULL, *ret = NULL;
42     jsval_t v;
43     HRESULT hres;
44
45     static const WCHAR object_errorW[] = {'[','o','b','j','e','c','t',' ','E','r','r','o','r',']',0};
46
47     TRACE("\n");
48
49     jsthis = get_jsdisp(vthis);
50     if(!jsthis || ctx->version < 2) {
51         if(r) {
52             jsstr_t *str;
53
54             str = jsstr_alloc(object_errorW);
55             if(!str)
56                 return E_OUTOFMEMORY;
57             *r = jsval_string(str);
58         }
59         return S_OK;
60     }
61
62     hres = jsdisp_propget_name(jsthis, nameW, &v);
63     if(FAILED(hres))
64         return hres;
65
66     if(!is_undefined(v)) {
67         hres = to_string(ctx, v, &name);
68         jsval_release(v);
69         if(FAILED(hres))
70             return hres;
71     }
72
73     hres = jsdisp_propget_name(jsthis, messageW, &v);
74     if(SUCCEEDED(hres)) {
75         if(!is_undefined(v)) {
76             hres = to_string(ctx, v, &msg);
77             jsval_release(v);
78         }
79     }
80
81     if(SUCCEEDED(hres)) {
82         unsigned name_len = name ? jsstr_length(name) : 0;
83         unsigned msg_len = msg ? jsstr_length(msg) : 0;
84
85         if(name_len && msg_len) {
86             ret = jsstr_alloc_buf(name_len + msg_len + 2);
87             if(ret) {
88                 jsstr_flush(name, ret->str);
89                 ret->str[name_len] = ':';
90                 ret->str[name_len+1] = ' ';
91                 jsstr_flush(msg, ret->str+name_len+2);
92             }
93         }else if(name_len) {
94             ret = name;
95             name = NULL;
96         }else if(msg_len) {
97             ret = msg;
98             msg = NULL;
99         }else {
100             ret = jsstr_alloc(object_errorW);
101         }
102     }
103
104     if(msg)
105         jsstr_release(msg);
106     if(name)
107         jsstr_release(name);
108     if(FAILED(hres))
109         return hres;
110     if(!ret)
111         return E_OUTOFMEMORY;
112
113     if(r)
114         *r = jsval_string(ret);
115     else
116         jsstr_release(ret);
117     return S_OK;
118 }
119
120 static HRESULT Error_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
121         unsigned argc, jsval_t *argv, jsval_t *r)
122 {
123     TRACE("\n");
124
125     switch(flags) {
126     case INVOKE_FUNC:
127         return throw_type_error(ctx, JS_E_FUNCTION_EXPECTED, NULL);
128     default:
129         FIXME("unimplemented flags %x\n", flags);
130         return E_NOTIMPL;
131     }
132
133     return S_OK;
134 }
135
136 static const builtin_prop_t Error_props[] = {
137     {toStringW,                 Error_toString,                     PROPF_METHOD}
138 };
139
140 static const builtin_info_t Error_info = {
141     JSCLASS_ERROR,
142     {NULL, Error_value, 0},
143     sizeof(Error_props)/sizeof(*Error_props),
144     Error_props,
145     NULL,
146     NULL
147 };
148
149 static const builtin_info_t ErrorInst_info = {
150     JSCLASS_ERROR,
151     {NULL, Error_value, 0},
152     0,
153     NULL,
154     NULL,
155     NULL
156 };
157
158 static HRESULT alloc_error(script_ctx_t *ctx, jsdisp_t *prototype,
159         jsdisp_t *constr, jsdisp_t **ret)
160 {
161     jsdisp_t *err;
162     HRESULT hres;
163
164     err = heap_alloc_zero(sizeof(*err));
165     if(!err)
166         return E_OUTOFMEMORY;
167
168     if(prototype)
169         hres = init_dispex(err, ctx, &Error_info, prototype);
170     else
171         hres = init_dispex_from_constr(err, ctx, &ErrorInst_info,
172             constr ? constr : ctx->error_constr);
173     if(FAILED(hres)) {
174         heap_free(err);
175         return hres;
176     }
177
178     *ret = err;
179     return S_OK;
180 }
181
182 static HRESULT create_error(script_ctx_t *ctx, jsdisp_t *constr,
183         UINT number, jsstr_t *msg, jsdisp_t **ret)
184 {
185     jsdisp_t *err;
186     HRESULT hres;
187
188     hres = alloc_error(ctx, NULL, constr, &err);
189     if(FAILED(hres))
190         return hres;
191
192     hres = jsdisp_propput_dontenum(err, numberW, jsval_number((INT)number));
193     if(FAILED(hres)) {
194         jsdisp_release(err);
195         return hres;
196     }
197
198     hres = jsdisp_propput_name(err, messageW, jsval_string(msg));
199     if(SUCCEEDED(hres))
200         hres = jsdisp_propput_dontenum(err, descriptionW, jsval_string(msg));
201     if(FAILED(hres)) {
202         jsdisp_release(err);
203         return hres;
204     }
205
206     *ret = err;
207     return S_OK;
208 }
209
210 static HRESULT error_constr(script_ctx_t *ctx, WORD flags, unsigned argc, jsval_t *argv,
211         jsval_t *r, jsdisp_t *constr) {
212     jsdisp_t *err;
213     UINT num = 0;
214     jsstr_t *msg = NULL;
215     HRESULT hres;
216
217     if(argc) {
218         double n;
219
220         hres = to_number(ctx, argv[0], &n);
221         if(FAILED(hres)) /* FIXME: really? */
222             n = NAN;
223         if(isnan(n))
224             hres = to_string(ctx, argv[0], &msg);
225         if(FAILED(hres))
226             return hres;
227         num = n;
228     }
229
230     if(!msg) {
231         if(argc > 1) {
232             hres = to_string(ctx, argv[1], &msg);
233             if(FAILED(hres))
234                 return hres;
235         }else {
236             msg = jsstr_empty();
237         }
238     }
239
240     switch(flags) {
241     case INVOKE_FUNC:
242     case DISPATCH_CONSTRUCT:
243         hres = create_error(ctx, constr, num, msg, &err);
244         jsstr_release(msg);
245         if(FAILED(hres))
246             return hres;
247
248         if(r)
249             *r = jsval_obj(err);
250         else
251             jsdisp_release(err);
252         return S_OK;
253
254     default:
255         if(msg)
256             jsstr_release(msg);
257         FIXME("unimplemented flags %x\n", flags);
258         return E_NOTIMPL;
259     }
260 }
261
262 static HRESULT ErrorConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
263         unsigned argc, jsval_t *argv, jsval_t *r)
264 {
265     TRACE("\n");
266     return error_constr(ctx, flags, argc, argv, r, ctx->error_constr);
267 }
268
269 static HRESULT EvalErrorConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
270         unsigned argc, jsval_t *argv, jsval_t *r)
271 {
272     TRACE("\n");
273     return error_constr(ctx, flags, argc, argv, r, ctx->eval_error_constr);
274 }
275
276 static HRESULT RangeErrorConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
277         unsigned argc, jsval_t *argv, jsval_t *r)
278 {
279     TRACE("\n");
280     return error_constr(ctx, flags, argc, argv, r, ctx->range_error_constr);
281 }
282
283 static HRESULT ReferenceErrorConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
284         unsigned argc, jsval_t *argv, jsval_t *r)
285 {
286     TRACE("\n");
287     return error_constr(ctx, flags, argc, argv, r, ctx->reference_error_constr);
288 }
289
290 static HRESULT RegExpErrorConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
291         unsigned argc, jsval_t *argv, jsval_t *r)
292 {
293     TRACE("\n");
294     return error_constr(ctx, flags, argc, argv, r, ctx->regexp_error_constr);
295 }
296
297 static HRESULT SyntaxErrorConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
298         unsigned argc, jsval_t *argv, jsval_t *r)
299 {
300     TRACE("\n");
301     return error_constr(ctx, flags, argc, argv, r, ctx->syntax_error_constr);
302 }
303
304 static HRESULT TypeErrorConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
305         unsigned argc, jsval_t *argv, jsval_t *r)
306 {
307     TRACE("\n");
308     return error_constr(ctx, flags, argc, argv, r, ctx->type_error_constr);
309 }
310
311 static HRESULT URIErrorConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
312         unsigned argc, jsval_t *argv, jsval_t *r)
313 {
314     TRACE("\n");
315     return error_constr(ctx, flags, argc, argv, r, ctx->uri_error_constr);
316 }
317
318 HRESULT init_error_constr(script_ctx_t *ctx, jsdisp_t *object_prototype)
319 {
320     static const WCHAR ErrorW[] = {'E','r','r','o','r',0};
321     static const WCHAR EvalErrorW[] = {'E','v','a','l','E','r','r','o','r',0};
322     static const WCHAR RangeErrorW[] = {'R','a','n','g','e','E','r','r','o','r',0};
323     static const WCHAR ReferenceErrorW[] = {'R','e','f','e','r','e','n','c','e','E','r','r','o','r',0};
324     static const WCHAR RegExpErrorW[] = {'R','e','g','E','x','p','E','r','r','o','r',0};
325     static const WCHAR SyntaxErrorW[] = {'S','y','n','t','a','x','E','r','r','o','r',0};
326     static const WCHAR TypeErrorW[] = {'T','y','p','e','E','r','r','o','r',0};
327     static const WCHAR URIErrorW[] = {'U','R','I','E','r','r','o','r',0};
328     static const WCHAR *names[] = {ErrorW, EvalErrorW, RangeErrorW,
329         ReferenceErrorW, RegExpErrorW, SyntaxErrorW, TypeErrorW, URIErrorW};
330     jsdisp_t **constr_addr[] = {&ctx->error_constr, &ctx->eval_error_constr,
331         &ctx->range_error_constr, &ctx->reference_error_constr, &ctx->regexp_error_constr,
332         &ctx->syntax_error_constr, &ctx->type_error_constr,
333         &ctx->uri_error_constr};
334     static builtin_invoke_t constr_val[] = {ErrorConstr_value, EvalErrorConstr_value,
335         RangeErrorConstr_value, ReferenceErrorConstr_value, RegExpErrorConstr_value,
336         SyntaxErrorConstr_value, TypeErrorConstr_value, URIErrorConstr_value};
337
338     jsdisp_t *err;
339     unsigned int i;
340     jsstr_t *str;
341     HRESULT hres;
342
343     for(i=0; i < sizeof(names)/sizeof(names[0]); i++) {
344         hres = alloc_error(ctx, i==0 ? object_prototype : NULL, NULL, &err);
345         if(FAILED(hres))
346             return hres;
347
348         str = jsstr_alloc(names[i]);
349         if(!str) {
350             jsdisp_release(err);
351             return E_OUTOFMEMORY;
352         }
353
354         hres = jsdisp_propput_dontenum(err, nameW, jsval_string(str));
355         jsstr_release(str);
356         if(SUCCEEDED(hres))
357             hres = create_builtin_constructor(ctx, constr_val[i], names[i], NULL,
358                     PROPF_CONSTR|1, err, constr_addr[i]);
359
360         jsdisp_release(err);
361         if(FAILED(hres))
362             return hres;
363     }
364
365     return S_OK;
366 }
367
368 static HRESULT throw_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str, jsdisp_t *constr)
369 {
370     WCHAR buf[1024], *pos = NULL;
371     jsdisp_t *err;
372     jsstr_t *msg;
373     HRESULT hres;
374
375     if(!is_jscript_error(error))
376         return error;
377
378     buf[0] = '\0';
379     LoadStringW(jscript_hinstance, HRESULT_CODE(error),  buf, sizeof(buf)/sizeof(WCHAR));
380
381     if(str) pos = strchrW(buf, '|');
382     if(pos) {
383         int len = strlenW(str);
384         memmove(pos+len, pos+1, (strlenW(pos+1)+1)*sizeof(WCHAR));
385         memcpy(pos, str, len*sizeof(WCHAR));
386     }
387
388     WARN("%s\n", debugstr_w(buf));
389
390     msg = jsstr_alloc(buf);
391     if(!msg)
392         return E_OUTOFMEMORY;
393
394     hres = create_error(ctx, constr, error, msg, &err);
395     jsstr_release(msg);
396     if(FAILED(hres))
397         return hres;
398
399     jsval_release(ctx->ei.val);
400     ctx->ei.val = jsval_obj(err);
401     return error;
402 }
403
404 HRESULT throw_generic_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
405 {
406     return throw_error(ctx, error, str, ctx->error_constr);
407 }
408
409 HRESULT throw_range_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
410 {
411     return throw_error(ctx, error, str, ctx->range_error_constr);
412 }
413
414 HRESULT throw_reference_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
415 {
416     return throw_error(ctx, error, str, ctx->reference_error_constr);
417 }
418
419 HRESULT throw_regexp_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
420 {
421     return throw_error(ctx, error, str, ctx->regexp_error_constr);
422 }
423
424 HRESULT throw_syntax_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
425 {
426     return throw_error(ctx, error, str, ctx->syntax_error_constr);
427 }
428
429 HRESULT throw_type_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
430 {
431     return throw_error(ctx, error, str, ctx->type_error_constr);
432 }
433
434 HRESULT throw_uri_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
435 {
436     return throw_error(ctx, error, str, ctx->uri_error_constr);
437 }