lib/libc/gen/stringlist.c

   1 /*      $NetBSD: stringlist.c,v 1.14 2015/05/21 01:29:13 christos Exp $ */
   2
   3 /*-
   4  * Copyright (c) 1994, 1999 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by Christos Zoulas.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29  * POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 #include <sys/cdefs.h>
  33 #if defined(LIBC_SCCS) && !defined(lint)
  34 __RCSID("$NetBSD: stringlist.c,v 1.14 2015/05/21 01:29:13 christos Exp $");
  35 #endif /* LIBC_SCCS and not lint */
  36
  37 #include "namespace.h"
  38
  39 #include <assert.h>
  40 #include <err.h>
  41 #include <errno.h>
  42 #include <stdio.h>
  43 #include <stdlib.h>
  44 #include <string.h>
  45 #include <stringlist.h>
  46
  47 #ifdef __weak_alias
  48 __weak_alias(sl_add,_sl_add)
  49 __weak_alias(sl_find,_sl_find)
  50 __weak_alias(sl_free,_sl_free)
  51 __weak_alias(sl_init,_sl_init)
  52 __weak_alias(sl_delete,_sl_delete)
  53 #endif
  54
  55 #define _SL_CHUNKSIZE   20
  56
  57 /*
  58  * sl_init(): Initialize a string list
  59  */
  60 StringList *
  61 sl_init(void)
  62 {
  63         StringList *sl;
  64
  65         sl = malloc(sizeof(StringList));
  66         if (sl == NULL)
  67                 return NULL;
  68
  69         sl->sl_cur = 0;
  70         sl->sl_max = _SL_CHUNKSIZE;
  71         sl->sl_str = NULL;
  72         errno = reallocarr(&sl->sl_str, sl->sl_max, sizeof(char *));
  73         if (errno) {
  74                 free(sl);
  75                 sl = NULL;
  76         }
  77         return sl;
  78 }
  79
  80
  81 /*
  82  * sl_add(): Add an item to the string list
  83  */
  84 int
  85 sl_add(StringList *sl, char *name)
  86 {
  87
  88         _DIAGASSERT(sl != NULL);
  89
  90         if (sl->sl_cur == sl->sl_max - 1) {
  91                 char    **new = sl->sl_str;
  92
  93                 errno = reallocarr(&new, (sl->sl_max + _SL_CHUNKSIZE),
  94                     sizeof(char *));
  95                 if (errno)
  96                         return -1;
  97                 sl->sl_max += _SL_CHUNKSIZE;
  98                 sl->sl_str = new;
  99         }
 100         sl->sl_str[sl->sl_cur++] = name;
 101         return 0;
 102 }
 103
 104
 105 /*
 106  * sl_free(): Free a stringlist
 107  */
 108 void
 109 sl_free(StringList *sl, int all)
 110 {
 111         size_t i;
 112
 113         if (sl == NULL)
 114                 return;
 115         if (sl->sl_str) {
 116                 if (all)
 117                         for (i = 0; i < sl->sl_cur; i++)
 118                                 free(sl->sl_str[i]);
 119                 free(sl->sl_str);
 120         }
 121         free(sl);
 122 }
 123
 124
 125 /*
 126  * sl_find(): Find a name in the string list
 127  */
 128 char *
 129 sl_find(StringList *sl, const char *name)
 130 {
 131         size_t i;
 132
 133         _DIAGASSERT(sl != NULL);
 134
 135         for (i = 0; i < sl->sl_cur; i++)
 136                 if (strcmp(sl->sl_str[i], name) == 0)
 137                         return sl->sl_str[i];
 138
 139         return NULL;
 140 }
 141
 142 int
 143 sl_delete(StringList *sl, const char *name, int all)
 144 {
 145         size_t i, j;
 146
 147         for (i = 0; i < sl->sl_cur; i++)
 148                 if (strcmp(sl->sl_str[i], name) == 0) {
 149                         if (all)
 150                                 free(sl->sl_str[i]);
 151                         for (j = i + 1; j < sl->sl_cur; j++)
 152                                 sl->sl_str[j - 1] = sl->sl_str[j];
 153                         sl->sl_str[--sl->sl_cur] = NULL;
 154                         return 0;
 155                 }
 156         return -1;
 157 }
 158