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
20 #include "wine/port.h"
28 #include "wine/debug.h"
30 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
32 #define LONGLONG_MAX (((LONGLONG)0x7fffffff<<32)|0xffffffff)
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};
76 static const WCHAR undefinedW
[] = {'u','n','d','e','f','i','n','e','d',0};
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 */
92 static inline BOOL
is_uri_reserved(WCHAR c
)
94 return c
< 128 && uri_char_table
[c
] == 1;
97 static inline BOOL
is_uri_unescaped(WCHAR c
)
99 return c
< 128 && uri_char_table
[c
] == 2;
102 static WCHAR
int_to_char(int i
)
109 static HRESULT
constructor_call(jsdisp_t
*constr
, WORD flags
, DISPPARAMS
*dp
,
110 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
112 if(flags
!= DISPATCH_PROPERTYGET
)
113 return jsdisp_call_value(constr
, flags
, dp
, retv
, ei
, sp
);
115 jsdisp_addref(constr
);
116 var_set_jsdisp(retv
, constr
);
120 static HRESULT
JSGlobal_Array(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
121 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
125 return constructor_call(ctx
->array_constr
, flags
, dp
, retv
, ei
, sp
);
128 static HRESULT
JSGlobal_Boolean(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
129 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
133 return constructor_call(ctx
->bool_constr
, flags
, dp
, retv
, ei
, sp
);
136 static HRESULT
JSGlobal_Date(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
137 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
141 return constructor_call(ctx
->date_constr
, flags
, dp
, retv
, ei
, sp
);
144 static HRESULT
JSGlobal_Error(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
145 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
149 return constructor_call(ctx
->error_constr
, flags
, dp
, retv
, ei
, sp
);
152 static HRESULT
JSGlobal_EvalError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
153 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
157 return constructor_call(ctx
->eval_error_constr
, flags
, dp
, retv
, ei
, sp
);
160 static HRESULT
JSGlobal_RangeError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
161 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
165 return constructor_call(ctx
->range_error_constr
, flags
, dp
, retv
, ei
, sp
);
168 static HRESULT
JSGlobal_ReferenceError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
169 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
173 return constructor_call(ctx
->reference_error_constr
, flags
, dp
, retv
, ei
, sp
);
176 static HRESULT
JSGlobal_SyntaxError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
177 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
181 return constructor_call(ctx
->syntax_error_constr
, flags
, dp
, retv
, ei
, sp
);
184 static HRESULT
JSGlobal_TypeError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
185 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
189 return constructor_call(ctx
->type_error_constr
, flags
, dp
, retv
, ei
, sp
);
192 static HRESULT
JSGlobal_URIError(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
193 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
197 return constructor_call(ctx
->uri_error_constr
, flags
, dp
, retv
, ei
, sp
);
200 static HRESULT
JSGlobal_Function(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
201 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
205 return constructor_call(ctx
->function_constr
, flags
, dp
, retv
, ei
, sp
);
208 static HRESULT
JSGlobal_Number(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
209 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
213 return constructor_call(ctx
->number_constr
, flags
, dp
, retv
, ei
, sp
);
216 static HRESULT
JSGlobal_Object(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
217 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
221 return constructor_call(ctx
->object_constr
, flags
, dp
, retv
, ei
, sp
);
224 static HRESULT
JSGlobal_String(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
225 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
229 return constructor_call(ctx
->string_constr
, flags
, dp
, retv
, ei
, sp
);
232 static HRESULT
JSGlobal_RegExp(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
233 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
237 return constructor_call(ctx
->regexp_constr
, flags
, dp
, retv
, ei
, sp
);
240 static HRESULT
JSGlobal_ActiveXObject(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
241 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
245 return constructor_call(ctx
->activex_constr
, flags
, dp
, retv
, ei
, sp
);
248 static HRESULT
JSGlobal_VBArray(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
249 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
253 return constructor_call(ctx
->vbarray_constr
, flags
, dp
, retv
, ei
, sp
);
256 static HRESULT
JSGlobal_Enumerator(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
257 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
263 static HRESULT
JSGlobal_escape(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
264 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
275 ret
= SysAllocString(undefinedW
);
277 return E_OUTOFMEMORY
;
279 V_VT(retv
) = VT_BSTR
;
286 hres
= to_string(ctx
, get_arg(dp
, 0), ei
, &str
);
290 for(ptr
=str
; *ptr
; ptr
++) {
293 else if(isalnum((unsigned char)*ptr
) || *ptr
=='*' || *ptr
=='@' || *ptr
=='-'
294 || *ptr
=='_' || *ptr
=='+' || *ptr
=='.' || *ptr
=='/')
300 ret
= SysAllocStringLen(NULL
, len
);
303 return E_OUTOFMEMORY
;
307 for(ptr
=str
; *ptr
; ptr
++) {
311 ret
[len
++] = int_to_char(*ptr
>> 12);
312 ret
[len
++] = int_to_char((*ptr
>> 8) & 0xf);
313 ret
[len
++] = int_to_char((*ptr
>> 4) & 0xf);
314 ret
[len
++] = int_to_char(*ptr
& 0xf);
316 else if(isalnum((char)*ptr
) || *ptr
=='*' || *ptr
=='@' || *ptr
=='-'
317 || *ptr
=='_' || *ptr
=='+' || *ptr
=='.' || *ptr
=='/')
321 ret
[len
++] = int_to_char(*ptr
>> 4);
322 ret
[len
++] = int_to_char(*ptr
& 0xf);
329 V_VT(retv
) = VT_BSTR
;
338 /* ECMA-262 3rd Edition 15.1.2.1 */
339 static HRESULT
JSGlobal_eval(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
340 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
342 parser_ctx_t
*parser_ctx
;
350 V_VT(retv
) = VT_EMPTY
;
354 arg
= get_arg(dp
, 0);
355 if(V_VT(arg
) != VT_BSTR
) {
357 V_VT(retv
) = VT_EMPTY
;
358 return VariantCopy(retv
, arg
);
364 FIXME("No active exec_ctx\n");
368 TRACE("parsing %s\n", debugstr_w(V_BSTR(arg
)));
369 hres
= script_parse(ctx
, V_BSTR(arg
), NULL
, &parser_ctx
);
371 WARN("parse (%s) failed: %08x\n", debugstr_w(V_BSTR(arg
)), hres
);
372 return throw_syntax_error(ctx
, ei
, hres
, NULL
);
375 hres
= exec_source(ctx
->exec_ctx
, parser_ctx
, parser_ctx
->source
, TRUE
, ei
, retv
);
376 parser_release(parser_ctx
);
381 static HRESULT
JSGlobal_isNaN(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
382 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
384 VARIANT_BOOL ret
= VARIANT_FALSE
;
391 hres
= to_number(ctx
, get_arg(dp
,0), ei
, &num
);
395 if(V_VT(&num
) == VT_R8
&& isnan(V_R8(&num
)))
402 V_VT(retv
) = VT_BOOL
;
408 static HRESULT
JSGlobal_isFinite(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
409 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
411 VARIANT_BOOL ret
= VARIANT_FALSE
;
419 hres
= to_number(ctx
, get_arg(dp
,0), ei
, &num
);
423 if(V_VT(&num
) != VT_R8
|| (!isinf(V_R8(&num
)) && !isnan(V_R8(&num
))))
428 V_VT(retv
) = VT_BOOL
;
434 static INT
char_to_int(WCHAR c
)
436 if('0' <= c
&& c
<= '9')
438 if('a' <= c
&& c
<= 'z')
440 if('A' <= c
&& c
<= 'Z')
445 static HRESULT
JSGlobal_parseInt(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
446 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
456 if(retv
) num_set_nan(retv
);
460 if(arg_cnt(dp
) >= 2) {
461 hres
= to_int32(ctx
, get_arg(dp
, 1), ei
, &radix
);
467 }else if(radix
< 2 || radix
> 36) {
468 WARN("radix %d out of range\n", radix
);
473 hres
= to_string(ctx
, get_arg(dp
, 0), ei
, &str
);
477 for(ptr
= str
; isspaceW(*ptr
); ptr
++);
489 if(*ptr
== 'x' || *ptr
== 'X') {
496 i
= char_to_int(*ptr
++);
509 num_set_val(retv
, ret
);
513 static HRESULT
JSGlobal_parseFloat(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
514 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
521 BOOL ret_nan
= TRUE
, positive
= TRUE
;
530 arg
= get_arg(dp
, 0);
531 hres
= to_string(ctx
, arg
, ei
, &val_str
);
537 while(isspaceW(*str
)) str
++;
541 else if(*str
== '-') {
549 while(isdigitW(*str
)) {
550 hlp
= d
*10 + *(str
++) - '0';
551 if(d
>LONGLONG_MAX
/10 || hlp
<0) {
558 while(isdigitW(*str
)) {
563 if(*str
== '.') str
++;
568 while(isdigitW(*str
)) {
569 hlp
= d
*10 + *(str
++) - '0';
570 if(d
>LONGLONG_MAX
/10 || hlp
<0)
576 while(isdigitW(*str
))
579 if(*str
&& !ret_nan
&& (*str
=='e' || *str
=='E')) {
585 else if(*str
== '-') {
590 while(isdigitW(*str
)) {
591 if(e
>INT_MAX
/10 || (e
= e
*10 + *str
++ - '0')<0)
596 if(exp
<0 && e
<0 && exp
+e
>0) exp
= INT_MIN
;
597 else if(exp
>0 && e
>0 && exp
+e
<0) exp
= INT_MAX
;
601 SysFreeString(val_str
);
610 V_R8(retv
) = (double)(positive
?d
:-d
)*pow(10, exp
);
614 static inline int hex_to_int(const WCHAR wch
) {
615 if(toupperW(wch
)>='A' && toupperW(wch
)<='F') return toupperW(wch
)-'A'+10;
616 if(isdigitW(wch
)) return wch
-'0';
620 static HRESULT
JSGlobal_unescape(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
621 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
632 ret
= SysAllocString(undefinedW
);
634 return E_OUTOFMEMORY
;
636 V_VT(retv
) = VT_BSTR
;
643 hres
= to_string(ctx
, get_arg(dp
, 0), ei
, &str
);
647 for(ptr
=str
; *ptr
; ptr
++) {
649 if(hex_to_int(*(ptr
+1))!=-1 && hex_to_int(*(ptr
+2))!=-1)
651 else if(*(ptr
+1)=='u' && hex_to_int(*(ptr
+2))!=-1 && hex_to_int(*(ptr
+3))!=-1
652 && hex_to_int(*(ptr
+4))!=-1 && hex_to_int(*(ptr
+5))!=-1)
659 ret
= SysAllocStringLen(NULL
, len
);
662 return E_OUTOFMEMORY
;
666 for(ptr
=str
; *ptr
; ptr
++) {
668 if(hex_to_int(*(ptr
+1))!=-1 && hex_to_int(*(ptr
+2))!=-1) {
669 ret
[len
] = (hex_to_int(*(ptr
+1))<<4) + hex_to_int(*(ptr
+2));
672 else if(*(ptr
+1)=='u' && hex_to_int(*(ptr
+2))!=-1 && hex_to_int(*(ptr
+3))!=-1
673 && hex_to_int(*(ptr
+4))!=-1 && hex_to_int(*(ptr
+5))!=-1) {
674 ret
[len
] = (hex_to_int(*(ptr
+2))<<12) + (hex_to_int(*(ptr
+3))<<8)
675 + (hex_to_int(*(ptr
+4))<<4) + hex_to_int(*(ptr
+5));
690 V_VT(retv
) = VT_BSTR
;
699 static HRESULT
JSGlobal_GetObject(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
700 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
706 static HRESULT
JSGlobal_ScriptEngine(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
707 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
709 static const WCHAR JScriptW
[] = {'J','S','c','r','i','p','t',0};
716 ret
= SysAllocString(JScriptW
);
718 return E_OUTOFMEMORY
;
720 V_VT(retv
) = VT_BSTR
;
727 static HRESULT
JSGlobal_ScriptEngineMajorVersion(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
728 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
734 V_I4(retv
) = JSCRIPT_MAJOR_VERSION
;
739 static HRESULT
JSGlobal_ScriptEngineMinorVersion(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
740 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
746 V_I4(retv
) = JSCRIPT_MINOR_VERSION
;
751 static HRESULT
JSGlobal_ScriptEngineBuildVersion(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
752 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
758 V_I4(retv
) = JSCRIPT_BUILD_VERSION
;
763 static HRESULT
JSGlobal_CollectGarbage(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
764 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
770 static HRESULT
JSGlobal_encodeURI(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
771 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
784 ret
= SysAllocString(undefinedW
);
786 return E_OUTOFMEMORY
;
788 V_VT(retv
) = VT_BSTR
;
795 hres
= to_string(ctx
, get_arg(dp
,0), ei
, &str
);
799 for(ptr
= str
; *ptr
; ptr
++) {
800 if(is_uri_unescaped(*ptr
) || is_uri_reserved(*ptr
) || *ptr
== '#') {
803 i
= WideCharToMultiByte(CP_UTF8
, 0, ptr
, 1, NULL
, 0, NULL
, NULL
)*3;
806 return throw_uri_error(ctx
, ei
, JS_E_INVALID_URI_CHAR
, NULL
);
813 rptr
= ret
= SysAllocStringLen(NULL
, len
);
816 return E_OUTOFMEMORY
;
819 for(ptr
= str
; *ptr
; ptr
++) {
820 if(is_uri_unescaped(*ptr
) || is_uri_reserved(*ptr
) || *ptr
== '#') {
823 len
= WideCharToMultiByte(CP_UTF8
, 0, ptr
, 1, buf
, sizeof(buf
), NULL
, NULL
);
824 for(i
=0; i
<len
; i
++) {
826 *rptr
++ = int_to_char((BYTE
)buf
[i
] >> 4);
827 *rptr
++ = int_to_char(buf
[i
] & 0x0f);
834 TRACE("%s -> %s\n", debugstr_w(str
), debugstr_w(ret
));
836 V_VT(retv
) = VT_BSTR
;
844 static HRESULT
JSGlobal_decodeURI(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
845 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
851 static HRESULT
JSGlobal_encodeURIComponent(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
852 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
857 DWORD len
= 0, size
, i
;
864 ret
= SysAllocString(undefinedW
);
866 return E_OUTOFMEMORY
;
868 V_VT(retv
) = VT_BSTR
;
875 hres
= to_string(ctx
, get_arg(dp
, 0), ei
, &str
);
879 for(ptr
=str
; *ptr
; ptr
++) {
880 if(is_uri_unescaped(*ptr
))
883 size
= WideCharToMultiByte(CP_UTF8
, 0, ptr
, 1, NULL
, 0, NULL
, NULL
);
886 FIXME("throw Error\n");
893 ret
= SysAllocStringLen(NULL
, len
);
896 return E_OUTOFMEMORY
;
900 for(ptr
=str
; *ptr
; ptr
++) {
901 if(is_uri_unescaped(*ptr
))
904 size
= WideCharToMultiByte(CP_UTF8
, 0, ptr
, 1, buf
, sizeof(buf
), NULL
, NULL
);
905 for(i
=0; i
<size
; i
++) {
907 ret
[len
++] = int_to_char((BYTE
)buf
[i
] >> 4);
908 ret
[len
++] = int_to_char(buf
[i
] & 0x0f);
916 V_VT(retv
) = VT_BSTR
;
925 /* ECMA-262 3rd Edition 15.1.3.2 */
926 static HRESULT
JSGlobal_decodeURIComponent(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
927 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
939 ret
= SysAllocString(undefinedW
);
941 return E_OUTOFMEMORY
;
943 V_VT(retv
) = VT_BSTR
;
950 hres
= to_string(ctx
, get_arg(dp
, 0), ei
, &str
);
958 unsigned char mask
= 0x80;
959 int i
, size
, num_bytes
= 0;
960 if(hex_to_int(*(ptr
+1)) < 0 || hex_to_int(*(ptr
+2)) < 0) {
961 FIXME("Throw URIError: Invalid hex sequence\n");
965 octets
[0] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
967 while(octets
[0] & mask
) {
971 if(num_bytes
== 1 || num_bytes
> 4) {
972 FIXME("Throw URIError: Invalid initial UTF character\n");
976 for(i
= 1; i
< num_bytes
; ++i
) {
978 FIXME("Throw URIError: Incomplete UTF sequence\n");
982 if(hex_to_int(*(ptr
+1)) < 0 || hex_to_int(*(ptr
+2)) < 0) {
983 FIXME("Throw URIError: Invalid hex sequence\n");
987 octets
[i
] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
990 size
= MultiByteToWideChar(CP_UTF8
, MB_ERR_INVALID_CHARS
, octets
,
991 num_bytes
? num_bytes
: 1, NULL
, 0);
993 FIXME("Throw URIError: Invalid UTF sequence\n");
1004 out_ptr
= ret
= SysAllocStringLen(NULL
, len
);
1007 return E_OUTOFMEMORY
;
1014 unsigned char mask
= 0x80;
1015 int i
, size
, num_bytes
= 0;
1016 octets
[0] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
1018 while(octets
[0] & mask
) {
1022 for(i
= 1; i
< num_bytes
; ++i
) {
1023 octets
[i
] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
1026 size
= MultiByteToWideChar(CP_UTF8
, MB_ERR_INVALID_CHARS
, octets
,
1027 num_bytes
? num_bytes
: 1, out_ptr
, len
);
1031 *out_ptr
++ = *ptr
++;
1039 V_VT(retv
) = VT_BSTR
;
1048 static const builtin_prop_t JSGlobal_props
[] = {
1049 {ActiveXObjectW
, JSGlobal_ActiveXObject
, PROPF_CONSTR
|1},
1050 {ArrayW
, JSGlobal_Array
, PROPF_CONSTR
|1},
1051 {BooleanW
, JSGlobal_Boolean
, PROPF_CONSTR
|1},
1052 {CollectGarbageW
, JSGlobal_CollectGarbage
, PROPF_METHOD
},
1053 {DateW
, JSGlobal_Date
, PROPF_CONSTR
|7},
1054 {EnumeratorW
, JSGlobal_Enumerator
, PROPF_METHOD
|7},
1055 {ErrorW
, JSGlobal_Error
, PROPF_CONSTR
|1},
1056 {EvalErrorW
, JSGlobal_EvalError
, PROPF_CONSTR
|1},
1057 {FunctionW
, JSGlobal_Function
, PROPF_CONSTR
|1},
1058 {_GetObjectW
, JSGlobal_GetObject
, PROPF_METHOD
|2},
1059 {NumberW
, JSGlobal_Number
, PROPF_CONSTR
|1},
1060 {ObjectW
, JSGlobal_Object
, PROPF_CONSTR
|1},
1061 {RangeErrorW
, JSGlobal_RangeError
, PROPF_CONSTR
|1},
1062 {ReferenceErrorW
, JSGlobal_ReferenceError
, PROPF_CONSTR
|1},
1063 {RegExpW
, JSGlobal_RegExp
, PROPF_CONSTR
|2},
1064 {ScriptEngineW
, JSGlobal_ScriptEngine
, PROPF_METHOD
},
1065 {ScriptEngineBuildVersionW
, JSGlobal_ScriptEngineBuildVersion
, PROPF_METHOD
},
1066 {ScriptEngineMajorVersionW
, JSGlobal_ScriptEngineMajorVersion
, PROPF_METHOD
},
1067 {ScriptEngineMinorVersionW
, JSGlobal_ScriptEngineMinorVersion
, PROPF_METHOD
},
1068 {StringW
, JSGlobal_String
, PROPF_CONSTR
|1},
1069 {SyntaxErrorW
, JSGlobal_SyntaxError
, PROPF_CONSTR
|1},
1070 {TypeErrorW
, JSGlobal_TypeError
, PROPF_CONSTR
|1},
1071 {URIErrorW
, JSGlobal_URIError
, PROPF_CONSTR
|1},
1072 {VBArrayW
, JSGlobal_VBArray
, PROPF_CONSTR
|1},
1073 {decodeURIW
, JSGlobal_decodeURI
, PROPF_METHOD
|1},
1074 {decodeURIComponentW
, JSGlobal_decodeURIComponent
, PROPF_METHOD
|1},
1075 {encodeURIW
, JSGlobal_encodeURI
, PROPF_METHOD
|1},
1076 {encodeURIComponentW
, JSGlobal_encodeURIComponent
, PROPF_METHOD
|1},
1077 {escapeW
, JSGlobal_escape
, PROPF_METHOD
|1},
1078 {evalW
, JSGlobal_eval
, PROPF_METHOD
|1},
1079 {isFiniteW
, JSGlobal_isFinite
, PROPF_METHOD
|1},
1080 {isNaNW
, JSGlobal_isNaN
, PROPF_METHOD
|1},
1081 {parseFloatW
, JSGlobal_parseFloat
, PROPF_METHOD
|1},
1082 {parseIntW
, JSGlobal_parseInt
, PROPF_METHOD
|2},
1083 {unescapeW
, JSGlobal_unescape
, PROPF_METHOD
|1}
1086 static const builtin_info_t JSGlobal_info
= {
1089 sizeof(JSGlobal_props
)/sizeof(*JSGlobal_props
),
1095 static HRESULT
init_constructors(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
)
1099 hres
= init_function_constr(ctx
, object_prototype
);
1103 hres
= create_object_constr(ctx
, object_prototype
, &ctx
->object_constr
);
1107 hres
= create_activex_constr(ctx
, &ctx
->activex_constr
);
1111 hres
= create_array_constr(ctx
, object_prototype
, &ctx
->array_constr
);
1115 hres
= create_bool_constr(ctx
, object_prototype
, &ctx
->bool_constr
);
1119 hres
= create_date_constr(ctx
, object_prototype
, &ctx
->date_constr
);
1123 hres
= init_error_constr(ctx
, object_prototype
);
1127 hres
= create_number_constr(ctx
, object_prototype
, &ctx
->number_constr
);
1131 hres
= create_regexp_constr(ctx
, object_prototype
, &ctx
->regexp_constr
);
1135 hres
= create_string_constr(ctx
, object_prototype
, &ctx
->string_constr
);
1139 hres
= create_vbarray_constr(ctx
, object_prototype
, &ctx
->vbarray_constr
);
1146 HRESULT
init_global(script_ctx_t
*ctx
)
1148 jsdisp_t
*math
, *object_prototype
;
1155 hres
= create_object_prototype(ctx
, &object_prototype
);
1159 hres
= init_constructors(ctx
, object_prototype
);
1160 jsdisp_release(object_prototype
);
1164 hres
= create_dispex(ctx
, &JSGlobal_info
, NULL
, &ctx
->global
);
1168 hres
= create_math(ctx
, &math
);
1172 var_set_jsdisp(&var
, math
);
1173 hres
= jsdisp_propput_name(ctx
->global
, MathW
, &var
, NULL
/*FIXME*/, NULL
/*FIXME*/);
1174 jsdisp_release(math
);
1178 V_VT(&var
) = VT_EMPTY
;
1179 hres
= jsdisp_propput_name(ctx
->global
, undefinedW
, &var
, NULL
/*FIXME*/, NULL
/*FIXME*/);
1184 hres
= jsdisp_propput_name(ctx
->global
, NaNW
, &var
, NULL
/*FIXME*/, NULL
/*FIXME*/);
1188 num_set_inf(&var
, TRUE
);
1189 hres
= jsdisp_propput_name(ctx
->global
, InfinityW
, &var
, NULL
/*FIXME*/, NULL
/*FIXME*/);