jscript: Added Number constructor object implementation.
[wine] / dlls / jscript / number.c
1 /*
2  * Copyright 2008 Jacek Caban for CodeWeavers
3  *
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.
8  *
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.
13  *
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
17  */
18
19 #include "jscript.h"
20
21 #include "wine/debug.h"
22
23 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
24
25 typedef struct {
26     DispatchEx dispex;
27 } NumberInstance;
28
29 static const WCHAR toStringW[] = {'t','o','S','t','r','i','n','g',0};
30 static const WCHAR toLocaleStringW[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
31 static const WCHAR toFixedW[] = {'t','o','F','i','x','e','d',0};
32 static const WCHAR toExponentialW[] = {'t','o','E','x','p','o','n','e','n','t','i','a','l',0};
33 static const WCHAR toPrecisionW[] = {'t','o','P','r','e','c','i','s','i','o','n',0};
34 static const WCHAR valueOfW[] = {'v','a','l','u','e','O','f',0};
35 static const WCHAR hasOwnPropertyW[] = {'h','a','s','O','w','n','P','r','o','p','e','r','t','y',0};
36 static const WCHAR propertyIsEnumerableW[] =
37     {'p','r','o','p','e','r','t','y','I','s','E','n','u','m','e','r','a','b','l','e',0};
38 static const WCHAR isPrototypeOfW[] = {'i','s','P','r','o','t','o','t','y','p','e','O','f',0};
39
40 static HRESULT Number_toString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
41         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
42 {
43     FIXME("\n");
44     return E_NOTIMPL;
45 }
46
47 static HRESULT Number_toLocaleString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
48         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
49 {
50     FIXME("\n");
51     return E_NOTIMPL;
52 }
53
54 static HRESULT Number_toFixed(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
55         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
56 {
57     FIXME("\n");
58     return E_NOTIMPL;
59 }
60
61 static HRESULT Number_toExponential(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
62         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
63 {
64     FIXME("\n");
65     return E_NOTIMPL;
66 }
67
68 static HRESULT Number_toPrecision(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
69         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
70 {
71     FIXME("\n");
72     return E_NOTIMPL;
73 }
74
75 static HRESULT Number_valueOf(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
76         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
77 {
78     FIXME("\n");
79     return E_NOTIMPL;
80 }
81
82 static HRESULT Number_hasOwnProperty(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
83         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
84 {
85     FIXME("\n");
86     return E_NOTIMPL;
87 }
88
89 static HRESULT Number_propertyIsEnumerable(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
90         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
91 {
92     FIXME("\n");
93     return E_NOTIMPL;
94 }
95
96 static HRESULT Number_isPrototypeOf(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
97         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
98 {
99     FIXME("\n");
100     return E_NOTIMPL;
101 }
102
103 static HRESULT Number_value(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
104         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
105 {
106     FIXME("\n");
107     return E_NOTIMPL;
108 }
109
110 static const builtin_prop_t Number_props[] = {
111     {hasOwnPropertyW,        Number_hasOwnProperty,        PROPF_METHOD},
112     {isPrototypeOfW,         Number_isPrototypeOf,         PROPF_METHOD},
113     {propertyIsEnumerableW,  Number_propertyIsEnumerable,  PROPF_METHOD},
114     {toExponentialW,         Number_toExponential,         PROPF_METHOD},
115     {toFixedW,               Number_toFixed,               PROPF_METHOD},
116     {toLocaleStringW,        Number_toLocaleString,        PROPF_METHOD},
117     {toPrecisionW,           Number_toPrecision,           PROPF_METHOD},
118     {toStringW,              Number_toString,              PROPF_METHOD},
119     {valueOfW,               Number_valueOf,               PROPF_METHOD}
120 };
121
122 static const builtin_info_t Number_info = {
123     JSCLASS_NUMBER,
124     {NULL, Number_value, 0},
125     sizeof(Number_props)/sizeof(*Number_props),
126     Number_props,
127     NULL,
128     NULL
129 };
130
131 static HRESULT NumberConstr_value(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
132         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
133 {
134     FIXME("\n");
135     return E_NOTIMPL;
136 }
137
138 static HRESULT alloc_number(script_ctx_t *ctx, BOOL use_constr, NumberInstance **ret)
139 {
140     NumberInstance *number = heap_alloc_zero(sizeof(NumberInstance));
141     HRESULT hres;
142
143     if(use_constr)
144         hres = init_dispex_from_constr(&number->dispex, ctx, &Number_info, ctx->number_constr);
145     else
146         hres = init_dispex(&number->dispex, ctx, &Number_info, NULL);
147     if(FAILED(hres))
148         return hres;
149
150     *ret = number;
151     return S_OK;
152 }
153
154 HRESULT create_number_constr(script_ctx_t *ctx, DispatchEx **ret)
155 {
156     NumberInstance *number;
157     HRESULT hres;
158
159     hres = alloc_number(ctx, FALSE, &number);
160     if(FAILED(hres))
161         return hres;
162
163     hres = create_builtin_function(ctx, NumberConstr_value, PROPF_CONSTR, &number->dispex, ret);
164
165     jsdisp_release(&number->dispex);
166     return hres;
167 }