+/* $OpenLDAP$ */
+/*
+ * Copyright 1998-2002 The OpenLDAP Foundation, All Rights Reserved.
+ * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
+ */
#include "portable.h"
#include "lber-int.h"
+#define ber_log_check(errlvl, loglvl) ((errlvl) & (loglvl))
+
+BER_LOG_FN ber_int_log_proc = NULL;
+
+/*
+ * We don't just set ber_pvt_err_file to stderr here, because in NT,
+ * stderr is a symbol imported from a DLL. As such, the compiler
+ * doesn't recognize the symbol as having a constant address. Thus
+ * we set ber_pvt_err_file to stderr later, when it first gets
+ * referenced.
+ */
+FILE *ber_pvt_err_file = NULL;
+
+/*
+ * ber errno
+ */
+BER_ERRNO_FN ber_int_errno_fn = NULL;
+
+int * ber_errno_addr(void)
+{
+ static int ber_int_errno = LBER_ERROR_NONE;
+
+ if( ber_int_errno_fn ) {
+ return (*ber_int_errno_fn)();
+ }
+
+ return &ber_int_errno;
+}
+
/*
* Print stuff
*/
-static void
-lber_print_error( char *data )
+void ber_error_print( LDAP_CONST char *data )
{
- fputs( data, stderr );
- fflush( stderr );
+ assert( data != NULL );
+
+ if (!ber_pvt_err_file) ber_pvt_err_file = stderr;
+
+ fputs( data, ber_pvt_err_file );
+
+ /* Print to both streams */
+ if (ber_pvt_err_file != stderr) {
+ fputs( data, stderr );
+ fflush( stderr );
+ }
+
+ fflush( ber_pvt_err_file );
}
+BER_LOG_PRINT_FN ber_pvt_log_print = ber_error_print;
+
/*
* lber log
*/
-static int lber_log_check( int errlvl, int loglvl )
+int ber_pvt_log_output(
+ const char *subsystem,
+ int level,
+ const char *fmt,
+ ... )
{
- return errlvl & loglvl ? 1 : 0;
-}
+ char buf[ 1024 ];
+ va_list vl;
+ va_start( vl, fmt );
-int lber_log_printf
-#ifdef HAVE_STDARG
- (int errlvl, int loglvl, char *fmt, ...)
-#else
- ( va_alist )
-va_dcl
-#endif
+ if ( ber_int_log_proc != NULL )
+ {
+ ber_int_log_proc( ber_pvt_err_file, subsystem, level, fmt, vl );
+ }
+ else
+ {
+ int level;
+ ber_get_option( NULL, LBER_OPT_BER_DEBUG, &level );
+ buf[sizeof(buf) - 1] = '\0';
+ vsnprintf( buf, sizeof(buf)-1, fmt, vl );
+ if ( ber_log_check( LDAP_DEBUG_BER, level ) )
+ (*ber_pvt_log_print)( buf );
+ }
+ va_end(vl);
+
+ return 1;
+}
+
+int ber_pvt_log_printf( int errlvl, int loglvl, const char *fmt, ... )
{
char buf[ 1024 ];
va_list ap;
-#ifdef HAVE_STDARG
- va_start( ap, fmt );
-#else
- int errlvl, loglvl;
- char *fmt;
-
- va_start( ap );
-
- errlvl = va_arg( ap, int );
- loglvl = va_arg( ap, int );
- fmt = va_arg( ap, char * );
-#endif
+ assert( fmt != NULL );
- if ( !lber_log_check( errlvl, loglvl )) {
+ if ( !ber_log_check( errlvl, loglvl )) {
return 0;
}
-#ifdef HAVE_VSNPRINTF
+ va_start( ap, fmt );
+
buf[sizeof(buf) - 1] = '\0';
vsnprintf( buf, sizeof(buf)-1, fmt, ap );
-#elif
- vsprintf( buf, fmt, ap ); /* hope it's not too long */
-#else
- /* use doprnt() */
- chokeme = "choke me! I don't have a doprnt manual handy!";
-#endif
va_end(ap);
- lber_print_error( buf );
+ (*ber_pvt_log_print)( buf );
return 1;
}
-static int lber_log_puts(int errlvl, int loglvl, char *buf)
+#if 0
+static int ber_log_puts(int errlvl, int loglvl, char *buf)
{
- if ( !lber_log_check( errlvl, loglvl )) {
+ assert( buf != NULL );
+
+ if ( !ber_log_check( errlvl, loglvl )) {
return 0;
}
- lber_print_error( buf );
+ (*ber_pvt_log_print)( buf );
return 1;
}
+#endif
/*
* Print arbitrary stuff, for debugging.
*/
int
-lber_log_bprint(int errlvl, int loglvl, char *data, int len )
+ber_log_bprint(int errlvl,
+ int loglvl,
+ const char *data,
+ ber_len_t len )
{
- if ( !lber_log_check( errlvl, loglvl )) {
+ assert( data != NULL );
+
+ if ( !ber_log_check( errlvl, loglvl )) {
return 0;
}
}
void
-ber_bprint(char *data, int len )
+ber_bprint(
+ LDAP_CONST char *data,
+ ber_len_t len )
{
- static char hexdig[] = "0123456789abcdef";
-#define BPLEN 48
- char out[ BPLEN ];
- char buf[ BPLEN + sizeof("\t%s\n") ];
- int i = 0;
-
- memset( out, 0, BPLEN );
- for ( ;; ) {
- if ( len < 1 ) {
- sprintf( buf, "\t%s\n", ( i == 0 ) ? "(end)" : out );
- lber_print_error( buf );
- break;
+ static const char hexdig[] = "0123456789abcdef";
+#define BP_OFFSET 9
+#define BP_GRAPH 60
+#define BP_LEN 80
+ char line[ BP_LEN ];
+ ber_len_t i;
+
+ assert( data != NULL );
+
+ /* in case len is zero */
+ line[0] = '\n';
+ line[1] = '\0';
+
+ for ( i = 0 ; i < len ; i++ ) {
+ int n = i % 16;
+ unsigned off;
+
+ if( !n ) {
+ if( i ) (*ber_pvt_log_print)( line );
+ memset( line, ' ', sizeof(line)-2 );
+ line[sizeof(line)-2] = '\n';
+ line[sizeof(line)-1] = '\0';
+
+ off = i % 0x0ffffU;
+
+ line[ 2 ] = hexdig[ 0x0f & (off >> 12) ];
+ line[ 3 ] = hexdig[ 0x0f & (off >> 8) ];
+ line[ 4 ] = hexdig[ 0x0f & (off >> 4) ];
+ line[ 5 ] = hexdig[ 0x0f & off ];
+ line[ 6 ] = ':';
+ }
+
+ off = BP_OFFSET + n*3 + ((n >= 8)?1:0);
+ line[ off ] = hexdig[ 0x0f & ( data[i] >> 4 ) ];
+ line[ off+1 ] = hexdig[ 0x0f & data[i] ];
+
+ off = BP_GRAPH + n + ((n >= 8)?1:0);
+
+ if ( isprint( (unsigned char) data[i] )) {
+ line[ BP_GRAPH + n ] = data[i];
+ } else {
+ line[ BP_GRAPH + n ] = '.';
+ }
}
-#ifndef LDAP_HEX
- if ( isgraph( (unsigned char)*data )) {
- out[ i ] = ' ';
- out[ i+1 ] = *data;
- } else {
-#endif
- out[ i ] = hexdig[ ( *data & 0xf0 ) >> 4 ];
- out[ i+1 ] = hexdig[ *data & 0x0f ];
-#ifndef LDAP_HEX
- }
-#endif
- i += 2;
- len--;
- data++;
-
- if ( i > BPLEN - 2 ) {
- char data[128 + BPLEN];
- sprintf( data, "\t%s\n", out );
- lber_print_error(data);
- memset( out, 0, BPLEN );
- i = 0;
- continue;
- }
- out[ i++ ] = ' ';
+ (*ber_pvt_log_print)( line );
+}
+
+#ifdef NEW_LOGGING
+int ber_output_dump(
+ const char *subsys,
+ int level,
+ BerElement *ber,
+ int inout )
+{
+ static const char hexdig[] = "0123456789abcdef";
+ char buf[132];
+ ber_len_t len;
+ char line[ BP_LEN ];
+ ber_len_t i;
+ char *data = ber->ber_ptr;
+
+ if ( inout == 1 ) {
+ len = ber_pvt_ber_remaining(ber);
+ } else {
+ len = ber_pvt_ber_write(ber);
+ }
+
+ sprintf( buf, "ber_dump: buf=0x%08lx ptr=0x%08lx end=0x%08lx len=%ld\n",
+ (long) ber->ber_buf,
+ (long) ber->ber_ptr,
+ (long) ber->ber_end,
+ (long) len );
+
+ (void) ber_pvt_log_output( subsys, level, "%s", buf );
+
+#define BP_OFFSET 9
+#define BP_GRAPH 60
+#define BP_LEN 80
+
+ assert( data != NULL );
+
+ /* in case len is zero */
+ line[0] = '\n';
+ line[1] = '\0';
+
+ for ( i = 0 ; i < len ; i++ ) {
+ int n = i % 16;
+ unsigned off;
+
+ if( !n ) {
+ if( i ) {
+ (void) ber_pvt_log_output( subsys, level, "%s", line );
+ }
+ memset( line, ' ', sizeof(line)-2 );
+ line[sizeof(line)-2] = '\n';
+ line[sizeof(line)-1] = '\0';
+
+ off = i % 0x0ffffU;
+
+ line[ 2 ] = hexdig[ 0x0f & (off >> 12) ];
+ line[ 3 ] = hexdig[ 0x0f & (off >> 8) ];
+ line[ 4 ] = hexdig[ 0x0f & (off >> 4) ];
+ line[ 5 ] = hexdig[ 0x0f & off ];
+ line[ 6 ] = ':';
+ }
+
+ off = BP_OFFSET + n*3 + ((n >= 8)?1:0);
+ line[ off ] = hexdig[ 0x0f & ( data[i] >> 4 ) ];
+ line[ off+1 ] = hexdig[ 0x0f & data[i] ];
+
+ off = BP_GRAPH + n + ((n >= 8)?1:0);
+
+ if ( isprint( (unsigned char) data[i] )) {
+ line[ BP_GRAPH + n ] = data[i];
+ } else {
+ line[ BP_GRAPH + n ] = '.';
+ }
}
+
+ return ber_pvt_log_output( subsys, level, "%s", line );
}
+#endif
int
-lber_log_dump( int errlvl, int loglvl, BerElement *ber, int inout )
+ber_log_dump(
+ int errlvl,
+ int loglvl,
+ BerElement *ber,
+ int inout )
{
- if ( !lber_log_check( errlvl, loglvl )) {
+ assert( ber != NULL );
+ assert( LBER_VALID( ber ) );
+
+ if ( !ber_log_check( errlvl, loglvl )) {
return 0;
}
}
void
-ber_dump( BerElement *ber, int inout )
+ber_dump(
+ BerElement *ber,
+ int inout )
{
char buf[132];
+ ber_len_t len;
- sprintf( buf, "ber_dump: buf 0x%lx, ptr 0x%lx, end 0x%lx\n",
- (long) ber->ber_buf,
- (long) ber->ber_ptr,
- (long) ber->ber_end );
-
- lber_print_error( buf );
+ assert( ber != NULL );
+ assert( LBER_VALID( ber ) );
if ( inout == 1 ) {
- sprintf( buf, " current len %ld, contents:\n",
- (long) (ber->ber_end - ber->ber_ptr) );
- ber_bprint( ber->ber_ptr, ber->ber_end - ber->ber_ptr );
-
+ len = ber_pvt_ber_remaining(ber);
} else {
- sprintf( buf, " current len %ld, contents:\n",
- (long) (ber->ber_ptr - ber->ber_buf) );
-
- ber_bprint( ber->ber_buf, ber->ber_ptr - ber->ber_buf );
+ len = ber_pvt_ber_write(ber);
}
+
+ sprintf( buf, "ber_dump: buf=0x%08lx ptr=0x%08lx end=0x%08lx len=%ld\n",
+ (long) ber->ber_buf,
+ (long) ber->ber_ptr,
+ (long) ber->ber_end,
+ (long) len );
+
+ (void) (*ber_pvt_log_print)( buf );
+
+ ber_bprint( ber->ber_ptr, len );
}
int
-lber_log_sos_dump( int errlvl, int loglvl, Seqorset *sos )
+ber_log_sos_dump(
+ int errlvl,
+ int loglvl,
+ Seqorset *sos )
{
- if ( !lber_log_check( errlvl, loglvl )) {
+ assert( sos != NULL );
+
+ if ( !ber_log_check( errlvl, loglvl )) {
return 0;
}
}
void
-ber_sos_dump( Seqorset *sos )
+ber_sos_dump(
+ Seqorset *sos )
{
char buf[132];
- lber_print_error( "*** sos dump ***\n" );
+ assert( sos != NULL );
- while ( sos != NULLSEQORSET ) {
+ (*ber_pvt_log_print)( "*** sos dump ***\n" );
+
+ while ( sos != NULL ) {
sprintf( buf, "ber_sos_dump: clen %ld first 0x%lx ptr 0x%lx\n",
- (long) sos->sos_clen, (long) sos->sos_first, (long) sos->sos_ptr );
- lber_print_error( buf );
+ (long) sos->sos_clen,
+ (long) sos->sos_first,
+ (long) sos->sos_ptr );
+ (*ber_pvt_log_print)( buf );
sprintf( buf, " current len %ld contents:\n",
(long) (sos->sos_ptr - sos->sos_first) );
- lber_print_error( buf );
+ (*ber_pvt_log_print)( buf );
ber_bprint( sos->sos_first, sos->sos_ptr - sos->sos_first );
sos = sos->sos_next;
}
- lber_print_error( "*** end dump ***\n" );
+ (*ber_pvt_log_print)( "*** end dump ***\n" );
}
-