release/src/router/glib/gstring.c

   1 /* GLIB - Library of useful routines for C programming
   2  * Copyright (C) 1995-1997  Peter Mattis, Spencer Kimball and Josh MacDonald
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Library General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 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  * Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  * License along with this library; if not, write to the
  16  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17  * Boston, MA 02111-1307, USA.
  18  */
  19
  20 /*
  21  * Modified by the GLib Team and others 1997-1999.  See the AUTHORS
  22  * file for a list of people on the GLib Team.  See the ChangeLog
  23  * files for a list of changes.  These files are distributed with
  24  * GLib at ftp://ftp.gtk.org/pub/gtk/.
  25  */
  26
  27 /*
  28  * MT safe
  29  */
  30
  31 #include <stdarg.h>
  32 #include <stdlib.h>
  33 #include <stdio.h>
  34 #include <string.h>
  35 #include <ctype.h>
  36 #include "glib.h"
  37
  38
  39 typedef struct _GRealStringChunk GRealStringChunk;
  40 typedef struct _GRealString      GRealString;
  41
  42 struct _GRealStringChunk
  43 {
  44   GHashTable *const_table;
  45   GSList     *storage_list;
  46   gint        storage_next;
  47   gint        this_size;
  48   gint        default_size;
  49 };
  50
  51 struct _GRealString
  52 {
  53   gchar *str;
  54   gint   len;
  55   gint   alloc;
  56 };
  57
  58 G_LOCK_DEFINE_STATIC (string_mem_chunk);
  59 static GMemChunk *string_mem_chunk = NULL;
  60
  61 /* Hash Functions.
  62  */
  63
  64 gint
  65 g_str_equal (gconstpointer v, gconstpointer v2)
  66 {
  67   return strcmp ((const gchar*) v, (const gchar*)v2) == 0;
  68 }
  69
  70 /* 31 bit hash function */
  71 guint
  72 g_str_hash (gconstpointer key)
  73 {
  74   const char *p = key;
  75   guint h = *p;
  76
  77   if (h)
  78     for (p += 1; *p != '\0'; p++)
  79       h = (h << 5) - h + *p;
  80
  81   return h;
  82 }
  83
  84 /* String Chunks.
  85  */
  86
  87 GStringChunk*
  88 g_string_chunk_new (gint default_size)
  89 {
  90   GRealStringChunk *new_chunk = g_new (GRealStringChunk, 1);
  91   gint size = 1;
  92
  93   while (size < default_size)
  94     size <<= 1;
  95
  96   new_chunk->const_table       = NULL;
  97   new_chunk->storage_list      = NULL;
  98   new_chunk->storage_next      = size;
  99   new_chunk->default_size      = size;
 100   new_chunk->this_size         = size;
 101
 102   return (GStringChunk*) new_chunk;
 103 }
 104
 105 void
 106 g_string_chunk_free (GStringChunk *fchunk)
 107 {
 108   GRealStringChunk *chunk = (GRealStringChunk*) fchunk;
 109   GSList *tmp_list;
 110
 111   g_return_if_fail (chunk != NULL);
 112
 113   if (chunk->storage_list)
 114     {
 115       for (tmp_list = chunk->storage_list; tmp_list; tmp_list = tmp_list->next)
 116         g_free (tmp_list->data);
 117
 118       g_slist_free (chunk->storage_list);
 119     }
 120
 121   if (chunk->const_table)
 122     g_hash_table_destroy (chunk->const_table);
 123
 124   g_free (chunk);
 125 }
 126
 127 gchar*
 128 g_string_chunk_insert (GStringChunk *fchunk,
 129                        const gchar  *string)
 130 {
 131   GRealStringChunk *chunk = (GRealStringChunk*) fchunk;
 132   gint len = strlen (string);
 133   char* pos;
 134
 135   g_return_val_if_fail (chunk != NULL, NULL);
 136
 137   if ((chunk->storage_next + len + 1) > chunk->this_size)
 138     {
 139       gint new_size = chunk->default_size;
 140
 141       while (new_size < len+1)
 142         new_size <<= 1;
 143
 144       chunk->storage_list = g_slist_prepend (chunk->storage_list,
 145                                              g_new (char, new_size));
 146
 147       chunk->this_size = new_size;
 148       chunk->storage_next = 0;
 149     }
 150
 151   pos = ((char*)chunk->storage_list->data) + chunk->storage_next;
 152
 153   strcpy (pos, string);
 154
 155   chunk->storage_next += len + 1;
 156
 157   return pos;
 158 }
 159
 160 gchar*
 161 g_string_chunk_insert_const (GStringChunk *fchunk,
 162                              const gchar  *string)
 163 {
 164   GRealStringChunk *chunk = (GRealStringChunk*) fchunk;
 165   char* lookup;
 166
 167   g_return_val_if_fail (chunk != NULL, NULL);
 168
 169   if (!chunk->const_table)
 170     chunk->const_table = g_hash_table_new (g_str_hash, g_str_equal);
 171
 172   lookup = (char*) g_hash_table_lookup (chunk->const_table, (gchar *)string);
 173
 174   if (!lookup)
 175     {
 176       lookup = g_string_chunk_insert (fchunk, string);
 177       g_hash_table_insert (chunk->const_table, lookup, lookup);
 178     }
 179
 180   return lookup;
 181 }
 182
 183 /* Strings.
 184  */
 185 static gint
 186 nearest_pow (gint num)
 187 {
 188   gint n = 1;
 189
 190   while (n < num)
 191     n <<= 1;
 192
 193   return n;
 194 }
 195
 196 static void
 197 g_string_maybe_expand (GRealString* string, gint len)
 198 {
 199   if (string->len + len >= string->alloc)
 200     {
 201       string->alloc = nearest_pow (string->len + len + 1);
 202       string->str = g_realloc (string->str, string->alloc);
 203     }
 204 }
 205
 206 GString*
 207 g_string_sized_new (guint dfl_size)
 208 {
 209   GRealString *string;
 210
 211   G_LOCK (string_mem_chunk);
 212   if (!string_mem_chunk)
 213     string_mem_chunk = g_mem_chunk_new ("string mem chunk",
 214                                         sizeof (GRealString),
 215                                         1024, G_ALLOC_AND_FREE);
 216
 217   string = g_chunk_new (GRealString, string_mem_chunk);
 218   G_UNLOCK (string_mem_chunk);
 219
 220   string->alloc = 0;
 221   string->len   = 0;
 222   string->str   = NULL;
 223
 224   g_string_maybe_expand (string, MAX (dfl_size, 2));
 225   string->str[0] = 0;
 226
 227   return (GString*) string;
 228 }
 229
 230 GString*
 231 g_string_new (const gchar *init)
 232 {
 233   GString *string;
 234
 235   string = g_string_sized_new (2);
 236
 237   if (init)
 238     g_string_append (string, init);
 239
 240   return string;
 241 }
 242
 243 void
 244 g_string_free (GString *string,
 245                gint free_segment)
 246 {
 247   g_return_if_fail (string != NULL);
 248
 249   if (free_segment)
 250     g_free (string->str);
 251
 252   G_LOCK (string_mem_chunk);
 253   g_mem_chunk_free (string_mem_chunk, string);
 254   G_UNLOCK (string_mem_chunk);
 255 }
 256
 257 GString*
 258 g_string_assign (GString *lval,
 259                  const gchar *rval)
 260 {
 261   g_return_val_if_fail (lval != NULL, NULL);
 262   g_return_val_if_fail (rval != NULL, NULL);
 263
 264   g_string_truncate (lval, 0);
 265   g_string_append (lval, rval);
 266
 267   return lval;
 268 }
 269
 270 GString*
 271 g_string_truncate (GString* fstring,
 272                    gint len)
 273 {
 274   GRealString *string = (GRealString*)fstring;
 275
 276   g_return_val_if_fail (string != NULL, NULL);
 277   g_return_val_if_fail (len >= 0, NULL);
 278
 279   string->len = len;
 280
 281   string->str[len] = 0;
 282
 283   return fstring;
 284 }
 285
 286 GString*
 287 g_string_append (GString *fstring,
 288                  const gchar *val)
 289 {
 290   GRealString *string = (GRealString*)fstring;
 291   int len;
 292
 293   g_return_val_if_fail (string != NULL, NULL);
 294   g_return_val_if_fail (val != NULL, fstring);
 295
 296   len = strlen (val);
 297   g_string_maybe_expand (string, len);
 298
 299   strcpy (string->str + string->len, val);
 300
 301   string->len += len;
 302
 303   return fstring;
 304 }
 305
 306 GString*
 307 g_string_append_c (GString *fstring,
 308                    gchar c)
 309 {
 310   GRealString *string = (GRealString*)fstring;
 311
 312   g_return_val_if_fail (string != NULL, NULL);
 313   g_string_maybe_expand (string, 1);
 314
 315   string->str[string->len++] = c;
 316   string->str[string->len] = 0;
 317
 318   return fstring;
 319 }
 320
 321 GString*
 322 g_string_prepend (GString *fstring,
 323                   const gchar *val)
 324 {
 325   GRealString *string = (GRealString*)fstring;
 326   gint len;
 327
 328   g_return_val_if_fail (string != NULL, NULL);
 329   g_return_val_if_fail (val != NULL, fstring);
 330
 331   len = strlen (val);
 332   g_string_maybe_expand (string, len);
 333
 334   g_memmove (string->str + len, string->str, string->len);
 335
 336   strncpy (string->str, val, len);
 337
 338   string->len += len;
 339
 340   string->str[string->len] = 0;
 341
 342   return fstring;
 343 }
 344
 345 GString*
 346 g_string_prepend_c (GString *fstring,
 347                     gchar    c)
 348 {
 349   GRealString *string = (GRealString*)fstring;
 350
 351   g_return_val_if_fail (string != NULL, NULL);
 352   g_string_maybe_expand (string, 1);
 353
 354   g_memmove (string->str + 1, string->str, string->len);
 355
 356   string->str[0] = c;
 357
 358   string->len += 1;
 359
 360   string->str[string->len] = 0;
 361
 362   return fstring;
 363 }
 364
 365 GString*
 366 g_string_insert (GString     *fstring,
 367                  gint         pos,
 368                  const gchar *val)
 369 {
 370   GRealString *string = (GRealString*)fstring;
 371   gint len;
 372
 373   g_return_val_if_fail (string != NULL, NULL);
 374   g_return_val_if_fail (val != NULL, fstring);
 375   g_return_val_if_fail (pos >= 0, fstring);
 376   g_return_val_if_fail (pos <= string->len, fstring);
 377
 378   len = strlen (val);
 379   g_string_maybe_expand (string, len);
 380
 381   g_memmove (string->str + pos + len, string->str + pos, string->len - pos);
 382
 383   strncpy (string->str + pos, val, len);
 384
 385   string->len += len;
 386
 387   string->str[string->len] = 0;
 388
 389   return fstring;
 390 }
 391
 392 GString *
 393 g_string_insert_c (GString *fstring,
 394                    gint     pos,
 395                    gchar    c)
 396 {
 397   GRealString *string = (GRealString*)fstring;
 398
 399   g_return_val_if_fail (string != NULL, NULL);
 400   g_return_val_if_fail (pos <= string->len, fstring);
 401
 402   g_string_maybe_expand (string, 1);
 403
 404   g_memmove (string->str + pos + 1, string->str + pos, string->len - pos);
 405
 406   string->str[pos] = c;
 407
 408   string->len += 1;
 409
 410   string->str[string->len] = 0;
 411
 412   return fstring;
 413 }
 414
 415 GString*
 416 g_string_erase (GString *fstring,
 417                 gint pos,
 418                 gint len)
 419 {
 420   GRealString *string = (GRealString*)fstring;
 421
 422   g_return_val_if_fail (string != NULL, NULL);
 423   g_return_val_if_fail (len >= 0, fstring);
 424   g_return_val_if_fail (pos >= 0, fstring);
 425   g_return_val_if_fail (pos <= string->len, fstring);
 426   g_return_val_if_fail (pos + len <= string->len, fstring);
 427
 428   if (pos + len < string->len)
 429     g_memmove (string->str + pos, string->str + pos + len, string->len - (pos + len));
 430
 431   string->len -= len;
 432
 433   string->str[string->len] = 0;
 434
 435   return fstring;
 436 }
 437
 438 GString*
 439 g_string_down (GString *fstring)
 440 {
 441   GRealString *string = (GRealString*)fstring;
 442   guchar *s;
 443
 444   g_return_val_if_fail (string != NULL, NULL);
 445
 446   s = string->str;
 447
 448   while (*s)
 449     {
 450       *s = tolower (*s);
 451       s++;
 452     }
 453
 454   return fstring;
 455 }
 456
 457 GString*
 458 g_string_up (GString *fstring)
 459 {
 460   GRealString *string = (GRealString*)fstring;
 461   guchar *s;
 462
 463   g_return_val_if_fail (string != NULL, NULL);
 464
 465   s = string->str;
 466
 467   while (*s)
 468     {
 469       *s = toupper (*s);
 470       s++;
 471     }
 472
 473   return fstring;
 474 }
 475
 476 static void
 477 g_string_sprintfa_int (GString     *string,
 478                        const gchar *fmt,
 479                        va_list      args)
 480 {
 481   gchar *buffer;
 482
 483   buffer = g_strdup_vprintf (fmt, args);
 484   g_string_append (string, buffer);
 485   g_free (buffer);
 486 }
 487
 488 void
 489 g_string_sprintf (GString *string,
 490                   const gchar *fmt,
 491                   ...)
 492 {
 493   va_list args;
 494
 495   g_string_truncate (string, 0);
 496
 497   va_start (args, fmt);
 498   g_string_sprintfa_int (string, fmt, args);
 499   va_end (args);
 500 }
 501
 502 void
 503 g_string_sprintfa (GString *string,
 504                    const gchar *fmt,
 505                    ...)
 506 {
 507   va_list args;
 508
 509   va_start (args, fmt);
 510   g_string_sprintfa_int (string, fmt, args);
 511   va_end (args);
 512 }