mirror of
https://git.openldap.org/openldap/openldap.git
synced 2024-12-09 02:52:04 +08:00
160 lines
2.9 KiB
C
160 lines
2.9 KiB
C
/* test.c - lber encoding test program */
|
|
/* $OpenLDAP$ */
|
|
/*
|
|
* Copyright 1998-2000 The OpenLDAP Foundation, All Rights Reserved.
|
|
* COPYING RESTRICTIONS APPLY, see COPYRIGHT file
|
|
*/
|
|
/* Portions
|
|
* Copyright (c) 1990 Regents of the University of Michigan.
|
|
* All rights reserved.
|
|
*/
|
|
|
|
#include "portable.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <ac/stdlib.h>
|
|
|
|
#include <ac/socket.h>
|
|
#include <ac/string.h>
|
|
#include <ac/unistd.h>
|
|
|
|
#ifdef HAVE_CONSOLE_H
|
|
#include <console.h>
|
|
#endif /* HAVE_CONSOLE_H */
|
|
|
|
#include "lber.h"
|
|
|
|
static void usage( char *name )
|
|
{
|
|
fprintf( stderr, "usage: %s fmtstring\n", name );
|
|
}
|
|
|
|
static char* getbuf() {
|
|
char *p;
|
|
static char buf[128];
|
|
|
|
if ( fgets( buf, sizeof(buf), stdin ) == NULL )
|
|
return NULL;
|
|
|
|
if ( (p = strchr( buf, '\n' )) != NULL )
|
|
*p = '\0';
|
|
|
|
return buf;
|
|
}
|
|
|
|
int
|
|
main( int argc, char **argv )
|
|
{
|
|
char *s;
|
|
|
|
int fd, rc;
|
|
BerElement *ber;
|
|
Sockbuf *sb;
|
|
|
|
/* enable debugging */
|
|
int ival = -1;
|
|
ber_set_option( NULL, LBER_OPT_DEBUG_LEVEL, &ival );
|
|
|
|
if ( argc < 2 ) {
|
|
usage( argv[0] );
|
|
return( EXIT_FAILURE );
|
|
}
|
|
|
|
#ifdef HAVE_CONSOLE_H
|
|
ccommand( &argv );
|
|
cshow( stdout );
|
|
|
|
if (( fd = open( "lber-test", O_WRONLY|O_CREAT|O_TRUNC|O_BINARY ))
|
|
< 0 ) {
|
|
perror( "open" );
|
|
return( EXIT_FAILURE );
|
|
}
|
|
|
|
#else
|
|
fd = fileno(stdout);
|
|
#endif
|
|
|
|
sb = ber_sockbuf_alloc();
|
|
ber_sockbuf_add_io( sb, &ber_sockbuf_io_fd, LBER_SBIOD_LEVEL_PROVIDER,
|
|
(void *)&fd );
|
|
|
|
if( sb == NULL ) {
|
|
perror( "ber_sockbuf_alloc_fd" );
|
|
return( EXIT_FAILURE );
|
|
}
|
|
|
|
if ( (ber = ber_alloc_t( LBER_USE_DER )) == NULL ) {
|
|
perror( "ber_alloc" );
|
|
return( EXIT_FAILURE );
|
|
}
|
|
|
|
fprintf(stderr, "encode: start\n" );
|
|
if( ber_printf( ber, "{" /*}*/ ) ) {
|
|
perror( "ber_printf {" /*}*/ );
|
|
return( EXIT_FAILURE );
|
|
}
|
|
|
|
for ( s = argv[1]; *s; s++ ) {
|
|
char *buf;
|
|
char fmt[2];
|
|
|
|
fmt[0] = *s;
|
|
fmt[1] = '\0';
|
|
|
|
fprintf(stderr, "encode: %s\n", fmt );
|
|
switch ( *s ) {
|
|
case 'i': /* int */
|
|
case 'b': /* boolean */
|
|
case 'e': /* enumeration */
|
|
buf = getbuf();
|
|
rc = ber_printf( ber, fmt, atoi(buf) );
|
|
break;
|
|
|
|
case 'n': /* null */
|
|
case '{': /* begin sequence */
|
|
case '}': /* end sequence */
|
|
case '[': /* begin set */
|
|
case ']': /* end set */
|
|
rc = ber_printf( ber, fmt );
|
|
break;
|
|
|
|
case 'o': /* octet string (non-null terminated) */
|
|
case 'B': /* bit string */
|
|
buf = getbuf();
|
|
rc = ber_printf( ber, fmt, buf, strlen(buf) );
|
|
break;
|
|
|
|
case 's': /* string */
|
|
case 't': /* tag for the next element */
|
|
buf = getbuf();
|
|
rc = ber_printf( ber, fmt, buf );
|
|
break;
|
|
|
|
default:
|
|
fprintf( stderr, "encode: unknown fmt %c\n", *fmt );
|
|
rc = -1;
|
|
break;
|
|
}
|
|
|
|
if( rc == -1 ) {
|
|
perror( "ber_printf" );
|
|
return( EXIT_FAILURE );
|
|
}
|
|
}
|
|
|
|
fprintf(stderr, "encode: end\n" );
|
|
if( ber_printf( ber, /*{*/ "N}" ) == -1 ) {
|
|
perror( /*{*/ "ber_printf }" );
|
|
return( EXIT_FAILURE );
|
|
}
|
|
|
|
if ( ber_flush( sb, ber, 1 ) == -1 ) {
|
|
perror( "ber_flush" );
|
|
return( EXIT_FAILURE );
|
|
}
|
|
|
|
ber_sockbuf_free( sb );
|
|
return( EXIT_SUCCESS );
|
|
}
|