engine/strings.c

   1 /*
   2     strings.c - MaLa string handling
   3
   4   Copyright (C) 2004, Christian Thaeter <chth@gmx.net>
   5
   6   This program is free software; you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License version 2 as
   8   published by the Free Software Foundation.
   9
  10   This program is distributed in the hope that it will be useful,
  11   but WITHOUT ANY WARRANTY; without even the implied warranty of
  12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13   GNU General Public License for more details.
  14
  15   You should have received a copy of the GNU General Public License
  16   along with this program; if not, contact me.
  17
  18 */
  19 \f
  20 /*
  21  * TODO: handle empty strings
  22  */
  23 #define _GNU_SOURCE
  24
  25 #include "strings.h"
  26 #include <stdlib.h>
  27 #include <stdio.h>
  28 #include <stdarg.h>
  29
  30 /* allocate a mala_string (will be used for pooling in future)*/
  31 static MalaString
  32 string_alloc_ (MalaStringBucket bucket)
  33 {
  34   MalaString self;
  35   (void) bucket;
  36
  37   self = malloc(sizeof(mala_string));
  38   if (!self)
  39     return NULL;
  40
  41   self->len = SIZE_MAX;
  42   self->bucket = bucket;
  43   self->user = NULL;
  44
  45   return self;
  46 }
  47
  48 /* free a mala_string (to a pool in future) */
  49 /*static void
  50 string_free_ (MalaString self)
  51 {
  52   free (self);
  53 }
  54 */
  55
  56 /* attach allocated cstr to new MalaString, call free(cstr) on error, return NULL on cstr==NULL */
  57 static MalaString
  58 string_cstr_ (const char* cstr)
  59 {
  60   MalaString self;
  61
  62   if (!cstr)
  63     return NULL;
  64
  65   self = string_alloc_ (NULL);
  66   if (!self)
  67     goto ealloc_str;
  68
  69   self->str = cstr;
  70   self->refcnt = 4;
  71
  72   return self;
  73  ealloc_str:
  74   free ((void*) cstr);
  75   return NULL;
  76 }
  77
  78
  79 MalaString
  80 mala_string_new_cstr_attach (char* cstr, MalaStringBucket bucket)
  81 {
  82   MalaString* loc;
  83   MalaString self;
  84
  85   MALA_ASSERT(cstr);
  86
  87   if (bucket)
  88     {
  89       /*create in bucket*/
  90       mala_string tmp = MALA_STRING_AUTO (cstr);
  91       loc = (MalaString*) tsearch (&tmp, &bucket->bucket, bucket->cmpfn);
  92       if (!loc)
  93         return NULL;
  94
  95       if (*loc == &tmp)
  96         {
  97           /*not in bucket, allocate new string*/
  98           self = string_cstr_ (cstr);
  99           if (!self)
 100             {
 101               tdelete (&tmp, &bucket->bucket, bucket->cmpfn);
 102               return NULL;
 103             }
 104
 105           self->bucket = bucket;
 106           self->refcnt += 4; /*add a reference for the bucket itself*/
 107           *loc = self;
 108         }
 109       else
 110         {
 111           /*string already in bucket*/
 112           free (cstr);
 113           self = *loc;
 114           self->refcnt += 4;
 115         }
 116     }
 117   else
 118     {
 119       /* bucket was NULL, create without bucket */
 120       self = string_cstr_ (cstr);
 121       if (!self)
 122         return NULL;
 123     }
 124   return self;
 125 }
 126
 127 MalaString
 128 mala_string_new (const char* cstr, MalaStringBucket bucket)
 129 {
 130   MalaString* loc;
 131   MalaString self;
 132
 133   MALA_ASSERT(cstr);
 134
 135   if (bucket)
 136     {
 137       /*create in bucket*/
 138       mala_string tmp = MALA_STRING_AUTO (cstr);
 139       loc = (MalaString*) tsearch (&tmp, &bucket->bucket, bucket->cmpfn);
 140       if (!loc)
 141         return NULL;
 142
 143       if (*loc == &tmp)
 144         {
 145           /*not in bucket, allocate new string*/
 146           self = string_cstr_ (strdup(cstr));
 147           if (!self)
 148             {
 149               tdelete (&tmp, &bucket->bucket, bucket->cmpfn);
 150               return NULL;
 151             }
 152
 153           self->bucket = bucket;
 154           self->refcnt += 4; /*add a reference for the bucket itself*/
 155           *loc = self;
 156         }
 157       else
 158         {
 159           /*string already in bucket*/
 160           self = *loc;
 161           self->refcnt += 4;
 162         }
 163     }
 164   else
 165     {
 166       /* bucket was NULL, create without bucket */
 167       self = string_cstr_ (strdup(cstr));
 168       if (!self)
 169         return NULL;
 170     }
 171   return self;
 172 }
 173
 174 MalaString
 175 mala_string_new_cat2 (const char* cstr1, const char* cstr2, MalaStringBucket bucket)
 176 {
 177   MalaString* loc;
 178   MalaString self;
 179   size_t len1;
 180   char * cstr;
 181   mala_string tmp = MALA_STRING_AUTO (NULL);
 182
 183   MALA_ASSERT(cstr1);
 184   MALA_ASSERT(cstr2);
 185
 186   cstr = malloc ((len1 = strlen (cstr1)) + strlen (cstr2) + 1);
 187   if (!cstr)
 188     return NULL;
 189
 190   tmp.str = cstr;
 191
 192   (void) strcpy (cstr, cstr1);
 193   (void) strcpy (cstr + len1, cstr2);
 194
 195   if (bucket)
 196     {
 197       /*create in bucket*/
 198       loc = (MalaString*) tsearch (&tmp, &bucket->bucket, bucket->cmpfn);
 199       if (!loc)
 200         goto ealloc_tree;
 201
 202       if (*loc == &tmp)
 203         {
 204           /*not in bucket, allocate new string*/
 205           self = string_cstr_ (cstr);
 206           if (!self)
 207             goto ealloc_lookup;
 208
 209           self->bucket = bucket;
 210           self->refcnt += 4; /*add a reference for the bucket itself*/
 211           *loc = self;
 212         }
 213       else
 214         {
 215           /*string already in bucket*/
 216           self = *loc;
 217           self->refcnt += 4;
 218           free (cstr);
 219         }
 220     }
 221   else
 222     {
 223       /* bucket was NULL, create without bucket */
 224       self = string_cstr_ (cstr);
 225       if (!self)
 226         return NULL;
 227     }
 228   return self;
 229
 230  ealloc_lookup:
 231   tdelete (&tmp, &bucket->bucket, bucket->cmpfn);
 232  ealloc_tree:
 233   free (cstr);
 234   return NULL;
 235 }
 236
 237 MalaString
 238 mala_string_new_n (const char* cstr, const size_t n, MalaStringBucket bucket)
 239 {
 240   MalaString self;
 241   char * c;
 242
 243   self = string_cstr_ ((c = strndup(cstr, n)));
 244   if (!self)
 245     return NULL;
 246
 247   mala_stringbucket_insert (bucket, &self);
 248   return self;
 249 }
 250
 251 /*should be stringbucket_find*/
 252 MalaString
 253 mala_string_find (const char* cstr, MalaStringBucket bucket)
 254 {
 255   MalaString* loc;
 256
 257   assert(cstr);
 258   assert(bucket);
 259
 260   mala_string tmp = MALA_STRING_AUTO (cstr);
 261   loc = (MalaString*) tfind (&tmp, &bucket->bucket, bucket->cmpfn);
 262   if (!loc)
 263     return NULL;
 264
 265   return *loc;
 266 }
 267
 268 void
 269 mala_string_free (MalaString self)
 270 {
 271   if (!self)
 272     return;
 273
 274   MALA_ASSERT (self->refcnt < SIZE_MAX>>1);
 275
 276   if (self->refcnt >= 4)
 277     self->refcnt -= 4;
 278
 279   /* if this is the last used string */
 280   if (self->refcnt < 4)
 281     {
 282       if (self->user && self->bucket->freefn)
 283         {
 284           self->bucket->freefn (self->user);
 285         }
 286       if (self->bucket && !self->bucket->destroying)
 287         {
 288           tdelete (self, &self->bucket->bucket, self->bucket->cmpfn);
 289         }
 290       if (!(self->refcnt & 0x2))
 291         free ((void*) self->str);
 292       if (!(self->refcnt & 0x1))
 293         free (self);
 294     }
 295 }
 296
 297 void
 298 mala_string_data_free (MalaString self)
 299 {
 300   if (!self)
 301     return;
 302   MALA_ASSERT(self);
 303   MALA_ASSERT(self->str);
 304   MALA_ASSERT(self->refcnt >= 4);
 305
 306   if (self->user
 307       && self->bucket
 308       && self->bucket->freefn
 309       && self->bucket->destroying)
 310     {
 311       self->bucket->freefn (self->user);
 312       self->user = NULL;
 313     }
 314 }
 315
 316
 317 MalaString
 318 mala_string_copy_n (MalaString self, const size_t n)
 319 {
 320   assert(self);
 321
 322   if (mala_string_length (self) <= n)
 323     {
 324       self->refcnt += 4;
 325       return self;
 326     }
 327
 328   return mala_string_new_n (self->str, n, self->bucket);
 329 }
 330
 331 MalaString
 332 mala_string_new_prefix (const char* prefix, MalaString str)
 333 {
 334   MalaString_ref loc;
 335   MalaString self;
 336   MalaStringBucket bucket = str->bucket;
 337   size_t len1;
 338   char * cstr;
 339   mala_string tmp = MALA_STRING_AUTO (NULL);
 340
 341   cstr = malloc ((len1 = strlen (prefix)) + mala_string_length (str) + 1);
 342   if (!cstr)
 343     return NULL;
 344
 345   tmp.str = cstr;
 346   (void) strcpy (cstr, prefix);
 347   (void) strcpy (cstr + len1, str->str);
 348
 349   if (bucket)
 350     {
 351       /*create in bucket*/
 352       loc = (MalaString_ref) tsearch (&tmp, &bucket->bucket, bucket->cmpfn);
 353       if (!loc)
 354         goto ealloc_tree;
 355
 356       if (*loc == &tmp)
 357         {
 358           /*not in bucket, allocate new string*/
 359           self = string_cstr_ (cstr);
 360           if (!self)
 361             goto ealloc_lookup;
 362
 363           self->bucket = bucket;
 364           self->refcnt += 4; /*add a reference for the bucket itself*/
 365           *loc = self;
 366         }
 367       else
 368         {
 369           /*string already in bucket*/
 370           self = *loc;
 371           self->refcnt += 4;
 372           free (cstr);
 373         }
 374     }
 375   else
 376     {
 377       /* bucket was NULL, create without bucket */
 378       self = string_cstr_ (cstr);
 379       if (!self)
 380         return NULL;
 381     }
 382   return self;
 383
 384  ealloc_lookup:
 385   tdelete (&tmp, &bucket->bucket, bucket->cmpfn);
 386  ealloc_tree:
 387   free (cstr);
 388   return NULL;
 389 }
 390
 391
 392 int
 393 mala_string_scan (const_MalaString str,const char* fmt,...)
 394 {
 395   va_list ap;
 396
 397   va_start(ap, fmt);
 398   va_end (ap);
 399   return vsscanf(mala_string_cstr (str), fmt, ap);
 400 }
 401
 402 MalaString
 403 mala_string_new_print (MalaStringBucket bucket, const char* fmt,...)
 404 {
 405   int n;
 406   int size = 64;
 407   char *p;
 408   va_list ap;
 409   MalaString self;
 410
 411   if (!(p = malloc (size)))
 412     return NULL;
 413
 414   while (1) {
 415     va_start(ap, fmt);
 416     n = vsnprintf (p, size, fmt, ap);
 417     va_end(ap);
 418
 419     if (n > -1 && n < size)
 420       {
 421         self = string_cstr_ (p);
 422         if (!self)
 423           return NULL;
 424
 425         mala_stringbucket_insert (bucket, &self);
 426         return self;
 427       }
 428
 429
 430     if (n > -1)
 431       size = n+1;
 432     else
 433       size *= 2;
 434
 435     if ((p = realloc (p, size)) == NULL)
 436       return NULL;
 437   }
 438 }
 439
 440 size_t
 441 mala_string_char_find (MalaString self, const char c)
 442 {
 443   char * pos;
 444
 445   if (!self)
 446     return SIZE_MAX;
 447
 448   pos = strchr (self->str, c);
 449
 450   return pos?(size_t)(pos-self->str):SIZE_MAX;
 451 }
 452
 453 MalaString
 454 mala_string_new_substr (MalaString self, size_t start, size_t end)
 455 {
 456   MalaString nstr;
 457
 458   if (start > mala_string_length (self))
 459     return NULL;
 460
 461   if (end > mala_string_length (self))
 462     end = mala_string_length (self);
 463
 464   nstr = mala_string_new_n (self->str+start, end - start, self->bucket);
 465   return nstr;
 466 }
 467
 468
 469 MalaString
 470 mala_string_factory (MalaString_ref dest, const char* src, MalaStringBucket bucket)
 471 {
 472   if (src)
 473     {
 474       return *dest = mala_string_new (src, bucket);
 475     }
 476   else
 477     {
 478       mala_string_free (*dest);
 479       return NULL;
 480     }
 481 }
 482
 483
 484
 485
 486
 487
 488
 489
 490
 491
 492
 493
 494 #if 0 /*TODO below */
 495
 496
 497
 498
 499
 500
 501
 502
 503 mala_string (MalaString,)
 504 mala_string_substr
 505 mala_string (MalaString,)
 506 mala_string_at
 507
 508 tokenizer
 509
 510 void
 511 mala_string_tokenize_init (MalaString,char**state);
 512 MalaString
 513 mala_string_tokenize (MalaString,char**state, MalaStringBucket dest,char*breaks)
 514
 515
 516 chop chopl chopr
 517
 518 / parsing
 519 mala_string (MalaString,)
 520 mala_string (MalaString,)
 521 mala_string (MalaString,)
 522 mala_string (MalaString,)
 523 regex
 524 regcomp (3)          - POSIX regex functions
 525 regerror (3)         - POSIX regex functions
 526 regex (3)            - POSIX regex functions
 527 regex (7)            - POSIX 1003.2 regular expressions
 528 regexec (3)          - POSIX regex functions
 529 regfree (3)          - POSIX regex functions
 530
 531
 532 mala_string (MalaString,)
 533 mala_string (MalaString,)
 534
 535 /* Find the first occurrence of C in S.  */
 536 extern char *strchr (__const char *__s, int __c) __THROW __attribute_pure__;
 537 /* Find the last occurrence of C in S.  */
 538 extern char *strrchr (__const char *__s, int __c) __THROW __attribute_pure__;
 539 __END_NAMESPACE_STD
 540
 541 /* Return the length of the initial segment of S which
 542    consists entirely of characters not in REJECT.  */
 543 extern size_t strcspn (__const char *__s, __const char *__reject)
 544      __THROW __attribute_pure__;
 545 /* Return the length of the initial segment of S which
 546    consists entirely of characters in ACCEPT.  */
 547 extern size_t strspn (__const char *__s, __const char *__accept)
 548      __THROW __attribute_pure__;
 549 /* Find the first occurrence in S of any character in ACCEPT.  */
 550 extern char *strpbrk (__const char *__s, __const char *__accept)
 551      __THROW __attribute_pure__;
 552 /* Find the first occurrence of NEEDLE in HAYSTACK.  */
 553 extern char *strstr (__const char *__haystack, __const char *__needle)
 554      __THROW __attribute_pure__;
 555
 556
 557 /* Return the next DELM-delimited token from *STRINGP,
 558    terminating it with a '\0', and update *STRINGP to point past it.  */
 559 extern char *strsep (char **__restrict __stringp,
 560                      __const char *__restrict __delim) __THROW;
 561
 562
 563
 564
 565 #endif
 566
 567
 568 /*
 569 // Local Variables:
 570 // mode: C
 571 // c-file-style: "gnu"
 572 // End:
 573 // arch-tag: 2f6ba215-7cf7-46ba-a09e-e20b4c889234
 574 // end_of_file
 575 */