jscript: Added object initialiser expression implementation.
[wine] / dlls / jscript / string.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 } StringInstance;
28
29 static const WCHAR lengthW[] = {'l','e','n','g','t','h',0};
30 static const WCHAR toStringW[] = {'t','o','S','t','r','i','n','g',0};
31 static const WCHAR valueOfW[] = {'v','a','l','u','e','O','f',0};
32 static const WCHAR anchorW[] = {'a','n','c','h','o','r',0};
33 static const WCHAR bigW[] = {'b','i','g',0};
34 static const WCHAR blinkW[] = {'b','l','i','n','k',0};
35 static const WCHAR boldW[] = {'b','o','l','d',0};
36 static const WCHAR charAtW[] = {'c','h','a','r','A','t',0};
37 static const WCHAR charCodeAtW[] = {'c','h','a','r','C','o','d','e','A','t',0};
38 static const WCHAR concatW[] = {'c','o','n','c','a','t',0};
39 static const WCHAR fixedW[] = {'f','i','x','e','d',0};
40 static const WCHAR fontcolorW[] = {'f','o','n','t','c','o','l','o','r',0};
41 static const WCHAR fontsizeW[] = {'f','o','n','t','s','i','z','e',0};
42 static const WCHAR indexOfW[] = {'i','n','d','e','x','O','f',0};
43 static const WCHAR italicsW[] = {'i','t','a','l','i','c','s',0};
44 static const WCHAR lastIndexOfW[] = {'l','a','s','t','I','n','d','e','x','O','f',0};
45 static const WCHAR linkW[] = {'l','i','n','k',0};
46 static const WCHAR matchW[] = {'m','a','t','c','h',0};
47 static const WCHAR replaceW[] = {'r','e','p','l','a','c','e',0};
48 static const WCHAR searchW[] = {'s','e','a','r','c','h',0};
49 static const WCHAR sliceW[] = {'s','l','i','c','e',0};
50 static const WCHAR smallW[] = {'s','m','a','l','l',0};
51 static const WCHAR splitW[] = {'s','p','l','i','t',0};
52 static const WCHAR strikeW[] = {'s','t','r','i','k','e',0};
53 static const WCHAR subW[] = {'s','u','b',0};
54 static const WCHAR substringW[] = {'s','u','b','s','t','r','i','n','g',0};
55 static const WCHAR substrW[] = {'s','u','b','s','t','r',0};
56 static const WCHAR supW[] = {'s','u','p',0};
57 static const WCHAR toLowerCaseW[] = {'t','o','L','o','w','e','r','C','a','s','e',0};
58 static const WCHAR toUpperCaseW[] = {'t','o','U','p','p','e','r','C','a','s','e',0};
59 static const WCHAR toLocaleLowerCaseW[] = {'t','o','L','o','c','a','l','e','L','o','w','e','r','C','a','s','e',0};
60 static const WCHAR toLocaleUpperCaseW[] = {'t','o','L','o','c','a','l','e','U','p','p','e','r','C','a','s','e',0};
61 static const WCHAR localeCompareW[] = {'l','o','c','a','l','e','C','o','m','p','a','r','e',0};
62 static const WCHAR hasOwnPropertyW[] = {'h','a','s','O','w','n','P','r','o','p','e','r','t','y',0};
63 static const WCHAR propertyIsEnumerableW[] =
64     {'p','r','o','p','e','r','t','y','I','s','E','n','u','m','e','r','a','b','l','e',0};
65 static const WCHAR isPrototypeOfW[] = {'i','s','P','r','o','t','o','t','y','p','e','O','f',0};
66
67 static void String_destructor(DispatchEx *dispex)
68 {
69     FIXME("\n");
70 }
71
72 static HRESULT String_length(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
73         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
74 {
75     FIXME("\n");
76     return E_NOTIMPL;
77 }
78
79 static HRESULT String_toString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
80         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
81 {
82     FIXME("\n");
83     return E_NOTIMPL;
84 }
85
86 static HRESULT String_valueOf(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
87         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
88 {
89     FIXME("\n");
90     return E_NOTIMPL;
91 }
92
93 static HRESULT String_anchor(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
94         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
95 {
96     FIXME("\n");
97     return E_NOTIMPL;
98 }
99
100 static HRESULT String_big(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
101         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
102 {
103     FIXME("\n");
104     return E_NOTIMPL;
105 }
106
107 static HRESULT String_blink(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
108         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
109 {
110     FIXME("\n");
111     return E_NOTIMPL;
112 }
113
114 static HRESULT String_bold(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
115         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
116 {
117     FIXME("\n");
118     return E_NOTIMPL;
119 }
120
121 static HRESULT String_charAt(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
122         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
123 {
124     FIXME("\n");
125     return E_NOTIMPL;
126 }
127
128 static HRESULT String_charCodeAt(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
129         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
130 {
131     FIXME("\n");
132     return E_NOTIMPL;
133 }
134
135 static HRESULT String_concat(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
136         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
137 {
138     FIXME("\n");
139     return E_NOTIMPL;
140 }
141
142 static HRESULT String_fixed(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
143         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
144 {
145     FIXME("\n");
146     return E_NOTIMPL;
147 }
148
149 static HRESULT String_fontcolor(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
150         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
151 {
152     FIXME("\n");
153     return E_NOTIMPL;
154 }
155
156 static HRESULT String_fontsize(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
157         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
158 {
159     FIXME("\n");
160     return E_NOTIMPL;
161 }
162
163 static HRESULT String_indexOf(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
164         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
165 {
166     FIXME("\n");
167     return E_NOTIMPL;
168 }
169
170 static HRESULT String_italics(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
171         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
172 {
173     FIXME("\n");
174     return E_NOTIMPL;
175 }
176
177 static HRESULT String_lastIndexOf(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
178         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
179 {
180     FIXME("\n");
181     return E_NOTIMPL;
182 }
183
184 static HRESULT String_link(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
185         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
186 {
187     FIXME("\n");
188     return E_NOTIMPL;
189 }
190
191 static HRESULT String_match(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
192         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
193 {
194     FIXME("\n");
195     return E_NOTIMPL;
196 }
197
198 static HRESULT String_replace(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
199         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
200 {
201     FIXME("\n");
202     return E_NOTIMPL;
203 }
204
205 static HRESULT String_search(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
206         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
207 {
208     FIXME("\n");
209     return E_NOTIMPL;
210 }
211
212 static HRESULT String_slice(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
213         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
214 {
215     FIXME("\n");
216     return E_NOTIMPL;
217 }
218
219 static HRESULT String_small(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
220         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
221 {
222     FIXME("\n");
223     return E_NOTIMPL;
224 }
225
226 static HRESULT String_split(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
227         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
228 {
229     FIXME("\n");
230     return E_NOTIMPL;
231 }
232
233 static HRESULT String_strike(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
234         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
235 {
236     FIXME("\n");
237     return E_NOTIMPL;
238 }
239
240 static HRESULT String_sub(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
241         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
242 {
243     FIXME("\n");
244     return E_NOTIMPL;
245 }
246
247 static HRESULT String_substring(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
248         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
249 {
250     FIXME("\n");
251     return E_NOTIMPL;
252 }
253
254 static HRESULT String_substr(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
255         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
256 {
257     FIXME("\n");
258     return E_NOTIMPL;
259 }
260
261 static HRESULT String_sup(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
262         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
263 {
264     FIXME("\n");
265     return E_NOTIMPL;
266 }
267
268 static HRESULT String_toLowerCase(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
269         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
270 {
271     FIXME("\n");
272     return E_NOTIMPL;
273 }
274
275 static HRESULT String_toUpperCase(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
276         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
277 {
278     FIXME("\n");
279     return E_NOTIMPL;
280 }
281
282 static HRESULT String_toLocaleLowerCase(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
283         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
284 {
285     FIXME("\n");
286     return E_NOTIMPL;
287 }
288
289 static HRESULT String_toLocaleUpperCase(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
290         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
291 {
292     FIXME("\n");
293     return E_NOTIMPL;
294 }
295
296 static HRESULT String_localeCompare(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
297         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
298 {
299     FIXME("\n");
300     return E_NOTIMPL;
301 }
302
303 static HRESULT String_hasOwnProperty(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
304         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
305 {
306     FIXME("\n");
307     return E_NOTIMPL;
308 }
309
310 static HRESULT String_propertyIsEnumerable(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
311         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
312 {
313     FIXME("\n");
314     return E_NOTIMPL;
315 }
316
317 static HRESULT String_isPrototypeOf(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
318         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
319 {
320     FIXME("\n");
321     return E_NOTIMPL;
322 }
323
324 static HRESULT String_value(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
325         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
326 {
327     FIXME("\n");
328     return E_NOTIMPL;
329 }
330
331 static const builtin_prop_t String_props[] = {
332     {anchorW,                String_anchor,                PROPF_METHOD},
333     {bigW,                   String_big,                   PROPF_METHOD},
334     {blinkW,                 String_blink,                 PROPF_METHOD},
335     {boldW,                  String_bold,                  PROPF_METHOD},
336     {charAtW,                String_charAt,                PROPF_METHOD},
337     {charCodeAtW,            String_charCodeAt,            PROPF_METHOD},
338     {concatW,                String_concat,                PROPF_METHOD},
339     {fixedW,                 String_fixed,                 PROPF_METHOD},
340     {fontcolorW,             String_fontcolor,             PROPF_METHOD},
341     {fontsizeW,              String_fontsize,              PROPF_METHOD},
342     {hasOwnPropertyW,        String_hasOwnProperty,        PROPF_METHOD},
343     {indexOfW,               String_indexOf,               PROPF_METHOD},
344     {isPrototypeOfW,         String_isPrototypeOf,         PROPF_METHOD},
345     {italicsW,               String_italics,               PROPF_METHOD},
346     {lastIndexOfW,           String_lastIndexOf,           PROPF_METHOD},
347     {lengthW,                String_length,                0},
348     {linkW,                  String_link,                  PROPF_METHOD},
349     {localeCompareW,         String_localeCompare,         PROPF_METHOD},
350     {matchW,                 String_match,                 PROPF_METHOD},
351     {propertyIsEnumerableW,  String_propertyIsEnumerable,  PROPF_METHOD},
352     {replaceW,               String_replace,               PROPF_METHOD},
353     {searchW,                String_search,                PROPF_METHOD},
354     {sliceW,                 String_slice,                 PROPF_METHOD},
355     {smallW,                 String_small,                 PROPF_METHOD},
356     {splitW,                 String_split,                 PROPF_METHOD},
357     {strikeW,                String_strike,                PROPF_METHOD},
358     {substringW,             String_substring,             PROPF_METHOD},
359     {substrW,                String_substr,                PROPF_METHOD},
360     {subW,                   String_sub,                   PROPF_METHOD},
361     {supW,                   String_sup,                   PROPF_METHOD},
362     {toLocaleLowerCaseW,     String_toLocaleLowerCase,     PROPF_METHOD},
363     {toLocaleUpperCaseW,     String_toLocaleUpperCase,     PROPF_METHOD},
364     {toLowerCaseW,           String_toLowerCase,           PROPF_METHOD},
365     {toStringW,              String_toString,              PROPF_METHOD},
366     {toUpperCaseW,           String_toUpperCase,           PROPF_METHOD},
367     {valueOfW,               String_valueOf,               PROPF_METHOD}
368 };
369
370 static const builtin_info_t String_info = {
371     JSCLASS_STRING,
372     {NULL, String_value, 0},
373     sizeof(String_props)/sizeof(*String_props),
374     String_props,
375     String_destructor,
376     NULL
377 };
378
379 static HRESULT StringConstr_value(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
380         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
381 {
382     FIXME("\n");
383     return E_NOTIMPL;
384 }
385
386 static HRESULT string_alloc(script_ctx_t *ctx, BOOL use_constr, StringInstance **ret)
387 {
388     StringInstance *string;
389     HRESULT hres;
390
391     string = heap_alloc_zero(sizeof(StringInstance));
392     if(!string)
393         return E_OUTOFMEMORY;
394
395     if(use_constr)
396         hres = init_dispex_from_constr(&string->dispex, ctx, &String_info, ctx->string_constr);
397     else
398         hres = init_dispex(&string->dispex, ctx, &String_info, NULL);
399     if(FAILED(hres)) {
400         heap_free(string);
401         return hres;
402     }
403
404     *ret = string;
405     return S_OK;
406 }
407
408 HRESULT create_string_constr(script_ctx_t *ctx, DispatchEx **ret)
409 {
410     StringInstance *string;
411     HRESULT hres;
412
413     hres = string_alloc(ctx, FALSE, &string);
414     if(FAILED(hres))
415         return hres;
416
417     hres = create_builtin_function(ctx, StringConstr_value, PROPF_CONSTR, &string->dispex, ret);
418
419     jsdisp_release(&string->dispex);
420     return hres;
421 }