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
26 #include "wine/debug.h"
28 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
30 static int uri_char_table
[] = {
31 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 00-0f */
32 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 10-1f */
33 0,2,0,0,1,0,1,2,2,2,2,1,1,2,2,1, /* 20-2f */
34 2,2,2,2,2,2,2,2,2,2,1,1,0,1,0,1, /* 30-3f */
35 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* 40-4f */
36 2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,2, /* 50-5f */
37 0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* 60-6f */
38 2,2,2,2,2,2,2,2,2,2,2,0,0,0,2,0, /* 70-7f */
44 static inline BOOL
is_uri_reserved(WCHAR c
)
46 return c
< 128 && uri_char_table
[c
] == 1;
49 static inline BOOL
is_uri_unescaped(WCHAR c
)
51 return c
< 128 && uri_char_table
[c
] == 2;
54 /* Check that the character is one of the 69 non-blank characters as defined by ECMA-262 B.2.1 */
55 static inline BOOL
is_ecma_nonblank(const WCHAR c
)
57 return ((c
>= 'A' && c
<= 'Z') || (c
>= 'a' && c
<= 'z') || (c
>= '0' && c
<= '9') ||
58 c
== '@' || c
== '*' || c
== '_' || c
== '+' || c
== '-' || c
== '.' || c
== '/');
61 static WCHAR
int_to_char(int i
)
68 static HRESULT
JSGlobal_escape(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
71 jsstr_t
*ret_str
, *str
;
72 const WCHAR
*ptr
, *buf
;
81 *r
= jsval_string(jsstr_undefined());
85 hres
= to_flat_string(ctx
, argv
[0], &str
, &buf
);
89 for(ptr
= buf
; *ptr
; ptr
++) {
92 else if(is_ecma_nonblank(*ptr
))
98 ret_str
= jsstr_alloc_buf(len
, &ret
);
101 return E_OUTOFMEMORY
;
105 for(ptr
= buf
; *ptr
; ptr
++) {
109 ret
[len
++] = int_to_char(*ptr
>> 12);
110 ret
[len
++] = int_to_char((*ptr
>> 8) & 0xf);
111 ret
[len
++] = int_to_char((*ptr
>> 4) & 0xf);
112 ret
[len
++] = int_to_char(*ptr
& 0xf);
114 else if(is_ecma_nonblank(*ptr
))
118 ret
[len
++] = int_to_char(*ptr
>> 4);
119 ret
[len
++] = int_to_char(*ptr
& 0xf);
126 *r
= jsval_string(ret_str
);
128 jsstr_release(ret_str
);
132 /* ECMA-262 3rd Edition 15.1.2.1 */
133 HRESULT
builtin_eval(script_ctx_t
*ctx
, call_frame_t
*frame
, WORD flags
, unsigned argc
, jsval_t
*argv
,
136 DWORD exec_flags
= EXEC_EVAL
;
145 *r
= jsval_undefined();
149 if(!is_string(argv
[0])) {
151 return jsval_copy(argv
[0], r
);
155 src
= jsstr_flatten(get_string(argv
[0]));
157 return E_OUTOFMEMORY
;
159 TRACE("parsing %s\n", debugstr_jsval(argv
[0]));
160 hres
= compile_script(ctx
, src
, 0, 0, NULL
, NULL
, TRUE
, FALSE
, frame
? frame
->bytecode
->named_item
: NULL
, &code
);
162 WARN("parse (%s) failed: %08lx\n", debugstr_jsval(argv
[0]), hres
);
166 if(!frame
|| (frame
->flags
& EXEC_GLOBAL
))
167 exec_flags
|= EXEC_GLOBAL
;
168 if(flags
& DISPATCH_JSCRIPT_CALLEREXECSSOURCE
)
169 exec_flags
|= EXEC_RETURN_TO_INTERP
;
170 hres
= exec_source(ctx
, exec_flags
, code
, &code
->global_code
, frame
? frame
->scope
: NULL
,
171 frame
? frame
->this_obj
: NULL
, NULL
, 0, NULL
, r
);
172 release_bytecode(code
);
176 HRESULT
JSGlobal_eval(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
179 return builtin_eval(ctx
, ctx
->version
< SCRIPTLANGUAGEVERSION_ES5
? ctx
->call_ctx
: NULL
, flags
, argc
, argv
, r
);
182 static HRESULT
JSGlobal_isNaN(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
192 hres
= to_number(ctx
, argv
[0], &n
);
201 *r
= jsval_bool(ret
);
205 static HRESULT
JSGlobal_isFinite(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
216 hres
= to_number(ctx
, argv
[0], &n
);
224 *r
= jsval_bool(ret
);
228 static INT
char_to_int(WCHAR c
)
230 if('0' <= c
&& c
<= '9')
232 if('a' <= c
&& c
<= 'z')
234 if('A' <= c
&& c
<= 'Z')
239 static HRESULT
JSGlobal_parseInt(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
242 BOOL neg
= FALSE
, empty
= TRUE
;
251 *r
= jsval_number(NAN
);
256 hres
= to_int32(ctx
, argv
[1], &radix
);
260 if(radix
&& (radix
< 2 || radix
> 36)) {
261 WARN("radix %d out of range\n", radix
);
263 *r
= jsval_number(NAN
);
268 hres
= to_flat_string(ctx
, argv
[0], &str
, &ptr
);
272 while(iswspace(*ptr
))
287 if(ptr
[1] == 'x' || ptr
[1] == 'X') {
298 }else if(radix
== 16 && *ptr
== '0' && (ptr
[1] == 'x' || ptr
[1] == 'X')) {
302 i
= char_to_int(*ptr
++);
306 i
= char_to_int(*ptr
++);
318 *r
= jsval_number(ret
);
322 static HRESULT
JSGlobal_parseFloat(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
329 BOOL ret_nan
= TRUE
, positive
= TRUE
;
334 *r
= jsval_number(NAN
);
338 TRACE("%s\n", debugstr_jsval(argv
[0]));
340 hres
= to_flat_string(ctx
, argv
[0], &val_str
, &str
);
344 while(iswspace(*str
)) str
++;
348 else if(*str
== '-') {
356 while(is_digit(*str
)) {
357 hlp
= d
*10 + *(str
++) - '0';
358 if(d
>MAXLONGLONG
/10 || hlp
<0) {
365 while(is_digit(*str
)) {
370 if(*str
== '.') str
++;
375 while(is_digit(*str
)) {
376 hlp
= d
*10 + *(str
++) - '0';
377 if(d
>MAXLONGLONG
/10 || hlp
<0)
383 while(is_digit(*str
))
386 if(*str
&& !ret_nan
&& (*str
=='e' || *str
=='E')) {
392 else if(*str
== '-') {
397 while(is_digit(*str
)) {
398 if(e
>INT_MAX
/10 || (e
= e
*10 + *str
++ - '0')<0)
403 if(exp
<0 && e
<0 && exp
+e
>0) exp
= INT_MIN
;
404 else if(exp
>0 && e
>0 && exp
+e
<0) exp
= INT_MAX
;
408 jsstr_release(val_str
);
412 *r
= jsval_number(NAN
);
419 *r
= jsval_number(exp
>0 ? d
*pow(10, exp
) : d
/pow(10, -exp
));
423 static inline int hex_to_int(const WCHAR wch
) {
424 if(towupper(wch
)>='A' && towupper(wch
)<='F') return towupper(wch
)-'A'+10;
425 if(is_digit(wch
)) return wch
-'0';
429 static HRESULT
JSGlobal_unescape(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
432 jsstr_t
*ret_str
, *str
;
433 const WCHAR
*ptr
, *buf
;
442 *r
= jsval_string(jsstr_undefined());
446 hres
= to_flat_string(ctx
, argv
[0], &str
, &buf
);
450 for(ptr
= buf
; *ptr
; ptr
++) {
452 if(hex_to_int(*(ptr
+1))!=-1 && hex_to_int(*(ptr
+2))!=-1)
454 else if(*(ptr
+1)=='u' && hex_to_int(*(ptr
+2))!=-1 && hex_to_int(*(ptr
+3))!=-1
455 && hex_to_int(*(ptr
+4))!=-1 && hex_to_int(*(ptr
+5))!=-1)
462 ret_str
= jsstr_alloc_buf(len
, &ret
);
465 return E_OUTOFMEMORY
;
469 for(ptr
= buf
; *ptr
; ptr
++) {
471 if(hex_to_int(*(ptr
+1))!=-1 && hex_to_int(*(ptr
+2))!=-1) {
472 ret
[len
] = (hex_to_int(*(ptr
+1))<<4) + hex_to_int(*(ptr
+2));
475 else if(*(ptr
+1)=='u' && hex_to_int(*(ptr
+2))!=-1 && hex_to_int(*(ptr
+3))!=-1
476 && hex_to_int(*(ptr
+4))!=-1 && hex_to_int(*(ptr
+5))!=-1) {
477 ret
[len
] = (hex_to_int(*(ptr
+2))<<12) + (hex_to_int(*(ptr
+3))<<8)
478 + (hex_to_int(*(ptr
+4))<<4) + hex_to_int(*(ptr
+5));
493 *r
= jsval_string(ret_str
);
495 jsstr_release(ret_str
);
499 static HRESULT
JSGlobal_GetObject(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
506 static HRESULT
JSGlobal_ScriptEngine(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
514 ret
= jsstr_alloc(L
"JScript");
516 return E_OUTOFMEMORY
;
518 *r
= jsval_string(ret
);
524 static HRESULT
JSGlobal_ScriptEngineMajorVersion(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
530 *r
= jsval_number(JSCRIPT_MAJOR_VERSION
);
534 static HRESULT
JSGlobal_ScriptEngineMinorVersion(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
540 *r
= jsval_number(JSCRIPT_MINOR_VERSION
);
544 static HRESULT
JSGlobal_ScriptEngineBuildVersion(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
550 *r
= jsval_number(JSCRIPT_BUILD_VERSION
);
554 static HRESULT
JSGlobal_CollectGarbage(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
560 static HRESULT
JSGlobal_encodeURI(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
563 const WCHAR
*ptr
, *uri
;
574 *r
= jsval_string(jsstr_undefined());
578 hres
= to_flat_string(ctx
, argv
[0], &str
, &uri
);
582 for(ptr
= uri
; *ptr
; ptr
++) {
583 if(is_uri_unescaped(*ptr
) || is_uri_reserved(*ptr
) || *ptr
== '#') {
586 i
= WideCharToMultiByte(CP_UTF8
, WC_ERR_INVALID_CHARS
, ptr
, 1, NULL
, 0, NULL
, NULL
)*3;
589 return JS_E_INVALID_URI_CHAR
;
596 ret
= jsstr_alloc_buf(len
, &rptr
);
599 return E_OUTOFMEMORY
;
602 for(ptr
= uri
; *ptr
; ptr
++) {
603 if(is_uri_unescaped(*ptr
) || is_uri_reserved(*ptr
) || *ptr
== '#') {
606 len
= WideCharToMultiByte(CP_UTF8
, WC_ERR_INVALID_CHARS
, ptr
, 1, buf
, sizeof(buf
), NULL
, NULL
);
607 for(i
=0; i
<len
; i
++) {
609 *rptr
++ = int_to_char((BYTE
)buf
[i
] >> 4);
610 *rptr
++ = int_to_char(buf
[i
] & 0x0f);
615 TRACE("%s -> %s\n", debugstr_jsstr(str
), debugstr_jsstr(ret
));
619 *r
= jsval_string(ret
);
625 static HRESULT
JSGlobal_decodeURI(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
628 const WCHAR
*ptr
, *uri
;
629 jsstr_t
*str
, *ret_str
;
641 *r
= jsval_string(jsstr_undefined());
645 hres
= to_flat_string(ctx
, argv
[0], &str
, &uri
);
649 for(ptr
= uri
; *ptr
; ptr
++) {
655 if(ptr
[i
*3]!='%' || hex_to_int(ptr
[i
*3+1])==-1 || (val
=hex_to_int(ptr
[i
*3+2]))==-1)
657 val
+= hex_to_int(ptr
[i
*3+1])<<4;
660 res
= MultiByteToWideChar(CP_UTF8
, MB_ERR_INVALID_CHARS
, buf
, i
+1, &out
, 1);
667 return JS_E_INVALID_URI_CODING
;
675 ret_str
= jsstr_alloc_buf(len
, &ret
);
678 return E_OUTOFMEMORY
;
681 for(ptr
= uri
; *ptr
; ptr
++) {
686 if(ptr
[i
*3]!='%' || hex_to_int(ptr
[i
*3+1])==-1 || (val
=hex_to_int(ptr
[i
*3+2]))==-1)
688 val
+= hex_to_int(ptr
[i
*3+1])<<4;
691 res
= MultiByteToWideChar(CP_UTF8
, MB_ERR_INVALID_CHARS
, buf
, i
+1, ret
, 1);
701 TRACE("%s -> %s\n", debugstr_jsstr(str
), debugstr_jsstr(ret_str
));
705 *r
= jsval_string(ret_str
);
707 jsstr_release(ret_str
);
711 static HRESULT
JSGlobal_encodeURIComponent(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
714 jsstr_t
*str
, *ret_str
;
716 const WCHAR
*ptr
, *uri
;
717 DWORD len
= 0, size
, i
;
725 *r
= jsval_string(jsstr_undefined());
729 hres
= to_flat_string(ctx
, argv
[0], &str
, &uri
);
733 for(ptr
= uri
; *ptr
; ptr
++) {
734 if(is_uri_unescaped(*ptr
))
737 size
= WideCharToMultiByte(CP_UTF8
, WC_ERR_INVALID_CHARS
, ptr
, 1, NULL
, 0, NULL
, NULL
);
740 return JS_E_INVALID_URI_CHAR
;
746 ret_str
= jsstr_alloc_buf(len
, &ret
);
749 return E_OUTOFMEMORY
;
752 for(ptr
= uri
; *ptr
; ptr
++) {
753 if(is_uri_unescaped(*ptr
)) {
756 size
= WideCharToMultiByte(CP_UTF8
, WC_ERR_INVALID_CHARS
, ptr
, 1, buf
, sizeof(buf
), NULL
, NULL
);
757 for(i
=0; i
<size
; i
++) {
759 *ret
++ = int_to_char((BYTE
)buf
[i
] >> 4);
760 *ret
++ = int_to_char(buf
[i
] & 0x0f);
768 *r
= jsval_string(ret_str
);
770 jsstr_release(ret_str
);
774 /* ECMA-262 3rd Edition 15.1.3.2 */
775 static HRESULT
JSGlobal_decodeURIComponent(script_ctx_t
*ctx
, jsval_t vthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
778 const WCHAR
*ptr
, *uri
;
788 *r
= jsval_string(jsstr_undefined());
792 hres
= to_flat_string(ctx
, argv
[0], &str
, &uri
);
800 unsigned char mask
= 0x80;
801 int i
, size
, num_bytes
= 0;
802 if(hex_to_int(*(ptr
+1)) < 0 || hex_to_int(*(ptr
+2)) < 0) {
803 FIXME("Throw URIError: Invalid hex sequence\n");
807 octets
[0] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
809 while(octets
[0] & mask
) {
813 if(num_bytes
== 1 || num_bytes
> 4) {
814 FIXME("Throw URIError: Invalid initial UTF character\n");
818 for(i
= 1; i
< num_bytes
; ++i
) {
820 FIXME("Throw URIError: Incomplete UTF sequence\n");
824 if(hex_to_int(*(ptr
+1)) < 0 || hex_to_int(*(ptr
+2)) < 0) {
825 FIXME("Throw URIError: Invalid hex sequence\n");
829 octets
[i
] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
832 size
= MultiByteToWideChar(CP_UTF8
, MB_ERR_INVALID_CHARS
, octets
,
833 num_bytes
? num_bytes
: 1, NULL
, 0);
835 FIXME("Throw URIError: Invalid UTF sequence\n");
846 ret
= jsstr_alloc_buf(len
, &out_ptr
);
849 return E_OUTOFMEMORY
;
856 unsigned char mask
= 0x80;
857 int i
, size
, num_bytes
= 0;
858 octets
[0] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
860 while(octets
[0] & mask
) {
864 for(i
= 1; i
< num_bytes
; ++i
) {
865 octets
[i
] = (hex_to_int(*(ptr
+1)) << 4) + hex_to_int(*(ptr
+2));
868 size
= MultiByteToWideChar(CP_UTF8
, MB_ERR_INVALID_CHARS
, octets
,
869 num_bytes
? num_bytes
: 1, out_ptr
, len
);
881 *r
= jsval_string(ret
);
887 static const builtin_prop_t JSGlobal_props
[] = {
888 {L
"CollectGarbage", JSGlobal_CollectGarbage
, PROPF_METHOD
},
889 {L
"GetObject", JSGlobal_GetObject
, PROPF_METHOD
|2},
890 {L
"ScriptEngine", JSGlobal_ScriptEngine
, PROPF_METHOD
},
891 {L
"ScriptEngineBuildVersion", JSGlobal_ScriptEngineBuildVersion
, PROPF_METHOD
},
892 {L
"ScriptEngineMajorVersion", JSGlobal_ScriptEngineMajorVersion
, PROPF_METHOD
},
893 {L
"ScriptEngineMinorVersion", JSGlobal_ScriptEngineMinorVersion
, PROPF_METHOD
},
894 {L
"decodeURI", JSGlobal_decodeURI
, PROPF_METHOD
|1},
895 {L
"decodeURIComponent", JSGlobal_decodeURIComponent
, PROPF_METHOD
|1},
896 {L
"encodeURI", JSGlobal_encodeURI
, PROPF_METHOD
|1},
897 {L
"encodeURIComponent", JSGlobal_encodeURIComponent
, PROPF_METHOD
|1},
898 {L
"escape", JSGlobal_escape
, PROPF_METHOD
|1},
899 {L
"eval", JSGlobal_eval
, PROPF_METHOD
|1},
900 {L
"isFinite", JSGlobal_isFinite
, PROPF_METHOD
|1},
901 {L
"isNaN", JSGlobal_isNaN
, PROPF_METHOD
|1},
902 {L
"parseFloat", JSGlobal_parseFloat
, PROPF_METHOD
|1},
903 {L
"parseInt", JSGlobal_parseInt
, PROPF_METHOD
|2},
904 {L
"unescape", JSGlobal_unescape
, PROPF_METHOD
|1}
907 static const builtin_info_t JSGlobal_info
= {
910 ARRAY_SIZE(JSGlobal_props
),
916 static HRESULT
init_object_prototype_accessors(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
)
918 property_desc_t desc
;
921 /* __proto__ is an actual accessor on native, despite being a builtin */
922 if(ctx
->version
>= SCRIPTLANGUAGEVERSION_ES6
) {
923 desc
.flags
= PROPF_CONFIGURABLE
;
924 desc
.mask
= PROPF_CONFIGURABLE
| PROPF_ENUMERABLE
;
925 desc
.explicit_getter
= desc
.explicit_setter
= TRUE
;
926 desc
.explicit_value
= FALSE
;
928 hres
= create_builtin_function(ctx
, Object_get_proto_
, NULL
, NULL
, PROPF_METHOD
, NULL
, &desc
.getter
);
929 if(SUCCEEDED(hres
)) {
930 hres
= create_builtin_function(ctx
, Object_set_proto_
, NULL
, NULL
, PROPF_METHOD
|1, NULL
, &desc
.setter
);
931 if(SUCCEEDED(hres
)) {
932 hres
= jsdisp_define_property(object_prototype
, L
"__proto__", &desc
);
933 jsdisp_release(desc
.setter
);
935 jsdisp_release(desc
.getter
);
941 static HRESULT
init_constructors(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
)
945 hres
= init_function_constr(ctx
, object_prototype
);
949 hres
= jsdisp_define_data_property(ctx
->global
, L
"Function", PROPF_WRITABLE
,
950 jsval_obj(ctx
->function_constr
));
954 hres
= create_object_constr(ctx
, object_prototype
, &ctx
->object_constr
);
958 hres
= jsdisp_define_data_property(ctx
->global
, L
"Object", PROPF_WRITABLE
,
959 jsval_obj(ctx
->object_constr
));
963 hres
= create_array_constr(ctx
, object_prototype
, &ctx
->array_constr
);
967 hres
= jsdisp_define_data_property(ctx
->global
, L
"Array", PROPF_WRITABLE
,
968 jsval_obj(ctx
->array_constr
));
972 hres
= create_bool_constr(ctx
, object_prototype
, &ctx
->bool_constr
);
976 hres
= jsdisp_define_data_property(ctx
->global
, L
"Boolean", PROPF_WRITABLE
,
977 jsval_obj(ctx
->bool_constr
));
981 hres
= create_date_constr(ctx
, object_prototype
, &ctx
->date_constr
);
985 hres
= jsdisp_define_data_property(ctx
->global
, L
"Date", PROPF_WRITABLE
,
986 jsval_obj(ctx
->date_constr
));
990 hres
= create_enumerator_constr(ctx
, object_prototype
, &ctx
->enumerator_constr
);
994 hres
= jsdisp_define_data_property(ctx
->global
, L
"Enumerator", PROPF_WRITABLE
,
995 jsval_obj(ctx
->enumerator_constr
));
999 hres
= init_error_constr(ctx
, object_prototype
);
1003 hres
= jsdisp_define_data_property(ctx
->global
, L
"Error", PROPF_WRITABLE
,
1004 jsval_obj(ctx
->error_constr
));
1008 hres
= jsdisp_define_data_property(ctx
->global
, L
"EvalError", PROPF_WRITABLE
,
1009 jsval_obj(ctx
->eval_error_constr
));
1013 hres
= jsdisp_define_data_property(ctx
->global
, L
"RangeError", PROPF_WRITABLE
,
1014 jsval_obj(ctx
->range_error_constr
));
1018 hres
= jsdisp_define_data_property(ctx
->global
, L
"ReferenceError", PROPF_WRITABLE
,
1019 jsval_obj(ctx
->reference_error_constr
));
1023 hres
= jsdisp_define_data_property(ctx
->global
, L
"RegExpError", PROPF_WRITABLE
,
1024 jsval_obj(ctx
->regexp_error_constr
));
1028 hres
= jsdisp_define_data_property(ctx
->global
, L
"SyntaxError", PROPF_WRITABLE
,
1029 jsval_obj(ctx
->syntax_error_constr
));
1033 hres
= jsdisp_define_data_property(ctx
->global
, L
"TypeError", PROPF_WRITABLE
,
1034 jsval_obj(ctx
->type_error_constr
));
1038 hres
= jsdisp_define_data_property(ctx
->global
, L
"URIError", PROPF_WRITABLE
,
1039 jsval_obj(ctx
->uri_error_constr
));
1043 hres
= create_number_constr(ctx
, object_prototype
, &ctx
->number_constr
);
1047 hres
= jsdisp_define_data_property(ctx
->global
, L
"Number", PROPF_WRITABLE
,
1048 jsval_obj(ctx
->number_constr
));
1052 hres
= create_regexp_constr(ctx
, object_prototype
, &ctx
->regexp_constr
);
1056 hres
= jsdisp_define_data_property(ctx
->global
, L
"RegExp", PROPF_WRITABLE
,
1057 jsval_obj(ctx
->regexp_constr
));
1061 hres
= create_string_constr(ctx
, object_prototype
, &ctx
->string_constr
);
1065 hres
= jsdisp_define_data_property(ctx
->global
, L
"String", PROPF_WRITABLE
,
1066 jsval_obj(ctx
->string_constr
));
1070 hres
= create_vbarray_constr(ctx
, object_prototype
, &ctx
->vbarray_constr
);
1074 hres
= jsdisp_define_data_property(ctx
->global
, L
"VBArray", PROPF_WRITABLE
,
1075 jsval_obj(ctx
->vbarray_constr
));
1082 HRESULT
init_global(script_ctx_t
*ctx
)
1084 unsigned const_flags
= ctx
->version
>= SCRIPTLANGUAGEVERSION_ES5
? 0 : PROPF_WRITABLE
;
1085 jsdisp_t
*math
, *constr
;
1091 hres
= create_dispex(ctx
, &JSGlobal_info
, NULL
, &ctx
->global
);
1095 hres
= create_object_prototype(ctx
, &ctx
->object_prototype
);
1099 hres
= init_constructors(ctx
, ctx
->object_prototype
);
1103 hres
= init_object_prototype_accessors(ctx
, ctx
->object_prototype
);
1107 hres
= create_math(ctx
, &math
);
1111 hres
= jsdisp_define_data_property(ctx
->global
, L
"Math", PROPF_WRITABLE
, jsval_obj(math
));
1112 jsdisp_release(math
);
1116 if(ctx
->version
>= 2) {
1119 hres
= create_json(ctx
, &json
);
1123 hres
= jsdisp_define_data_property(ctx
->global
, L
"JSON", PROPF_WRITABLE
, jsval_obj(json
));
1124 jsdisp_release(json
);
1129 hres
= create_activex_constr(ctx
, &constr
);
1133 hres
= jsdisp_define_data_property(ctx
->global
, L
"ActiveXObject", PROPF_WRITABLE
,
1135 jsdisp_release(constr
);
1139 hres
= jsdisp_define_data_property(ctx
->global
, L
"undefined", const_flags
, jsval_undefined());
1143 hres
= jsdisp_define_data_property(ctx
->global
, L
"NaN", const_flags
, jsval_number(NAN
));
1147 hres
= jsdisp_define_data_property(ctx
->global
, L
"Infinity", const_flags
, jsval_number(INFINITY
));
1151 return init_set_constructor(ctx
);