lib/libcr/gen/stringlist.c

   1 /*      $NetBSD: stringlist.c,v 1.2 1997/01/17 07:26:20 lukem Exp $     */
   2
   3 /*
   4  * Copyright (c) 1994 Christos Zoulas
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. All advertising materials mentioning features or use of this software
  16  *    must display the following acknowledgement:
  17  *      This product includes software developed by Christos Zoulas.
  18  * 4. The name of the author may not be used to endorse or promote products
  19  *    derived from this software without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
  22  * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  23  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
  25  * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #if defined(LIBC_SCCS) && !defined(lint)
  35 static char *rcsid = "$NetBSD: stringlist.c,v 1.2 1997/01/17 07:26:20 lukem Exp $";
  36 #endif /* LIBC_SCCS and not lint */
  37
  38 #include <stdio.h>
  39 #include <string.h>
  40 #include <err.h>
  41 #include <stdlib.h>
  42 #include <stringlist.h>
  43
  44 #define _SL_CHUNKSIZE   20
  45
  46 /*
  47  * sl_init(): Initialize a string list
  48  */
  49 StringList *
  50 sl_init()
  51 {
  52         StringList *sl = malloc(sizeof(StringList));
  53         if (sl == NULL)
  54                 err(1, "stringlist: %m");
  55
  56         sl->sl_cur = 0;
  57         sl->sl_max = _SL_CHUNKSIZE;
  58         sl->sl_str = malloc(sl->sl_max * sizeof(char *));
  59         if (sl->sl_str == NULL)
  60                 err(1, "stringlist: %m");
  61         return sl;
  62 }
  63
  64
  65 /*
  66  * sl_add(): Add an item to the string list
  67  */
  68 void
  69 sl_add(sl, name)
  70         StringList *sl;
  71         char *name;
  72 {
  73         if (sl->sl_cur == sl->sl_max - 1) {
  74                 sl->sl_max += _SL_CHUNKSIZE;
  75                 sl->sl_str = reallocf(sl->sl_str, sl->sl_max * sizeof(char *));
  76                 if (sl->sl_str == NULL)
  77                         err(1, "stringlist: %m");
  78         }
  79         sl->sl_str[sl->sl_cur++] = name;
  80 }
  81
  82
  83 /*
  84  * sl_free(): Free a stringlist
  85  */
  86 void
  87 sl_free(sl, all)
  88         StringList *sl;
  89         int all;
  90 {
  91         size_t i;
  92
  93         if (sl == NULL)
  94                 return;
  95         if (sl->sl_str) {
  96                 if (all)
  97                         for (i = 0; i < sl->sl_cur; i++)
  98                                 free(sl->sl_str[i]);
  99                 free(sl->sl_str);
 100         }
 101         free(sl);
 102 }
 103
 104
 105 /*
 106  * sl_find(): Find a name in the string list
 107  */
 108 char *
 109 sl_find(sl, name)
 110         StringList *sl;
 111         char *name;
 112 {
 113         size_t i;
 114
 115         for (i = 0; i < sl->sl_cur; i++)
 116                 if (strcmp(sl->sl_str[i], name) == 0)
 117                         return sl->sl_str[i];
 118
 119         return NULL;
 120 }