3 * Copyright 1998-2002 The OpenLDAP Foundation, All Rights Reserved.
4 * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
12 #include <ac/stdarg.h>
13 #include <ac/string.h>
17 #define ber_log_check(errlvl, loglvl) ((errlvl) & (loglvl))
19 BER_LOG_FN ber_int_log_proc = NULL;
22 * We don't just set ber_pvt_err_file to stderr here, because in NT,
23 * stderr is a symbol imported from a DLL. As such, the compiler
24 * doesn't recognize the symbol as having a constant address. Thus
25 * we set ber_pvt_err_file to stderr later, when it first gets
28 FILE *ber_pvt_err_file = NULL;
33 BER_ERRNO_FN ber_int_errno_fn = NULL;
35 int * ber_errno_addr(void)
37 static int ber_int_errno = LBER_ERROR_NONE;
39 if( ber_int_errno_fn ) {
40 return (*ber_int_errno_fn)();
43 return &ber_int_errno;
49 void ber_error_print( LDAP_CONST char *data )
51 assert( data != NULL );
53 if (!ber_pvt_err_file) ber_pvt_err_file = stderr;
55 fputs( data, ber_pvt_err_file );
57 /* Print to both streams */
58 if (ber_pvt_err_file != stderr) {
59 fputs( data, stderr );
63 fflush( ber_pvt_err_file );
66 BER_LOG_PRINT_FN ber_pvt_log_print = ber_error_print;
72 int ber_pvt_log_output(
73 const char *subsystem,
82 if ( ber_int_log_proc != NULL )
84 ber_int_log_proc( ber_pvt_err_file, subsystem, level, fmt, vl );
89 ber_get_option( NULL, LBER_OPT_BER_DEBUG, &level );
91 buf[sizeof(buf) - 1] = '\0';
92 vsnprintf( buf, sizeof(buf)-1, fmt, vl );
94 vsprintf( buf, fmt, vl ); /* hope it's not too long */
97 #error "vsprintf() required.";
99 if ( ber_log_check( LDAP_DEBUG_BER, level ) )
100 (*ber_pvt_log_print)( buf );
107 int ber_pvt_log_printf( int errlvl, int loglvl, const char *fmt, ... )
112 assert( fmt != NULL );
114 if ( !ber_log_check( errlvl, loglvl )) {
120 #ifdef HAVE_VSNPRINTF
121 buf[sizeof(buf) - 1] = '\0';
122 vsnprintf( buf, sizeof(buf)-1, fmt, ap );
124 vsprintf( buf, fmt, ap ); /* hope it's not too long */
127 #error "vsprintf() required."
132 (*ber_pvt_log_print)( buf );
137 static int ber_log_puts(int errlvl, int loglvl, char *buf)
139 assert( buf != NULL );
141 if ( !ber_log_check( errlvl, loglvl )) {
145 (*ber_pvt_log_print)( buf );
151 * Print arbitrary stuff, for debugging.
155 ber_log_bprint(int errlvl,
160 assert( data != NULL );
162 if ( !ber_log_check( errlvl, loglvl )) {
166 ber_bprint(data, len);
172 LDAP_CONST char *data,
175 static const char hexdig[] = "0123456789abcdef";
182 assert( data != NULL );
184 /* in case len is zero */
188 for ( i = 0 ; i < len ; i++ ) {
193 if( i ) (*ber_pvt_log_print)( line );
194 memset( line, ' ', sizeof(line)-2 );
195 line[sizeof(line)-2] = '\n';
196 line[sizeof(line)-1] = '\0';
200 line[ 2 ] = hexdig[ 0x0f & (off >> 12) ];
201 line[ 3 ] = hexdig[ 0x0f & (off >> 8) ];
202 line[ 4 ] = hexdig[ 0x0f & (off >> 4) ];
203 line[ 5 ] = hexdig[ 0x0f & off ];
207 off = BP_OFFSET + n*3 + ((n >= 8)?1:0);
208 line[ off ] = hexdig[ 0x0f & ( data[i] >> 4 ) ];
209 line[ off+1 ] = hexdig[ 0x0f & data[i] ];
211 off = BP_GRAPH + n + ((n >= 8)?1:0);
213 if ( isprint( data[i] )) {
214 line[ BP_GRAPH + n ] = data[i];
216 line[ BP_GRAPH + n ] = '.';
220 (*ber_pvt_log_print)( line );
230 static const char hexdig[] = "0123456789abcdef";
235 char *data = ber->ber_ptr;
238 len = ber_pvt_ber_remaining(ber);
240 len = ber_pvt_ber_write(ber);
243 sprintf( buf, "ber_dump: buf=0x%08lx ptr=0x%08lx end=0x%08lx len=%ld\n",
249 (void) ber_pvt_log_output( subsys, level, "%s", buf );
255 assert( data != NULL );
257 /* in case len is zero */
261 for ( i = 0 ; i < len ; i++ ) {
267 (void) ber_pvt_log_output( subsys, level, "%s", line );
269 memset( line, ' ', sizeof(line)-2 );
270 line[sizeof(line)-2] = '\n';
271 line[sizeof(line)-1] = '\0';
275 line[ 2 ] = hexdig[ 0x0f & (off >> 12) ];
276 line[ 3 ] = hexdig[ 0x0f & (off >> 8) ];
277 line[ 4 ] = hexdig[ 0x0f & (off >> 4) ];
278 line[ 5 ] = hexdig[ 0x0f & off ];
282 off = BP_OFFSET + n*3 + ((n >= 8)?1:0);
283 line[ off ] = hexdig[ 0x0f & ( data[i] >> 4 ) ];
284 line[ off+1 ] = hexdig[ 0x0f & data[i] ];
286 off = BP_GRAPH + n + ((n >= 8)?1:0);
288 if ( isprint( data[i] )) {
289 line[ BP_GRAPH + n ] = data[i];
291 line[ BP_GRAPH + n ] = '.';
295 return ber_pvt_log_output( subsys, level, "%s", line );
306 assert( ber != NULL );
307 assert( LBER_VALID( ber ) );
309 if ( !ber_log_check( errlvl, loglvl )) {
313 ber_dump(ber, inout);
325 assert( ber != NULL );
326 assert( LBER_VALID( ber ) );
329 len = ber_pvt_ber_remaining(ber);
331 len = ber_pvt_ber_write(ber);
334 sprintf( buf, "ber_dump: buf=0x%08lx ptr=0x%08lx end=0x%08lx len=%ld\n",
340 (void) (*ber_pvt_log_print)( buf );
342 ber_bprint( ber->ber_ptr, len );
351 assert( sos != NULL );
353 if ( !ber_log_check( errlvl, loglvl )) {
367 assert( sos != NULL );
369 (*ber_pvt_log_print)( "*** sos dump ***\n" );
371 while ( sos != NULL ) {
372 sprintf( buf, "ber_sos_dump: clen %ld first 0x%lx ptr 0x%lx\n",
373 (long) sos->sos_clen,
374 (long) sos->sos_first,
375 (long) sos->sos_ptr );
376 (*ber_pvt_log_print)( buf );
378 sprintf( buf, " current len %ld contents:\n",
379 (long) (sos->sos_ptr - sos->sos_first) );
380 (*ber_pvt_log_print)( buf );
382 ber_bprint( sos->sos_first, sos->sos_ptr - sos->sos_first );
387 (*ber_pvt_log_print)( "*** end dump ***\n" );