engine/stringlist.c

   1 /*
   2     stringlist.c - MaLa stringlists
   3
   4   Copyright (C) 2004, 2005, 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 #include "stringlist.h"
  22
  23 MalaStringList
  24 mala_stringlist_new ()
  25 {
  26   MalaStringList self;
  27   self = malloc (sizeof(mala_stringlist));
  28   if (!self)
  29     return NULL;
  30
  31   CIRCLEQ_INIT(self);
  32   return self;
  33 }
  34
  35 MalaStringList
  36 mala_stringlist_new_cstrs (char **cstrs,
  37                            int nelem,
  38                            MalaStringBucket bucket)
  39 {
  40   MalaStringList self;
  41   MalaStringListNode node;
  42
  43   self = mala_stringlist_new ();
  44   if (!self)
  45     return NULL;
  46
  47   for (; nelem != 0 && *cstrs; --nelem , ++cstrs)
  48     {
  49       node = malloc (sizeof(mala_stringlistnode));
  50       if (!node)
  51         goto ealloc_node;
  52
  53       node->string = mala_string_new (*cstrs, bucket);
  54       if (!node->string)
  55         goto ealloc_str;
  56
  57       CIRCLEQ_INSERT_TAIL(self, node, node);
  58     }
  59
  60   return self;
  61
  62  ealloc_str:
  63   free (node);
  64  ealloc_node:
  65   mala_stringlist_free (self);
  66   return NULL;
  67 }
  68
  69
  70 MalaStringListNode
  71 mala_stringlist_head_new (MalaStringList head, MalaString str)
  72 {
  73   MalaStringListNode n;
  74
  75   if (!str)
  76     return NULL;
  77
  78   n = malloc(sizeof(mala_stringlistnode));
  79   if (!n)
  80     return NULL;
  81
  82   n->string = mala_string_copy (str);
  83
  84   CIRCLEQ_INSERT_HEAD (head, n, node);
  85   return n;
  86 }
  87
  88 MalaStringListNode
  89 mala_stringlist_tail_new (MalaStringList head, MalaString str)
  90 {
  91   MalaStringListNode n;
  92
  93   if (!str)
  94     return NULL;
  95
  96   n = malloc(sizeof(mala_stringlistnode));
  97   if (!n)
  98     return NULL;
  99
 100   n->string = mala_string_copy (str);
 101
 102   CIRCLEQ_INSERT_TAIL (head, n, node);
 103   return n;
 104 }
 105
 106 MalaStringListNode
 107 mala_stringlist_head_new_cstr (MalaStringList head, const char * cstr, MalaStringBucket bucket)
 108 {
 109   MalaString str;
 110   MalaStringListNode n;
 111
 112   str = mala_string_new (cstr, bucket);
 113   if (!str)
 114     return NULL;
 115
 116   n = mala_stringlist_head_new (head, str);
 117
 118   mala_string_free (str);
 119   return n;
 120 }
 121
 122 MalaStringListNode
 123 mala_stringlist_tail_new_cstr (MalaStringList head, const char * cstr, MalaStringBucket bucket)
 124 {
 125   MalaString str;
 126   MalaStringListNode n;
 127
 128   str = mala_string_new (cstr, bucket);
 129   if (!str)
 130     return NULL;
 131
 132   n = mala_stringlist_tail_new (head, str);
 133
 134   mala_string_free (str);
 135   return n;
 136 }
 137
 138
 139 MalaStringListNode
 140 mala_stringlist_after_new (MalaStringList head, MalaStringListNode pred, MalaString str)
 141 {
 142   MalaStringListNode n = malloc(sizeof(mala_stringlistnode));
 143   if (!n)
 144     return NULL;
 145
 146   n->string = mala_string_copy (str);
 147
 148   CIRCLEQ_INSERT_AFTER (head, pred, n, node);
 149   return n;
 150 }
 151
 152
 153 MalaStringListNode
 154 mala_stringlist_before_new (MalaStringList head, MalaStringListNode succ, MalaString str)
 155 {
 156   MalaStringListNode n = malloc(sizeof(mala_stringlistnode));
 157   if (!n)
 158     return NULL;
 159
 160   n->string = mala_string_copy (str);
 161
 162   CIRCLEQ_INSERT_BEFORE (head, succ, n, node);
 163   return n;
 164 }
 165
 166
 167 MalaStringListNode
 168 mala_stringlist_elem_remove (MalaStringList head, MalaStringListNode elem)
 169 {
 170      CIRCLEQ_REMOVE (head, elem, node);
 171      return elem;
 172 }
 173
 174 void
 175 mala_stringlist_elem_delete (MalaStringList head, MalaStringListNode_ref elem)
 176 {
 177   mala_stringlist_elem_remove (head, *elem);
 178   mala_string_free ((*elem)->string);
 179   free (*elem);
 180   *elem=NULL;
 181 }
 182
 183 void
 184 mala_stringlist_erase (MalaStringList head)
 185 {
 186   while (head->cqh_first != (void *) head)
 187     {
 188       MalaStringListNode n = head->cqh_first;
 189       CIRCLEQ_REMOVE(head, n, node);
 190       mala_string_free (n->string);
 191       free (n);
 192     }
 193 }
 194
 195 void
 196 mala_stringlist_free (MalaStringList head)
 197 {
 198   if (!head)
 199     return;
 200
 201   mala_stringlist_erase (head);
 202   free (head);
 203 }
 204
 205 void *
 206 mala_stringlist_factory (MalaStringList_ref dest, char** src, MalaStringBucket bucket)
 207 {
 208   if (src)
 209     {
 210       return *dest = mala_stringlist_new_cstrs (src, -1, bucket);
 211     }
 212   else
 213     {
 214       mala_stringlist_free (*dest);
 215       return NULL;
 216     }
 217 }
 218
 219 /*
 220 // Local Variables:
 221 // mode: C
 222 // c-file-style: "gnu"
 223 // End:
 224 // arch-tag: 75b1fbb2-0328-450d-8708-daf943e7bbf6
 225 // end_of_file
 226 */