X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libraries%2Fliblber%2Fio.c;h=27220e42675535c913ead6a0c7d23f4bee630745;hb=e2fa599482298372de6545b552b6b3a5ebd20ecb;hp=7d529500d784c4eed2581d88df30f0a7b186cd8a;hpb=a81ca188454b343e91568d49c0ac408660dcb66c;p=openldap diff --git a/libraries/liblber/io.c b/libraries/liblber/io.c index 7d529500d7..27220e4267 100644 --- a/libraries/liblber/io.c +++ b/libraries/liblber/io.c @@ -1,6 +1,7 @@ /* io.c - ber general i/o routines */ +/* $OpenLDAP$ */ /* - * Copyright 1998-1999 The OpenLDAP Foundation, All Rights Reserved. + * Copyright 1998-2000 The OpenLDAP Foundation, All Rights Reserved. * COPYING RESTRICTIONS APPLY, see COPYRIGHT file */ /* Portions @@ -18,7 +19,8 @@ #include "portable.h" #include -#include + +#include #include #include @@ -32,14 +34,10 @@ #include "lber-int.h" -#ifdef LDAP_DEBUG -#include -#else -#define assert(cond) -#endif - -static long BerRead LDAP_P(( Sockbuf *sb, char *buf, long len )); -static int ber_realloc LDAP_P(( BerElement *ber, unsigned long len )); +static ber_slen_t BerRead LDAP_P(( + Sockbuf *sb, + char *buf, + ber_len_t len )); #define EXBUFSIZ 1024 @@ -51,14 +49,22 @@ static int ber_realloc LDAP_P(( BerElement *ber, unsigned long len )); # define MAX_BERBUFSIZE 65535 #endif -static long -BerRead( Sockbuf *sb, char *buf, long len ) +static ber_slen_t +BerRead( + Sockbuf *sb, + char *buf, + ber_len_t len ) { - int c; - long nread = 0; + ber_slen_t c; + ber_slen_t nread = 0; + + assert( sb != NULL ); + assert( buf != NULL ); + + assert( SOCKBUF_VALID( sb ) ); while ( len > 0 ) { - if ( (c = lber_pvt_sb_read( sb, buf, len )) <= 0 ) { + if ( (c = ber_int_sb_read( sb, buf, len )) <= 0 ) { if ( nread > 0 ) break; return( c ); @@ -71,24 +77,41 @@ BerRead( Sockbuf *sb, char *buf, long len ) return( nread ); } -long -ber_read( BerElement *ber, char *buf, unsigned long len ) +ber_slen_t +ber_read( + BerElement *ber, + char *buf, + ber_len_t len ) { - unsigned long actuallen, nleft; + ber_len_t actuallen, nleft; + + assert( ber != NULL ); + assert( buf != NULL ); + + assert( BER_VALID( ber ) ); nleft = ber->ber_end - ber->ber_ptr; actuallen = nleft < len ? nleft : len; - SAFEMEMCPY( buf, ber->ber_ptr, (size_t)actuallen ); + SAFEMEMCPY( buf, ber->ber_ptr, actuallen ); ber->ber_ptr += actuallen; - return( (long)actuallen ); + return( (ber_slen_t) actuallen ); } -long -ber_write( BerElement *ber, char *buf, unsigned long len, int nosos ) +ber_slen_t +ber_write( + BerElement *ber, + LDAP_CONST char *buf, + ber_len_t len, + int nosos ) { + assert( ber != NULL ); + assert( buf != NULL ); + + assert( BER_VALID( ber ) ); + if ( nosos || ber->ber_sos == NULL ) { if ( ber->ber_ptr + len > ber->ber_end ) { if ( ber_realloc( ber, len ) != 0 ) @@ -96,7 +119,8 @@ ber_write( BerElement *ber, char *buf, unsigned long len, int nosos ) } SAFEMEMCPY( ber->ber_ptr, buf, (size_t)len ); ber->ber_ptr += len; - return( len ); + return( (ber_slen_t) len ); + } else { if ( ber->ber_sos->sos_ptr + len > ber->ber_end ) { if ( ber_realloc( ber, len ) != 0 ) @@ -105,30 +129,35 @@ ber_write( BerElement *ber, char *buf, unsigned long len, int nosos ) SAFEMEMCPY( ber->ber_sos->sos_ptr, buf, (size_t)len ); ber->ber_sos->sos_ptr += len; ber->ber_sos->sos_clen += len; - return( len ); + return( (ber_slen_t) len ); } } -static int -ber_realloc( BerElement *ber, unsigned long len ) +int +ber_realloc( BerElement *ber, ber_len_t len ) { - unsigned long need, have, total; + ber_len_t need, have, total; Seqorset *s; long off; char *oldbuf; + assert( ber != NULL ); + assert( len > 0 ); + + assert( BER_VALID( ber ) ); + have = (ber->ber_end - ber->ber_buf) / EXBUFSIZ; need = (len < EXBUFSIZ ? 1 : (len + (EXBUFSIZ - 1)) / EXBUFSIZ); total = have * EXBUFSIZ + need * EXBUFSIZ; oldbuf = ber->ber_buf; + ber->ber_buf = (char *) LBER_REALLOC( ber->ber_buf, total ); + if ( ber->ber_buf == NULL ) { - if ( (ber->ber_buf = (char *) malloc( (size_t)total )) == NULL ) - return( -1 ); - } else if ( (ber->ber_buf = (char *) realloc( ber->ber_buf, - (size_t)total )) == NULL ) + ber->ber_buf = oldbuf; return( -1 ); + } ber->ber_end = ber->ber_buf + total; @@ -141,7 +170,7 @@ ber_realloc( BerElement *ber, unsigned long len ) if ( ber->ber_buf != oldbuf ) { ber->ber_ptr = ber->ber_buf + (ber->ber_ptr - oldbuf); - for ( s = ber->ber_sos; s != NULLSEQORSET; s = s->sos_next ) { + for ( s = ber->ber_sos; s != NULL; s = s->sos_next ) { off = s->sos_first - oldbuf; s->sos_first = ber->ber_buf + off; @@ -156,16 +185,44 @@ ber_realloc( BerElement *ber, unsigned long len ) void ber_free( BerElement *ber, int freebuf ) { - if ( freebuf && ber->ber_buf != NULL ) - free( ber->ber_buf ); +#ifdef LDAP_MEMORY_DEBUG + assert( ber != NULL ); +#endif + + if( ber == NULL ) { + return; + } + + assert( BER_VALID( ber ) ); + + if ( freebuf ) { + Seqorset *s, *next; + LBER_FREE( ber->ber_buf ); + + for( s = ber->ber_sos ; s != NULL ; s = next ) { + next = s->sos_next; + LBER_FREE( s ); + } + } + ber->ber_buf = NULL; - free( (char *) ber ); + ber->ber_sos = NULL; + ber->ber_valid = LBER_UNINITIALIZED; + + LBER_FREE( (char *) ber ); } int ber_flush( Sockbuf *sb, BerElement *ber, int freeit ) { - long nwritten, towrite, rc; + ber_len_t nwritten, towrite; + ber_slen_t rc; + + assert( sb != NULL ); + assert( ber != NULL ); + + assert( SOCKBUF_VALID( sb ) ); + assert( BER_VALID( ber ) ); if ( ber->ber_rwptr == NULL ) { ber->ber_rwptr = ber->ber_buf; @@ -173,26 +230,17 @@ ber_flush( Sockbuf *sb, BerElement *ber, int freeit ) towrite = ber->ber_ptr - ber->ber_rwptr; if ( sb->sb_debug ) { - lber_log_printf( LDAP_DEBUG_ANY, sb->sb_debug, - "ber_flush: %ld bytes to sd %ld%s\n", towrite, - (long) sb->sb_sd, ber->ber_rwptr != ber->ber_buf ? " (re-flush)" - : "" ); - lber_log_bprint( LDAP_DEBUG_PACKETS, sb->sb_debug, + ber_log_printf( LDAP_DEBUG_ANY, sb->sb_debug, + "ber_flush: %ld bytes to sd %ld%s\n", + towrite, (long) sb->sb_fd, + ber->ber_rwptr != ber->ber_buf ? " (re-flush)" : "" ); + ber_log_bprint( LDAP_DEBUG_PACKETS, sb->sb_debug, ber->ber_rwptr, towrite ); } -#if !defined(MACOS) && !defined(DOS) - if ( sb->sb_options & (LBER_TO_FILE | LBER_TO_FILE_ONLY) ) { - rc = write( sb->sb_fd, ber->ber_rwptr, towrite ); - if ( sb->sb_options & LBER_TO_FILE_ONLY ) { - return( (int)rc ); - } - } -#endif - nwritten = 0; do { - rc = lber_pvt_sb_write( sb, ber->ber_rwptr, towrite ); + rc = ber_int_sb_write( sb, ber->ber_rwptr, towrite ); if (rc<=0) { return -1; } @@ -212,23 +260,30 @@ ber_alloc_t( int options ) { BerElement *ber; - if ( (ber = (BerElement *) calloc( 1, sizeof(BerElement) )) == NULLBER ) - return( NULLBER ); + ber_int_options.lbo_valid = LBER_INITIALIZED; + + ber = (BerElement *) LBER_CALLOC( 1, sizeof(BerElement) ); + + if ( ber == NULL ) + return( NULL ); + + ber->ber_valid = LBER_VALID_BERELEMENT; ber->ber_tag = LBER_DEFAULT; ber->ber_options = options; - ber->ber_debug = lber_int_debug; + ber->ber_debug = ber_int_debug; + assert( BER_VALID( ber ) ); return( ber ); } BerElement * -ber_alloc( void ) +ber_alloc( void ) /* deprecated */ { return( ber_alloc_t( 0 ) ); } BerElement * -der_alloc( void ) +der_alloc( void ) /* deprecated */ { return( ber_alloc_t( LBER_USE_DER ) ); } @@ -238,11 +293,16 @@ ber_dup( BerElement *ber ) { BerElement *new; - if ( (new = ber_alloc()) == NULLBER ) - return( NULLBER ); + assert( ber != NULL ); + assert( BER_VALID( ber ) ); + + if ( (new = ber_alloc_t( ber->ber_options )) == NULL ) { + return( NULL ); + } *new = *ber; + assert( BER_VALID( new ) ); return( new ); } @@ -251,9 +311,17 @@ ber_dup( BerElement *ber ) void ber_init_w_nullc( BerElement *ber, int options ) { + assert( ber != NULL ); + + ber_int_options.lbo_valid = LBER_INITIALIZED; + (void) memset( (char *)ber, '\0', sizeof( BerElement )); + ber->ber_valid = LBER_VALID_BERELEMENT; ber->ber_tag = LBER_DEFAULT; ber->ber_options = (char) options; + ber->ber_debug = ber_int_debug; + + assert( BER_VALID( ber ) ); } /* New C-API ber_init() */ @@ -265,19 +333,23 @@ ber_init( struct berval *bv ) { BerElement *ber; + assert( bv != NULL ); + + ber_int_options.lbo_valid = LBER_INITIALIZED; + if ( bv == NULL ) { return NULL; } ber = ber_alloc_t( 0 ); - if( ber == NULLBER ) { + if( ber == NULL ) { /* allocation failed */ return ( NULL ); } /* copy the data */ - if ( ( (unsigned int) ber_write ( ber, bv->bv_val, bv->bv_len, 0 )) != bv->bv_len ) { + if ( ( (ber_len_t) ber_write ( ber, bv->bv_val, bv->bv_len, 0 )) != bv->bv_len ) { /* write failed, so free and return NULL */ ber_free( ber, 1 ); return( NULL ); @@ -299,11 +371,15 @@ int ber_flatten( { struct berval *bv; + assert( bvPtr != NULL ); + + ber_int_options.lbo_valid = LBER_INITIALIZED; + if(bvPtr == NULL) { return( -1 ); } - if ( (bv = malloc( sizeof(struct berval))) == NULL ) { + if ( (bv = LBER_MALLOC( sizeof(struct berval))) == NULL ) { return( -1 ); } @@ -314,14 +390,14 @@ int ber_flatten( } else { /* copy the berval */ - ptrdiff_t len = ber->ber_ptr - ber->ber_buf; + ber_len_t len = ber->ber_ptr - ber->ber_buf; - if ( (bv->bv_val = (char *) malloc( len + 1 )) == NULL ) { + if ( (bv->bv_val = (char *) LBER_MALLOC( len + 1 )) == NULL ) { ber_bvfree( bv ); return( -1 ); } - SAFEMEMCPY( bv->bv_val, ber->ber_buf, (size_t)len ); + SAFEMEMCPY( bv->bv_val, ber->ber_buf, len ); bv->bv_val[len] = '\0'; bv->bv_len = len; } @@ -333,6 +409,9 @@ int ber_flatten( void ber_reset( BerElement *ber, int was_writing ) { + assert( ber != NULL ); + assert( BER_VALID( ber ) ); + if ( was_writing ) { ber->ber_end = ber->ber_ptr; ber->ber_ptr = ber->ber_buf; @@ -345,24 +424,27 @@ ber_reset( BerElement *ber, int was_writing ) #if 0 /* return the tag - LBER_DEFAULT returned means trouble */ -static unsigned long +static ber_tag_t get_tag( Sockbuf *sb ) { unsigned char xbyte; - unsigned long tag; + ber_tag_t tag; char *tagp; unsigned int i; - if ( lber_pvt_sb_read( sb, (char *) &xbyte, 1 ) != 1 ) + assert( sb != NULL ); + assert( SOCKBUF_VALID( sb ) ); + + if ( ber_int_sb_read( sb, (char *) &xbyte, 1 ) != 1 ) return( LBER_DEFAULT ); if ( (xbyte & LBER_BIG_TAG_MASK) != LBER_BIG_TAG_MASK ) - return( (unsigned long) xbyte ); + return( (ber_tag_t) xbyte ); tagp = (char *) &tag; tagp[0] = xbyte; - for ( i = 1; i < sizeof(long); i++ ) { - if ( lber_pvt_sb_read( sb, (char *) &xbyte, 1 ) != 1 ) + for ( i = 1; i < sizeof(ber_tag_t); i++ ) { + if ( ber_int_sb_read( sb, (char *) &xbyte, 1 ) != 1 ) return( LBER_DEFAULT ); tagp[i] = xbyte; @@ -372,28 +454,36 @@ get_tag( Sockbuf *sb ) } /* tag too big! */ - if ( i == sizeof(long) ) + if ( i == sizeof(ber_tag_t) ) return( LBER_DEFAULT ); /* want leading, not trailing 0's */ - return( tag >> (sizeof(long) - i - 1) ); + return( tag >> (sizeof(ber_tag_t) - i - 1) ); } #endif /* - * A rewrite of get_get_next that can safely be called multiple times - * for the same packet. It will simply continue were it stopped until + * A rewrite of ber_get_next that can safely be called multiple times + * for the same packet. It will simply continue where it stopped until * a full packet is read. */ -unsigned long -ber_get_next( Sockbuf *sb, unsigned long *len, BerElement *ber ) +ber_tag_t +ber_get_next( + Sockbuf *sb, + ber_len_t *len, + BerElement *ber ) { - if ( ber->ber_debug ) { - lber_log_printf( LDAP_DEBUG_TRACE, ber->ber_debug, - "ber_get_next\n" ); - } - + assert( sb != NULL ); + assert( len != NULL ); + assert( ber != NULL ); + + assert( SOCKBUF_VALID( sb ) ); + assert( BER_VALID( ber ) ); + + ber_log_printf( LDAP_DEBUG_TRACE, ber->ber_debug, + "ber_get_next\n" ); + /* * Any ber element looks like this: tag length contents. * Assuming everything's ok, we return the tag byte (we @@ -407,17 +497,21 @@ ber_get_next( Sockbuf *sb, unsigned long *len, BerElement *ber ) */ if (ber->ber_rwptr == NULL) { - assert( ber->ber_buf == NULL ); + /* XXYYZ + * dtest does like this assert. + */ + /* assert( ber->ber_buf == NULL ); */ ber->ber_rwptr = (char *) &ber->ber_tag; ber->ber_tag = 0; } -#define PTR_IN_VAR( ptr, var )\ -(((ptr)>=(char *) &(var)) && ((ptr)< (char *) &(var)+sizeof(var))) +#undef PTR_IN_VAR +#define PTR_IN_VAR( ptr, var ) \ + (((ptr)>=(char *) &(var)) && ((ptr)< (char *) &(var)+sizeof(var))) if (PTR_IN_VAR(ber->ber_rwptr, ber->ber_tag)) { if (ber->ber_rwptr == (char *) &ber->ber_tag) { - if (lber_pvt_sb_read( sb, ber->ber_rwptr, 1)<=0) + if (ber_int_sb_read( sb, ber->ber_rwptr, 1)<=0) return LBER_DEFAULT; if ((ber->ber_rwptr[0] & LBER_BIG_TAG_MASK) != LBER_BIG_TAG_MASK) { @@ -429,25 +523,29 @@ ber_get_next( Sockbuf *sb, unsigned long *len, BerElement *ber ) } do { /* reading the tag... */ - if (lber_pvt_sb_read( sb, ber->ber_rwptr, 1)<=0) + if (ber_int_sb_read( sb, ber->ber_rwptr, 1)<=0) { return LBER_DEFAULT; + } + if (! (ber->ber_rwptr[0] & LBER_MORE_TAG_MASK) ) { ber->ber_tag>>=sizeof(ber->ber_tag) - ((char *) &ber->ber_tag - ber->ber_rwptr); ber->ber_rwptr = (char *) &ber->ber_usertag; goto get_lenbyte; } - } while (PTR_IN_VAR(ber->ber_rwptr,ber->ber_tag)); + } while( PTR_IN_VAR(ber->ber_rwptr, ber->ber_tag )); + errno = ERANGE; /* this is a serious error. */ return LBER_DEFAULT; } + get_lenbyte: if (ber->ber_rwptr==(char *) &ber->ber_usertag) { unsigned char c; - if (lber_pvt_sb_read( sb, (char *) &c, 1)<=0) + if (ber_int_sb_read( sb, (char *) &c, 1)<=0) return LBER_DEFAULT; - if (c & 0x80) { - int len = c & 0x7f; + if (c & 0x80U) { + int len = c & 0x7fU; if ( (len==0) || ( len>sizeof( ber->ber_len ) ) ) { errno = ERANGE; return LBER_DEFAULT; @@ -460,29 +558,29 @@ get_lenbyte: goto fill_buffer; } } + if (PTR_IN_VAR(ber->ber_rwptr, ber->ber_len)) { - int res; - int to_go; + unsigned char netlen[sizeof(ber_len_t)]; + + ber_slen_t res; + ber_slen_t to_go; to_go = (char *) &ber->ber_len + sizeof( ber->ber_len ) - ber->ber_rwptr; assert( to_go > 0 ); - res = lber_pvt_sb_read( sb, ber->ber_rwptr, to_go ); - if (res <=0) + res = BerRead( sb, netlen, to_go ); + if (res <= 0) { return LBER_DEFAULT; + } ber->ber_rwptr += res; - if (res==to_go) { - /* convert length. */ - ber->ber_len = AC_NTOHL( ber->ber_len ); - goto fill_buffer; - } else { -#if defined( EWOULDBLOCK ) - errno = EWOULDBLOCK; -#elif defined( EAGAIN ) - errno = EAGAIN; -#endif - return LBER_DEFAULT; + + /* convert length. */ + ber->ber_len = 0; + for( to_go = 0; to_go < res ; to_go++ ) { + ber->ber_len <<= 8; + ber->ber_len |= netlen[to_go]; } } + fill_buffer: /* now fill the buffer. */ if (ber->ber_buf==NULL) { @@ -490,21 +588,22 @@ fill_buffer: errno = ERANGE; return LBER_DEFAULT; } - ber->ber_buf = (char *) malloc( ber->ber_len ); + ber->ber_buf = (char *) LBER_MALLOC( ber->ber_len ); if (ber->ber_buf==NULL) return LBER_DEFAULT; ber->ber_rwptr = ber->ber_buf; ber->ber_ptr = ber->ber_buf; ber->ber_end = ber->ber_buf + ber->ber_len; } + if ((ber->ber_rwptr>=ber->ber_buf) && (ber->ber_rwptrber_end)) { - int res; - int to_go; + ber_slen_t res; + ber_slen_t to_go; to_go = ber->ber_end - ber->ber_rwptr; assert( to_go > 0 ); - res = lber_pvt_sb_read( sb, ber->ber_rwptr, to_go ); + res = ber_int_sb_read( sb, ber->ber_rwptr, to_go ); if (res<=0) return LBER_DEFAULT; ber->ber_rwptr+=res; @@ -521,54 +620,13 @@ fill_buffer: ber->ber_rwptr = NULL; *len = ber->ber_len; if ( ber->ber_debug ) { - lber_log_printf( LDAP_DEBUG_TRACE, ber->ber_debug, + ber_log_printf( LDAP_DEBUG_TRACE, ber->ber_debug, "ber_get_next: tag 0x%lx len %ld contents:\n", ber->ber_tag, ber->ber_len ); - lber_log_dump( LDAP_DEBUG_BER, ber->ber_debug, ber, 1 ); + ber_log_dump( LDAP_DEBUG_BER, ber->ber_debug, ber, 1 ); } return (ber->ber_tag); } assert( 0 ); /* ber structure is messed up ?*/ return LBER_DEFAULT; } - -void ber_clear( BerElement *ber, int freebuf ) -{ - if ((freebuf) && (ber->ber_buf)) - free( ber->ber_buf ); - ber->ber_buf = NULL; - ber->ber_rwptr = NULL; - ber->ber_end = NULL; -} - -Sockbuf *lber_pvt_sb_alloc( void ) -{ - Sockbuf *sb = calloc(1, sizeof(Sockbuf)); - lber_pvt_sb_init( sb ); - return sb; -} - -Sockbuf *lber_pvt_sb_alloc_fd( int fd ) -{ - Sockbuf *sb = lber_pvt_sb_alloc(); - lber_pvt_sb_set_desc( sb, fd ); - lber_pvt_sb_set_io( sb, &lber_pvt_sb_io_tcp, NULL ); - return sb; -} - -void lber_pvt_sb_free( Sockbuf *sb ) -{ - if(sb == NULL) return; - lber_pvt_sb_destroy( sb ); - free(sb); -} - -int lber_pvt_sb_get_option( Sockbuf *sb, int opt, void *outvalue ) -{ - return LBER_OPT_ERROR; -} - -int lber_pvt_sb_set_option( Sockbuf *sb, int opt, void *invalue ) -{ - return LBER_OPT_ERROR; -}