git.sur5r.net Git - openldap/blob - servers/slapd/str2filter.c

   1 /* str2filter.c - parse an rfc 1588 string filter */
   2 /* $OpenLDAP$ */
   3 /*
   4  * Copyright 1998-2000 The OpenLDAP Foundation, All Rights Reserved.
   5  * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
   6  */
   7
   8 #include "portable.h"
   9
  10 #include <stdio.h>
  11
  12 #include <ac/string.h>
  13 #include <ac/ctype.h>
  14 #include <ac/socket.h>
  15
  16 #include "slap.h"
  17 #include <ldap_pvt.h>
  18
  19 static char     *find_matching_paren( const char *s );
  20 static Filter   *str2list( const char *str, long unsigned int ftype);
  21 static Filter   *str2simple( const char *str);
  22 static int      str2subvals( const char *val, Filter *f);
  23
  24 Filter *
  25 str2filter( const char *str )
  26 {
  27         Filter  *f = NULL;
  28         char    *end, *freeme;
  29
  30         Debug( LDAP_DEBUG_FILTER, "str2filter \"%s\"\n", str, 0, 0 );
  31
  32         if ( str == NULL || *str == '\0' ) {
  33                 return( NULL );
  34         }
  35
  36         str = freeme = ch_strdup( str );
  37
  38         switch ( *str ) {
  39         case '(':
  40                 if ( (end = find_matching_paren( str )) == NULL ) {
  41                         filter_free( f );
  42                         free( freeme );
  43                         return( NULL );
  44                 }
  45                 *end = '\0';
  46
  47                 str++;
  48                 switch ( *str ) {
  49                 case '&':
  50                         Debug( LDAP_DEBUG_FILTER, "str2filter: AND\n",
  51                             0, 0, 0 );
  52
  53                         str++;
  54                         f = str2list( str, LDAP_FILTER_AND );
  55                         break;
  56
  57                 case '|':
  58                         Debug( LDAP_DEBUG_FILTER, "put_filter: OR\n",
  59                             0, 0, 0 );
  60
  61                         str++;
  62                         f = str2list( str, LDAP_FILTER_OR );
  63                         break;
  64
  65                 case '!':
  66                         Debug( LDAP_DEBUG_FILTER, "put_filter: NOT\n",
  67                             0, 0, 0 );
  68
  69                         str++;
  70                         f = str2list( str, LDAP_FILTER_NOT );
  71                         break;
  72
  73                 default:
  74                         Debug( LDAP_DEBUG_FILTER, "str2filter: simple\n",
  75                             0, 0, 0 );
  76
  77                         f = str2simple( str );
  78                         break;
  79                 }
  80                 *end = ')';
  81                 break;
  82
  83         default:        /* assume it's a simple type=value filter */
  84                 Debug( LDAP_DEBUG_FILTER, "str2filter: default\n", 0, 0,
  85                     0 );
  86
  87                 f = str2simple( str );
  88                 break;
  89         }
  90
  91         free( freeme );
  92         return( f );
  93 }
  94
  95 /*
  96  * Put a list of filters like this "(filter1)(filter2)..."
  97  */
  98
  99 static Filter *
 100 str2list( const char *str, unsigned long ftype )
 101 {
 102         Filter  *f;
 103         Filter  **fp;
 104         char    *next;
 105         char    save;
 106
 107         Debug( LDAP_DEBUG_FILTER, "str2list \"%s\"\n", str, 0, 0 );
 108
 109         f = (Filter *) ch_calloc( 1, sizeof(Filter) );
 110         f->f_choice = ftype;
 111         fp = &f->f_list;
 112
 113         while ( *str ) {
 114                 while ( *str && isspace( (unsigned char) *str ) )
 115                         str++;
 116                 if ( *str == '\0' )
 117                         break;
 118
 119                 if ( (next = find_matching_paren( str )) == NULL ) {
 120                         filter_free( f );
 121                         return( NULL );
 122                 }
 123                 save = *++next;
 124                 *next = '\0';
 125
 126                 /* now we have "(filter)" with str pointing to it */
 127                 if ( (*fp = str2filter( str )) == NULL ) {
 128                         filter_free( f );
 129                         *next = save;
 130                         return( NULL );
 131                 }
 132                 *next = save;
 133
 134                 str = next;
 135                 fp = &(*fp)->f_next;
 136         }
 137         *fp = NULL;
 138
 139         return( f );
 140 }
 141
 142 static Filter *
 143 str2simple( const char *str )
 144 {
 145         Filter          *f;
 146         char            *s;
 147         char            *value, savechar;
 148 #ifdef SLAPD_SCHEMA_NOT_COMPAT
 149         int                     rc;
 150         const char              *text;
 151 #endif
 152
 153         Debug( LDAP_DEBUG_FILTER, "str2simple \"%s\"\n", str, 0, 0 );
 154
 155         if ( (s = strchr( str, '=' )) == NULL ) {
 156                 return( NULL );
 157         }
 158         value = &s[1];
 159
 160         *s-- = '\0';    /* we shouldn't be mucking with str */
 161         savechar = *s;
 162
 163         f = (Filter *) ch_calloc( 1, sizeof(Filter) );
 164
 165         switch ( *s ) {
 166         case '<':
 167                 f->f_choice = LDAP_FILTER_LE;
 168                 *s = '\0';
 169                 break;
 170         case '>':
 171                 f->f_choice = LDAP_FILTER_GE;
 172                 *s = '\0';
 173                 break;
 174         case '~':
 175                 f->f_choice = LDAP_FILTER_APPROX;
 176                 *s = '\0';
 177                 break;
 178         case ':':
 179                 f->f_choice = LDAP_FILTER_EXT;
 180                 *s = '\0';
 181                 return NULL;
 182                 break;
 183
 184         default:
 185                 if ( ldap_pvt_find_wildcard( value ) == NULL ) {
 186                         f->f_choice = LDAP_FILTER_EQUALITY;
 187                 } else if ( strcmp( value, "*" ) == 0 ) {
 188                         f->f_choice = LDAP_FILTER_PRESENT;
 189                 } else {
 190                         f->f_choice = LDAP_FILTER_SUBSTRINGS;
 191 #ifdef SLAPD_SCHEMA_NOT_COMPAT
 192                         f->f_sub = ch_calloc( 1, sizeof( SubstringsAssertion ) );
 193                         rc = slap_str2ad( str, &f->f_sub_desc, &text );
 194                         if( rc != LDAP_SUCCESS ) {
 195                                 filter_free( f );
 196                                 *(value-1) = '=';
 197                                 return NULL;
 198                         }
 199 #else
 200                         f->f_sub_type = ch_strdup( str );
 201 #endif
 202                         if ( str2subvals( value, f ) != 0 ) {
 203                                 filter_free( f );
 204                                 *(value-1) = '=';
 205                                 return( NULL );
 206                         }
 207                         *(value-1) = '=';
 208                         return( f );
 209                 }
 210                 break;
 211         }
 212
 213         if ( f->f_choice == LDAP_FILTER_PRESENT ) {
 214 #ifdef SLAPD_SCHEMA_NOT_COMPAT
 215                 rc = slap_str2ad( str, &f->f_desc, &text );
 216                 if( rc != LDAP_SUCCESS ) {
 217                         filter_free( f );
 218                         *(value-1) = '=';
 219                         return NULL;
 220                 }
 221 #else
 222                 f->f_type = ch_strdup( str );
 223 #endif
 224         } else {
 225 #ifdef SLAPD_SCHEMA_NOT_COMPAT
 226                 char *tmp;
 227
 228                 f->f_ava = ch_calloc( 1, sizeof( AttributeAssertion ) );
 229                 f->f_av_desc = NULL;
 230                 rc = slap_str2ad( str, &f->f_av_desc, &text );
 231                 if( rc != LDAP_SUCCESS ) {
 232                         filter_free( f );
 233                         *(value-1) = '=';
 234                         return NULL;
 235                 }
 236
 237                 tmp = ch_strdup( value );
 238                 ldap_pvt_filter_value_unescape( tmp );
 239                 f->f_av_value = ber_bvstr( tmp );
 240 #else
 241                 f->f_avtype = ch_strdup( str );
 242                 f->f_avvalue.bv_val = ch_strdup( value );
 243                 ldap_pvt_filter_value_unescape( f->f_avvalue.bv_val );
 244                 f->f_avvalue.bv_len = strlen( value );
 245 #endif
 246         }
 247
 248         *s = savechar;
 249         *(value-1) = '=';
 250
 251         return( f );
 252 }
 253
 254 static int
 255 str2subvals( const char *in, Filter *f )
 256 {
 257         char    *nextstar, *val, *freeme;
 258         int     gotstar;
 259
 260         Debug( LDAP_DEBUG_FILTER, "str2subvals \"%s\"\n", in, 0, 0 );
 261
 262         if( in == NULL ) return 0;
 263
 264         val = freeme = ch_strdup( in );
 265         gotstar = 0;
 266
 267         while ( *val ) {
 268                 if ( (nextstar = ldap_pvt_find_wildcard( val )) != NULL )
 269                         *nextstar++ = '\0';
 270
 271                 ldap_pvt_filter_value_unescape( val );
 272
 273                 if ( gotstar == 0 ) {
 274                         f->f_sub_initial = ber_bvstrdup( val );
 275
 276                 } else if ( nextstar == NULL ) {
 277                         f->f_sub_final = ber_bvstrdup( val );
 278
 279                 } else {
 280                         charray_add( (char ***) &f->f_sub_any, (char *) ber_bvstrdup( val ) );
 281                 }
 282
 283                 gotstar = 1;
 284                 val = nextstar;
 285         }
 286
 287         free( freeme );
 288         return( 0 );
 289 }
 290
 291 /*
 292  * find_matching_paren - return a pointer to the right paren in s matching
 293  * the left paren to which *s currently points
 294  */
 295
 296 static char *
 297 find_matching_paren( const char *s )
 298 {
 299         int     balance, escape;
 300
 301         balance = 0;
 302         escape = 0;
 303         for ( ; *s; s++ ) {
 304                 if ( escape == 0 ) {
 305                         if ( *s == '(' )
 306                                 balance++;
 307                         else if ( *s == ')' )
 308                                 balance--;
 309                 }
 310                 if ( balance == 0 ) {
 311                         return (char *) s;
 312                 }
 313                 if ( *s == '\\' && ! escape )
 314                         escape = 1;
 315                 else
 316                         escape = 0;
 317         }
 318
 319         return NULL;
 320 }