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
21 #include "wine/debug.h"
23 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
25 static const WCHAR toStringW
[] = {'t','o','S','t','r','i','n','g',0};
26 static const WCHAR toLocaleStringW
[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
27 static const WCHAR valueOfW
[] = {'v','a','l','u','e','O','f',0};
28 static const WCHAR hasOwnPropertyW
[] = {'h','a','s','O','w','n','P','r','o','p','e','r','t','y',0};
29 static const WCHAR propertyIsEnumerableW
[] =
30 {'p','r','o','p','e','r','t','y','I','s','E','n','u','m','e','r','a','b','l','e',0};
31 static const WCHAR isPrototypeOfW
[] = {'i','s','P','r','o','t','o','t','y','p','e','O','f',0};
33 static const WCHAR default_valueW
[] = {'[','o','b','j','e','c','t',' ','O','b','j','e','c','t',']',0};
35 static HRESULT
Object_toString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
36 VARIANT
*retv
, jsexcept_t
*ei
)
41 static const WCHAR formatW
[] = {'[','o','b','j','e','c','t',' ','%','s',']',0};
43 static const WCHAR arrayW
[] = {'A','r','r','a','y',0};
44 static const WCHAR booleanW
[] = {'B','o','o','l','e','a','n',0};
45 static const WCHAR dateW
[] = {'D','a','t','e',0};
46 static const WCHAR errorW
[] = {'E','r','r','o','r',0};
47 static const WCHAR functionW
[] = {'F','u','n','c','t','i','o','n',0};
48 static const WCHAR mathW
[] = {'M','a','t','h',0};
49 static const WCHAR numberW
[] = {'N','u','m','b','e','r',0};
50 static const WCHAR objectW
[] = {'O','b','j','e','c','t',0};
51 static const WCHAR regexpW
[] = {'R','e','g','E','x','p',0};
52 static const WCHAR stringW
[] = {'S','t','r','i','n','g',0};
53 /* Keep in sync with jsclass_t enum */
54 static const WCHAR
*names
[] = {objectW
, arrayW
, booleanW
, dateW
, errorW
,
55 functionW
, NULL
, mathW
, numberW
, objectW
, regexpW
, stringW
, objectW
, objectW
};
59 jsdisp
= get_jsdisp(jsthis
);
62 }else if(names
[jsdisp
->builtin_info
->class]) {
63 str
= names
[jsdisp
->builtin_info
->class];
65 FIXME("jdisp->builtin_info->class = %d\n", jsdisp
->builtin_info
->class);
71 V_BSTR(retv
) = SysAllocStringLen(NULL
, 9+strlenW(str
));
75 sprintfW(V_BSTR(retv
), formatW
, str
);
81 static HRESULT
Object_toLocaleString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
82 VARIANT
*retv
, jsexcept_t
*ei
)
86 if(!is_jsdisp(jsthis
)) {
87 FIXME("Host object this\n");
91 return jsdisp_call_name(jsthis
->u
.jsdisp
, toStringW
, DISPATCH_METHOD
, 0, NULL
, retv
, ei
);
94 static HRESULT
Object_valueOf(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
95 VARIANT
*retv
, jsexcept_t
*ei
)
100 IDispatch_AddRef(jsthis
->u
.disp
);
102 V_VT(retv
) = VT_DISPATCH
;
103 V_DISPATCH(retv
) = jsthis
->u
.disp
;
109 static HRESULT
Object_hasOwnProperty(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
110 VARIANT
*retv
, jsexcept_t
*ei
)
121 V_VT(retv
) = VT_BOOL
;
122 V_BOOL(retv
) = VARIANT_FALSE
;
128 hres
= to_string(ctx
, argv
, ei
, &name
);
132 if(is_jsdisp(jsthis
)) {
133 result
= jsdisp_is_own_prop(jsthis
->u
.jsdisp
, name
);
135 V_VT(retv
) = VT_BOOL
;
136 V_BOOL(retv
) = result
;
140 } else if(is_dispex(jsthis
)) {
141 hres
= IDispatchEx_GetDispID(jsthis
->u
.dispex
, name
,
142 make_grfdex(ctx
, fdexNameCaseSensitive
), &id
);
144 hres
= IDispatch_GetIDsOfNames(jsthis
->u
.disp
, &IID_NULL
,
145 &name
, 1, ctx
->lcid
, &id
);
149 V_VT(retv
) = VT_BOOL
;
150 V_BOOL(retv
) = SUCCEEDED(hres
) ? VARIANT_TRUE
: VARIANT_FALSE
;
155 static HRESULT
Object_propertyIsEnumerable(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
156 VARIANT
*retv
, jsexcept_t
*ei
)
162 static HRESULT
Object_isPrototypeOf(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
163 VARIANT
*retv
, jsexcept_t
*ei
)
169 static HRESULT
Object_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
170 VARIANT
*retv
, jsexcept_t
*ei
)
176 return throw_type_error(ctx
, ei
, JS_E_FUNCTION_EXPECTED
, NULL
);
177 case DISPATCH_PROPERTYGET
:
178 V_VT(retv
) = VT_BSTR
;
179 V_BSTR(retv
) = SysAllocString(default_valueW
);
181 return E_OUTOFMEMORY
;
184 FIXME("unimplemented flags %x\n", flags
);
191 static void Object_destructor(jsdisp_t
*dispex
)
196 static const builtin_prop_t Object_props
[] = {
197 {hasOwnPropertyW
, Object_hasOwnProperty
, PROPF_METHOD
|1},
198 {isPrototypeOfW
, Object_isPrototypeOf
, PROPF_METHOD
|1},
199 {propertyIsEnumerableW
, Object_propertyIsEnumerable
, PROPF_METHOD
|1},
200 {toLocaleStringW
, Object_toLocaleString
, PROPF_METHOD
},
201 {toStringW
, Object_toString
, PROPF_METHOD
},
202 {valueOfW
, Object_valueOf
, PROPF_METHOD
}
205 static const builtin_info_t Object_info
= {
207 {NULL
, Object_value
, 0},
208 sizeof(Object_props
)/sizeof(*Object_props
),
214 static HRESULT
ObjectConstr_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
215 VARIANT
*retv
, jsexcept_t
*ei
)
222 case DISPATCH_METHOD
:
224 if(V_VT(argv
) != VT_EMPTY
&& V_VT(argv
) != VT_NULL
&& (V_VT(argv
) != VT_DISPATCH
|| V_DISPATCH(argv
))) {
227 hres
= to_object(ctx
, argv
, &disp
);
232 V_VT(retv
) = VT_DISPATCH
;
233 V_DISPATCH(retv
) = disp
;
235 IDispatch_Release(disp
);
241 case DISPATCH_CONSTRUCT
: {
244 hres
= create_object(ctx
, NULL
, &obj
);
249 var_set_jsdisp(retv
, obj
);
256 FIXME("unimplemented flags: %x\n", flags
);
263 HRESULT
create_object_constr(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
, jsdisp_t
**ret
)
265 static const WCHAR ObjectW
[] = {'O','b','j','e','c','t',0};
267 return create_builtin_function(ctx
, ObjectConstr_value
, ObjectW
, NULL
, PROPF_CONSTR
,
268 object_prototype
, ret
);
271 HRESULT
create_object_prototype(script_ctx_t
*ctx
, jsdisp_t
**ret
)
273 return create_dispex(ctx
, &Object_info
, NULL
, ret
);
276 HRESULT
create_object(script_ctx_t
*ctx
, jsdisp_t
*constr
, jsdisp_t
**ret
)
281 object
= heap_alloc_zero(sizeof(jsdisp_t
));
283 return E_OUTOFMEMORY
;
285 hres
= init_dispex_from_constr(object
, ctx
, &Object_info
, constr
? constr
: ctx
->object_constr
);