?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
cryptui: Add Japanese translation.
[wine.git] / dlls / jscript / global.c
blob8655d8ad6703bbe6653944e41afc81b0cee93da3
1 /*
2 * Copyright 2008 Jacek Caban for CodeWeavers
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 #include <limits.h>
24
25 #include "jscript.h"
26 #include "engine.h"
27
28 #include "wine/debug.h"
29
30 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
31
32 #define LONGLONG_MAX (((LONGLONG)0x7fffffff<<32)|0xffffffff)
33
34 static const WCHAR NaNW[] = {'N','a','N',0};
35 static const WCHAR InfinityW[] = {'I','n','f','i','n','i','t','y',0};
36 static const WCHAR ArrayW[] = {'A','r','r','a','y',0};
37 static const WCHAR BooleanW[] = {'B','o','o','l','e','a','n',0};
38 static const WCHAR DateW[] = {'D','a','t','e',0};
39 static const WCHAR ErrorW[] = {'E','r','r','o','r',0};
40 static const WCHAR EvalErrorW[] = {'E','v','a','l','E','r','r','o','r',0};
41 static const WCHAR RangeErrorW[] = {'R','a','n','g','e','E','r','r','o','r',0};
42 static const WCHAR ReferenceErrorW[] = {'R','e','f','e','r','e','n','c','e','E','r','r','o','r',0};
43 static const WCHAR SyntaxErrorW[] = {'S','y','n','t','a','x','E','r','r','o','r',0};
44 static const WCHAR TypeErrorW[] = {'T','y','p','e','E','r','r','o','r',0};
45 static const WCHAR URIErrorW[] = {'U','R','I','E','r','r','o','r',0};
46 static const WCHAR FunctionW[] = {'F','u','n','c','t','i','o','n',0};
47 static const WCHAR NumberW[] = {'N','u','m','b','e','r',0};
48 static const WCHAR ObjectW[] = {'O','b','j','e','c','t',0};
49 static const WCHAR StringW[] = {'S','t','r','i','n','g',0};
50 static const WCHAR RegExpW[] = {'R','e','g','E','x','p',0};
51 static const WCHAR ActiveXObjectW[] = {'A','c','t','i','v','e','X','O','b','j','e','c','t',0};
52 static const WCHAR VBArrayW[] = {'V','B','A','r','r','a','y',0};
53 static const WCHAR EnumeratorW[] = {'E','n','u','m','e','r','a','t','o','r',0};
54 static const WCHAR escapeW[] = {'e','s','c','a','p','e',0};
55 static const WCHAR evalW[] = {'e','v','a','l',0};
56 static const WCHAR isNaNW[] = {'i','s','N','a','N',0};
57 static const WCHAR isFiniteW[] = {'i','s','F','i','n','i','t','e',0};
58 static const WCHAR parseIntW[] = {'p','a','r','s','e','I','n','t',0};
59 static const WCHAR parseFloatW[] = {'p','a','r','s','e','F','l','o','a','t',0};
60 static const WCHAR unescapeW[] = {'u','n','e','s','c','a','p','e',0};
61 static const WCHAR _GetObjectW[] = {'G','e','t','O','b','j','e','c','t',0};
62 static const WCHAR ScriptEngineW[] = {'S','c','r','i','p','t','E','n','g','i','n','e',0};
63 static const WCHAR ScriptEngineMajorVersionW[] =
64 {'S','c','r','i','p','t','E','n','g','i','n','e','M','a','j','o','r','V','e','r','s','i','o','n',0};
65 static const WCHAR ScriptEngineMinorVersionW[] =
66 {'S','c','r','i','p','t','E','n','g','i','n','e','M','i','n','o','r','V','e','r','s','i','o','n',0};
67 static const WCHAR ScriptEngineBuildVersionW[] =
68 {'S','c','r','i','p','t','E','n','g','i','n','e','B','u','i','l','d','V','e','r','s','i','o','n',0};
69 static const WCHAR CollectGarbageW[] = {'C','o','l','l','e','c','t','G','a','r','b','a','g','e',0};
70 static const WCHAR MathW[] = {'M','a','t','h',0};
71 static const WCHAR encodeURIW[] = {'e','n','c','o','d','e','U','R','I',0};
72 static const WCHAR decodeURIW[] = {'d','e','c','o','d','e','U','R','I',0};
73 static const WCHAR encodeURIComponentW[] = {'e','n','c','o','d','e','U','R','I','C','o','m','p','o','n','e','n','t',0};
74 static const WCHAR decodeURIComponentW[] = {'d','e','c','o','d','e','U','R','I','C','o','m','p','o','n','e','n','t',0};
75
76 static const WCHAR undefinedW[] = {'u','n','d','e','f','i','n','e','d',0};
77
78 static int uri_char_table[] = {
79 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 00-0f */
80 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 10-1f */
81 0,2,0,0,1,0,1,2,2,2,2,1,1,2,2,1, /* 20-2f */
82 2,2,2,2,2,2,2,2,2,2,1,1,0,1,0,1, /* 30-3f */
83 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* 40-4f */
84 2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,2, /* 50-5f */
85 0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* 60-6f */
86 2,2,2,2,2,2,2,2,2,2,2,0,0,0,2,0, /* 70-7f */
87 };
88
89 /* 1 - reserved */
90 /* 2 - unescaped */
91
92 static inline BOOL is_uri_reserved(WCHAR c)
93 {
94 return c < 128 && uri_char_table[c] == 1;
95 }
96
97 static inline BOOL is_uri_unescaped(WCHAR c)
98 {
99 return c < 128 && uri_char_table[c] == 2;
100 }
101
102 static WCHAR int_to_char(int i)
103 {
104 if(i < 10)
105 return '0'+i;
106 return 'A'+i-10;
107 }
108
109 static HRESULT constructor_call(jsdisp_t *constr, WORD flags, DISPPARAMS *dp,
110 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
111 {
112 if(flags != DISPATCH_PROPERTYGET)
113 return jsdisp_call_value(constr, flags, dp, retv, ei, sp);
114
115 jsdisp_addref(constr);
116 var_set_jsdisp(retv, constr);
117 return S_OK;
118 }
119
120 static HRESULT JSGlobal_Array(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
121 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
122 {
123 TRACE("\n");
124
125 return constructor_call(ctx->array_constr, flags, dp, retv, ei, sp);
126 }
127
128 static HRESULT JSGlobal_Boolean(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
129 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
130 {
131 TRACE("\n");
132
133 return constructor_call(ctx->bool_constr, flags, dp, retv, ei, sp);
134 }
135
136 static HRESULT JSGlobal_Date(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
137 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
138 {
139 TRACE("\n");
140
141 return constructor_call(ctx->date_constr, flags, dp, retv, ei, sp);
142 }
143
144 static HRESULT JSGlobal_Error(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
145 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
146 {
147 TRACE("\n");
148
149 return constructor_call(ctx->error_constr, flags, dp, retv, ei, sp);
150 }
151
152 static HRESULT JSGlobal_EvalError(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
153 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
154 {
155 TRACE("\n");
156
157 return constructor_call(ctx->eval_error_constr, flags, dp, retv, ei, sp);
158 }
159
160 static HRESULT JSGlobal_RangeError(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
161 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
162 {
163 TRACE("\n");
164
165 return constructor_call(ctx->range_error_constr, flags, dp, retv, ei, sp);
166 }
167
168 static HRESULT JSGlobal_ReferenceError(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
169 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
170 {
171 TRACE("\n");
172
173 return constructor_call(ctx->reference_error_constr, flags, dp, retv, ei, sp);
174 }
175
176 static HRESULT JSGlobal_SyntaxError(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
177 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
178 {
179 TRACE("\n");
180
181 return constructor_call(ctx->syntax_error_constr, flags, dp, retv, ei, sp);
182 }
183
184 static HRESULT JSGlobal_TypeError(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
185 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
186 {
187 TRACE("\n");
188
189 return constructor_call(ctx->type_error_constr, flags, dp, retv, ei, sp);
190 }
191
192 static HRESULT JSGlobal_URIError(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
193 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
194 {
195 TRACE("\n");
196
197 return constructor_call(ctx->uri_error_constr, flags, dp, retv, ei, sp);
198 }
199
200 static HRESULT JSGlobal_Function(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
201 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
202 {
203 TRACE("\n");
204
205 return constructor_call(ctx->function_constr, flags, dp, retv, ei, sp);
206 }
207
208 static HRESULT JSGlobal_Number(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
209 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
210 {
211 TRACE("\n");
212
213 return constructor_call(ctx->number_constr, flags, dp, retv, ei, sp);
214 }
215
216 static HRESULT JSGlobal_Object(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
217 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
218 {
219 TRACE("\n");
220
221 return constructor_call(ctx->object_constr, flags, dp, retv, ei, sp);
222 }
223
224 static HRESULT JSGlobal_String(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
225 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
226 {
227 TRACE("\n");
228
229 return constructor_call(ctx->string_constr, flags, dp, retv, ei, sp);
230 }
231
232 static HRESULT JSGlobal_RegExp(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
233 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
234 {
235 TRACE("\n");
236
237 return constructor_call(ctx->regexp_constr, flags, dp, retv, ei, sp);
238 }
239
240 static HRESULT JSGlobal_ActiveXObject(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
241 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
242 {
243 TRACE("\n");
244
245 return constructor_call(ctx->activex_constr, flags, dp, retv, ei, sp);
246 }
247
248 static HRESULT JSGlobal_VBArray(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
249 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
250 {
251 FIXME("\n");
252 return E_NOTIMPL;
253 }
254
255 static HRESULT JSGlobal_Enumerator(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
256 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
257 {
258 FIXME("\n");
259 return E_NOTIMPL;
260 }
261
262 static HRESULT JSGlobal_escape(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
263 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
264 {
265 BSTR ret, str;
266 const WCHAR *ptr;
267 DWORD len = 0;
268 HRESULT hres;
269
270 TRACE("\n");
271
272 if(!arg_cnt(dp)) {
273 if(retv) {
274 ret = SysAllocString(undefinedW);
275 if(!ret)
276 return E_OUTOFMEMORY;
277
278 V_VT(retv) = VT_BSTR;
279 V_BSTR(retv) = ret;
280 }
281
282 return S_OK;
283 }
284
285 hres = to_string(ctx, get_arg(dp, 0), ei, &str);
286 if(FAILED(hres))
287 return hres;
288
289 for(ptr=str; *ptr; ptr++) {
290 if(*ptr > 0xff)
291 len += 6;
292 else if(isalnum((char)*ptr) || *ptr=='*' || *ptr=='@' || *ptr=='-'
293 || *ptr=='_' || *ptr=='+' || *ptr=='.' || *ptr=='/')
294 len++;
295 else
296 len += 3;
297 }
298
299 ret = SysAllocStringLen(NULL, len);
300 if(!ret) {
301 SysFreeString(str);
302 return E_OUTOFMEMORY;
303 }
304
305 len = 0;
306 for(ptr=str; *ptr; ptr++) {
307 if(*ptr > 0xff) {
308 ret[len++] = '%';
309 ret[len++] = 'u';
310 ret[len++] = int_to_char(*ptr >> 12);
311 ret[len++] = int_to_char((*ptr >> 8) & 0xf);
312 ret[len++] = int_to_char((*ptr >> 4) & 0xf);
313 ret[len++] = int_to_char(*ptr & 0xf);
314 }
315 else if(isalnum((char)*ptr) || *ptr=='*' || *ptr=='@' || *ptr=='-'
316 || *ptr=='_' || *ptr=='+' || *ptr=='.' || *ptr=='/')
317 ret[len++] = *ptr;
318 else {
319 ret[len++] = '%';
320 ret[len++] = int_to_char(*ptr >> 4);
321 ret[len++] = int_to_char(*ptr & 0xf);
322 }
323 }
324
325 SysFreeString(str);
326
327 if(retv) {
328 V_VT(retv) = VT_BSTR;
329 V_BSTR(retv) = ret;
330 }
331 else
332 SysFreeString(ret);
333
334 return S_OK;
335 }
336
337 /* ECMA-262 3rd Edition 15.1.2.1 */
338 static HRESULT JSGlobal_eval(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
339 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
340 {
341 parser_ctx_t *parser_ctx;
342 VARIANT *arg;
343 HRESULT hres;
344
345 TRACE("\n");
346
347 if(!arg_cnt(dp)) {
348 if(retv)
349 V_VT(retv) = VT_EMPTY;
350 return S_OK;
351 }
352
353 arg = get_arg(dp, 0);
354 if(V_VT(arg) != VT_BSTR) {
355 if(retv) {
356 V_VT(retv) = VT_EMPTY;
357 return VariantCopy(retv, arg);
358 }
359 return S_OK;
360 }
361
362 if(!ctx->exec_ctx) {
363 FIXME("No active exec_ctx\n");
364 return E_UNEXPECTED;
365 }
366
367 TRACE("parsing %s\n", debugstr_w(V_BSTR(arg)));
368 hres = script_parse(ctx, V_BSTR(arg), NULL, &parser_ctx);
369 if(FAILED(hres)) {
370 WARN("parse (%s) failed: %08x\n", debugstr_w(V_BSTR(arg)), hres);
371 return throw_syntax_error(ctx, ei, hres, NULL);
372 }
373
374 hres = exec_source(ctx->exec_ctx, parser_ctx, parser_ctx->source, TRUE, ei, retv);
375 parser_release(parser_ctx);
376
377 return hres;
378 }
379
380 static HRESULT JSGlobal_isNaN(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
381 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
382 {
383 VARIANT_BOOL ret = VARIANT_FALSE;
384 VARIANT num;
385 HRESULT hres;
386
387 TRACE("\n");
388
389 if(arg_cnt(dp)) {
390 hres = to_number(ctx, get_arg(dp,0), ei, &num);
391 if(FAILED(hres))
392 return hres;
393
394 if(V_VT(&num) == VT_R8 && isnan(V_R8(&num)))
395 ret = VARIANT_TRUE;
396 }else {
397 ret = VARIANT_TRUE;
398 }
399
400 if(retv) {
401 V_VT(retv) = VT_BOOL;
402 V_BOOL(retv) = ret;
403 }
404 return S_OK;
405 }
406
407 static HRESULT JSGlobal_isFinite(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
408 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
409 {
410 VARIANT_BOOL ret = VARIANT_FALSE;
411 HRESULT hres;
412
413 TRACE("\n");
414
415 if(arg_cnt(dp)) {
416 VARIANT num;
417
418 hres = to_number(ctx, get_arg(dp,0), ei, &num);
419 if(FAILED(hres))
420 return hres;
421
422 if(V_VT(&num) != VT_R8 || (!isinf(V_R8(&num)) && !isnan(V_R8(&num))))
423 ret = VARIANT_TRUE;
424 }
425
426 if(retv) {
427 V_VT(retv) = VT_BOOL;
428 V_BOOL(retv) = ret;
429 }
430 return S_OK;
431 }
432
433 static INT char_to_int(WCHAR c)
434 {
435 if('0' <= c && c <= '9')
436 return c - '0';
437 if('a' <= c && c <= 'z')
438 return c - 'a' + 10;
439 if('A' <= c && c <= 'Z')
440 return c - 'A' + 10;
441 return 100;
442 }
443
444 static HRESULT JSGlobal_parseInt(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
445 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
446 {
447 DOUBLE ret = 0.0;
448 INT radix=10, i;
449 WCHAR *ptr;
450 BOOL neg = FALSE;
451 BSTR str;
452 HRESULT hres;
453
454 if(!arg_cnt(dp)) {
455 if(retv) num_set_nan(retv);
456 return S_OK;
457 }
458
459 if(arg_cnt(dp) >= 2) {
460 hres = to_int32(ctx, get_arg(dp, 1), ei, &radix);
461 if(FAILED(hres))
462 return hres;
463
464 if(!radix) {
465 radix = 10;
466 }else if(radix < 2 || radix > 36) {
467 WARN("radix %d out of range\n", radix);
468 return E_FAIL;
469 }
470 }
471
472 hres = to_string(ctx, get_arg(dp, 0), ei, &str);
473 if(FAILED(hres))
474 return hres;
475
476 for(ptr = str; isspaceW(*ptr); ptr++);
477
478 switch(*ptr) {
479 case '+':
480 ptr++;
481 break;
482 case '-':
483 neg = TRUE;
484 ptr++;
485 break;
486 case '0':
487 ptr++;
488 if(*ptr == 'x' || *ptr == 'X') {
489 radix = 16;
490 ptr++;
491 }
492 }
493
494 while(*ptr) {
495 i = char_to_int(*ptr++);
496 if(i > radix)
497 break;
498
499 ret = ret*radix + i;
500 }
501
502 SysFreeString(str);
503
504 if(neg)
505 ret = -ret;
506
507 if(retv)
508 num_set_val(retv, ret);
509 return S_OK;
510 }
511
512 static HRESULT JSGlobal_parseFloat(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
513 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
514 {
515 LONGLONG d = 0, hlp;
516 int exp = 0;
517 VARIANT *arg;
518 WCHAR *str;
519 BSTR val_str = NULL;
520 BOOL ret_nan = TRUE, positive = TRUE;
521 HRESULT hres;
522
523 if(!arg_cnt(dp)) {
524 if(retv)
525 num_set_nan(retv);
526 return S_OK;
527 }
528
529 arg = get_arg(dp, 0);
530 hres = to_string(ctx, arg, ei, &val_str);
531 if(FAILED(hres))
532 return hres;
533
534 str = val_str;
535
536 while(isspaceW(*str)) str++;
537
538 if(*str == '+')
539 str++;
540 else if(*str == '-') {
541 positive = FALSE;
542 str++;
543 }
544
545 if(isdigitW(*str))
546 ret_nan = FALSE;
547
548 while(isdigitW(*str)) {
549 hlp = d*10 + *(str++) - '0';
550 if(d>LONGLONG_MAX/10 || hlp<0) {
551 exp++;
552 break;
553 }
554 else
555 d = hlp;
556 }
557 while(isdigitW(*str)) {
558 exp++;
559 str++;
560 }
561
562 if(*str == '.') str++;
563
564 if(isdigitW(*str))
565 ret_nan = FALSE;
566
567 while(isdigitW(*str)) {
568 hlp = d*10 + *(str++) - '0';
569 if(d>LONGLONG_MAX/10 || hlp<0)
570 break;
571
572 d = hlp;
573 exp--;
574 }
575 while(isdigitW(*str))
576 str++;
577
578 if(*str && !ret_nan && (*str=='e' || *str=='E')) {
579 int sign = 1, e = 0;
580
581 str++;
582 if(*str == '+')
583 str++;
584 else if(*str == '-') {
585 sign = -1;
586 str++;
587 }
588
589 while(isdigitW(*str)) {
590 if(e>INT_MAX/10 || (e = e*10 + *str++ - '0')<0)
591 e = INT_MAX;
592 }
593 e *= sign;
594
595 if(exp<0 && e<0 && exp+e>0) exp = INT_MIN;
596 else if(exp>0 && e>0 && exp+e<0) exp = INT_MAX;
597 else exp += e;
598 }
599
600 SysFreeString(val_str);
601
602 if(ret_nan) {
603 if(retv)
604 num_set_nan(retv);
605 return S_OK;
606 }
607
608 V_VT(retv) = VT_R8;
609 V_R8(retv) = (double)(positive?d:-d)*pow(10, exp);
610 return S_OK;
611 }
612
613 static inline int hex_to_int(const WCHAR wch) {
614 if(toupperW(wch)>='A' && toupperW(wch)<='F') return toupperW(wch)-'A'+10;
615 if(isdigitW(wch)) return wch-'0';
616 return -1;
617 }
618
619 static HRESULT JSGlobal_unescape(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
620 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
621 {
622 BSTR ret, str;
623 const WCHAR *ptr;
624 DWORD len = 0;
625 HRESULT hres;
626
627 TRACE("\n");
628
629 if(!arg_cnt(dp)) {
630 if(retv) {
631 ret = SysAllocString(undefinedW);
632 if(!ret)
633 return E_OUTOFMEMORY;
634
635 V_VT(retv) = VT_BSTR;
636 V_BSTR(retv) = ret;
637 }
638
639 return S_OK;
640 }
641
642 hres = to_string(ctx, get_arg(dp, 0), ei, &str);
643 if(FAILED(hres))
644 return hres;
645
646 for(ptr=str; *ptr; ptr++) {
647 if(*ptr == '%') {
648 if(hex_to_int(*(ptr+1))!=-1 && hex_to_int(*(ptr+2))!=-1)
649 ptr += 2;
650 else if(*(ptr+1)=='u' && hex_to_int(*(ptr+2))!=-1 && hex_to_int(*(ptr+3))!=-1
651 && hex_to_int(*(ptr+4))!=-1 && hex_to_int(*(ptr+5))!=-1)
652 ptr += 5;
653 }
654
655 len++;
656 }
657
658 ret = SysAllocStringLen(NULL, len);
659 if(!ret) {
660 SysFreeString(str);
661 return E_OUTOFMEMORY;
662 }
663
664 len = 0;
665 for(ptr=str; *ptr; ptr++) {
666 if(*ptr == '%') {
667 if(hex_to_int(*(ptr+1))!=-1 && hex_to_int(*(ptr+2))!=-1) {
668 ret[len] = (hex_to_int(*(ptr+1))<<4) + hex_to_int(*(ptr+2));
669 ptr += 2;
670 }
671 else if(*(ptr+1)=='u' && hex_to_int(*(ptr+2))!=-1 && hex_to_int(*(ptr+3))!=-1
672 && hex_to_int(*(ptr+4))!=-1 && hex_to_int(*(ptr+5))!=-1) {
673 ret[len] = (hex_to_int(*(ptr+2))<<12) + (hex_to_int(*(ptr+3))<<8)
674 + (hex_to_int(*(ptr+4))<<4) + hex_to_int(*(ptr+5));
675 ptr += 5;
676 }
677 else
678 ret[len] = *ptr;
679 }
680 else
681 ret[len] = *ptr;
682
683 len++;
684 }
685
686 SysFreeString(str);
687
688 if(retv) {
689 V_VT(retv) = VT_BSTR;
690 V_BSTR(retv) = ret;
691 }
692 else
693 SysFreeString(ret);
694
695 return S_OK;
696 }
697
698 static HRESULT JSGlobal_GetObject(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
699 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
700 {
701 FIXME("\n");
702 return E_NOTIMPL;
703 }
704
705 static HRESULT JSGlobal_ScriptEngine(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
706 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
707 {
708 FIXME("\n");
709 return E_NOTIMPL;
710 }
711
712 static HRESULT JSGlobal_ScriptEngineMajorVersion(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
713 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
714 {
715 FIXME("\n");
716 return E_NOTIMPL;
717 }
718
719 static HRESULT JSGlobal_ScriptEngineMinorVersion(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
720 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
721 {
722 FIXME("\n");
723 return E_NOTIMPL;
724 }
725
726 static HRESULT JSGlobal_ScriptEngineBuildVersion(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
727 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
728 {
729 FIXME("\n");
730 return E_NOTIMPL;
731 }
732
733 static HRESULT JSGlobal_CollectGarbage(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
734 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
735 {
736 FIXME("\n");
737 return E_NOTIMPL;
738 }
739
740 static HRESULT JSGlobal_encodeURI(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
741 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
742 {
743 const WCHAR *ptr;
744 DWORD len = 0, i;
745 char buf[4];
746 BSTR str, ret;
747 WCHAR *rptr;
748 HRESULT hres;
749
750 TRACE("\n");
751
752 if(!arg_cnt(dp)) {
753 if(retv) {
754 ret = SysAllocString(undefinedW);
755 if(!ret)
756 return E_OUTOFMEMORY;
757
758 V_VT(retv) = VT_BSTR;
759 V_BSTR(retv) = ret;
760 }
761
762 return S_OK;
763 }
764
765 hres = to_string(ctx, get_arg(dp,0), ei, &str);
766 if(FAILED(hres))
767 return hres;
768
769 for(ptr = str; *ptr; ptr++) {
770 if(is_uri_unescaped(*ptr) || is_uri_reserved(*ptr) || *ptr == '#') {
771 len++;
772 }else {
773 i = WideCharToMultiByte(CP_UTF8, 0, ptr, 1, NULL, 0, NULL, NULL)*3;
774 if(!i) {
775 SysFreeString(str);
776 return throw_uri_error(ctx, ei, IDS_URI_INVALID_CHAR, NULL);
777 }
778
779 len += i;
780 }
781 }
782
783 rptr = ret = SysAllocStringLen(NULL, len);
784 if(!ret) {
785 SysFreeString(str);
786 return E_OUTOFMEMORY;
787 }
788
789 for(ptr = str; *ptr; ptr++) {
790 if(is_uri_unescaped(*ptr) || is_uri_reserved(*ptr) || *ptr == '#') {
791 *rptr++ = *ptr;
792 }else {
793 len = WideCharToMultiByte(CP_UTF8, 0, ptr, 1, buf, sizeof(buf), NULL, NULL);
794 for(i=0; i<len; i++) {
795 *rptr++ = '%';
796 *rptr++ = int_to_char((BYTE)buf[i] >> 4);
797 *rptr++ = int_to_char(buf[i] & 0x0f);
798 }
799 }
800 }
801
802 SysFreeString(str);
803
804 TRACE("%s -> %s\n", debugstr_w(str), debugstr_w(ret));
805 if(retv) {
806 V_VT(retv) = VT_BSTR;
807 V_BSTR(retv) = ret;
808 }else {
809 SysFreeString(ret);
810 }
811 return S_OK;
812 }
813
814 static HRESULT JSGlobal_decodeURI(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
815 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
816 {
817 FIXME("\n");
818 return E_NOTIMPL;
819 }
820
821 static HRESULT JSGlobal_encodeURIComponent(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
822 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
823 {
824 BSTR str, ret;
825 char buf[4];
826 const WCHAR *ptr;
827 DWORD len = 0, size, i;
828 HRESULT hres;
829
830 TRACE("\n");
831
832 if(!arg_cnt(dp)) {
833 if(retv) {
834 ret = SysAllocString(undefinedW);
835 if(!ret)
836 return E_OUTOFMEMORY;
837
838 V_VT(retv) = VT_BSTR;
839 V_BSTR(retv) = ret;
840 }
841
842 return S_OK;
843 }
844
845 hres = to_string(ctx, get_arg(dp, 0), ei, &str);
846 if(FAILED(hres))
847 return hres;
848
849 for(ptr=str; *ptr; ptr++) {
850 if(is_uri_unescaped(*ptr))
851 len++;
852 else {
853 size = WideCharToMultiByte(CP_UTF8, 0, ptr, 1, NULL, 0, NULL, NULL);
854 if(!size) {
855 SysFreeString(str);
856 FIXME("throw Error\n");
857 return E_FAIL;
858 }
859 len += size*3;
860 }
861 }
862
863 ret = SysAllocStringLen(NULL, len);
864 if(!ret) {
865 SysFreeString(str);
866 return E_OUTOFMEMORY;
867 }
868
869 len = 0;
870 for(ptr=str; *ptr; ptr++) {
871 if(is_uri_unescaped(*ptr))
872 ret[len++] = *ptr;
873 else {
874 size = WideCharToMultiByte(CP_UTF8, 0, ptr, 1, buf, sizeof(buf), NULL, NULL);
875 for(i=0; i<size; i++) {
876 ret[len++] = '%';
877 ret[len++] = int_to_char((BYTE)buf[i] >> 4);
878 ret[len++] = int_to_char(buf[i] & 0x0f);
879 }
880 }
881 }
882
883 SysFreeString(str);
884
885 if(retv) {
886 V_VT(retv) = VT_BSTR;
887 V_BSTR(retv) = ret;
888 } else {
889 SysFreeString(ret);
890 }
891
892 return S_OK;
893 }
894
895 /* ECMA-262 3rd Edition 15.1.3.2 */
896 static HRESULT JSGlobal_decodeURIComponent(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
897 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
898 {
899 BSTR str, ret;
900 const WCHAR *ptr;
901 WCHAR *out_ptr;
902 DWORD len = 0;
903 HRESULT hres;
904
905 TRACE("\n");
906
907 if(!arg_cnt(dp)) {
908 if(retv) {
909 ret = SysAllocString(undefinedW);
910 if(!ret)
911 return E_OUTOFMEMORY;
912
913 V_VT(retv) = VT_BSTR;
914 V_BSTR(retv) = ret;
915 }
916
917 return S_OK;
918 }
919
920 hres = to_string(ctx, get_arg(dp, 0), ei, &str);
921 if(FAILED(hres))
922 return hres;
923
924 ptr = str;
925 while(*ptr) {
926 if(*ptr == '%') {
927 char octets[4];
928 unsigned char mask = 0x80;
929 int i, size, num_bytes = 0;
930 if(hex_to_int(*(ptr+1)) < 0 || hex_to_int(*(ptr+2)) < 0) {
931 FIXME("Throw URIError: Invalid hex sequence\n");
932 SysFreeString(str);
933 return E_FAIL;
934 }
935 octets[0] = (hex_to_int(*(ptr+1)) << 4) + hex_to_int(*(ptr+2));
936 ptr += 3;
937 while(octets[0] & mask) {
938 mask = mask >> 1;
939 ++num_bytes;
940 }
941 if(num_bytes == 1 || num_bytes > 4) {
942 FIXME("Throw URIError: Invalid initial UTF character\n");
943 SysFreeString(str);
944 return E_FAIL;
945 }
946 for(i = 1; i < num_bytes; ++i) {
947 if(*ptr != '%'){
948 FIXME("Throw URIError: Incomplete UTF sequence\n");
949 SysFreeString(str);
950 return E_FAIL;
951 }
952 if(hex_to_int(*(ptr+1)) < 0 || hex_to_int(*(ptr+2)) < 0) {
953 FIXME("Throw URIError: Invalid hex sequence\n");
954 SysFreeString(str);
955 return E_FAIL;
956 }
957 octets[i] = (hex_to_int(*(ptr+1)) << 4) + hex_to_int(*(ptr+2));
958 ptr += 3;
959 }
960 size = MultiByteToWideChar(CP_UTF8, MB_ERR_INVALID_CHARS, octets,
961 num_bytes ? num_bytes : 1, NULL, 0);
962 if(size == 0) {
963 FIXME("Throw URIError: Invalid UTF sequence\n");
964 SysFreeString(str);
965 return E_FAIL;
966 }
967 len += size;
968 }else {
969 ++ptr;
970 ++len;
971 }
972 }
973
974 out_ptr = ret = SysAllocStringLen(NULL, len);
975 if(!ret) {
976 SysFreeString(str);
977 return E_OUTOFMEMORY;
978 }
979
980 ptr = str;
981 while(*ptr) {
982 if(*ptr == '%') {
983 char octets[4];
984 unsigned char mask = 0x80;
985 int i, size, num_bytes = 0;
986 octets[0] = (hex_to_int(*(ptr+1)) << 4) + hex_to_int(*(ptr+2));
987 ptr += 3;
988 while(octets[0] & mask) {
989 mask = mask >> 1;
990 ++num_bytes;
991 }
992 for(i = 1; i < num_bytes; ++i) {
993 octets[i] = (hex_to_int(*(ptr+1)) << 4) + hex_to_int(*(ptr+2));
994 ptr += 3;
995 }
996 size = MultiByteToWideChar(CP_UTF8, MB_ERR_INVALID_CHARS, octets,
997 num_bytes ? num_bytes : 1, out_ptr, len);
998 len -= size;
999 out_ptr += size;
1000 }else {
1001 *out_ptr++ = *ptr++;
1002 --len;
1003 }
1004 }
1005
1006 SysFreeString(str);
1007
1008 if(retv) {
1009 V_VT(retv) = VT_BSTR;
1010 V_BSTR(retv) = ret;
1011 }else {
1012 SysFreeString(ret);
1013 }
1014
1015 return S_OK;
1016 }
1017
1018 static const builtin_prop_t JSGlobal_props[] = {
1019 {ActiveXObjectW, JSGlobal_ActiveXObject, PROPF_CONSTR|1},
1020 {ArrayW, JSGlobal_Array, PROPF_CONSTR|1},
1021 {BooleanW, JSGlobal_Boolean, PROPF_CONSTR|1},
1022 {CollectGarbageW, JSGlobal_CollectGarbage, PROPF_METHOD},
1023 {DateW, JSGlobal_Date, PROPF_CONSTR|7},
1024 {EnumeratorW, JSGlobal_Enumerator, PROPF_METHOD|7},
1025 {ErrorW, JSGlobal_Error, PROPF_CONSTR|1},
1026 {EvalErrorW, JSGlobal_EvalError, PROPF_CONSTR|1},
1027 {FunctionW, JSGlobal_Function, PROPF_CONSTR|1},
1028 {_GetObjectW, JSGlobal_GetObject, PROPF_METHOD|2},
1029 {NumberW, JSGlobal_Number, PROPF_CONSTR|1},
1030 {ObjectW, JSGlobal_Object, PROPF_CONSTR|1},
1031 {RangeErrorW, JSGlobal_RangeError, PROPF_CONSTR|1},
1032 {ReferenceErrorW, JSGlobal_ReferenceError, PROPF_CONSTR|1},
1033 {RegExpW, JSGlobal_RegExp, PROPF_CONSTR|2},
1034 {ScriptEngineW, JSGlobal_ScriptEngine, PROPF_METHOD},
1035 {ScriptEngineBuildVersionW, JSGlobal_ScriptEngineBuildVersion, PROPF_METHOD},
1036 {ScriptEngineMajorVersionW, JSGlobal_ScriptEngineMajorVersion, PROPF_METHOD},
1037 {ScriptEngineMinorVersionW, JSGlobal_ScriptEngineMinorVersion, PROPF_METHOD},
1038 {StringW, JSGlobal_String, PROPF_CONSTR|1},
1039 {SyntaxErrorW, JSGlobal_SyntaxError, PROPF_CONSTR|1},
1040 {TypeErrorW, JSGlobal_TypeError, PROPF_CONSTR|1},
1041 {URIErrorW, JSGlobal_URIError, PROPF_CONSTR|1},
1042 {VBArrayW, JSGlobal_VBArray, PROPF_METHOD|1},
1043 {decodeURIW, JSGlobal_decodeURI, PROPF_METHOD|1},
1044 {decodeURIComponentW, JSGlobal_decodeURIComponent, PROPF_METHOD|1},
1045 {encodeURIW, JSGlobal_encodeURI, PROPF_METHOD|1},
1046 {encodeURIComponentW, JSGlobal_encodeURIComponent, PROPF_METHOD|1},
1047 {escapeW, JSGlobal_escape, PROPF_METHOD|1},
1048 {evalW, JSGlobal_eval, PROPF_METHOD|1},
1049 {isFiniteW, JSGlobal_isFinite, PROPF_METHOD|1},
1050 {isNaNW, JSGlobal_isNaN, PROPF_METHOD|1},
1051 {parseFloatW, JSGlobal_parseFloat, PROPF_METHOD|1},
1052 {parseIntW, JSGlobal_parseInt, PROPF_METHOD|2},
1053 {unescapeW, JSGlobal_unescape, PROPF_METHOD|1}
1054 };
1055
1056 static const builtin_info_t JSGlobal_info = {
1057 JSCLASS_GLOBAL,
1058 {NULL, NULL, 0},
1059 sizeof(JSGlobal_props)/sizeof(*JSGlobal_props),
1060 JSGlobal_props,
1061 NULL,
1062 NULL
1063 };
1064
1065 static HRESULT init_constructors(script_ctx_t *ctx, jsdisp_t *object_prototype)
1066 {
1067 HRESULT hres;
1068
1069 hres = init_function_constr(ctx, object_prototype);
1070 if(FAILED(hres))
1071 return hres;
1072
1073 hres = create_object_constr(ctx, object_prototype, &ctx->object_constr);
1074 if(FAILED(hres))
1075 return hres;
1076
1077 hres = create_activex_constr(ctx, &ctx->activex_constr);
1078 if(FAILED(hres))
1079 return hres;
1080
1081 hres = create_array_constr(ctx, object_prototype, &ctx->array_constr);
1082 if(FAILED(hres))
1083 return hres;
1084
1085 hres = create_bool_constr(ctx, object_prototype, &ctx->bool_constr);
1086 if(FAILED(hres))
1087 return hres;
1088
1089 hres = create_date_constr(ctx, object_prototype, &ctx->date_constr);
1090 if(FAILED(hres))
1091 return hres;
1092
1093 hres = init_error_constr(ctx, object_prototype);
1094 if(FAILED(hres))
1095 return hres;
1096
1097 hres = create_number_constr(ctx, object_prototype, &ctx->number_constr);
1098 if(FAILED(hres))
1099 return hres;
1100
1101 hres = create_regexp_constr(ctx, object_prototype, &ctx->regexp_constr);
1102 if(FAILED(hres))
1103 return hres;
1104
1105 hres = create_string_constr(ctx, object_prototype, &ctx->string_constr);
1106 if(FAILED(hres))
1107 return hres;
1108
1109 return S_OK;
1110 }
1111
1112 HRESULT init_global(script_ctx_t *ctx)
1113 {
1114 jsdisp_t *math, *object_prototype;
1115 VARIANT var;
1116 HRESULT hres;
1117
1118 if(ctx->global)
1119 return S_OK;
1120
1121 hres = create_object_prototype(ctx, &object_prototype);
1122 if(FAILED(hres))
1123 return hres;
1124
1125 hres = init_constructors(ctx, object_prototype);
1126 jsdisp_release(object_prototype);
1127 if(FAILED(hres))
1128 return hres;
1129
1130 hres = create_dispex(ctx, &JSGlobal_info, NULL, &ctx->global);
1131 if(FAILED(hres))
1132 return hres;
1133
1134 hres = create_math(ctx, &math);
1135 if(FAILED(hres))
1136 return hres;
1137
1138 var_set_jsdisp(&var, math);
1139 hres = jsdisp_propput_name(ctx->global, MathW, &var, NULL/*FIXME*/, NULL/*FIXME*/);
1140 jsdisp_release(math);
1141 if(FAILED(hres))
1142 return hres;
1143
1144 V_VT(&var) = VT_EMPTY;
1145 hres = jsdisp_propput_name(ctx->global, undefinedW, &var, NULL/*FIXME*/, NULL/*FIXME*/);
1146 if(FAILED(hres))
1147 return hres;
1148
1149 num_set_nan(&var);
1150 hres = jsdisp_propput_name(ctx->global, NaNW, &var, NULL/*FIXME*/, NULL/*FIXME*/);
1151 if(FAILED(hres))
1152 return hres;
1153
1154 num_set_inf(&var, TRUE);
1155 hres = jsdisp_propput_name(ctx->global, InfinityW, &var, NULL/*FIXME*/, NULL/*FIXME*/);
1156 return hres;
1157 }
Windows API implementation