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