2 * Copyright 1998-1999 The OpenLDAP Foundation, All Rights Reserved.
3 * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
11 #include <ac/stdarg.h>
12 #include <ac/string.h>
20 lber_error_print( char *data )
22 fputs( data, stderr );
26 BER_LOG_PRINT_FN lber_log_print = lber_error_print;
32 static int lber_log_check( int errlvl, int loglvl )
34 return errlvl & loglvl ? 1 : 0;
39 (int errlvl, int loglvl, char *fmt, ...)
56 errlvl = va_arg( ap, int );
57 loglvl = va_arg( ap, int );
58 fmt = va_arg( ap, char * );
61 if ( !lber_log_check( errlvl, loglvl )) {
66 buf[sizeof(buf) - 1] = '\0';
67 vsnprintf( buf, sizeof(buf)-1, fmt, ap );
69 vsprintf( buf, fmt, ap ); /* hope it's not too long */
72 chokeme = "choke me! I don't have a doprnt manual handy!";
77 (*lber_log_print)( buf );
81 static int lber_log_puts(int errlvl, int loglvl, char *buf)
83 if ( !lber_log_check( errlvl, loglvl )) {
87 (*lber_log_print)( buf );
92 * Print arbitrary stuff, for debugging.
96 lber_log_bprint(int errlvl, int loglvl, char *data, int len )
98 if ( !lber_log_check( errlvl, loglvl )) {
102 ber_bprint(data, len);
107 ber_bprint(char *data, int len )
109 static char hexdig[] = "0123456789abcdef";
112 char buf[ BPLEN + sizeof("\t%s\n") ];
115 memset( out, 0, BPLEN );
118 sprintf( buf, "\t%s\n", ( i == 0 ) ? "(end)" : out );
119 (*lber_log_print)( buf );
124 if ( isgraph( (unsigned char)*data )) {
129 out[ i ] = hexdig[ ( *data & 0xf0 ) >> 4 ];
130 out[ i+1 ] = hexdig[ *data & 0x0f ];
138 if ( i > BPLEN - 2 ) {
139 char data[128 + BPLEN];
140 sprintf( data, "\t%s\n", out );
141 (*lber_log_print)(data);
142 memset( out, 0, BPLEN );
151 lber_log_dump( int errlvl, int loglvl, BerElement *ber, int inout )
153 if ( !lber_log_check( errlvl, loglvl )) {
157 ber_dump(ber, inout);
162 ber_dump( BerElement *ber, int inout )
166 sprintf( buf, "ber_dump: buf 0x%lx, ptr 0x%lx, end 0x%lx\n",
169 (long) ber->ber_end );
171 (*lber_log_print)( buf );
174 sprintf( buf, " current len %ld, contents:\n",
175 (long) (ber->ber_end - ber->ber_ptr) );
176 ber_bprint( ber->ber_ptr, ber->ber_end - ber->ber_ptr );
179 sprintf( buf, " current len %ld, contents:\n",
180 (long) (ber->ber_ptr - ber->ber_buf) );
182 ber_bprint( ber->ber_buf, ber->ber_ptr - ber->ber_buf );
187 lber_log_sos_dump( int errlvl, int loglvl, Seqorset *sos )
189 if ( !lber_log_check( errlvl, loglvl )) {
198 ber_sos_dump( Seqorset *sos )
202 (*lber_log_print)( "*** sos dump ***\n" );
204 while ( sos != NULLSEQORSET ) {
205 sprintf( buf, "ber_sos_dump: clen %ld first 0x%lx ptr 0x%lx\n",
206 (long) sos->sos_clen, (long) sos->sos_first, (long) sos->sos_ptr );
207 (*lber_log_print)( buf );
209 sprintf( buf, " current len %ld contents:\n",
210 (long) (sos->sos_ptr - sos->sos_first) );
211 (*lber_log_print)( buf );
213 ber_bprint( sos->sos_first, sos->sos_ptr - sos->sos_first );
218 (*lber_log_print)( "*** end dump ***\n" );