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 jsval_t
*r
, 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);
70 BSTR ret
= SysAllocStringLen(NULL
, 9+strlenW(str
));
74 sprintfW(ret
, formatW
, str
);
75 *r
= jsval_string(ret
);
81 static HRESULT
Object_toLocaleString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
82 jsval_t
*r
, 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
, r
, ei
);
94 static HRESULT
Object_valueOf(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
95 jsval_t
*r
, jsexcept_t
*ei
)
100 IDispatch_AddRef(jsthis
->u
.disp
);
101 *r
= jsval_disp(jsthis
->u
.disp
);
106 static HRESULT
Object_hasOwnProperty(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
107 jsval_t
*r
, jsexcept_t
*ei
)
117 *r
= jsval_bool(FALSE
);
121 hres
= to_string(ctx
, argv
, ei
, &name
);
125 if(is_jsdisp(jsthis
)) {
128 hres
= jsdisp_is_own_prop(jsthis
->u
.jsdisp
, name
, &result
);
133 *r
= jsval_bool(result
);
137 if(is_dispex(jsthis
)) {
138 hres
= IDispatchEx_GetDispID(jsthis
->u
.dispex
, name
,
139 make_grfdex(ctx
, fdexNameCaseSensitive
), &id
);
141 hres
= IDispatch_GetIDsOfNames(jsthis
->u
.disp
, &IID_NULL
,
142 &name
, 1, ctx
->lcid
, &id
);
146 *r
= jsval_bool(SUCCEEDED(hres
));
150 static HRESULT
Object_propertyIsEnumerable(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
151 jsval_t
*r
, jsexcept_t
*ei
)
157 static HRESULT
Object_isPrototypeOf(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
158 jsval_t
*r
, jsexcept_t
*ei
)
164 static HRESULT
Object_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
165 jsval_t
*r
, jsexcept_t
*ei
)
171 return throw_type_error(ctx
, ei
, JS_E_FUNCTION_EXPECTED
, NULL
);
172 case DISPATCH_PROPERTYGET
: {
173 BSTR ret
= SysAllocString(default_valueW
);
175 return E_OUTOFMEMORY
;
176 *r
= jsval_string(ret
);
180 FIXME("unimplemented flags %x\n", flags
);
187 static void Object_destructor(jsdisp_t
*dispex
)
192 static const builtin_prop_t Object_props
[] = {
193 {hasOwnPropertyW
, Object_hasOwnProperty
, PROPF_METHOD
|1},
194 {isPrototypeOfW
, Object_isPrototypeOf
, PROPF_METHOD
|1},
195 {propertyIsEnumerableW
, Object_propertyIsEnumerable
, PROPF_METHOD
|1},
196 {toLocaleStringW
, Object_toLocaleString
, PROPF_METHOD
},
197 {toStringW
, Object_toString
, PROPF_METHOD
},
198 {valueOfW
, Object_valueOf
, PROPF_METHOD
}
201 static const builtin_info_t Object_info
= {
203 {NULL
, Object_value
, 0},
204 sizeof(Object_props
)/sizeof(*Object_props
),
210 static const builtin_info_t ObjectInst_info
= {
212 {NULL
, Object_value
, 0},
218 static HRESULT
ObjectConstr_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
219 jsval_t
*r
, jsexcept_t
*ei
)
226 case DISPATCH_METHOD
:
228 if(V_VT(argv
) != VT_EMPTY
&& V_VT(argv
) != VT_NULL
&& (V_VT(argv
) != VT_DISPATCH
|| V_DISPATCH(argv
))) {
231 hres
= to_object(ctx
, argv
, &disp
);
236 *r
= jsval_disp(disp
);
238 IDispatch_Release(disp
);
243 case DISPATCH_CONSTRUCT
: {
246 hres
= create_object(ctx
, NULL
, &obj
);
258 FIXME("unimplemented flags: %x\n", flags
);
265 HRESULT
create_object_constr(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
, jsdisp_t
**ret
)
267 static const WCHAR ObjectW
[] = {'O','b','j','e','c','t',0};
269 return create_builtin_constructor(ctx
, ObjectConstr_value
, ObjectW
, NULL
, PROPF_CONSTR
,
270 object_prototype
, ret
);
273 HRESULT
create_object_prototype(script_ctx_t
*ctx
, jsdisp_t
**ret
)
275 return create_dispex(ctx
, &Object_info
, NULL
, ret
);
278 HRESULT
create_object(script_ctx_t
*ctx
, jsdisp_t
*constr
, jsdisp_t
**ret
)
283 object
= heap_alloc_zero(sizeof(jsdisp_t
));
285 return E_OUTOFMEMORY
;
287 hres
= init_dispex_from_constr(object
, ctx
, &ObjectInst_info
, constr
? constr
: ctx
->object_constr
);