3 * Copyright 1998-2000 The OpenLDAP Foundation, All Rights Reserved.
4 * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
12 #include <ac/stdarg.h>
13 #include <ac/string.h>
18 * We don't just set ber_pvt_err_file to stderr here, because in NT,
19 * stderr is a symbol imported from a DLL. As such, the compiler
20 * doesn't recognize the symbol as having a constant address. Thus
21 * we set ber_pvt_err_file to stderr later, when it first gets
24 FILE *ber_pvt_err_file;
29 BER_ERRNO_FN ber_int_errno_fn;
31 int * ber_errno_addr(void)
33 static int ber_int_errno = LBER_ERROR_NONE;
35 if( ber_int_errno_fn ) {
36 return (*ber_int_errno_fn)();
39 return &ber_int_errno;
45 void ber_error_print( LDAP_CONST char *data )
47 assert( data != NULL );
49 if (!ber_pvt_err_file) ber_pvt_err_file = stderr;
51 fputs( data, ber_pvt_err_file );
53 /* Print to both streams */
54 if (ber_pvt_err_file != stderr) {
55 fputs( data, stderr );
59 fflush( ber_pvt_err_file );
62 BER_LOG_PRINT_FN ber_pvt_log_print = ber_error_print;
68 static int ber_log_check( int errlvl, int loglvl )
70 return errlvl & loglvl ? 1 : 0;
73 int ber_pvt_log_printf( int errlvl, int loglvl, const char *fmt, ... )
78 assert( fmt != NULL );
80 if ( !ber_log_check( errlvl, loglvl )) {
87 buf[sizeof(buf) - 1] = '\0';
88 vsnprintf( buf, sizeof(buf)-1, fmt, ap );
90 vsprintf( buf, fmt, ap ); /* hope it's not too long */
93 #error "vsprintf() required."
98 (*ber_pvt_log_print)( buf );
102 static int ber_log_puts(int errlvl, int loglvl, char *buf)
104 assert( buf != NULL );
106 if ( !ber_log_check( errlvl, loglvl )) {
110 (*ber_pvt_log_print)( buf );
115 * Print arbitrary stuff, for debugging.
119 ber_log_bprint(int errlvl,
124 assert( data != NULL );
126 if ( !ber_log_check( errlvl, loglvl )) {
130 ber_bprint(data, len);
136 LDAP_CONST char *data,
139 static const char hexdig[] = "0123456789abcdef";
146 assert( data != NULL );
148 /* in case len is zero */
152 for ( i = 0 ; i < len ; i++ ) {
157 if( i ) (*ber_pvt_log_print)( line );
158 memset( line, ' ', sizeof(line)-2 );
159 line[sizeof(line)-2] = '\n';
160 line[sizeof(line)-1] = '\0';
164 line[ 2 ] = hexdig[ ( off & 0xf000U ) >> 12 ];
165 line[ 3 ] = hexdig[ ( off & 0x0f00U ) >> 8 ];
166 line[ 4 ] = hexdig[ ( off & 0x00f0U ) >> 4 ];
167 line[ 5 ] = hexdig[ ( off & 0x000fU ) ];
171 off = BP_OFFSET + n*3;
172 line[ off ] = hexdig[ ( data[i] & 0xf0U ) >> 4 ];
173 line[ off+1 ] = hexdig[ data[i] & 0x0fU ];
177 if ( isprint( data[i] )) {
178 line[ BP_GRAPH + n ] = data[i];
180 line[ BP_GRAPH + n ] = '.';
184 (*ber_pvt_log_print)( line );
194 assert( ber != NULL );
195 assert( BER_VALID( ber ) );
197 if ( !ber_log_check( errlvl, loglvl )) {
201 ber_dump(ber, inout);
212 assert( ber != NULL );
213 assert( BER_VALID( ber ) );
215 sprintf( buf, "ber_dump: buf 0x%lx, ptr 0x%lx, end 0x%lx\n",
218 (long) ber->ber_end );
220 (*ber_pvt_log_print)( buf );
223 sprintf( buf, " current len %ld, contents:\n",
224 (long) (ber->ber_end - ber->ber_ptr) );
225 ber_bprint( ber->ber_ptr, ber->ber_end - ber->ber_ptr );
228 sprintf( buf, " current len %ld, contents:\n",
229 (long) (ber->ber_ptr - ber->ber_buf) );
231 ber_bprint( ber->ber_buf, ber->ber_ptr - ber->ber_buf );
241 assert( sos != NULL );
243 if ( !ber_log_check( errlvl, loglvl )) {
257 assert( sos != NULL );
259 (*ber_pvt_log_print)( "*** sos dump ***\n" );
261 while ( sos != NULL ) {
262 sprintf( buf, "ber_sos_dump: clen %ld first 0x%lx ptr 0x%lx\n",
263 (long) sos->sos_clen,
264 (long) sos->sos_first,
265 (long) sos->sos_ptr );
266 (*ber_pvt_log_print)( buf );
268 sprintf( buf, " current len %ld contents:\n",
269 (long) (sos->sos_ptr - sos->sos_first) );
270 (*ber_pvt_log_print)( buf );
272 ber_bprint( sos->sos_first, sos->sos_ptr - sos->sos_first );
277 (*ber_pvt_log_print)( "*** end dump ***\n" );