git.oblomov.eu Git - wine/blob - dlls/jscript/jsstr.c

   1 /*
   2  * Copyright 2012 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 const char *debugstr_jsstr(jsstr_t *str)
  24 {
  25     return debugstr_wn(jsstr_as_inline(str)->buf, jsstr_length(str));
  26 }
  27
  28 WCHAR *jsstr_alloc_buf(unsigned len, jsstr_t **r)
  29 {
  30     jsstr_inline_t *ret;
  31
  32     if(len > JSSTR_MAX_LENGTH)
  33         return NULL;
  34
  35     ret = heap_alloc(FIELD_OFFSET(jsstr_inline_t, buf[len+1]));
  36     if(!ret)
  37         return NULL;
  38
  39     ret->str.length_flags = len << JSSTR_LENGTH_SHIFT;
  40     ret->str.ref = 1;
  41     ret->buf[len] = 0;
  42     *r = &ret->str;
  43     return ret->buf;
  44 }
  45
  46 jsstr_t *jsstr_alloc_len(const WCHAR *buf, unsigned len)
  47 {
  48     jsstr_t *ret;
  49     WCHAR *ptr;
  50
  51     ptr = jsstr_alloc_buf(len, &ret);
  52     if(ptr)
  53         memcpy(ptr, buf, len*sizeof(WCHAR));
  54
  55     return ret;
  56 }
  57
  58 int jsstr_cmp(jsstr_t *str1, jsstr_t *str2)
  59 {
  60     int len1 = jsstr_length(str1);
  61     int len2 = jsstr_length(str2);
  62     int ret;
  63
  64     ret = memcmp(jsstr_as_inline(str1)->buf, jsstr_as_inline(str2)->buf, min(len1, len2)*sizeof(WCHAR));
  65     if(!ret)
  66         ret = len1 - len2;
  67
  68     return ret;
  69 }
  70
  71 jsstr_t *jsstr_concat(jsstr_t *str1, jsstr_t *str2)
  72 {
  73     unsigned len1, len2;
  74     jsstr_t *ret;
  75     WCHAR *ptr;
  76
  77     len1 = jsstr_length(str1);
  78     if(!len1)
  79         return jsstr_addref(str2);
  80
  81     len2 = jsstr_length(str2);
  82     if(!len2)
  83         return jsstr_addref(str1);
  84
  85     ptr = jsstr_alloc_buf(len1+len2, &ret);
  86     if(!ret)
  87         return NULL;
  88
  89     jsstr_flush(str1, ptr);
  90     jsstr_flush(str2, ptr+len1);
  91     return ret;
  92 }
  93
  94 static jsstr_t *empty_str, *nan_str, *undefined_str;
  95
  96 jsstr_t *jsstr_nan(void)
  97 {
  98     return jsstr_addref(nan_str);
  99 }
 100
 101 jsstr_t *jsstr_empty(void)
 102 {
 103     return jsstr_addref(empty_str);
 104 }
 105
 106 jsstr_t *jsstr_undefined(void)
 107 {
 108     return jsstr_addref(undefined_str);
 109 }
 110
 111 BOOL init_strings(void)
 112 {
 113     static const WCHAR NaNW[] = { 'N','a','N',0 };
 114     static const WCHAR undefinedW[] = {'u','n','d','e','f','i','n','e','d',0};
 115
 116     if(!jsstr_alloc_buf(0, &empty_str))
 117         return FALSE;
 118     if(!(nan_str = jsstr_alloc(NaNW)))
 119         return FALSE;
 120     if(!(undefined_str = jsstr_alloc(undefinedW)))
 121         return FALSE;
 122     return TRUE;
 123 }
 124
 125 void free_strings(void)
 126 {
 127     jsstr_release(empty_str);
 128     jsstr_release(nan_str);
 129     jsstr_release(undefined_str);
 130 }