pike.git/ src/ array.c

1998-10-11

1998-10-11 11:18:53 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 3e625c955ac3e32d253200f547aaa51fcaa530f1 (49 lines) (+35/-14) ^{[ Show | Annotate ]}
  Branch: 7.9

more wide char support

Rev: src/array.c:1.40
Rev: src/builtin_functions.c:1.128
Rev: src/global.h:1.25
Rev: src/module_support.c:1.17
Rev: src/operators.c:1.41
Rev: src/pike_memory.c:1.26
Rev: src/pike_memory.h:1.6
Rev: src/stralloc.c:1.40
Rev: src/stralloc.h:1.19
Rev: src/testsuite.in:1.124

19:   #include "gc.h"   #include "main.h"    - RCSID("$Id: array.c,v 1.39 1998/05/24 02:28:20 hubbe Exp $"); + RCSID("$Id: array.c,v 1.40 1998/10/11 11:18:50 hubbe Exp $");      struct array empty_array=   {
1364:    for(e=0;e<str->len;e++)    {    ITEM(ret)[e].type=T_STRING; -  ITEM(ret)[e].u.string=make_shared_binary_string(str->str+e,1); +  ITEM(ret)[e].u.string=string_slice(str,e,1);    }    }else{ -  struct mem_searcher searcher; +  struct generic_mem_searcher searcher;       s=str->str; -  end=s+str->len; +  end=s+(str->len << str->size_shift);       ret=allocate_array(10);    ret->size=0;    -  init_memsearch(&searcher, del->str, del->len, str->len); +  init_generic_memsearcher(&searcher, +  del->str, +  del->len, +  del->size_shift, +  str->len, +  str->size_shift);    -  while((tmp=memory_search(&searcher, s, end-s))) +  while((tmp=(char *)generic_memory_search(&searcher, +  s, +  (end-s)>>str->size_shift, +  str->size_shift)))    {    if(ret->size == ret->malloced_size)    {
1386:    ret->size=e;    }    -  ITEM(ret)[ret->size].u.string=make_shared_binary_string(s, tmp-s); +  ITEM(ret)[ret->size].u.string=string_slice(str, +  (s-str->str)>>str->size_shift, +  (tmp-s)>>str->size_shift);    ITEM(ret)[ret->size].type=T_STRING;    ret->size++;    -  s=tmp+del->len; +  s=tmp+(del->len << str->size_shift);    }       if(ret->size == ret->malloced_size)
1400:    ret->size=e;    }    -  ITEM(ret)[ret->size].u.string=make_shared_binary_string(s, end-s); +  ITEM(ret)[ret->size].u.string=string_slice(str, +  (s-str->str)>>str->size_shift, +  (end-s)>>str->size_shift); +     ITEM(ret)[ret->size].type=T_STRING;    ret->size++;    }
1413:    INT32 len,e, inited;    char *r;    struct pike_string *ret,*tmp; +  int max_shift=0;       len=0;       for(e=0;e<a->size;e++) -  +  {    if(ITEM(a)[e].type==T_STRING) -  +  {    len+=ITEM(a)[e].u.string->len + del->len; -  +  if(ITEM(a)[e].u.string->size_shift > max_shift) +  max_shift=ITEM(a)[e].u.string->size_shift; +  } +  }    if(len) len-=del->len;    -  ret=begin_shared_string(len); +  ret=begin_wide_shared_string(len,max_shift);    r=ret->str;    inited=0;    for(e=0;e<a->size;e++)
1430:    {    if(inited)    { -  MEMCPY(r,del->str,del->len); -  r+=del->len; +  pike_string_cpy(r,max_shift,del); +  r+=del->len << max_shift;    }    inited=1;    tmp=ITEM(a)[e].u.string; -  MEMCPY(r,tmp->str,tmp->len); -  r+=tmp->len; +  pike_string_cpy(r,max_shift,tmp); +  r+=tmp->len << max_shift;    len++;    }    }