X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=servers%2Fslapd%2Fattr.c;h=8a5f5358cb2f8d263937370fe0bdf455da94dbef;hb=403f4479bc9f9a864122d4aeecf7284408918302;hp=1aa239239588c557989755251035ce2f66bd9626;hpb=c0f5c884297aac7b930afad98f601912c83e9e72;p=openldap diff --git a/servers/slapd/attr.c b/servers/slapd/attr.c index 1aa2392395..8a5f5358cb 100644 --- a/servers/slapd/attr.c +++ b/servers/slapd/attr.c @@ -1,3 +1,8 @@ +/* $OpenLDAP$ */ +/* + * Copyright 1998-1999 The OpenLDAP Foundation, All Rights Reserved. + * COPYING RESTRICTIONS APPLY, see COPYRIGHT file + */ /* attr.c - routines for dealing with attributes */ #include "portable.h" @@ -9,6 +14,7 @@ #endif #include +#include #include #include #include @@ -17,13 +23,12 @@ #include #endif -#include - +#include "ldap_pvt.h" #include "slap.h" -extern char **charray_dup(); -extern char *ch_malloc(); -extern int errno; +#ifdef LDAP_DEBUG +static void at_index_print( void ); +#endif void attr_free( Attribute *a ) @@ -33,6 +38,71 @@ attr_free( Attribute *a ) free( a ); } +void +attrs_free( Attribute *a ) +{ + Attribute *next; + + for( ; a != NULL ; a = next ) { + next = a->a_next; + attr_free( a ); + } +} + +Attribute *attr_dup( Attribute *a ) +{ + Attribute *tmp; + + if( a == NULL) return NULL; + + tmp = ch_malloc( sizeof(Attribute) ); + + if( a->a_vals != NULL ) { + int i; + + for( i=0; a->a_vals[i] != NULL; i++ ) { + /* EMPTY */ ; + } + + tmp->a_vals = ch_malloc((i+1) * sizeof(struct berval*)); + + for( i=0; a->a_vals[i] != NULL; i++ ) { + tmp->a_vals[i] = ber_bvdup( a->a_vals[i] ); + + if( tmp->a_vals[i] == NULL ) break; + } + + tmp->a_vals[i] = NULL; + + } else { + tmp->a_vals = NULL; + } + + tmp->a_type = ch_strdup( a->a_type ); + tmp->a_syntax = a->a_syntax; + tmp->a_next = NULL; + + return tmp; +} + +Attribute *attrs_dup( Attribute *a ) +{ + Attribute *tmp, **next; + + if( a == NULL ) return NULL; + + tmp = NULL; + next = &tmp; + + for( ; a != NULL ; a = a->a_next ) { + *next = attr_dup( a ); + next = &((*next)->a_next); + } + *next = NULL; + + return tmp; +} + /* * attr_normalize - normalize an attribute name (make it all lowercase) */ @@ -40,13 +110,9 @@ attr_free( Attribute *a ) char * attr_normalize( char *s ) { - char *save; + assert( s != NULL ); - for ( save = s; *s; s++ ) { - *s = TOLOWER( *s ); - } - - return( save ); + return( ldap_pvt_str2lower( s ) ); } /* @@ -68,8 +134,6 @@ attr_merge_fast( Attribute ***a ) { - int i; - if ( *a == NULL ) { for ( *a = &e->e_attrs; **a != NULL; *a = &(**a)->a_next ) { if ( strcasecmp( (**a)->a_type, type ) == 0 ) { @@ -80,7 +144,7 @@ attr_merge_fast( if ( **a == NULL ) { **a = (Attribute *) ch_malloc( sizeof(Attribute) ); - (**a)->a_type = attr_normalize( strdup( type ) ); + (**a)->a_type = attr_normalize( ch_strdup( type ) ); (**a)->a_vals = NULL; (**a)->a_syntax = attr_syntax( type ); (**a)->a_next = NULL; @@ -104,7 +168,6 @@ attr_merge( struct berval **vals ) { - int i; Attribute **a; for ( a = &e->e_attrs; *a != NULL; a = &(*a)->a_next ) { @@ -115,7 +178,7 @@ attr_merge( if ( *a == NULL ) { *a = (Attribute *) ch_malloc( sizeof(Attribute) ); - (*a)->a_type = attr_normalize( strdup( type ) ); + (*a)->a_type = attr_normalize( ch_strdup( type ) ); (*a)->a_vals = NULL; (*a)->a_syntax = attr_syntax( type ); (*a)->a_next = NULL; @@ -131,7 +194,7 @@ attr_merge( Attribute * attr_find( Attribute *a, - char *type + const char *type ) { for ( ; a != NULL; a = a->a_next ) { @@ -153,7 +216,7 @@ attr_find( int attr_delete( Attribute **attrs, - char *type + const char *type ) { Attribute **a; @@ -178,60 +241,6 @@ attr_delete( #define DEFAULT_SYNTAX SYNTAX_CIS -struct asyntaxinfo { - char **asi_names; - int asi_syntax; -}; - -static Avlnode *attr_syntaxes = NULL; - -static int -attr_syntax_cmp( - struct asyntaxinfo *a1, - struct asyntaxinfo *a2 -) -{ - return( strcasecmp( a1->asi_names[0], a2->asi_names[0] ) ); -} - -static int -attr_syntax_name_cmp( - char *type, - struct asyntaxinfo *a -) -{ - return( strcasecmp( type, a->asi_names[0] ) ); -} - -static int -attr_syntax_names_cmp( - char *type, - struct asyntaxinfo *a -) -{ - int i; - - for ( i = 0; a->asi_names[i] != NULL; i++ ) { - if ( strcasecmp( type, a->asi_names[i] ) == 0 ) { - return( 0 ); - } - } - return( 1 ); -} - -static int -attr_syntax_dup( - struct asyntaxinfo *a1, - struct asyntaxinfo *a2 -) -{ - if ( a1->asi_syntax != a2->asi_syntax ) { - return( -1 ); - } - - return( 1 ); -} - /* * attr_syntax - return the syntax of attribute type */ @@ -239,14 +248,11 @@ attr_syntax_dup( int attr_syntax( char *type ) { - struct asyntaxinfo *asi = NULL; + AttributeType *sat; - if ( (asi = (struct asyntaxinfo *) avl_find( attr_syntaxes, type, - attr_syntax_name_cmp )) != NULL || (asi = (struct asyntaxinfo *) - avl_find_lin( attr_syntaxes, type, attr_syntax_names_cmp )) - != NULL ) - { - return( asi->asi_syntax ); + sat = at_find(type); + if ( sat ) { + return( sat->sat_syntax_compat ); } return( DEFAULT_SYNTAX ); @@ -258,15 +264,17 @@ attr_syntax( char *type ) void attr_syntax_config( - char *fname, + const char *fname, int lineno, int argc, char **argv ) { char *save; - struct asyntaxinfo *a; - int i, lasti; + LDAP_ATTRIBUTE_TYPE *at; + int lasti; + int code; + const char *err; if ( argc < 2 ) { Debug( LDAP_DEBUG_ANY, @@ -275,74 +283,447 @@ attr_syntax_config( return; } - a = (struct asyntaxinfo *) ch_calloc( 1, sizeof(struct asyntaxinfo) ); + at = (LDAP_ATTRIBUTE_TYPE *) + ch_calloc( 1, sizeof(LDAP_ATTRIBUTE_TYPE) ); lasti = argc - 1; if ( strcasecmp( argv[lasti], "caseignorestring" ) == 0 || strcasecmp( argv[lasti], "cis" ) == 0 ) { - a->asi_syntax = SYNTAX_CIS; + at->at_syntax_oid = "1.3.6.1.4.1.1466.115.121.1.15"; + at->at_equality_oid = "2.5.13.2"; + at->at_ordering_oid = "2.5.13.3"; + at->at_substr_oid = "2.5.13.4"; } else if ( strcasecmp( argv[lasti], "telephone" ) == 0 || strcasecmp( argv[lasti], "tel" ) == 0 ) { - a->asi_syntax = (SYNTAX_CIS | SYNTAX_TEL); + at->at_syntax_oid = "1.3.6.1.4.1.1466.115.121.1.50"; + at->at_equality_oid = "2.5.13.20"; + at->at_substr_oid = "2.5.13.21"; } else if ( strcasecmp( argv[lasti], "dn" ) == 0 ) { - a->asi_syntax = (SYNTAX_CIS | SYNTAX_DN); + at->at_syntax_oid = "1.3.6.1.4.1.1466.115.121.1.12"; + at->at_equality_oid = "2.5.13.1"; } else if ( strcasecmp( argv[lasti], "caseexactstring" ) == 0 || strcasecmp( argv[lasti], "ces" ) == 0 ) { - a->asi_syntax = SYNTAX_CES; + at->at_syntax_oid = "1.3.6.1.4.1.1466.115.121.1.15"; + at->at_equality_oid = "2.5.13.5"; + at->at_ordering_oid = "2.5.13.6"; + at->at_substr_oid = "2.5.13.7"; } else if ( strcasecmp( argv[lasti], "binary" ) == 0 || strcasecmp( argv[lasti], "bin" ) == 0 ) { - a->asi_syntax = SYNTAX_BIN; + at->at_syntax_oid = "1.3.6.1.4.1.1466.115.121.1.5"; + /* There is no match for binary syntax. Really */ } else { Debug( LDAP_DEBUG_ANY, "%s: line %d: unknown syntax \"%s\" in attribute line (ignored)\n", - fname, lineno, 0 ); + fname, lineno, argv[lasti] ); Debug( LDAP_DEBUG_ANY, "possible syntaxes are \"cis\", \"ces\", \"tel\", \"dn\", or \"bin\"\n", 0, 0, 0 ); - free( (char *) a ); + free( (AttributeType *) at ); return; } + save = argv[lasti]; argv[lasti] = NULL; - a->asi_names = charray_dup( argv ); + at->at_names = charray_dup( argv ); argv[lasti] = save; - switch ( avl_insert( &attr_syntaxes, (caddr_t) a, attr_syntax_cmp, - attr_syntax_dup ) ) { - case -1: /* duplicate - different syntaxes */ - Debug( LDAP_DEBUG_ARGS, "%s: line %d: duplicate attribute\n", - fname, lineno, 0 ); - /* FALL */ + code = at_add( at, &err ); + if ( code ) { + fprintf( stderr, "%s: line %d: %s %s\n", + fname, lineno, scherr2str(code), err); + exit( EXIT_FAILURE ); + } + ldap_memfree(at); +} - case 1: /* duplicate - same syntaxes */ - charray_free( a->asi_names ); - free( (char *) a ); - break; +int +at_fake_if_needed( + char *name +) +{ + char *argv[3]; - default: /* inserted */ - break; + if ( at_find( name ) ) { + return 0; + } else { + argv[0] = name; + argv[1] = "cis"; + argv[2] = NULL; + attr_syntax_config( "implicit", 0, 2, argv ); + return 0; } } -#ifdef LDAP_DEBUG +struct aindexrec { + char *air_name; + AttributeType *air_at; +}; + +static Avlnode *attr_index = NULL; +static AttributeType *attr_list = NULL; -static -attr_syntax_printnode( struct asyntaxinfo *a ) +static int +attr_index_cmp( + struct aindexrec *air1, + struct aindexrec *air2 +) +{ + return (strcasecmp( air1->air_name, air2->air_name )); +} + +static int +attr_index_name_cmp( + char *type, + struct aindexrec *air +) +{ + return (strcasecmp( type, air->air_name )); +} + +AttributeType * +at_find( + const char *name +) +{ + struct aindexrec *air = NULL; + + if ( (air = (struct aindexrec *) avl_find( attr_index, name, + (AVL_CMP) attr_index_name_cmp )) != NULL ) { + return( air->air_at ); + } + return( NULL ); +} + +int +at_append_to_list( + AttributeType *sat, + AttributeType ***listp +) +{ + AttributeType **list; + AttributeType **list1; + int size; + + list = *listp; + if ( !list ) { + size = 2; + list = calloc(size, sizeof(AttributeType *)); + if ( !list ) { + return -1; + } + } else { + size = 0; + list1 = *listp; + while ( *list1 ) { + size++; + list1++; + } + size += 2; + list1 = realloc(list, size*sizeof(AttributeType *)); + if ( !list1 ) { + return -1; + } + list = list1; + } + list[size-2] = sat; + list[size-1] = NULL; + *listp = list; + return 0; +} + +int +at_delete_from_list( + int pos, + AttributeType ***listp +) +{ + AttributeType **list; + AttributeType **list1; + int i; + int j; + + if ( pos < 0 ) { + return -2; + } + list = *listp; + for ( i=0; list[i]; i++ ) + ; + if ( pos >= i ) { + return -2; + } + for ( i=pos, j=pos+1; list[j]; i++, j++ ) { + list[i] = list[j]; + } + list[i] = NULL; + /* Tell the runtime this can be shrinked */ + list1 = realloc(list, (i+1)*sizeof(AttributeType **)); + if ( !list1 ) { + return -1; + } + *listp = list1; + return 0; +} + +int +at_find_in_list( + AttributeType *sat, + AttributeType **list +) { int i; - printf( "syntax: 0x%x\n", a->asi_syntax ); - for ( i = 0; a->asi_names[i] != NULL; i++ ) { - printf( " name: %s\n", a->asi_names[i] ); + if ( !list ) { + return -1; + } + for ( i=0; list[i]; i++ ) { + if ( sat == list[i] ) { + return i; + } + } + return -1; +} + +static int +at_insert( + AttributeType *sat, + const char **err +) +{ + AttributeType **atp; + struct aindexrec *air; + char **names; + + atp = &attr_list; + while ( *atp != NULL ) { + atp = &(*atp)->sat_next; + } + *atp = sat; + + if ( sat->sat_oid ) { + air = (struct aindexrec *) + ch_calloc( 1, sizeof(struct aindexrec) ); + air->air_name = sat->sat_oid; + air->air_at = sat; + if ( avl_insert( &attr_index, (caddr_t) air, + (AVL_CMP) attr_index_cmp, + (AVL_DUP) avl_dup_error ) ) { + *err = sat->sat_oid; + ldap_memfree(air); + return SLAP_SCHERR_DUP_ATTR; + } + /* FIX: temporal consistency check */ + at_find(air->air_name); + } + if ( (names = sat->sat_names) ) { + while ( *names ) { + air = (struct aindexrec *) + ch_calloc( 1, sizeof(struct aindexrec) ); + air->air_name = ch_strdup(*names); + air->air_at = sat; + if ( avl_insert( &attr_index, (caddr_t) air, + (AVL_CMP) attr_index_cmp, + (AVL_DUP) avl_dup_error ) ) { + *err = *names; + ldap_memfree(air); + return SLAP_SCHERR_DUP_ATTR; + } + /* FIX: temporal consistency check */ + at_find(air->air_name); + names++; + } + } + + return 0; +} + +int +at_add( + LDAP_ATTRIBUTE_TYPE *at, + const char **err +) +{ + AttributeType *sat; + AttributeType *sat1; + MatchingRule *mr; + Syntax *syn; + int code; + char *errattr; + + if ( at->at_names && at->at_names[0] ) { + errattr = at->at_names[0]; + } else if ( at->at_oid ) { + errattr = at->at_oid; + } else { + errattr = ""; + return SLAP_SCHERR_ATTR_INCOMPLETE; + } + sat = (AttributeType *) ch_calloc( 1, sizeof(AttributeType) ); + memcpy( &sat->sat_atype, at, sizeof(LDAP_ATTRIBUTE_TYPE)); + if ( at->at_sup_oid ) { + if ( (sat1 = at_find(at->at_sup_oid)) ) { + sat->sat_sup = sat1; + if ( at_append_to_list(sat, &sat1->sat_subtypes) ) { + *err = errattr; + return SLAP_SCHERR_OUTOFMEM; + } + } else { + *err = at->at_sup_oid; + return SLAP_SCHERR_ATTR_NOT_FOUND; + } } + + if ( at->at_syntax_oid ) { + if ( (syn = syn_find(sat->sat_syntax_oid)) ) { + sat->sat_syntax = syn; + } else { + *err = sat->sat_syntax_oid; + return SLAP_SCHERR_SYN_NOT_FOUND; + } + if ( !strcmp(at->at_syntax_oid, + "1.3.6.1.4.1.1466.115.121.1.15") ) { + if ( at->at_equality_oid && + !strcmp(at->at_equality_oid, "2.5.13.5") ) { + sat->sat_syntax_compat = SYNTAX_CES; + } else { + sat->sat_syntax_compat = SYNTAX_CIS; + } + } else if ( !strcmp(at->at_syntax_oid, + "1.3.6.1.4.1.1466.115.121.1.50") ) { + sat->sat_syntax_compat = SYNTAX_CIS | SYNTAX_TEL; + } else if ( !strcmp(at->at_syntax_oid, + "1.3.6.1.4.1.1466.115.121.1.12") ) { + sat->sat_syntax_compat = SYNTAX_CIS | SYNTAX_DN; + } else if ( !strcmp(at->at_syntax_oid, "1.3.6.1.4.1.1466.115.121.1.5") ) { + sat->sat_syntax_compat = SYNTAX_BIN; + } else { + sat->sat_syntax_compat = DEFAULT_SYNTAX; + } + } else { + sat->sat_syntax_compat = DEFAULT_SYNTAX; + } + + if ( sat->sat_equality_oid ) { + if ( (mr = mr_find(sat->sat_equality_oid)) ) { + sat->sat_equality = mr; + } else { + *err = sat->sat_equality_oid; + return SLAP_SCHERR_MR_NOT_FOUND; + } + } + if ( sat->sat_ordering_oid ) { + if ( (mr = mr_find(sat->sat_ordering_oid)) ) { + sat->sat_ordering = mr; + } else { + *err = sat->sat_ordering_oid; + return SLAP_SCHERR_MR_NOT_FOUND; + } + } + if ( sat->sat_substr_oid ) { + if ( (mr = mr_find(sat->sat_substr_oid)) ) { + sat->sat_substr = mr; + } else { + *err = sat->sat_substr_oid; + return SLAP_SCHERR_MR_NOT_FOUND; + } + } + + /* + * Now inherit definitions from superiors. We only check the + * direct superior since that one has already inherited from + * its own superiorss + */ + if ( sat->sat_sup ) { + if ( !sat->sat_syntax ) { + sat->sat_syntax = sat->sat_sup->sat_syntax; + sat->sat_syntax_len = sat->sat_sup->sat_syntax_len; + } + if ( !sat->sat_equality ) { + sat->sat_equality = sat->sat_sup->sat_equality; + } + if ( !sat->sat_ordering ) { + sat->sat_ordering = sat->sat_sup->sat_ordering; + } + if ( !sat->sat_substr ) { + sat->sat_substr = sat->sat_sup->sat_substr; + } + } + code = at_insert(sat,err); + return code; +} + + +char * +at_canonical_name( char * a_type ) +{ + AttributeType *atp; + + if ( (atp=at_find(a_type)) == NULL ) { + + return a_type; + + } else if ( atp->sat_names + && atp->sat_names[0] + && (*(atp->sat_names[0]) != '\0') ) { + + return atp->sat_names[0]; + + } else if (atp->sat_oid && (*atp->sat_oid != '\0')) { + + return atp->sat_oid; + + } else { + + return a_type; + + } + +}/* char * at_canonica_name() */ + + +#if defined( SLAPD_SCHEMA_DN ) + +int +at_schema_info( Entry *e ) +{ + struct berval val; + struct berval *vals[2]; + AttributeType *at; + + vals[0] = &val; + vals[1] = NULL; + + for ( at = attr_list; at; at = at->sat_next ) { + val.bv_val = ldap_attributetype2str( &at->sat_atype ); + if ( val.bv_val ) { + val.bv_len = strlen( val.bv_val ); + Debug( LDAP_DEBUG_TRACE, "Merging at [%ld] %s\n", + (long) val.bv_len, val.bv_val, 0 ); + attr_merge( e, "attributeTypes", vals ); + ldap_memfree( val.bv_val ); + } else { + return -1; + } + } + return 0; +} +#endif + +#ifdef LDAP_DEBUG + +static int +at_index_printnode( struct aindexrec *air ) +{ + + printf( "%s = %s\n", air->air_name, ldap_attributetype2str(&air->air_at->sat_atype) ); return( 0 ); } -static -attr_syntax_print() +static void +at_index_print( void ) { - (void) avl_apply( attr_syntaxes, attr_syntax_printnode, 0, -1, - AVL_INORDER ); + printf("Printing attribute type index:\n"); + (void) avl_apply( attr_index, (AVL_APPLY) at_index_printnode, + 0, -1, AVL_INORDER ); } #endif