2 * Copyright 2008 Jacek Caban for CodeWeavers
3 * Copyright 2009 Piotr Caban
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2.1 of the License, or (at your option) any later version.
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "wine/debug.h"
24 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
32 static const WCHAR toStringW
[] = {'t','o','S','t','r','i','n','g',0};
33 static const WCHAR valueOfW
[] = {'v','a','l','u','e','O','f',0};
35 static inline BoolInstance
*bool_this(vdisp_t
*jsthis
)
37 return is_vclass(jsthis
, JSCLASS_BOOLEAN
) ? (BoolInstance
*)jsthis
->u
.jsdisp
: NULL
;
40 /* ECMA-262 3rd Edition 15.6.4.2 */
41 static HRESULT
Bool_toString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
42 VARIANT
*retv
, jsexcept_t
*ei
)
46 static const WCHAR trueW
[] = {'t','r','u','e',0};
47 static const WCHAR falseW
[] = {'f','a','l','s','e',0};
51 if(!(bool = bool_this(jsthis
)))
52 return throw_type_error(ctx
, ei
, JS_E_BOOLEAN_EXPECTED
, NULL
);
57 if(bool->val
) val
= SysAllocString(trueW
);
58 else val
= SysAllocString(falseW
);
70 /* ECMA-262 3rd Edition 15.6.4.3 */
71 static HRESULT
Bool_valueOf(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
72 VARIANT
*retv
, jsexcept_t
*ei
)
78 if(!(bool = bool_this(jsthis
)))
79 return throw_type_error(ctx
, ei
, JS_E_BOOLEAN_EXPECTED
, NULL
);
83 V_BOOL(retv
) = bool->val
;
89 static HRESULT
Bool_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
90 VARIANT
*retv
, jsexcept_t
*ei
)
96 return throw_type_error(ctx
, ei
, JS_E_FUNCTION_EXPECTED
, NULL
);
98 FIXME("unimplemented flags %x\n", flags
);
106 static const builtin_prop_t Bool_props
[] = {
107 {toStringW
, Bool_toString
, PROPF_METHOD
},
108 {valueOfW
, Bool_valueOf
, PROPF_METHOD
}
111 static const builtin_info_t Bool_info
= {
113 {NULL
, Bool_value
, 0},
114 sizeof(Bool_props
)/sizeof(*Bool_props
),
120 static const builtin_info_t BoolInst_info
= {
122 {NULL
, Bool_value
, 0},
128 static HRESULT
BoolConstr_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, VARIANT
*argv
,
129 VARIANT
*retv
, jsexcept_t
*ei
)
132 VARIANT_BOOL value
= VARIANT_FALSE
;
135 hres
= to_boolean(argv
, &value
);
141 case DISPATCH_CONSTRUCT
: {
144 hres
= create_bool(ctx
, value
, &bool);
148 var_set_jsdisp(retv
, bool);
154 V_VT(retv
) = VT_BOOL
;
155 V_BOOL(retv
) = value
;
160 FIXME("unimplemented flags %x\n", flags
);
167 static HRESULT
alloc_bool(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
, BoolInstance
**ret
)
172 bool = heap_alloc_zero(sizeof(BoolInstance
));
174 return E_OUTOFMEMORY
;
177 hres
= init_dispex(&bool->dispex
, ctx
, &Bool_info
, object_prototype
);
179 hres
= init_dispex_from_constr(&bool->dispex
, ctx
, &BoolInst_info
, ctx
->bool_constr
);
190 HRESULT
create_bool_constr(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
, jsdisp_t
**ret
)
195 static const WCHAR BooleanW
[] = {'B','o','o','l','e','a','n',0};
197 hres
= alloc_bool(ctx
, object_prototype
, &bool);
201 hres
= create_builtin_constructor(ctx
, BoolConstr_value
, BooleanW
, NULL
,
202 PROPF_CONSTR
|1, &bool->dispex
, ret
);
204 jsdisp_release(&bool->dispex
);
208 HRESULT
create_bool(script_ctx_t
*ctx
, VARIANT_BOOL b
, jsdisp_t
**ret
)
213 hres
= alloc_bool(ctx
, NULL
, &bool);
219 *ret
= &bool->dispex
;