1 /* str2filter.c - parse an rfc 1588 string filter */
4 * Copyright 1998-2000 The OpenLDAP Foundation, All Rights Reserved.
5 * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
12 #include <ac/string.h>
14 #include <ac/socket.h>
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);
25 str2filter( const char *str )
31 LDAP_LOG(( "filter", LDAP_LEVEL_ENTRY,
32 "str2filter: \"%s\"\n", str ));
34 Debug( LDAP_DEBUG_FILTER, "str2filter \"%s\"\n", str, 0, 0 );
37 if ( str == NULL || *str == '\0' ) {
41 str = freeme = ch_strdup( str );
45 if ( (end = find_matching_paren( str )) == NULL ) {
56 LDAP_LOG(( "filter", LDAP_LEVEL_DETAIL1,
57 "str2filter: AND\n" ));
59 Debug( LDAP_DEBUG_FILTER, "str2filter: AND\n",
64 f = str2list( str, LDAP_FILTER_AND );
69 LDAP_LOG(( "filter", LDAP_LEVEL_DETAIL1,
70 "str2filter: OR\n" ));
72 Debug( LDAP_DEBUG_FILTER, "put_filter: OR\n",
77 f = str2list( str, LDAP_FILTER_OR );
82 LDAP_LOG(( "filter", LDAP_LEVEL_DETAIL1,
83 "str2filter: NOT\n" ));
85 Debug( LDAP_DEBUG_FILTER, "put_filter: NOT\n",
90 f = str2list( str, LDAP_FILTER_NOT );
95 LDAP_LOG(( "filter", LDAP_LEVEL_DETAIL1,
96 "str2filter: simple\n" ));
98 Debug( LDAP_DEBUG_FILTER, "str2filter: simple\n",
102 f = str2simple( str );
108 default: /* assume it's a simple type=value filter */
110 LDAP_LOG(( "filter", LDAP_LEVEL_DETAIL1,
111 "str2filter: default\n" ));
113 Debug( LDAP_DEBUG_FILTER, "str2filter: default\n",
117 f = str2simple( str );
126 * Put a list of filters like this "(filter1)(filter2)..."
130 str2list( const char *str, unsigned long ftype )
138 LDAP_LOG(( "filter", LDAP_LEVEL_ENTRY,
139 "str2list: \"%s\"\n", str ));
141 Debug( LDAP_DEBUG_FILTER, "str2list \"%s\"\n", str, 0, 0 );
144 f = (Filter *) ch_calloc( 1, sizeof(Filter) );
149 while ( *str && isspace( (unsigned char) *str ) )
154 if ( (next = find_matching_paren( str )) == NULL ) {
161 /* now we have "(filter)" with str pointing to it */
162 if ( (*fp = str2filter( str )) == NULL ) {
178 str2simple( const char *str )
182 char *value, savechar;
187 LDAP_LOG(( "filter", LDAP_LEVEL_ENTRY,
188 "str2simple: \"%s\"\n", str ));
190 Debug( LDAP_DEBUG_FILTER, "str2simple \"%s\"\n", str, 0, 0 );
193 if ( (s = strchr( str, '=' )) == NULL ) {
198 *s-- = '\0'; /* we shouldn't be mucking with str */
201 f = (Filter *) ch_calloc( 1, sizeof(Filter) );
205 f->f_choice = LDAP_FILTER_LE;
209 f->f_choice = LDAP_FILTER_GE;
213 f->f_choice = LDAP_FILTER_APPROX;
217 f->f_choice = LDAP_FILTER_EXT;
223 char *nextstar = ldap_pvt_find_wildcard( value );
225 if ( nextstar == NULL ) {
230 } else if ( *nextstar == '\0' ) {
231 f->f_choice = LDAP_FILTER_EQUALITY;
233 } else if ( strcmp( value, "*" ) == 0 ) {
234 f->f_choice = LDAP_FILTER_PRESENT;
237 f->f_choice = LDAP_FILTER_SUBSTRINGS;
238 f->f_sub = ch_calloc( 1, sizeof( SubstringsAssertion ) );
240 rc = slap_str2ad( str, &f->f_sub_desc, &text );
241 if( rc != LDAP_SUCCESS ) {
247 if ( str2subvals( value, f ) != 0 ) {
258 if ( f->f_choice == LDAP_FILTER_PRESENT ) {
259 rc = slap_str2ad( str, &f->f_desc, &text );
260 if( rc != LDAP_SUCCESS ) {
270 f->f_ava = ch_calloc( 1, sizeof( AttributeAssertion ) );
272 rc = slap_str2ad( str, &f->f_av_desc, &text );
273 if( rc != LDAP_SUCCESS ) {
279 tmp = ch_strdup( value );
280 len = ldap_pvt_filter_value_unescape( tmp );
287 ber_str2bv( tmp, 0, 0, &f->f_av_value );
297 str2subvals( const char *in, Filter *f )
300 char *nextstar, *val, *freeme;
305 LDAP_LOG(( "filter", LDAP_LEVEL_ENTRY,
306 "str2subvals: \"%s\"\n", in ));
308 Debug( LDAP_DEBUG_FILTER, "str2subvals \"%s\"\n", in, 0, 0 );
311 if( in == NULL ) return 0;
313 val = freeme = ch_strdup( in );
317 nextstar = ldap_pvt_find_wildcard( val );
319 if ( nextstar == NULL ) {
323 } else if( *nextstar == '\0' ) {
331 len = ldap_pvt_filter_value_unescape( val );
338 ber_str2bv( val, 0, 1, &f->f_sub_final );
340 } else if ( gotstar <= 1 ) {
341 ber_str2bv( val, 0, 1, &f->f_sub_initial );
344 charray_add( (char ***) &f->f_sub_any,
345 (char *) ber_bvstrdup( val ) );
356 * find_matching_paren - return a pointer to the right paren in s matching
357 * the left paren to which *s currently points
361 find_matching_paren( const char *s )
371 else if ( *s == ')' )
374 if ( balance == 0 ) {
377 if ( *s == '\\' && ! escape )