external/bsd/openldap/dist/libraries/libldap/charray.c

   1 /* charray.c - routines for dealing with char * arrays */
   2 /* $OpenLDAP: pkg/ldap/libraries/libldap/charray.c,v 1.16.2.3 2008/02/11 23:26:41 kurt Exp $ */
   3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
   4  *
   5  * Copyright 1998-2008 The OpenLDAP Foundation.
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted only as authorized by the OpenLDAP
  10  * Public License.
  11  *
  12  * A copy of this license is available in the file LICENSE in the
  13  * top-level directory of the distribution or, alternatively, at
  14  * <http://www.OpenLDAP.org/license.html>.
  15  */
  16
  17 #include "portable.h"
  18
  19 #include <stdio.h>
  20
  21 #include <ac/string.h>
  22 #include <ac/socket.h>
  23
  24 #include "ldap-int.h"
  25
  26 int
  27 ldap_charray_add(
  28     char        ***a,
  29     const char *s
  30 )
  31 {
  32         int     n;
  33
  34         if ( *a == NULL ) {
  35                 *a = (char **) LDAP_MALLOC( 2 * sizeof(char *) );
  36                 n = 0;
  37
  38                 if( *a == NULL ) {
  39                         return -1;
  40                 }
  41
  42         } else {
  43                 char **new;
  44
  45                 for ( n = 0; *a != NULL && (*a)[n] != NULL; n++ ) {
  46                         ;       /* NULL */
  47                 }
  48
  49                 new = (char **) LDAP_REALLOC( (char *) *a,
  50                     (n + 2) * sizeof(char *) );
  51
  52                 if( new == NULL ) {
  53                         /* caller is required to call ldap_charray_free(*a) */
  54                         return -1;
  55                 }
  56
  57                 *a = new;
  58         }
  59
  60         (*a)[n] = LDAP_STRDUP(s);
  61
  62         if( (*a)[n] == NULL ) {
  63                 return 1;
  64         }
  65
  66         (*a)[++n] = NULL;
  67
  68         return 0;
  69 }
  70
  71 int
  72 ldap_charray_merge(
  73     char        ***a,
  74     char        **s
  75 )
  76 {
  77         int     i, n, nn;
  78         char **aa;
  79
  80         for ( n = 0; *a != NULL && (*a)[n] != NULL; n++ ) {
  81                 ;       /* NULL */
  82         }
  83         for ( nn = 0; s[nn] != NULL; nn++ ) {
  84                 ;       /* NULL */
  85         }
  86
  87         aa = (char **) LDAP_REALLOC( (char *) *a, (n + nn + 1) * sizeof(char *) );
  88
  89         if( aa == NULL ) {
  90                 return -1;
  91         }
  92
  93         *a = aa;
  94
  95         for ( i = 0; i < nn; i++ ) {
  96                 (*a)[n + i] = LDAP_STRDUP(s[i]);
  97
  98                 if( (*a)[n + i] == NULL ) {
  99                         for( --i ; i >= 0 ; i-- ) {
 100                                 LDAP_FREE( (*a)[n + i] );
 101                                 (*a)[n + i] = NULL;
 102                         }
 103                         return -1;
 104                 }
 105         }
 106
 107         (*a)[n + nn] = NULL;
 108         return 0;
 109 }
 110
 111 void
 112 ldap_charray_free( char **a )
 113 {
 114         char    **p;
 115
 116         if ( a == NULL ) {
 117                 return;
 118         }
 119
 120         for ( p = a; *p != NULL; p++ ) {
 121                 if ( *p != NULL ) {
 122                         LDAP_FREE( *p );
 123                 }
 124         }
 125
 126         LDAP_FREE( (char *) a );
 127 }
 128
 129 int
 130 ldap_charray_inlist(
 131     char        **a,
 132     const char *s
 133 )
 134 {
 135         int     i;
 136
 137         if( a == NULL ) return 0;
 138
 139         for ( i=0; a[i] != NULL; i++ ) {
 140                 if ( strcasecmp( s, a[i] ) == 0 ) {
 141                         return 1;
 142                 }
 143         }
 144
 145         return 0;
 146 }
 147
 148 char **
 149 ldap_charray_dup( char **a )
 150 {
 151         int     i;
 152         char    **new;
 153
 154         for ( i = 0; a[i] != NULL; i++ )
 155                 ;       /* NULL */
 156
 157         new = (char **) LDAP_MALLOC( (i + 1) * sizeof(char *) );
 158
 159         if( new == NULL ) {
 160                 return NULL;
 161         }
 162
 163         for ( i = 0; a[i] != NULL; i++ ) {
 164                 new[i] = LDAP_STRDUP( a[i] );
 165
 166                 if( new[i] == NULL ) {
 167                         for( --i ; i >= 0 ; i-- ) {
 168                                 LDAP_FREE( new[i] );
 169                         }
 170                         LDAP_FREE( new );
 171                         return NULL;
 172                 }
 173         }
 174         new[i] = NULL;
 175
 176         return( new );
 177 }
 178
 179 char **
 180 ldap_str2charray( const char *str_in, const char *brkstr )
 181 {
 182         char    **res;
 183         char    *str, *s;
 184         char    *lasts;
 185         int     i;
 186
 187         /* protect the input string from strtok */
 188         str = LDAP_STRDUP( str_in );
 189         if( str == NULL ) {
 190                 return NULL;
 191         }
 192
 193         i = 1;
 194         for ( s = str; *s; s++ ) {
 195                 if ( ldap_utf8_strchr( brkstr, s ) != NULL ) {
 196                         i++;
 197                 }
 198         }
 199
 200         res = (char **) LDAP_MALLOC( (i + 1) * sizeof(char *) );
 201
 202         if( res == NULL ) {
 203                 LDAP_FREE( str );
 204                 return NULL;
 205         }
 206
 207         i = 0;
 208
 209         for ( s = ldap_utf8_strtok( str, brkstr, &lasts );
 210                 s != NULL;
 211                 s = ldap_utf8_strtok( NULL, brkstr, &lasts ) )
 212         {
 213                 res[i] = LDAP_STRDUP( s );
 214
 215                 if(res[i] == NULL) {
 216                         for( --i ; i >= 0 ; i-- ) {
 217                                 LDAP_FREE( res[i] );
 218                         }
 219                         LDAP_FREE( res );
 220                         LDAP_FREE( str );
 221                         return NULL;
 222                 }
 223
 224                 i++;
 225         }
 226
 227         res[i] = NULL;
 228
 229         LDAP_FREE( str );
 230         return( res );
 231 }
 232
 233 char * ldap_charray2str( char **a, const char *sep )
 234 {
 235         char *s, **v, *p;
 236         int len;
 237         int slen;
 238
 239         if( sep == NULL ) sep = " ";
 240
 241         slen = strlen( sep );
 242         len = 0;
 243
 244         for ( v = a; *v != NULL; v++ ) {
 245                 len += strlen( *v ) + slen;
 246         }
 247
 248         if ( len == 0 ) {
 249                 return NULL;
 250         }
 251
 252         /* trim extra sep len */
 253         len -= slen;
 254
 255         s = LDAP_MALLOC ( len + 1 );
 256
 257         if ( s == NULL ) {
 258                 return NULL;
 259         }
 260
 261         p = s;
 262         for ( v = a; *v != NULL; v++ ) {
 263                 if ( v != a ) {
 264                         strncpy( p, sep, slen );
 265                         p += slen;
 266                 }
 267
 268                 len = strlen( *v );
 269                 strncpy( p, *v, len );
 270                 p += len;
 271         }
 272
 273         *p = '\0';
 274         return s;
 275 }