Git conversion: Make reactos the root directory, move rosapps, rostests, wallpapers into modules, and delete rossubsys.

dll/win32/jscript/bool.c

@@ -0,0 +1,223 @@
+/*
+ * Copyright 2008 Jacek Caban for CodeWeavers
+ * Copyright 2009 Piotr Caban
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#include "jscript.h"
+
+typedef struct {
+    jsdisp_t dispex;
+
+    BOOL val;
+} BoolInstance;
+
+static const WCHAR toStringW[] = {'t','o','S','t','r','i','n','g',0};
+static const WCHAR valueOfW[] = {'v','a','l','u','e','O','f',0};
+
+static inline BoolInstance *bool_from_jsdisp(jsdisp_t *jsdisp)
+{
+    return CONTAINING_RECORD(jsdisp, BoolInstance, dispex);
+}
+
+static inline BoolInstance *bool_from_vdisp(vdisp_t *vdisp)
+{
+    return bool_from_jsdisp(vdisp->u.jsdisp);
+}
+
+static inline BoolInstance *bool_this(vdisp_t *jsthis)
+{
+    return is_vclass(jsthis, JSCLASS_BOOLEAN) ? bool_from_vdisp(jsthis) : NULL;
+}
+
+BOOL bool_obj_value(jsdisp_t *obj)
+{
+    assert(is_class(obj, JSCLASS_BOOLEAN));
+    return bool_from_jsdisp(obj)->val;
+}
+
+/* ECMA-262 3rd Edition    15.6.4.2 */
+static HRESULT Bool_toString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
+{
+    BoolInstance *bool;
+
+    static const WCHAR trueW[] = {'t','r','u','e',0};
+    static const WCHAR falseW[] = {'f','a','l','s','e',0};
+
+    TRACE("\n");
+
+    if(!(bool = bool_this(jsthis)))
+        return throw_type_error(ctx, JS_E_BOOLEAN_EXPECTED, NULL);
+
+    if(r) {
+        jsstr_t *val;
+
+        val = jsstr_alloc(bool->val ? trueW : falseW);
+        if(!val)
+            return E_OUTOFMEMORY;
+
+        *r = jsval_string(val);
+    }
+
+    return S_OK;
+}
+
+/* ECMA-262 3rd Edition    15.6.4.3 */
+static HRESULT Bool_valueOf(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
+{
+    BoolInstance *bool;
+
+    TRACE("\n");
+
+    if(!(bool = bool_this(jsthis)))
+        return throw_type_error(ctx, JS_E_BOOLEAN_EXPECTED, NULL);
+
+    if(r)
+        *r = jsval_bool(bool->val);
+    return S_OK;
+}
+
+static HRESULT Bool_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
+        jsval_t *r)
+{
+    TRACE("\n");
+
+    switch(flags) {
+    case INVOKE_FUNC:
+        return throw_type_error(ctx, JS_E_FUNCTION_EXPECTED, NULL);
+    default:
+        FIXME("unimplemented flags %x\n", flags);
+        return E_NOTIMPL;
+    }
+
+    return S_OK;
+
+}
+
+static const builtin_prop_t Bool_props[] = {
+    {toStringW,              Bool_toString,             PROPF_METHOD},
+    {valueOfW,               Bool_valueOf,              PROPF_METHOD}
+};
+
+static const builtin_info_t Bool_info = {
+    JSCLASS_BOOLEAN,
+    {NULL, Bool_value, 0},
+    sizeof(Bool_props)/sizeof(*Bool_props),
+    Bool_props,
+    NULL,
+    NULL
+};
+
+static const builtin_info_t BoolInst_info = {
+    JSCLASS_BOOLEAN,
+    {NULL, Bool_value, 0},
+    0, NULL,
+    NULL,
+    NULL
+};
+
+static HRESULT BoolConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
+        jsval_t *r)
+{
+    BOOL value = FALSE;
+    HRESULT hres;
+
+    if(argc) {
+        hres = to_boolean(argv[0], &value);
+        if(FAILED(hres))
+            return hres;
+    }
+
+    switch(flags) {
+    case DISPATCH_CONSTRUCT: {
+        jsdisp_t *bool;
+
+        hres = create_bool(ctx, value, &bool);
+        if(FAILED(hres))
+            return hres;
+
+        *r = jsval_obj(bool);
+        return S_OK;
+    }
+
+    case INVOKE_FUNC:
+        if(r)
+            *r = jsval_bool(value);
+        return S_OK;
+
+    default:
+        FIXME("unimplemented flags %x\n", flags);
+        return E_NOTIMPL;
+    }
+
+    return S_OK;
+}
+
+static HRESULT alloc_bool(script_ctx_t *ctx, jsdisp_t *object_prototype, BoolInstance **ret)
+{
+    BoolInstance *bool;
+    HRESULT hres;
+
+    bool = heap_alloc_zero(sizeof(BoolInstance));
+    if(!bool)
+        return E_OUTOFMEMORY;
+
+    if(object_prototype)
+        hres = init_dispex(&bool->dispex, ctx, &Bool_info, object_prototype);
+    else
+        hres = init_dispex_from_constr(&bool->dispex, ctx, &BoolInst_info, ctx->bool_constr);
+
+    if(FAILED(hres)) {
+        heap_free(bool);
+        return hres;
+    }
+
+    *ret = bool;
+    return S_OK;
+}
+
+HRESULT create_bool_constr(script_ctx_t *ctx, jsdisp_t *object_prototype, jsdisp_t **ret)
+{
+    BoolInstance *bool;
+    HRESULT hres;
+
+    static const WCHAR BooleanW[] = {'B','o','o','l','e','a','n',0};
+
+    hres = alloc_bool(ctx, object_prototype, &bool);
+    if(FAILED(hres))
+        return hres;
+
+    hres = create_builtin_constructor(ctx, BoolConstr_value, BooleanW, NULL,
+            PROPF_CONSTR|1, &bool->dispex, ret);
+
+    jsdisp_release(&bool->dispex);
+    return hres;
+}
+
+HRESULT create_bool(script_ctx_t *ctx, BOOL b, jsdisp_t **ret)
+{
+    BoolInstance *bool;
+    HRESULT hres;
+
+    hres = alloc_bool(ctx, NULL, &bool);
+    if(FAILED(hres))
+        return hres;
+
+    bool->val = b;
+
+    *ret = &bool->dispex;
+    return S_OK;
+}