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
);
31 static const WCHAR toStringW
[] = {'t','o','S','t','r','i','n','g',0};
32 static const WCHAR toLocaleStringW
[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
33 static const WCHAR valueOfW
[] = {'v','a','l','u','e','O','f',0};
34 static const WCHAR hasOwnPropertyW
[] = {'h','a','s','O','w','n','P','r','o','p','e','r','t','y',0};
35 static const WCHAR propertyIsEnumerableW
[] =
36 {'p','r','o','p','e','r','t','y','I','s','E','n','u','m','e','r','a','b','l','e',0};
37 static const WCHAR isPrototypeOfW
[] = {'i','s','P','r','o','t','o','t','y','p','e','O','f',0};
39 /* ECMA-262 3rd Edition 15.6.4.2 */
40 static HRESULT
Bool_toString(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
41 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
43 static const WCHAR trueW
[] = {'t','r','u','e',0};
44 static const WCHAR falseW
[] = {'f','a','l','s','e',0};
48 if(!is_class(dispex
, JSCLASS_BOOLEAN
)) {
49 FIXME("throw TypeError\n");
54 BoolInstance
*bool = (BoolInstance
*)dispex
;
57 if(bool->val
) val
= SysAllocString(trueW
);
58 else val
= SysAllocString(falseW
);
70 static HRESULT
Bool_toLocaleString(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
71 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
77 /* ECMA-262 3rd Edition 15.6.4.3 */
78 static HRESULT
Bool_valueOf(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
79 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
83 if(!is_class(dispex
, JSCLASS_BOOLEAN
)) {
84 FIXME("throw TypeError\n");
89 BoolInstance
*bool = (BoolInstance
*)dispex
;
92 V_BOOL(retv
) = bool->val
;
98 static HRESULT
Bool_hasOwnProperty(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
99 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
105 static HRESULT
Bool_propertyIsEnumerable(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
106 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
112 static HRESULT
Bool_isPrototypeOf(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
113 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
119 static HRESULT
Bool_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
120 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
126 static const builtin_prop_t Bool_props
[] = {
127 {hasOwnPropertyW
, Bool_hasOwnProperty
, PROPF_METHOD
},
128 {isPrototypeOfW
, Bool_isPrototypeOf
, PROPF_METHOD
},
129 {propertyIsEnumerableW
, Bool_propertyIsEnumerable
, PROPF_METHOD
},
130 {toLocaleStringW
, Bool_toLocaleString
, PROPF_METHOD
},
131 {toStringW
, Bool_toString
, PROPF_METHOD
},
132 {valueOfW
, Bool_valueOf
, PROPF_METHOD
}
135 static const builtin_info_t Bool_info
= {
137 {NULL
, Bool_value
, 0},
138 sizeof(Bool_props
)/sizeof(*Bool_props
),
144 static HRESULT
BoolConstr_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
145 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
148 VARIANT_BOOL value
= VARIANT_FALSE
;
151 hres
= to_boolean(get_arg(dp
,0), &value
);
157 case DISPATCH_CONSTRUCT
: {
160 hres
= create_bool(dispex
->ctx
, value
, &bool);
164 V_VT(retv
) = VT_DISPATCH
;
165 V_DISPATCH(retv
) = (IDispatch
*)_IDispatchEx_(bool);
171 V_VT(retv
) = VT_BOOL
;
172 V_BOOL(retv
) = value
;
177 FIXME("unimplemented flags %x\n", flags
);
184 static HRESULT
alloc_bool(script_ctx_t
*ctx
, BOOL use_constr
, BoolInstance
**ret
)
189 bool = heap_alloc_zero(sizeof(BoolInstance
));
191 return E_OUTOFMEMORY
;
194 hres
= init_dispex_from_constr(&bool->dispex
, ctx
, &Bool_info
, ctx
->bool_constr
);
196 hres
= init_dispex(&bool->dispex
, ctx
, &Bool_info
, NULL
);
207 HRESULT
create_bool_constr(script_ctx_t
*ctx
, DispatchEx
**ret
)
212 hres
= alloc_bool(ctx
, FALSE
, &bool);
216 hres
= create_builtin_function(ctx
, BoolConstr_value
, NULL
, PROPF_CONSTR
, &bool->dispex
, ret
);
218 jsdisp_release(&bool->dispex
);
222 HRESULT
create_bool(script_ctx_t
*ctx
, VARIANT_BOOL b
, DispatchEx
**ret
)
227 hres
= alloc_bool(ctx
, TRUE
, &bool);
233 *ret
= &bool->dispex
;