2 * Copyright 2008 Jacek Caban for CodeWeavers
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.
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.
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
22 static const WCHAR NaNW
[] = {'N','a','N',0};
23 static const WCHAR InfinityW
[] = {'I','n','f','i','n','i','t','y',0};
24 static const WCHAR ArrayW
[] = {'A','r','r','a','y',0};
25 static const WCHAR BooleanW
[] = {'B','o','o','l','e','a','n',0};
26 static const WCHAR DateW
[] = {'D','a','t','e',0};
27 static const WCHAR ErrorW
[] = {'E','r','r','o','r',0};
28 static const WCHAR EvalErrorW
[] = {'E','v','a','l','E','r','r','o','r',0};
29 static const WCHAR RangeErrorW
[] = {'R','a','n','g','e','E','r','r','o','r',0};
30 static const WCHAR ReferenceErrorW
[] = {'R','e','f','e','r','e','n','c','e','E','r','r','o','r',0};
31 static const WCHAR SyntaxErrorW
[] = {'S','y','n','t','a','x','E','r','r','o','r',0};
32 static const WCHAR TypeErrorW
[] = {'T','y','p','e','E','r','r','o','r',0};
33 static const WCHAR URIErrorW
[] = {'U','R','I','E','r','r','o','r',0};
34 static const WCHAR FunctionW
[] = {'F','u','n','c','t','i','o','n',0};
35 static const WCHAR NumberW
[] = {'N','u','m','b','e','r',0};
36 static const WCHAR ObjectW
[] = {'O','b','j','e','c','t',0};
37 static const WCHAR StringW
[] = {'S','t','r','i','n','g',0};
38 static const WCHAR RegExpW
[] = {'R','e','g','E','x','p',0};
39 static const WCHAR RegExpErrorW
[] = {'R','e','g','E','x','p','E','r','r','o','r',0};
40 static const WCHAR ActiveXObjectW
[] = {'A','c','t','i','v','e','X','O','b','j','e','c','t',0};
41 static const WCHAR VBArrayW
[] = {'V','B','A','r','r','a','y',0};
42 static const WCHAR EnumeratorW
[] = {'E','n','u','m','e','r','a','t','o','r',0};
43 static const WCHAR escapeW
[] = {'e','s','c','a','p','e',0};
44 static const WCHAR evalW
[] = {'e','v','a','l',0};
45 static const WCHAR isNaNW
[] = {'i','s','N','a','N',0};
46 static const WCHAR isFiniteW
[] = {'i','s','F','i','n','i','t','e',0};
47 static const WCHAR parseIntW
[] = {'p','a','r','s','e','I','n','t',0};
48 static const WCHAR parseFloatW
[] = {'p','a','r','s','e','F','l','o','a','t',0};
49 static const WCHAR unescapeW
[] = {'u','n','e','s','c','a','p','e',0};
50 static const WCHAR _GetObjectW
[] = {'G','e','t','O','b','j','e','c','t',0};
51 static const WCHAR ScriptEngineW
[] = {'S','c','r','i','p','t','E','n','g','i','n','e',0};
52 static const WCHAR ScriptEngineMajorVersionW
[] =
53 {'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};
54 static const WCHAR ScriptEngineMinorVersionW
[] =
55 {'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};
56 static const WCHAR ScriptEngineBuildVersionW
[] =
57 {'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};
58 static const WCHAR CollectGarbageW
[] = {'C','o','l','l','e','c','t','G','a','r','b','a','g','e',0};
59 static const WCHAR MathW
[] = {'M','a','t','h',0};
60 static const WCHAR encodeURIW
[] = {'e','n','c','o','d','e','U','R','I',0};
61 static const WCHAR decodeURIW
[] = {'d','e','c','o','d','e','U','R','I',0};
62 static const WCHAR encodeURIComponentW
[] = {'e','n','c','o','d','e','U','R','I','C','o','m','p','o','n','e','n','t',0};
63 static const WCHAR decodeURIComponentW
[] = {'d','e','c','o','d','e','U','R','I','C','o','m','p','o','n','e','n','t',0};
65 static const WCHAR undefinedW
[] = {'u','n','d','e','f','i','n','e','d',0};
67 static int uri_char_table
[] = {
68 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 00-0f */
69 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 10-1f */
70 0,2,0,0,1,0,1,2,2,2,2,1,1,2,2,1, /* 20-2f */
71 2,2,2,2,2,2,2,2,2,2,1,1,0,1,0,1, /* 30-3f */
72 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* 40-4f */
73 2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,2, /* 50-5f */
74 0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* 60-6f */
75 2,2,2,2,2,2,2,2,2,2,2,0,0,0,2,0, /* 70-7f */
81 static inline BOOL
is_uri_reserved(WCHAR c
)
83 return c
< 128 && uri_char_table
[c
] == 1;
86 static inline BOOL
is_uri_unescaped(WCHAR c
)
88 return c
< 128 && uri_char_table
[c
] == 2;
91 /* Check that the character is one of the 69 non-blank characters as defined by ECMA-262 B.2.1 */
92 static inline BOOL
is_ecma_nonblank(const WCHAR c
)
94 return ((c
>= 'A' && c
<= 'Z') || (c
>= 'a' && c
<= 'z') || (c
>= '0' && c
<= '9') ||
95 c
== '@' || c
== '*' || c
== '_' || c
== '+' || c
== '-' || c
== '.' || c
== '/');
98 static WCHAR
int_to_char(int i
)
105 static HRESULT
constructor_call(jsdisp_t
*constr
, WORD flags
, unsigned argc
, jsval_t
*argv
, jsval_t
*r
)
107 if(flags
!= DISPATCH_PROPERTYGET
)
108 return jsdisp_call_value(constr
, NULL
, flags
, argc
, argv
, r
);
110 *r
= jsval_obj(jsdisp_addref(constr
));
114 static HRESULT
JSGlobal_Array(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
119 return constructor_call(ctx
->array_constr
, flags
, argc
, argv
, r
);
122 static HRESULT
JSGlobal_Boolean(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
127 return constructor_call(ctx
->bool_constr
, flags
, argc
, argv
, r
);
130 static HRESULT
JSGlobal_Date(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
135 return constructor_call(ctx
->date_constr
, flags
, argc
, argv
, r
);
138 static HRESULT
JSGlobal_Error(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
143 return constructor_call(ctx
->error_constr
, flags
, argc
, argv
, r
);
146 static HRESULT
JSGlobal_EvalError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
151 return constructor_call(ctx
->eval_error_constr
, flags
, argc
, argv
, r
);
154 static HRESULT
JSGlobal_RangeError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
159 return constructor_call(ctx
->range_error_constr
, flags
, argc
, argv
, r
);
162 static HRESULT
JSGlobal_RegExpError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
167 return constructor_call(ctx
->regexp_error_constr
, flags
, argc
, argv
, r
);
170 static HRESULT
JSGlobal_ReferenceError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
175 return constructor_call(ctx
->reference_error_constr
, flags
, argc
, argv
, r
);
178 static HRESULT
JSGlobal_SyntaxError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
183 return constructor_call(ctx
->syntax_error_constr
, flags
, argc
, argv
, r
);
186 static HRESULT
JSGlobal_TypeError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
191 return constructor_call(ctx
->type_error_constr
, flags
, argc
, argv
, r
);
194 static HRESULT
JSGlobal_URIError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
199 return constructor_call(ctx
->uri_error_constr
, flags
, argc
, argv
, r
);
202 static HRESULT
JSGlobal_Function(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
207 return constructor_call(ctx
->function_constr
, flags
, argc
, argv
, r
);
210 static HRESULT
JSGlobal_Number(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
215 return constructor_call(ctx
->number_constr
, flags
, argc
, argv
, r
);
218 static HRESULT
JSGlobal_Object(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
223 return constructor_call(ctx
->object_constr
, flags
, argc
, argv
, r
);
226 static HRESULT
JSGlobal_String(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
231 return constructor_call(ctx
->string_constr
, flags
, argc
, argv
, r
);
234 static HRESULT
JSGlobal_RegExp(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
239 return constructor_call(ctx
->regexp_constr
, flags
, argc
, argv
, r
);
242 static HRESULT
JSGlobal_ActiveXObject(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
247 return constructor_call(ctx
->activex_constr
, flags
, argc
, argv
, r
);
250 static HRESULT
JSGlobal_VBArray(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
255 return constructor_call(ctx
->vbarray_constr
, flags
, argc
, argv
, r
);
258 static HRESULT
JSGlobal_Enumerator(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
265 static HRESULT
JSGlobal_escape(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
268 jsstr_t
*ret_str
, *str
;
269 const WCHAR
*ptr
, *buf
;
278 *r
= jsval_string(jsstr_undefined());
282 hres
= to_flat_string(ctx
, argv
[0], &str
, &buf
);
286 for(ptr
= buf
; *ptr
; ptr
++) {
289 else if(is_ecma_nonblank(*ptr
))
295 ret
= jsstr_alloc_buf(len
, &ret_str
);
298 return E_OUTOFMEMORY
;
302 for(ptr
= buf
; *ptr
; ptr
++) {
306 ret
[len
++] = int_to_char(*ptr
>> 12);
307 ret
[len
++] = int_to_char((*ptr
>> 8) & 0xf);
308 ret
[len
++] = int_to_char((*ptr
>> 4) & 0xf);
309 ret
[len
++] = int_to_char(*ptr
& 0xf);
311 else if(is_ecma_nonblank(*ptr
))
315 ret
[len
++] = int_to_char(*ptr
>> 4);
316 ret
[len
++] = int_to_char(*ptr
& 0xf);
323 *r
= jsval_string(ret_str
);
325 jsstr_release(ret_str
);
329 /* ECMA-262 3rd Edition 15.1.2.1 */
330 static HRESULT
JSGlobal_eval(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
341 *r
= jsval_undefined();
345 if(!is_string(argv
[0])) {
347 return jsval_copy(argv
[0], r
);
352 FIXME("No active exec_ctx\n");
356 src
= jsstr_flatten(get_string(argv
[0]));
358 return E_OUTOFMEMORY
;
360 TRACE("parsing %s\n", debugstr_jsval(argv
[0]));
361 hres
= compile_script(ctx
, src
, NULL
, NULL
, TRUE
, FALSE
, &code
);
363 WARN("parse (%s) failed: %08x\n", debugstr_jsval(argv
[0]), hres
);
364 return throw_syntax_error(ctx
, hres
, NULL
);
367 hres
= exec_source(ctx
->exec_ctx
, code
, &code
->global_code
, TRUE
, r
);
368 release_bytecode(code
);
372 static HRESULT
JSGlobal_isNaN(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
382 hres
= to_number(ctx
, argv
[0], &n
);
391 *r
= jsval_bool(ret
);
395 static HRESULT
JSGlobal_isFinite(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
406 hres
= to_number(ctx
, argv
[0], &n
);
410 if(!isinf(n
) && !isnan(n
))
415 *r
= jsval_bool(ret
);
419 static INT
char_to_int(WCHAR c
)
421 if('0' <= c
&& c
<= '9')
423 if('a' <= c
&& c
<= 'z')
425 if('A' <= c
&& c
<= 'Z')
430 static HRESULT
JSGlobal_parseInt(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
433 BOOL neg
= FALSE
, empty
= TRUE
;
442 *r
= jsval_number(NAN
);
447 hres
= to_int32(ctx
, argv
[1], &radix
);
451 if(radix
&& (radix
< 2 || radix
> 36)) {
452 WARN("radix %d out of range\n", radix
);
454 *r
= jsval_number(NAN
);
459 hres
= to_flat_string(ctx
, argv
[0], &str
, &ptr
);
463 while(isspaceW(*ptr
))
478 if(ptr
[1] == 'x' || ptr
[1] == 'X') {
491 i
= char_to_int(*ptr
++);
495 i
= char_to_int(*ptr
++);
507 *r
= jsval_number(ret
);
511 static HRESULT
JSGlobal_parseFloat(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
518 BOOL ret_nan
= TRUE
, positive
= TRUE
;
523 *r
= jsval_number(NAN
);
527 hres
= to_flat_string(ctx
, argv
[0], &val_str
, &str
);
531 while(isspaceW(*str
)) str
++;
535 else if(*str
== '-') {
543 while(isdigitW(*str
)) {
544 hlp
= d
*10 + *(str
++) - '0';
545 if(d
>MAXLONGLONG
/10 || hlp
<0) {
552 while(isdigitW(*str
)) {
557 if(*str
== '.') str
++;
562 while(isdigitW(*str
)) {
563 hlp
= d
*10 + *(str
++) - '0';
564 if(d
>MAXLONGLONG
/10 || hlp
<0)
570 while(isdigitW(*str
))
573 if(*str
&& !ret_nan
&& (*str
=='e' || *str
=='E')) {
579 else if(*str
== '-') {
584 while(isdigitW(*str
)) {
585 if(e
>INT_MAX
/10 || (e
= e
*10 + *str
++ - '0')<0)
590 if(exp
<0 && e
<0 && exp
+e
>0) exp
= INT_MIN
;
591 else if(exp
>0 && e
>0 && exp
+e
<0) exp
= INT_MAX
;
595 jsstr_release(val_str
);
599 *r
= jsval_number(NAN
);
606 *r
= jsval_number(exp
>0 ? d
*pow(10, exp
) : d
/pow(10, -exp
));
610 static inline int hex_to_int(const WCHAR wch
) {
611 if(toupperW(wch
)>='A' && toupperW(wch
)<='F') return toupperW(wch
)-'A'+10;
612 if(isdigitW(wch
)) return wch
-'0';
616 static HRESULT
JSGlobal_unescape(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
619 jsstr_t
*ret_str
, *str
;
620 const WCHAR
*ptr
, *buf
;
629 *r
= jsval_string(jsstr_undefined());
633 hres
= to_flat_string(ctx
, argv
[0], &str
, &buf
);
637 for(ptr
= buf
; *ptr
; ptr
++) {
639 if(hex_to_int(*(ptr
+1))!=-1 && hex_to_int(*(ptr
+2))!=-1)
641 else if(*(ptr
+1)=='u' && hex_to_int(*(ptr
+2))!=-1 && hex_to_int(*(ptr
+3))!=-1
642 && hex_to_int(*(ptr
+4))!=-1 && hex_to_int(*(ptr
+5))!=-1)
649 ret
= jsstr_alloc_buf(len
, &ret_str
);
652 return E_OUTOFMEMORY
;
656 for(ptr
= buf
; *ptr
; ptr
++) {
658 if(hex_to_int(*(ptr
+1))!=-1 && hex_to_int(*(ptr
+2))!=-1) {
659 ret
[len
] = (hex_to_int(*(ptr
+1))<<4) + hex_to_int(*(ptr
+2));
662 else if(*(ptr
+1)=='u' && hex_to_int(*(ptr
+2))!=-1 && hex_to_int(*(ptr
+3))!=-1
663 && hex_to_int(*(ptr
+4))!=-1 && hex_to_int(*(ptr
+5))!=-1) {
664 ret
[len
] = (hex_to_int(*(ptr
+2))<<12) + (hex_to_int(*(ptr
+3))<<8)
665 + (hex_to_int(*(ptr
+4))<<4) + hex_to_int(*(ptr
+5));
680 *r
= jsval_string(ret_str
);
682 jsstr_release(ret_str
);
686 static HRESULT
JSGlobal_GetObject(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
693 static HRESULT
JSGlobal_ScriptEngine(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
696 static const WCHAR JScriptW
[] = {'J','S','c','r','i','p','t',0};
703 ret
= jsstr_alloc(JScriptW
);
705 return E_OUTOFMEMORY
;
707 *r
= jsval_string(ret
);
713 static HRESULT
JSGlobal_ScriptEngineMajorVersion(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
719 *r
= jsval_number(JSCRIPT_MAJOR_VERSION
);
723 static HRESULT
JSGlobal_ScriptEngineMinorVersion(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
729 *r
= jsval_number(JSCRIPT_MINOR_VERSION
);
733 static HRESULT
JSGlobal_ScriptEngineBuildVersion(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
739 *r
= jsval_number(JSCRIPT_BUILD_VERSION
);
743 static HRESULT
JSGlobal_CollectGarbage(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
752 static HRESULT
JSGlobal_encodeURI(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
755 const WCHAR
*ptr
, *uri
;
766 *r
= jsval_string(jsstr_undefined());
770 hres
= to_flat_string(ctx
, argv
[0], &str
, &uri
);
774 for(ptr
= uri
; *ptr
; ptr
++) {
775 if(is_uri_unescaped(*ptr
) || is_uri_reserved(*ptr
) || *ptr
== '#') {
778 i
= WideCharToMultiByte(CP_UTF8
, 0, ptr
, 1, NULL
, 0, NULL
, NULL
)*3;
781 return throw_uri_error(ctx
, JS_E_INVALID_URI_CHAR
, NULL
);
788 rptr
= jsstr_alloc_buf(len
, &ret
);
791 return E_OUTOFMEMORY
;
794 for(ptr
= uri
; *ptr
; ptr
++) {
795 if(is_uri_unescaped(*ptr
) || is_uri_reserved(*ptr
) || *ptr
== '#') {
798 len
= WideCharToMultiByte(CP_UTF8
, 0, ptr
, 1, buf
, sizeof(buf
), NULL
, NULL
);
799 for(i
=0; i
<len
; i
++) {
801 *rptr
++ = int_to_char((BYTE
)buf
[i
] >> 4);
802 *rptr
++ = int_to_char(buf
[i
] & 0x0f);
807 TRACE("%s -> %s\n", debugstr_jsstr(str
), debugstr_jsstr(ret
));
811 *r
= jsval_string(ret
);
817 static HRESULT
JSGlobal_decodeURI(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
820 const WCHAR
*ptr
, *uri
;
821 jsstr_t
*str
, *ret_str
;
833 *r
= jsval_string(jsstr_undefined());
837 hres
= to_flat_string(ctx
, argv
[0], &str
, &uri
);
841 for(ptr
= uri
; *ptr
; ptr
++) {
847 if(ptr
[i
*3]!='%' || hex_to_int(ptr
[i
*3+1])==-1 || (val
=hex_to_int(ptr
[i
*3+2]))==-1)
849 val
+= hex_to_int(ptr
[i
*3+1])<<4;
852 res
= MultiByteToWideChar(CP_UTF8
, 0, buf
, i
+1, &out
, 1);
859 return throw_uri_error(ctx
, JS_E_INVALID_URI_CODING
, NULL
);
867 ret
= jsstr_alloc_buf(len
, &ret_str
);
870 return E_OUTOFMEMORY
;
873 for(ptr
= uri
; *ptr
; ptr
++) {
878 if(ptr
[i
*3]!='%' || hex_to_int(ptr
[i
*3+1])==-1 || (val
=hex_to_int(ptr
[i
*3+2]))==-1)
880 val
+= hex_to_int(ptr
[i
*3+1])<<4;
883 res
= MultiByteToWideChar(CP_UTF8
, 0, buf
, i
+1, ret
, 1);
893 TRACE("%s -> %s\n", debugstr_jsstr(str
), debugstr_jsstr(ret_str
));
897 *r
= jsval_string(ret_str
);
899 jsstr_release(ret_str
);
903 static HRESULT
JSGlobal_encodeURIComponent(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
906 jsstr_t
*str
, *ret_str
;
908 const WCHAR
*ptr
, *uri
;
909 DWORD len
= 0, size
, i
;
917 *r
= jsval_string(jsstr_undefined());
921 hres
= to_flat_string(ctx
, argv
[0], &str
, &uri
);
925 for(ptr
= uri
; *ptr
; ptr
++) {
926 if(is_uri_unescaped(*ptr
))
929 size
= WideCharToMultiByte(CP_UTF8
, 0, ptr
, 1, NULL
, 0, NULL
, NULL
);
932 return throw_uri_error(ctx
, JS_E_INVALID_URI_CHAR
, NULL
);
938 ret
= jsstr_alloc_buf(len
, &ret_str
);
941 return E_OUTOFMEMORY
;
944 for(ptr
= uri
; *ptr
; ptr
++) {
945 if(is_uri_unescaped(*ptr
)) {
948 size
= WideCharToMultiByte(CP_UTF8
, 0, ptr
, 1, buf
, sizeof(buf
), NULL
, NULL
);
949 for(i
=0; i
<size
; i
++) {
951 *ret
++ = int_to_char((BYTE
)buf
[i
] >> 4);
952 *ret
++ = int_to_char(buf
[i
] & 0x0f);
960 *r
= jsval_string(ret_str
);
962 jsstr_release(ret_str
);
966 /* ECMA-262 3rd Edition 15.1.3.2 */
967 static HRESULT
JSGlobal_decodeURIComponent(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
970 const WCHAR
*ptr
, *uri
;
980 *r
= jsval_string(jsstr_undefined());
984 hres
= to_flat_string(ctx
, argv
[0], &str
, &uri
);
992 unsigned char mask
= 0x80;
993 int i
, size
, num_bytes
= 0;
994 if(hex_to_int(*(ptr
+1)) < 0 || hex_to_int(*(ptr
+2)) < 0) {
995 FIXME("Throw URIError: Invalid hex sequence\n");
999 octets
[0] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
1001 while(octets
[0] & mask
) {
1005 if(num_bytes
== 1 || num_bytes
> 4) {
1006 FIXME("Throw URIError: Invalid initial UTF character\n");
1010 for(i
= 1; i
< num_bytes
; ++i
) {
1012 FIXME("Throw URIError: Incomplete UTF sequence\n");
1016 if(hex_to_int(*(ptr
+1)) < 0 || hex_to_int(*(ptr
+2)) < 0) {
1017 FIXME("Throw URIError: Invalid hex sequence\n");
1021 octets
[i
] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
1024 size
= MultiByteToWideChar(CP_UTF8
, MB_ERR_INVALID_CHARS
, octets
,
1025 num_bytes
? num_bytes
: 1, NULL
, 0);
1027 FIXME("Throw URIError: Invalid UTF sequence\n");
1038 out_ptr
= jsstr_alloc_buf(len
, &ret
);
1041 return E_OUTOFMEMORY
;
1048 unsigned char mask
= 0x80;
1049 int i
, size
, num_bytes
= 0;
1050 octets
[0] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
1052 while(octets
[0] & mask
) {
1056 for(i
= 1; i
< num_bytes
; ++i
) {
1057 octets
[i
] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
1060 size
= MultiByteToWideChar(CP_UTF8
, MB_ERR_INVALID_CHARS
, octets
,
1061 num_bytes
? num_bytes
: 1, out_ptr
, len
);
1065 *out_ptr
++ = *ptr
++;
1073 *r
= jsval_string(ret
);
1079 static const builtin_prop_t JSGlobal_props
[] = {
1080 {ActiveXObjectW
, JSGlobal_ActiveXObject
, PROPF_CONSTR
|1},
1081 {ArrayW
, JSGlobal_Array
, PROPF_CONSTR
|1},
1082 {BooleanW
, JSGlobal_Boolean
, PROPF_CONSTR
|1},
1083 {CollectGarbageW
, JSGlobal_CollectGarbage
, PROPF_METHOD
},
1084 {DateW
, JSGlobal_Date
, PROPF_CONSTR
|7},
1085 {EnumeratorW
, JSGlobal_Enumerator
, PROPF_METHOD
|7},
1086 {ErrorW
, JSGlobal_Error
, PROPF_CONSTR
|1},
1087 {EvalErrorW
, JSGlobal_EvalError
, PROPF_CONSTR
|1},
1088 {FunctionW
, JSGlobal_Function
, PROPF_CONSTR
|1},
1089 {_GetObjectW
, JSGlobal_GetObject
, PROPF_METHOD
|2},
1090 {NumberW
, JSGlobal_Number
, PROPF_CONSTR
|1},
1091 {ObjectW
, JSGlobal_Object
, PROPF_CONSTR
|1},
1092 {RangeErrorW
, JSGlobal_RangeError
, PROPF_CONSTR
|1},
1093 {ReferenceErrorW
, JSGlobal_ReferenceError
, PROPF_CONSTR
|1},
1094 {RegExpW
, JSGlobal_RegExp
, PROPF_CONSTR
|2},
1095 {RegExpErrorW
, JSGlobal_RegExpError
, PROPF_CONSTR
|1},
1096 {ScriptEngineW
, JSGlobal_ScriptEngine
, PROPF_METHOD
},
1097 {ScriptEngineBuildVersionW
, JSGlobal_ScriptEngineBuildVersion
, PROPF_METHOD
},
1098 {ScriptEngineMajorVersionW
, JSGlobal_ScriptEngineMajorVersion
, PROPF_METHOD
},
1099 {ScriptEngineMinorVersionW
, JSGlobal_ScriptEngineMinorVersion
, PROPF_METHOD
},
1100 {StringW
, JSGlobal_String
, PROPF_CONSTR
|1},
1101 {SyntaxErrorW
, JSGlobal_SyntaxError
, PROPF_CONSTR
|1},
1102 {TypeErrorW
, JSGlobal_TypeError
, PROPF_CONSTR
|1},
1103 {URIErrorW
, JSGlobal_URIError
, PROPF_CONSTR
|1},
1104 {VBArrayW
, JSGlobal_VBArray
, PROPF_CONSTR
|1},
1105 {decodeURIW
, JSGlobal_decodeURI
, PROPF_METHOD
|1},
1106 {decodeURIComponentW
, JSGlobal_decodeURIComponent
, PROPF_METHOD
|1},
1107 {encodeURIW
, JSGlobal_encodeURI
, PROPF_METHOD
|1},
1108 {encodeURIComponentW
, JSGlobal_encodeURIComponent
, PROPF_METHOD
|1},
1109 {escapeW
, JSGlobal_escape
, PROPF_METHOD
|1},
1110 {evalW
, JSGlobal_eval
, PROPF_METHOD
|1},
1111 {isFiniteW
, JSGlobal_isFinite
, PROPF_METHOD
|1},
1112 {isNaNW
, JSGlobal_isNaN
, PROPF_METHOD
|1},
1113 {parseFloatW
, JSGlobal_parseFloat
, PROPF_METHOD
|1},
1114 {parseIntW
, JSGlobal_parseInt
, PROPF_METHOD
|2},
1115 {unescapeW
, JSGlobal_unescape
, PROPF_METHOD
|1}
1118 static const builtin_info_t JSGlobal_info
= {
1121 sizeof(JSGlobal_props
)/sizeof(*JSGlobal_props
),
1127 static HRESULT
init_constructors(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
)
1131 hres
= init_function_constr(ctx
, object_prototype
);
1135 hres
= create_object_constr(ctx
, object_prototype
, &ctx
->object_constr
);
1139 hres
= create_activex_constr(ctx
, &ctx
->activex_constr
);
1143 hres
= create_array_constr(ctx
, object_prototype
, &ctx
->array_constr
);
1147 hres
= create_bool_constr(ctx
, object_prototype
, &ctx
->bool_constr
);
1151 hres
= create_date_constr(ctx
, object_prototype
, &ctx
->date_constr
);
1155 hres
= init_error_constr(ctx
, object_prototype
);
1159 hres
= create_number_constr(ctx
, object_prototype
, &ctx
->number_constr
);
1163 hres
= create_regexp_constr(ctx
, object_prototype
, &ctx
->regexp_constr
);
1167 hres
= create_string_constr(ctx
, object_prototype
, &ctx
->string_constr
);
1171 hres
= create_vbarray_constr(ctx
, object_prototype
, &ctx
->vbarray_constr
);
1178 HRESULT
init_global(script_ctx_t
*ctx
)
1180 jsdisp_t
*math
, *object_prototype
;
1186 hres
= create_object_prototype(ctx
, &object_prototype
);
1190 hres
= init_constructors(ctx
, object_prototype
);
1191 jsdisp_release(object_prototype
);
1195 hres
= create_dispex(ctx
, &JSGlobal_info
, NULL
, &ctx
->global
);
1199 hres
= create_math(ctx
, &math
);
1203 hres
= jsdisp_propput_dontenum(ctx
->global
, MathW
, jsval_obj(math
));
1204 jsdisp_release(math
);
1208 hres
= jsdisp_propput_dontenum(ctx
->global
, undefinedW
, jsval_undefined());
1212 hres
= jsdisp_propput_dontenum(ctx
->global
, NaNW
, jsval_number(NAN
));
1216 hres
= jsdisp_propput_dontenum(ctx
->global
, InfinityW
, jsval_number(INFINITY
));