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(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
36 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
42 V_BSTR(retv
) = SysAllocString(default_valueW
);
50 static HRESULT
Object_toLocaleString(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
51 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
54 return Object_toString(dispex
, lcid
, flags
, dp
, retv
, ei
, sp
);
57 static HRESULT
Object_valueOf(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
58 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
63 IDispatchEx_AddRef(_IDispatchEx_(dispex
));
65 V_VT(retv
) = VT_DISPATCH
;
66 V_DISPATCH(retv
) = (IDispatch
*)_IDispatchEx_(dispex
);
72 static HRESULT
Object_hasOwnProperty(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
73 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
79 static HRESULT
Object_propertyIsEnumerable(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
80 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
86 static HRESULT
Object_isPrototypeOf(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
87 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
93 static HRESULT
Object_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
94 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
99 case DISPATCH_PROPERTYGET
:
100 V_VT(retv
) = VT_BSTR
;
101 V_BSTR(retv
) = SysAllocString(default_valueW
);
103 return E_OUTOFMEMORY
;
106 FIXME("unimplemented flags %x\n", flags
);
113 static void Object_destructor(DispatchEx
*dispex
)
118 static const builtin_prop_t Object_props
[] = {
119 {hasOwnPropertyW
, Object_hasOwnProperty
, PROPF_METHOD
},
120 {isPrototypeOfW
, Object_isPrototypeOf
, PROPF_METHOD
},
121 {propertyIsEnumerableW
, Object_propertyIsEnumerable
, PROPF_METHOD
},
122 {toLocaleStringW
, Object_toLocaleString
, PROPF_METHOD
},
123 {toStringW
, Object_toString
, PROPF_METHOD
},
124 {valueOfW
, Object_valueOf
, PROPF_METHOD
}
127 static const builtin_info_t Object_info
= {
129 {NULL
, Object_value
, 0},
130 sizeof(Object_props
)/sizeof(*Object_props
),
136 static HRESULT
ObjectConstr_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
137 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
144 case DISPATCH_CONSTRUCT
: {
147 hres
= create_object(dispex
->ctx
, NULL
, &obj
);
151 V_VT(retv
) = VT_DISPATCH
;
152 V_DISPATCH(retv
) = (IDispatch
*)_IDispatchEx_(obj
);
157 FIXME("unimplemented flags: %x\n", flags
);
164 HRESULT
create_object_constr(script_ctx_t
*ctx
, DispatchEx
*object_prototype
, DispatchEx
**ret
)
166 return create_builtin_function(ctx
, ObjectConstr_value
, NULL
, PROPF_CONSTR
,
167 object_prototype
, ret
);
170 HRESULT
create_object_prototype(script_ctx_t
*ctx
, DispatchEx
**ret
)
172 return create_dispex(ctx
, &Object_info
, NULL
, ret
);
175 HRESULT
create_object(script_ctx_t
*ctx
, DispatchEx
*constr
, DispatchEx
**ret
)
180 object
= heap_alloc_zero(sizeof(DispatchEx
));
182 return E_OUTOFMEMORY
;
184 hres
= init_dispex_from_constr(object
, ctx
, &Object_info
, constr
? constr
: ctx
->object_constr
);