3 * Copyright 1998-1999 The OpenLDAP Foundation, All Rights Reserved.
4 * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
12 #include <ac/stdarg.h>
13 #include <ac/string.h>
20 BER_ERRNO_FN ber_int_errno_fn;
22 int * ber_errno_addr(void)
24 static int ber_int_errno = LBER_ERROR_NONE;
26 if( ber_int_errno_fn ) {
27 return (*ber_int_errno_fn)();
30 return &ber_int_errno;
37 ber_error_print( char *data )
39 assert( data != NULL );
41 fputs( data, stderr );
45 BER_LOG_PRINT_FN ber_pvt_log_print = ber_error_print;
51 static int ber_log_check( int errlvl, int loglvl )
53 return errlvl & loglvl ? 1 : 0;
56 int ber_pvt_log_printf( int errlvl, int loglvl, const char *fmt, ... )
61 assert( fmt != NULL );
63 if ( !ber_log_check( errlvl, loglvl )) {
70 buf[sizeof(buf) - 1] = '\0';
71 vsnprintf( buf, sizeof(buf)-1, fmt, ap );
73 vsprintf( buf, fmt, ap ); /* hope it's not too long */
76 #error "vsprintf() required."
81 (*ber_pvt_log_print)( buf );
85 static int ber_log_puts(int errlvl, int loglvl, char *buf)
87 assert( buf != NULL );
89 if ( !ber_log_check( errlvl, loglvl )) {
93 (*ber_pvt_log_print)( buf );
98 * Print arbitrary stuff, for debugging.
102 ber_log_bprint(int errlvl,
107 assert( data != NULL );
109 if ( !ber_log_check( errlvl, loglvl )) {
113 ber_bprint(data, len);
119 LDAP_CONST char *data,
122 static const char hexdig[] = "0123456789abcdef";
125 char buf[ BPLEN + sizeof("\t%s\n") ];
128 assert( data != NULL );
130 memset( out, 0, BPLEN );
133 sprintf( buf, "\t%s\n", ( i == 0 ) ? "(end)" : out );
134 (*ber_pvt_log_print)( buf );
139 if ( isgraph( (unsigned char)*data )) {
144 out[ i ] = hexdig[ ( *data & 0xf0U ) >> 4 ];
145 out[ i+1 ] = hexdig[ *data & 0x0fU ];
153 if ( i > BPLEN - 2 ) {
154 char data[128 + BPLEN];
155 sprintf( data, "\t%s\n", out );
156 (*ber_pvt_log_print)(data);
157 memset( out, 0, BPLEN );
172 assert( ber != NULL );
173 assert( BER_VALID( ber ) );
175 if ( !ber_log_check( errlvl, loglvl )) {
179 ber_dump(ber, inout);
190 assert( ber != NULL );
191 assert( BER_VALID( ber ) );
193 sprintf( buf, "ber_dump: buf 0x%lx, ptr 0x%lx, end 0x%lx\n",
196 (long) ber->ber_end );
198 (*ber_pvt_log_print)( buf );
201 sprintf( buf, " current len %ld, contents:\n",
202 (long) (ber->ber_end - ber->ber_ptr) );
203 ber_bprint( ber->ber_ptr, ber->ber_end - ber->ber_ptr );
206 sprintf( buf, " current len %ld, contents:\n",
207 (long) (ber->ber_ptr - ber->ber_buf) );
209 ber_bprint( ber->ber_buf, ber->ber_ptr - ber->ber_buf );
219 assert( sos != NULL );
221 if ( !ber_log_check( errlvl, loglvl )) {
235 assert( sos != NULL );
237 (*ber_pvt_log_print)( "*** sos dump ***\n" );
239 while ( sos != NULL ) {
240 sprintf( buf, "ber_sos_dump: clen %ld first 0x%lx ptr 0x%lx\n",
241 (long) sos->sos_clen,
242 (long) sos->sos_first,
243 (long) sos->sos_ptr );
244 (*ber_pvt_log_print)( buf );
246 sprintf( buf, " current len %ld contents:\n",
247 (long) (sos->sos_ptr - sos->sos_first) );
248 (*ber_pvt_log_print)( buf );
250 ber_bprint( sos->sos_first, sos->sos_ptr - sos->sos_first );
255 (*ber_pvt_log_print)( "*** end dump ***\n" );