tagmanager/vstring.c

   1 /*
   2 *
   3 *   Copyright (c) 1998-2002, Darren Hiebert
   4 *
   5 *   This source code is released for free distribution under the terms of the
   6 *   GNU General Public License.
   7 *
   8 *   This module contains functions supporting resizeable strings.
   9 */
  10
  11 /*
  12 *   INCLUDE FILES
  13 */
  14 #include "general.h"    /* must always come first */
  15
  16 #include <limits.h>     /* to define INT_MAX */
  17 #include <string.h>
  18 #include <ctype.h>
  19
  20 #include "main.h"
  21 #include "vstring.h"
  22
  23 /*
  24 *   DATA DEFINITIONS
  25 */
  26 static const size_t vStringInitialSize = 32;
  27
  28 /*
  29 *   FUNCTION DEFINITIONS
  30 */
  31
  32 static void vStringResize (vString *const string, const size_t newSize)
  33 {
  34     char *const newBuffer = xRealloc (string->buffer, newSize, char);
  35
  36     string->size = newSize;
  37     string->buffer = newBuffer;
  38 }
  39
  40 /*
  41 *   External interface
  42 */
  43
  44 extern boolean vStringAutoResize (vString *const string)
  45 {
  46     boolean ok = TRUE;
  47
  48     if (string->size <= INT_MAX / 2)
  49     {
  50         const size_t newSize = string->size * 2;
  51
  52         vStringResize (string, newSize);
  53     }
  54     return ok;
  55 }
  56
  57 extern void vStringClear (vString *const string)
  58 {
  59     string->length = 0;
  60     string->buffer [0] = '\0';
  61         DebugStatement ( memset (string->buffer, 0, string->size); )
  62 }
  63
  64 extern void vStringDelete (vString *const string)
  65 {
  66     if (string != NULL)
  67     {
  68         if (string->buffer != NULL)
  69             eFree (string->buffer);
  70         eFree (string);
  71     }
  72 }
  73
  74 extern vString *vStringNew (void)
  75 {
  76     vString *const string = xMalloc (1, vString);
  77
  78     string->length = 0;
  79     string->size   = vStringInitialSize;
  80     string->buffer = xMalloc (string->size, char);
  81
  82     vStringClear (string);
  83
  84     return string;
  85 }
  86
  87 #ifndef VSTRING_PUTC_MACRO
  88 extern void vStringPut (vString *const string, const int c)
  89 {
  90         if (string->length + 1 == string->size)  /*  check for buffer overflow */
  91                 vStringAutoResize (string);
  92
  93     string->buffer [string->length] = c;
  94     if (c != '\0')
  95                 string->buffer [++string->length] = '\0';
  96 }
  97 #endif
  98
  99 extern void vStringCatS (vString *const string, const char *const s)
 100 {
 101 #if 1
 102         const size_t len = strlen (s);
 103         while (string->length + len + 1 >= string->size)/*  check for buffer overflow */
 104                 vStringAutoResize (string);
 105         strcpy (string->buffer + string->length, s);
 106         string->length += len;
 107 #else
 108     const char *p = s;
 109     do
 110                 vStringPut (string, *p);
 111     while (*p++ != '\0');
 112 #endif
 113 }
 114
 115 extern vString *vStringNewCopy (const vString *const string)
 116 {
 117     vString *vs = vStringNew ();
 118     vStringCatS (vs, string->buffer);
 119     return vs;
 120 }
 121
 122 extern vString *vStringNewInit (const char *const s)
 123 {
 124     vString *vs = vStringNew ();
 125     vStringCatS (vs, s);
 126     return vs;
 127 }
 128
 129 extern void vStringNCatS (
 130                 vString *const string, const char *const s, const size_t length)
 131 {
 132     const char *p = s;
 133     size_t remain = length;
 134
 135     while (*p != '\0'  &&  remain > 0)
 136     {
 137         vStringPut (string, *p);
 138         --remain;
 139         ++p;
 140     }
 141     vStringTerminate (string);
 142 }
 143
 144 /*  Strip trailing newline from string.
 145  */
 146 extern void vStringStripNewline (vString *const string)
 147 {
 148     const size_t final = string->length - 1;
 149     if (string->buffer [final] == '\n')
 150     {
 151         string->buffer [final] = '\0';
 152         string->length--;
 153     }
 154 }
 155
 156 /*  Strip leading white space from string.
 157  */
 158 extern void vStringStripLeading (vString *const string)
 159 {
 160     while (isspace ((int) string->buffer [0]) && string->length > 0)
 161     {
 162         size_t i;
 163         for (i = 1  ;  i < string->length  ;  ++i)
 164             string->buffer [i - 1] = string->buffer [i];
 165         --string->length;
 166         string->buffer [string->length] = '\0';
 167     }
 168 }
 169
 170 /*  Strip trailing white space from string.
 171  */
 172 extern void vStringStripTrailing (vString *const string)
 173 {
 174     while (string->length > 0 &&
 175            isspace ((int) string->buffer [string->length - 1]))
 176     {
 177         string->length--;
 178         string->buffer [string->length] = '\0';
 179     }
 180 }
 181
 182 /*  Chop last character from string.
 183  */
 184 extern void vStringChop (vString *const string)
 185 {
 186         if (string->length > 0)
 187         {
 188                 --string->length;
 189                 string->buffer [string->length] = '\0';
 190         }
 191 }
 192
 193 extern void vStringCopyS (vString *const string, const char *const s)
 194 {
 195     vStringClear (string);
 196     vStringCatS (string, s);
 197 }
 198
 199 extern void vStringNCopyS (
 200                 vString *const string, const char *const s, const size_t length)
 201 {
 202     vStringClear (string);
 203     vStringNCatS (string, s, length);
 204 }
 205
 206 extern void vStringCopyToLower (vString *const dest, const vString *const src)
 207 {
 208     const size_t length = src->length;
 209     const char *s = src->buffer;
 210     char *d;
 211     size_t i;
 212
 213     if (dest->size < src->size)
 214         vStringResize (dest, src->size);
 215     d = dest->buffer;
 216     for (i = 0  ;  i < length  ;  ++i)
 217     {
 218         int c = s [i];
 219
 220         d [i] = tolower (c);
 221     }
 222     d [i] = '\0';
 223 }
 224
 225 extern void vStringSetLength (vString *const string)
 226 {
 227     string->length = strlen (string->buffer);
 228 }
 229
 230 /* vi:set tabstop=4 shiftwidth=4: */