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
);
32 static const WCHAR lengthW
[] = {'l','e','n','g','t','h',0};
33 static const WCHAR toStringW
[] = {'t','o','S','t','r','i','n','g',0};
34 static const WCHAR valueOfW
[] = {'v','a','l','u','e','O','f',0};
35 static const WCHAR anchorW
[] = {'a','n','c','h','o','r',0};
36 static const WCHAR bigW
[] = {'b','i','g',0};
37 static const WCHAR blinkW
[] = {'b','l','i','n','k',0};
38 static const WCHAR boldW
[] = {'b','o','l','d',0};
39 static const WCHAR charAtW
[] = {'c','h','a','r','A','t',0};
40 static const WCHAR charCodeAtW
[] = {'c','h','a','r','C','o','d','e','A','t',0};
41 static const WCHAR concatW
[] = {'c','o','n','c','a','t',0};
42 static const WCHAR fixedW
[] = {'f','i','x','e','d',0};
43 static const WCHAR fontcolorW
[] = {'f','o','n','t','c','o','l','o','r',0};
44 static const WCHAR fontsizeW
[] = {'f','o','n','t','s','i','z','e',0};
45 static const WCHAR indexOfW
[] = {'i','n','d','e','x','O','f',0};
46 static const WCHAR italicsW
[] = {'i','t','a','l','i','c','s',0};
47 static const WCHAR lastIndexOfW
[] = {'l','a','s','t','I','n','d','e','x','O','f',0};
48 static const WCHAR linkW
[] = {'l','i','n','k',0};
49 static const WCHAR matchW
[] = {'m','a','t','c','h',0};
50 static const WCHAR replaceW
[] = {'r','e','p','l','a','c','e',0};
51 static const WCHAR searchW
[] = {'s','e','a','r','c','h',0};
52 static const WCHAR sliceW
[] = {'s','l','i','c','e',0};
53 static const WCHAR smallW
[] = {'s','m','a','l','l',0};
54 static const WCHAR splitW
[] = {'s','p','l','i','t',0};
55 static const WCHAR strikeW
[] = {'s','t','r','i','k','e',0};
56 static const WCHAR subW
[] = {'s','u','b',0};
57 static const WCHAR substringW
[] = {'s','u','b','s','t','r','i','n','g',0};
58 static const WCHAR substrW
[] = {'s','u','b','s','t','r',0};
59 static const WCHAR supW
[] = {'s','u','p',0};
60 static const WCHAR toLowerCaseW
[] = {'t','o','L','o','w','e','r','C','a','s','e',0};
61 static const WCHAR toUpperCaseW
[] = {'t','o','U','p','p','e','r','C','a','s','e',0};
62 static const WCHAR toLocaleLowerCaseW
[] = {'t','o','L','o','c','a','l','e','L','o','w','e','r','C','a','s','e',0};
63 static const WCHAR toLocaleUpperCaseW
[] = {'t','o','L','o','c','a','l','e','U','p','p','e','r','C','a','s','e',0};
64 static const WCHAR localeCompareW
[] = {'l','o','c','a','l','e','C','o','m','p','a','r','e',0};
65 static const WCHAR fromCharCodeW
[] = {'f','r','o','m','C','h','a','r','C','o','d','e',0};
67 static inline StringInstance
*string_from_vdisp(vdisp_t
*vdisp
)
69 return (StringInstance
*)vdisp
->u
.jsdisp
;
72 static inline StringInstance
*string_this(vdisp_t
*jsthis
)
74 return is_vclass(jsthis
, JSCLASS_STRING
) ? string_from_vdisp(jsthis
) : NULL
;
77 static HRESULT
get_string_val(script_ctx_t
*ctx
, vdisp_t
*jsthis
, jsexcept_t
*ei
,
78 const WCHAR
**str
, DWORD
*len
, BSTR
*val_str
)
80 StringInstance
*string
;
84 if((string
= string_this(jsthis
))) {
86 *len
= string
->length
;
91 V_VT(&this_var
) = VT_DISPATCH
;
92 V_DISPATCH(&this_var
) = jsthis
->u
.disp
;
93 hres
= to_string(ctx
, &this_var
, ei
, val_str
);
98 *len
= SysStringLen(*val_str
);
102 static HRESULT
String_length(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
103 VARIANT
*retv
, jsexcept_t
*ei
)
105 TRACE("%p\n", jsthis
);
108 case DISPATCH_PROPERTYGET
: {
109 StringInstance
*string
= string_from_vdisp(jsthis
);
112 V_I4(retv
) = string
->length
;
116 FIXME("unimplemented flags %x\n", flags
);
123 static HRESULT
stringobj_to_string(vdisp_t
*jsthis
, VARIANT
*retv
)
125 StringInstance
*string
;
127 if(!(string
= string_this(jsthis
))) {
128 WARN("this is not a string object\n");
133 BSTR str
= SysAllocString(string
->str
);
135 return E_OUTOFMEMORY
;
137 V_VT(retv
) = VT_BSTR
;
143 /* ECMA-262 3rd Edition 15.5.4.2 */
144 static HRESULT
String_toString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
145 VARIANT
*retv
, jsexcept_t
*ei
)
149 return stringobj_to_string(jsthis
, retv
);
152 /* ECMA-262 3rd Edition 15.5.4.2 */
153 static HRESULT
String_valueOf(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
154 VARIANT
*retv
, jsexcept_t
*ei
)
158 return stringobj_to_string(jsthis
, retv
);
161 static HRESULT
do_attributeless_tag_format(script_ctx_t
*ctx
, vdisp_t
*jsthis
, VARIANT
*retv
,
162 jsexcept_t
*ei
, const WCHAR
*tagname
)
169 static const WCHAR tagfmt
[] = {'<','%','s','>','%','s','<','/','%','s','>',0};
171 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
176 BSTR ret
= SysAllocStringLen(NULL
, length
+ 2*strlenW(tagname
) + 5);
178 SysFreeString(val_str
);
179 return E_OUTOFMEMORY
;
182 sprintfW(ret
, tagfmt
, tagname
, str
, tagname
);
184 V_VT(retv
) = VT_BSTR
;
188 SysFreeString(val_str
);
192 static HRESULT
do_attribute_tag_format(script_ctx_t
*ctx
, vdisp_t
*jsthis
, DISPPARAMS
*dp
, VARIANT
*retv
,
193 jsexcept_t
*ei
, const WCHAR
*tagname
, const WCHAR
*attr
)
195 static const WCHAR tagfmtW
[]
196 = {'<','%','s',' ','%','s','=','\"','%','s','\"','>','%','s','<','/','%','s','>',0};
197 static const WCHAR undefinedW
[] = {'u','n','d','e','f','i','n','e','d',0};
199 StringInstance
*string
;
202 BSTR attr_value
, val_str
= NULL
;
205 if(!(string
= string_this(jsthis
))) {
208 V_VT(&this) = VT_DISPATCH
;
209 V_DISPATCH(&this) = jsthis
->u
.disp
;
211 hres
= to_string(ctx
, &this, ei
, &val_str
);
216 length
= SysStringLen(val_str
);
220 length
= string
->length
;
224 hres
= to_string(ctx
, get_arg(dp
, 0), ei
, &attr_value
);
226 SysFreeString(val_str
);
231 attr_value
= SysAllocString(undefinedW
);
233 SysFreeString(val_str
);
234 return E_OUTOFMEMORY
;
239 BSTR ret
= SysAllocStringLen(NULL
, length
+ 2*strlenW(tagname
)
240 + strlenW(attr
) + SysStringLen(attr_value
) + 9);
242 SysFreeString(attr_value
);
243 SysFreeString(val_str
);
244 return E_OUTOFMEMORY
;
247 sprintfW(ret
, tagfmtW
, tagname
, attr
, attr_value
, str
, tagname
);
249 V_VT(retv
) = VT_BSTR
;
253 SysFreeString(attr_value
);
254 SysFreeString(val_str
);
258 static HRESULT
String_anchor(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
259 VARIANT
*retv
, jsexcept_t
*ei
)
261 static const WCHAR fontW
[] = {'A',0};
262 static const WCHAR colorW
[] = {'N','A','M','E',0};
264 return do_attribute_tag_format(ctx
, jsthis
, dp
, retv
, ei
, fontW
, colorW
);
267 static HRESULT
String_big(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
268 VARIANT
*retv
, jsexcept_t
*ei
)
270 static const WCHAR bigtagW
[] = {'B','I','G',0};
271 return do_attributeless_tag_format(ctx
, jsthis
, retv
, ei
, bigtagW
);
274 static HRESULT
String_blink(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
275 VARIANT
*retv
, jsexcept_t
*ei
)
277 static const WCHAR blinktagW
[] = {'B','L','I','N','K',0};
278 return do_attributeless_tag_format(ctx
, jsthis
, retv
, ei
, blinktagW
);
281 static HRESULT
String_bold(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
282 VARIANT
*retv
, jsexcept_t
*ei
)
284 static const WCHAR boldtagW
[] = {'B',0};
285 return do_attributeless_tag_format(ctx
, jsthis
, retv
, ei
, boldtagW
);
288 /* ECMA-262 3rd Edition 15.5.4.5 */
289 static HRESULT
String_charAt(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
290 VARIANT
*retv
, jsexcept_t
*ei
)
300 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
307 hres
= to_integer(ctx
, get_arg(dp
, 0), ei
, &num
);
309 SysFreeString(val_str
);
313 if(V_VT(&num
) == VT_I4
) {
316 WARN("pos = %lf\n", V_R8(&num
));
322 SysFreeString(val_str
);
326 if(0 <= pos
&& pos
< length
)
327 ret
= SysAllocStringLen(str
+pos
, 1);
329 ret
= SysAllocStringLen(NULL
, 0);
330 SysFreeString(val_str
);
332 return E_OUTOFMEMORY
;
335 V_VT(retv
) = VT_BSTR
;
340 /* ECMA-262 3rd Edition 15.5.4.5 */
341 static HRESULT
String_charCodeAt(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
342 VARIANT
*retv
, jsexcept_t
*ei
)
346 DWORD length
, idx
= 0;
351 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
355 if(arg_cnt(dp
) > 0) {
358 hres
= to_integer(ctx
, get_arg(dp
, 0), ei
, &v
);
360 SysFreeString(val_str
);
364 if(V_VT(&v
) != VT_I4
|| V_I4(&v
) < 0 || V_I4(&v
) >= length
) {
365 if(retv
) num_set_nan(&v
);
366 SysFreeString(val_str
);
375 V_I4(retv
) = str
[idx
];
378 SysFreeString(val_str
);
382 /* ECMA-262 3rd Edition 15.5.4.6 */
383 static HRESULT
String_concat(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
384 VARIANT
*retv
, jsexcept_t
*ei
)
386 BSTR
*strs
= NULL
, ret
= NULL
;
387 DWORD len
= 0, i
, l
, str_cnt
;
394 str_cnt
= arg_cnt(dp
)+1;
395 strs
= heap_alloc_zero(str_cnt
* sizeof(BSTR
));
397 return E_OUTOFMEMORY
;
399 V_VT(&var
) = VT_DISPATCH
;
400 V_DISPATCH(&var
) = jsthis
->u
.disp
;
402 hres
= to_string(ctx
, &var
, ei
, strs
);
403 if(SUCCEEDED(hres
)) {
404 for(i
=0; i
< arg_cnt(dp
); i
++) {
405 hres
= to_string(ctx
, get_arg(dp
, i
), ei
, strs
+i
+1);
411 if(SUCCEEDED(hres
)) {
412 for(i
=0; i
< str_cnt
; i
++)
413 len
+= SysStringLen(strs
[i
]);
415 ptr
= ret
= SysAllocStringLen(NULL
, len
);
417 for(i
=0; i
< str_cnt
; i
++) {
418 l
= SysStringLen(strs
[i
]);
419 memcpy(ptr
, strs
[i
], l
*sizeof(WCHAR
));
424 for(i
=0; i
< str_cnt
; i
++)
425 SysFreeString(strs
[i
]);
432 V_VT(retv
) = VT_BSTR
;
440 static HRESULT
String_fixed(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
441 VARIANT
*retv
, jsexcept_t
*ei
)
443 static const WCHAR fixedtagW
[] = {'T','T',0};
444 return do_attributeless_tag_format(ctx
, jsthis
, retv
, ei
, fixedtagW
);
447 static HRESULT
String_fontcolor(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
448 VARIANT
*retv
, jsexcept_t
*ei
)
450 static const WCHAR fontW
[] = {'F','O','N','T',0};
451 static const WCHAR colorW
[] = {'C','O','L','O','R',0};
453 return do_attribute_tag_format(ctx
, jsthis
, dp
, retv
, ei
, fontW
, colorW
);
456 static HRESULT
String_fontsize(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
457 VARIANT
*retv
, jsexcept_t
*ei
)
459 static const WCHAR fontW
[] = {'F','O','N','T',0};
460 static const WCHAR colorW
[] = {'S','I','Z','E',0};
462 return do_attribute_tag_format(ctx
, jsthis
, dp
, retv
, ei
, fontW
, colorW
);
465 static HRESULT
String_indexOf(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
466 VARIANT
*retv
, jsexcept_t
*ei
)
468 DWORD length
, pos
= 0;
470 BSTR search_str
, val_str
;
476 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
485 SysFreeString(val_str
);
489 hres
= to_string(ctx
, get_arg(dp
,0), ei
, &search_str
);
491 SysFreeString(val_str
);
495 if(arg_cnt(dp
) >= 2) {
498 hres
= to_integer(ctx
, get_arg(dp
,1), ei
, &ival
);
499 if(SUCCEEDED(hres
)) {
500 if(V_VT(&ival
) == VT_I4
)
501 pos
= V_VT(&ival
) > 0 ? V_I4(&ival
) : 0;
503 pos
= V_R8(&ival
) > 0.0 ? length
: 0;
509 if(SUCCEEDED(hres
)) {
512 ptr
= strstrW(str
+pos
, search_str
);
519 SysFreeString(search_str
);
520 SysFreeString(val_str
);
531 static HRESULT
String_italics(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
532 VARIANT
*retv
, jsexcept_t
*ei
)
534 static const WCHAR italicstagW
[] = {'I',0};
535 return do_attributeless_tag_format(ctx
, jsthis
, retv
, ei
, italicstagW
);
538 /* ECMA-262 3rd Edition 15.5.4.8 */
539 static HRESULT
String_lastIndexOf(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
540 VARIANT
*retv
, jsexcept_t
*ei
)
542 BSTR search_str
, val_str
;
543 DWORD length
, pos
, search_len
;
550 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
559 SysFreeString(val_str
);
563 hres
= to_string(ctx
, get_arg(dp
,0), ei
, &search_str
);
565 SysFreeString(val_str
);
569 search_len
= SysStringLen(search_str
);
571 if(arg_cnt(dp
) >= 2) {
574 hres
= to_integer(ctx
, get_arg(dp
,1), ei
, &ival
);
575 if(SUCCEEDED(hres
)) {
576 if(V_VT(&ival
) == VT_I4
)
577 pos
= V_VT(&ival
) > 0 ? V_I4(&ival
) : 0;
579 pos
= V_R8(&ival
) > 0.0 ? length
: 0;
587 if(SUCCEEDED(hres
) && length
>= search_len
) {
590 for(ptr
= str
+min(pos
, length
-search_len
); ptr
>= str
; ptr
--) {
591 if(!memcmp(ptr
, search_str
, search_len
*sizeof(WCHAR
))) {
598 SysFreeString(search_str
);
599 SysFreeString(val_str
);
610 static HRESULT
String_link(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
611 VARIANT
*retv
, jsexcept_t
*ei
)
613 static const WCHAR fontW
[] = {'A',0};
614 static const WCHAR colorW
[] = {'H','R','E','F',0};
616 return do_attribute_tag_format(ctx
, jsthis
, dp
, retv
, ei
, fontW
, colorW
);
619 /* ECMA-262 3rd Edition 15.5.4.10 */
620 static HRESULT
String_match(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
621 VARIANT
*retv
, jsexcept_t
*ei
)
634 V_VT(retv
) = VT_NULL
;
640 arg_var
= get_arg(dp
, 0);
641 switch(V_VT(arg_var
)) {
643 regexp
= iface_to_jsdisp((IUnknown
*)V_DISPATCH(arg_var
));
645 if(is_class(regexp
, JSCLASS_REGEXP
))
647 jsdisp_release(regexp
);
652 hres
= to_string(ctx
, arg_var
, ei
, &match_str
);
656 hres
= create_regexp(ctx
, match_str
, SysStringLen(match_str
), 0, ®exp
);
657 SysFreeString(match_str
);
663 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
664 if(SUCCEEDED(hres
)) {
666 val_str
= SysAllocStringLen(str
, length
);
668 hres
= regexp_string_match(ctx
, regexp
, val_str
, retv
, ei
);
670 hres
= E_OUTOFMEMORY
;
673 jsdisp_release(regexp
);
674 SysFreeString(val_str
);
684 static HRESULT
strbuf_append(strbuf_t
*buf
, const WCHAR
*str
, DWORD len
)
689 if(len
+ buf
->len
> buf
->size
) {
693 new_size
= buf
->size
? buf
->size
<<1 : 16;
694 if(new_size
< buf
->len
+len
)
695 new_size
= buf
->len
+len
;
697 new_buf
= heap_realloc(buf
->buf
, new_size
*sizeof(WCHAR
));
699 new_buf
= heap_alloc(new_size
*sizeof(WCHAR
));
701 return E_OUTOFMEMORY
;
704 buf
->size
= new_size
;
707 memcpy(buf
->buf
+buf
->len
, str
, len
*sizeof(WCHAR
));
712 static HRESULT
rep_call(script_ctx_t
*ctx
, jsdisp_t
*func
, const WCHAR
*str
, match_result_t
*match
,
713 match_result_t
*parens
, DWORD parens_cnt
, BSTR
*ret
, jsexcept_t
*ei
)
715 DISPPARAMS dp
= {NULL
, NULL
, 0, 0};
716 VARIANTARG
*args
, *arg
;
721 dp
.cArgs
= parens_cnt
+3;
722 dp
.rgvarg
= args
= heap_alloc_zero(sizeof(VARIANT
)*dp
.cArgs
);
724 return E_OUTOFMEMORY
;
726 arg
= get_arg(&dp
,0);
728 V_BSTR(arg
) = SysAllocStringLen(match
->str
, match
->len
);
730 hres
= E_OUTOFMEMORY
;
732 if(SUCCEEDED(hres
)) {
733 for(i
=0; i
< parens_cnt
; i
++) {
734 arg
= get_arg(&dp
,i
+1);
736 V_BSTR(arg
) = SysAllocStringLen(parens
[i
].str
, parens
[i
].len
);
738 hres
= E_OUTOFMEMORY
;
744 if(SUCCEEDED(hres
)) {
745 arg
= get_arg(&dp
,parens_cnt
+1);
747 V_I4(arg
) = match
->str
- str
;
749 arg
= get_arg(&dp
,parens_cnt
+2);
751 V_BSTR(arg
) = SysAllocString(str
);
753 hres
= E_OUTOFMEMORY
;
757 hres
= jsdisp_call_value(func
, DISPATCH_METHOD
, &dp
, &var
, ei
);
759 for(i
=0; i
< parens_cnt
+3; i
++) {
760 if(i
!= parens_cnt
+1)
761 SysFreeString(V_BSTR(get_arg(&dp
,i
)));
768 hres
= to_string(ctx
, &var
, ei
, ret
);
773 /* ECMA-262 3rd Edition 15.5.4.11 */
774 static HRESULT
String_replace(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
775 VARIANT
*retv
, jsexcept_t
*ei
)
778 DWORD parens_cnt
= 0, parens_size
=0, rep_len
=0, length
;
779 BSTR rep_str
= NULL
, match_str
= NULL
, ret_str
, val_str
;
780 jsdisp_t
*rep_func
= NULL
, *regexp
= NULL
;
781 match_result_t
*parens
= NULL
, match
= {NULL
,0}, **parens_ptr
= &parens
;
782 strbuf_t ret
= {NULL
,0,0};
783 DWORD re_flags
= REM_NO_CTX_UPDATE
;
789 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
796 val_str
= SysAllocStringLen(str
, length
);
798 return E_OUTOFMEMORY
;
801 V_VT(retv
) = VT_BSTR
;
802 V_BSTR(retv
) = val_str
;
807 arg_var
= get_arg(dp
, 0);
808 switch(V_VT(arg_var
)) {
810 regexp
= iface_to_jsdisp((IUnknown
*)V_DISPATCH(arg_var
));
812 if(is_class(regexp
, JSCLASS_REGEXP
)) {
815 jsdisp_release(regexp
);
821 hres
= to_string(ctx
, arg_var
, ei
, &match_str
);
823 SysFreeString(val_str
);
828 if(arg_cnt(dp
) >= 2) {
829 arg_var
= get_arg(dp
,1);
830 switch(V_VT(arg_var
)) {
832 rep_func
= iface_to_jsdisp((IUnknown
*)V_DISPATCH(arg_var
));
834 if(is_class(rep_func
, JSCLASS_FUNCTION
)) {
837 jsdisp_release(rep_func
);
843 hres
= to_string(ctx
, arg_var
, ei
, &rep_str
);
847 rep_len
= SysStringLen(rep_str
);
848 if(!strchrW(rep_str
, '$'))
853 if(SUCCEEDED(hres
)) {
854 const WCHAR
*cp
, *ecp
;
860 hres
= regexp_match_next(ctx
, regexp
, re_flags
, str
, length
, &cp
, parens_ptr
,
861 &parens_size
, &parens_cnt
, &match
);
862 re_flags
|= REM_CHECK_GLOBAL
;
864 if(hres
== S_FALSE
) {
874 match
.str
= strstrW(cp
, match_str
);
877 match
.len
= SysStringLen(match_str
);
878 cp
= match
.str
+match
.len
;
881 hres
= strbuf_append(&ret
, ecp
, match
.str
-ecp
);
882 ecp
= match
.str
+match
.len
;
889 hres
= rep_call(ctx
, rep_func
, str
, &match
, parens
, parens_cnt
, &cstr
, ei
);
893 hres
= strbuf_append(&ret
, cstr
, SysStringLen(cstr
));
897 }else if(rep_str
&& regexp
) {
898 const WCHAR
*ptr
= rep_str
, *ptr2
;
900 while((ptr2
= strchrW(ptr
, '$'))) {
901 hres
= strbuf_append(&ret
, ptr
, ptr2
-ptr
);
907 hres
= strbuf_append(&ret
, ptr2
, 1);
911 hres
= strbuf_append(&ret
, match
.str
, match
.len
);
915 hres
= strbuf_append(&ret
, str
, match
.str
-str
);
919 hres
= strbuf_append(&ret
, ecp
, (str
+length
)-ecp
);
925 if(!isdigitW(ptr2
[1])) {
926 hres
= strbuf_append(&ret
, ptr2
, 1);
932 if(isdigitW(ptr2
[2]) && idx
*10 + (ptr2
[2]-'0') <= parens_cnt
) {
933 idx
= idx
*10 + (ptr
[2]-'0');
935 }else if(idx
&& idx
<= parens_cnt
) {
938 hres
= strbuf_append(&ret
, ptr2
, 1);
943 hres
= strbuf_append(&ret
, parens
[idx
-1].str
, parens
[idx
-1].len
);
952 hres
= strbuf_append(&ret
, ptr
, (rep_str
+rep_len
)-ptr
);
956 hres
= strbuf_append(&ret
, rep_str
, rep_len
);
960 static const WCHAR undefinedW
[] = {'u','n','d','e','f','i','n','e','d'};
962 hres
= strbuf_append(&ret
, undefinedW
, sizeof(undefinedW
)/sizeof(WCHAR
));
972 hres
= strbuf_append(&ret
, ecp
, (str
+length
)-ecp
);
976 jsdisp_release(rep_func
);
977 SysFreeString(rep_str
);
978 SysFreeString(match_str
);
981 if(SUCCEEDED(hres
) && match
.str
&& regexp
) {
983 val_str
= SysAllocStringLen(str
, length
);
985 SysFreeString(ctx
->last_match
);
986 ctx
->last_match
= val_str
;
988 ctx
->last_match_index
= match
.str
-str
;
989 ctx
->last_match_length
= match
.len
;
991 hres
= E_OUTOFMEMORY
;
996 jsdisp_release(regexp
);
997 SysFreeString(val_str
);
999 if(SUCCEEDED(hres
) && retv
) {
1000 ret_str
= SysAllocStringLen(ret
.buf
, ret
.len
);
1002 return E_OUTOFMEMORY
;
1004 V_VT(retv
) = VT_BSTR
;
1005 V_BSTR(retv
) = ret_str
;
1006 TRACE("= %s\n", debugstr_w(ret_str
));
1013 static HRESULT
String_search(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1014 VARIANT
*retv
, jsexcept_t
*ei
)
1016 jsdisp_t
*regexp
= NULL
;
1017 const WCHAR
*str
, *cp
;
1018 match_result_t match
;
1026 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
1032 V_VT(retv
) = VT_NULL
;
1033 SysFreeString(val_str
);
1037 arg
= get_arg(dp
,0);
1038 if(V_VT(arg
) == VT_DISPATCH
) {
1039 regexp
= iface_to_jsdisp((IUnknown
*)V_DISPATCH(arg
));
1041 if(!is_class(regexp
, JSCLASS_REGEXP
)) {
1042 jsdisp_release(regexp
);
1049 hres
= create_regexp_var(ctx
, arg
, NULL
, ®exp
);
1051 SysFreeString(val_str
);
1057 hres
= regexp_match_next(ctx
, regexp
, REM_RESET_INDEX
, str
, length
, &cp
, NULL
, NULL
, NULL
, &match
);
1058 SysFreeString(val_str
);
1059 jsdisp_release(regexp
);
1065 V_I4(retv
) = hres
== S_OK
? match
.str
-str
: -1;
1070 /* ECMA-262 3rd Edition 15.5.4.13 */
1071 static HRESULT
String_slice(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1072 VARIANT
*retv
, jsexcept_t
*ei
)
1083 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
1088 hres
= to_integer(ctx
, get_arg(dp
,0), ei
, &v
);
1090 SysFreeString(val_str
);
1094 if(V_VT(&v
) == VT_I4
) {
1097 start
= length
+ start
;
1100 }else if(start
> length
) {
1104 start
= V_R8(&v
) < 0.0 ? 0 : length
;
1110 if(arg_cnt(dp
) >= 2) {
1111 hres
= to_integer(ctx
, get_arg(dp
,1), ei
, &v
);
1113 SysFreeString(val_str
);
1117 if(V_VT(&v
) == VT_I4
) {
1123 }else if(end
> length
) {
1127 end
= V_R8(&v
) < 0.0 ? 0 : length
;
1137 BSTR retstr
= SysAllocStringLen(str
+start
, end
-start
);
1139 SysFreeString(val_str
);
1140 return E_OUTOFMEMORY
;
1143 V_VT(retv
) = VT_BSTR
;
1144 V_BSTR(retv
) = retstr
;
1147 SysFreeString(val_str
);
1151 static HRESULT
String_small(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1152 VARIANT
*retv
, jsexcept_t
*ei
)
1154 static const WCHAR smalltagW
[] = {'S','M','A','L','L',0};
1155 return do_attributeless_tag_format(ctx
, jsthis
, retv
, ei
, smalltagW
);
1158 static HRESULT
String_split(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1159 VARIANT
*retv
, jsexcept_t
*ei
)
1161 match_result_t
*match_result
= NULL
;
1162 DWORD length
, match_cnt
, i
, match_len
= 0;
1163 const WCHAR
*str
, *ptr
, *ptr2
;
1164 BOOL use_regexp
= FALSE
;
1167 BSTR val_str
, match_str
= NULL
;
1172 if(arg_cnt(dp
) != 1) {
1173 FIXME("unsupported args\n");
1177 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
1181 arg
= get_arg(dp
, 0);
1186 regexp
= iface_to_jsdisp((IUnknown
*)V_DISPATCH(arg
));
1188 if(is_class(regexp
, JSCLASS_REGEXP
)) {
1190 hres
= regexp_match(ctx
, regexp
, str
, length
, TRUE
, &match_result
, &match_cnt
);
1191 jsdisp_release(regexp
);
1193 SysFreeString(val_str
);
1198 jsdisp_release(regexp
);
1202 hres
= to_string(ctx
, arg
, ei
, &match_str
);
1204 SysFreeString(val_str
);
1208 match_len
= SysStringLen(match_str
);
1210 SysFreeString(match_str
);
1215 hres
= create_array(ctx
, 0, &array
);
1217 if(SUCCEEDED(hres
)) {
1223 ptr2
= match_result
[i
].str
;
1224 }else if(match_str
) {
1225 ptr2
= strstrW(ptr
, match_str
);
1234 V_VT(&var
) = VT_BSTR
;
1235 V_BSTR(&var
) = SysAllocStringLen(ptr
, ptr2
-ptr
);
1237 hres
= E_OUTOFMEMORY
;
1241 hres
= jsdisp_propput_idx(array
, i
, &var
, ei
);
1242 SysFreeString(V_BSTR(&var
));
1247 ptr
= match_result
[i
].str
+ match_result
[i
].len
;
1249 ptr
= ptr2
+ match_len
;
1255 if(SUCCEEDED(hres
) && (match_str
|| use_regexp
)) {
1256 DWORD len
= (str
+length
) - ptr
;
1258 if(len
|| match_str
) {
1259 V_VT(&var
) = VT_BSTR
;
1260 V_BSTR(&var
) = SysAllocStringLen(ptr
, len
);
1263 hres
= jsdisp_propput_idx(array
, i
, &var
, ei
);
1264 SysFreeString(V_BSTR(&var
));
1266 hres
= E_OUTOFMEMORY
;
1271 SysFreeString(match_str
);
1272 SysFreeString(val_str
);
1273 heap_free(match_result
);
1275 if(SUCCEEDED(hres
) && retv
)
1276 var_set_jsdisp(retv
, array
);
1278 jsdisp_release(array
);
1283 static HRESULT
String_strike(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1284 VARIANT
*retv
, jsexcept_t
*ei
)
1286 static const WCHAR striketagW
[] = {'S','T','R','I','K','E',0};
1287 return do_attributeless_tag_format(ctx
, jsthis
, retv
, ei
, striketagW
);
1290 static HRESULT
String_sub(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1291 VARIANT
*retv
, jsexcept_t
*ei
)
1293 static const WCHAR subtagW
[] = {'S','U','B',0};
1294 return do_attributeless_tag_format(ctx
, jsthis
, retv
, ei
, subtagW
);
1297 /* ECMA-262 3rd Edition 15.5.4.15 */
1298 static HRESULT
String_substring(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1299 VARIANT
*retv
, jsexcept_t
*ei
)
1310 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
1314 if(arg_cnt(dp
) >= 1) {
1315 hres
= to_integer(ctx
, get_arg(dp
,0), ei
, &v
);
1317 SysFreeString(val_str
);
1321 if(V_VT(&v
) == VT_I4
) {
1325 else if(start
>= length
)
1328 start
= V_R8(&v
) < 0.0 ? 0 : length
;
1332 if(arg_cnt(dp
) >= 2) {
1333 hres
= to_integer(ctx
, get_arg(dp
,1), ei
, &v
);
1335 SysFreeString(val_str
);
1339 if(V_VT(&v
) == VT_I4
) {
1343 else if(end
> length
)
1346 end
= V_R8(&v
) < 0.0 ? 0 : length
;
1359 V_VT(retv
) = VT_BSTR
;
1360 V_BSTR(retv
) = SysAllocStringLen(str
+start
, end
-start
);
1362 SysFreeString(val_str
);
1363 return E_OUTOFMEMORY
;
1366 SysFreeString(val_str
);
1370 /* ECMA-262 3rd Edition B.2.3 */
1371 static HRESULT
String_substr(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1372 VARIANT
*retv
, jsexcept_t
*ei
)
1383 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
1387 if(arg_cnt(dp
) >= 1) {
1388 hres
= to_integer(ctx
, get_arg(dp
,0), ei
, &v
);
1390 SysFreeString(val_str
);
1394 if(V_VT(&v
) == VT_I4
) {
1398 else if(start
>= length
)
1401 start
= V_R8(&v
) < 0.0 ? 0 : length
;
1405 if(arg_cnt(dp
) >= 2) {
1406 hres
= to_integer(ctx
, get_arg(dp
,1), ei
, &v
);
1408 SysFreeString(val_str
);
1412 if(V_VT(&v
) == VT_I4
) {
1416 else if(len
> length
-start
)
1419 len
= V_R8(&v
) < 0.0 ? 0 : length
-start
;
1427 V_VT(retv
) = VT_BSTR
;
1428 V_BSTR(retv
) = SysAllocStringLen(str
+start
, len
);
1430 hres
= E_OUTOFMEMORY
;
1433 SysFreeString(val_str
);
1437 static HRESULT
String_sup(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1438 VARIANT
*retv
, jsexcept_t
*ei
)
1440 static const WCHAR suptagW
[] = {'S','U','P',0};
1441 return do_attributeless_tag_format(ctx
, jsthis
, retv
, ei
, suptagW
);
1444 static HRESULT
String_toLowerCase(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1445 VARIANT
*retv
, jsexcept_t
*ei
)
1454 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
1460 val_str
= SysAllocStringLen(str
, length
);
1462 return E_OUTOFMEMORY
;
1467 V_VT(retv
) = VT_BSTR
;
1468 V_BSTR(retv
) = val_str
;
1470 else SysFreeString(val_str
);
1474 static HRESULT
String_toUpperCase(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1475 VARIANT
*retv
, jsexcept_t
*ei
)
1484 hres
= get_string_val(ctx
, jsthis
, ei
, &str
, &length
, &val_str
);
1490 val_str
= SysAllocStringLen(str
, length
);
1492 return E_OUTOFMEMORY
;
1497 V_VT(retv
) = VT_BSTR
;
1498 V_BSTR(retv
) = val_str
;
1500 else SysFreeString(val_str
);
1504 static HRESULT
String_toLocaleLowerCase(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1505 VARIANT
*retv
, jsexcept_t
*ei
)
1511 static HRESULT
String_toLocaleUpperCase(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1512 VARIANT
*retv
, jsexcept_t
*ei
)
1518 static HRESULT
String_localeCompare(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1519 VARIANT
*retv
, jsexcept_t
*ei
)
1525 static HRESULT
String_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1526 VARIANT
*retv
, jsexcept_t
*ei
)
1528 StringInstance
*This
= string_from_vdisp(jsthis
);
1534 return throw_type_error(ctx
, ei
, JS_E_FUNCTION_EXPECTED
, NULL
);
1535 case DISPATCH_PROPERTYGET
: {
1536 BSTR str
= SysAllocString(This
->str
);
1538 return E_OUTOFMEMORY
;
1540 V_VT(retv
) = VT_BSTR
;
1545 FIXME("flags %x\n", flags
);
1552 static void String_destructor(jsdisp_t
*dispex
)
1554 StringInstance
*This
= (StringInstance
*)dispex
;
1556 heap_free(This
->str
);
1560 static const builtin_prop_t String_props
[] = {
1561 {anchorW
, String_anchor
, PROPF_METHOD
|1},
1562 {bigW
, String_big
, PROPF_METHOD
},
1563 {blinkW
, String_blink
, PROPF_METHOD
},
1564 {boldW
, String_bold
, PROPF_METHOD
},
1565 {charAtW
, String_charAt
, PROPF_METHOD
|1},
1566 {charCodeAtW
, String_charCodeAt
, PROPF_METHOD
|1},
1567 {concatW
, String_concat
, PROPF_METHOD
|1},
1568 {fixedW
, String_fixed
, PROPF_METHOD
},
1569 {fontcolorW
, String_fontcolor
, PROPF_METHOD
|1},
1570 {fontsizeW
, String_fontsize
, PROPF_METHOD
|1},
1571 {indexOfW
, String_indexOf
, PROPF_METHOD
|2},
1572 {italicsW
, String_italics
, PROPF_METHOD
},
1573 {lastIndexOfW
, String_lastIndexOf
, PROPF_METHOD
|2},
1574 {lengthW
, String_length
, 0},
1575 {linkW
, String_link
, PROPF_METHOD
|1},
1576 {localeCompareW
, String_localeCompare
, PROPF_METHOD
|1},
1577 {matchW
, String_match
, PROPF_METHOD
|1},
1578 {replaceW
, String_replace
, PROPF_METHOD
|1},
1579 {searchW
, String_search
, PROPF_METHOD
},
1580 {sliceW
, String_slice
, PROPF_METHOD
},
1581 {smallW
, String_small
, PROPF_METHOD
},
1582 {splitW
, String_split
, PROPF_METHOD
|2},
1583 {strikeW
, String_strike
, PROPF_METHOD
},
1584 {subW
, String_sub
, PROPF_METHOD
},
1585 {substrW
, String_substr
, PROPF_METHOD
|2},
1586 {substringW
, String_substring
, PROPF_METHOD
|2},
1587 {supW
, String_sup
, PROPF_METHOD
},
1588 {toLocaleLowerCaseW
, String_toLocaleLowerCase
, PROPF_METHOD
},
1589 {toLocaleUpperCaseW
, String_toLocaleUpperCase
, PROPF_METHOD
},
1590 {toLowerCaseW
, String_toLowerCase
, PROPF_METHOD
},
1591 {toStringW
, String_toString
, PROPF_METHOD
},
1592 {toUpperCaseW
, String_toUpperCase
, PROPF_METHOD
},
1593 {valueOfW
, String_valueOf
, PROPF_METHOD
}
1596 static const builtin_info_t String_info
= {
1598 {NULL
, String_value
, 0},
1599 sizeof(String_props
)/sizeof(*String_props
),
1605 /* ECMA-262 3rd Edition 15.5.3.2 */
1606 static HRESULT
StringConstr_fromCharCode(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
,
1607 DISPPARAMS
*dp
, VARIANT
*retv
, jsexcept_t
*ei
)
1613 ret
= SysAllocStringLen(NULL
, arg_cnt(dp
));
1615 return E_OUTOFMEMORY
;
1617 for(i
=0; i
<arg_cnt(dp
); i
++) {
1618 hres
= to_uint32(ctx
, get_arg(dp
, i
), ei
, &code
);
1628 V_VT(retv
) = VT_BSTR
;
1631 else SysFreeString(ret
);
1636 static HRESULT
StringConstr_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
1637 VARIANT
*retv
, jsexcept_t
*ei
)
1648 hres
= to_string(ctx
, get_arg(dp
, 0), ei
, &str
);
1652 str
= SysAllocStringLen(NULL
, 0);
1654 return E_OUTOFMEMORY
;
1657 V_VT(retv
) = VT_BSTR
;
1661 case DISPATCH_CONSTRUCT
: {
1667 hres
= to_string(ctx
, get_arg(dp
, 0), ei
, &str
);
1671 hres
= create_string(ctx
, str
, SysStringLen(str
), &ret
);
1674 hres
= create_string(ctx
, NULL
, 0, &ret
);
1680 var_set_jsdisp(retv
, ret
);
1685 FIXME("unimplemented flags: %x\n", flags
);
1692 static HRESULT
string_alloc(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
, StringInstance
**ret
)
1694 StringInstance
*string
;
1697 string
= heap_alloc_zero(sizeof(StringInstance
));
1699 return E_OUTOFMEMORY
;
1701 if(object_prototype
)
1702 hres
= init_dispex(&string
->dispex
, ctx
, &String_info
, object_prototype
);
1704 hres
= init_dispex_from_constr(&string
->dispex
, ctx
, &String_info
, ctx
->string_constr
);
1714 static const builtin_prop_t StringConstr_props
[] = {
1715 {fromCharCodeW
, StringConstr_fromCharCode
, PROPF_METHOD
},
1718 static const builtin_info_t StringConstr_info
= {
1720 {NULL
, Function_value
, 0},
1721 sizeof(StringConstr_props
)/sizeof(*StringConstr_props
),
1727 HRESULT
create_string_constr(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
, jsdisp_t
**ret
)
1729 StringInstance
*string
;
1732 static const WCHAR StringW
[] = {'S','t','r','i','n','g',0};
1734 hres
= string_alloc(ctx
, object_prototype
, &string
);
1738 hres
= create_builtin_function(ctx
, StringConstr_value
, StringW
, &StringConstr_info
,
1739 PROPF_CONSTR
|1, &string
->dispex
, ret
);
1741 jsdisp_release(&string
->dispex
);
1745 HRESULT
create_string(script_ctx_t
*ctx
, const WCHAR
*str
, DWORD len
, jsdisp_t
**ret
)
1747 StringInstance
*string
;
1750 hres
= string_alloc(ctx
, NULL
, &string
);
1757 string
->length
= len
;
1758 string
->str
= heap_alloc((len
+1)*sizeof(WCHAR
));
1760 jsdisp_release(&string
->dispex
);
1761 return E_OUTOFMEMORY
;
1764 memcpy(string
->str
, str
, len
*sizeof(WCHAR
));
1765 string
->str
[len
] = 0;
1767 *ret
= &string
->dispex
;