pike.git/ src/ stralloc.c

1998-09-18

1998-09-18 21:33:07 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 4d1ed1d0126d72c4103682361493ee8f6f22cfdf (13 lines) (+12/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

new function: make_shared_string2() makes a shared string from a
string of wide chars...

Rev: src/stralloc.c:1.38
Rev: src/stralloc.h:1.17

15:      #include <ctype.h>    - RCSID("$Id: stralloc.c,v 1.37 1998/05/25 19:38:31 grubba Exp $"); + RCSID("$Id: stralloc.c,v 1.38 1998/09/18 21:33:07 hubbe Exp $");      #define BEGIN_HASH_SIZE 997   #define MAX_AVG_LINK_LENGTH 3
263:    return make_shared_binary_string(str, strlen(str));   }    + struct pike_string *make_shared_string2(const INT16 *str) + { +  INT32 e,len; +  struct pike_string *s; +  for(len=0;str[len];len++); +  s=begin_shared_string(len); +  for(e=0;e<len;e++) s->str[e]=str[e]; +  return end_shared_string(s); + } +    /*** Free strings ***/      void unlink_pike_string(struct pike_string *s)