]> git.sur5r.net Git - openldap/blob - libraries/liblber/dtest.c
More contrib cleanout
[openldap] / libraries / liblber / dtest.c
1 /* dtest.c - lber decoding test program */
2 /* $OpenLDAP$ */
3 /*
4  * Copyright 1998-2000 The OpenLDAP Foundation, All Rights Reserved.
5  * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
6  */
7 /* Portions
8  * Copyright (c) 1990 Regents of the University of Michigan.
9  * All rights reserved.
10  *
11  * Redistribution and use in source and binary forms are permitted
12  * provided that this notice is preserved and that due credit is given
13  * to the University of Michigan at Ann Arbor. The name of the University
14  * may not be used to endorse or promote products derived from this
15  * software without specific prior written permission. This software
16  * is provided ``as is'' without express or implied warranty.
17  */
18
19 #include "portable.h"
20
21 #include <stdio.h>
22
23 #include <ac/stdlib.h>
24 #include <ac/string.h>
25 #include <ac/socket.h>
26 #include <ac/unistd.h>
27
28 #ifdef HAVE_CONSOLE_H
29 #include <console.h>
30 #endif
31
32 #include <lber.h>
33
34 static void usage( char *name )
35 {
36         fprintf( stderr, "usage: %s fmt\n", name );
37 }
38
39 int
40 main( int argc, char **argv )
41 {
42         char *s;
43         int rc;
44
45         ber_tag_t       tag;
46         ber_len_t       len;
47
48         BerElement      *ber;
49         Sockbuf         *sb;
50         int             fd;
51
52         /* enable debugging */
53         int ival = -1;
54         ber_set_option( NULL, LBER_OPT_DEBUG_LEVEL, &ival );
55
56         if ( argc < 2 ) {
57                 usage( argv[0] );
58                 return( EXIT_FAILURE );
59         }
60
61 #ifdef HAVE_CONSOLE_H
62         ccommand( &argv );
63         cshow( stdout );
64 #endif
65
66         sb = ber_sockbuf_alloc();
67         fd = fileno( stdin );
68         ber_sockbuf_add_io( sb, &ber_sockbuf_io_fd, LBER_SBIOD_LEVEL_PROVIDER,
69                 (void *)&fd );
70
71         if( (ber = ber_alloc_t(LBER_USE_DER)) == NULL ) {
72                 perror( "ber_alloc_t" );
73                 return( EXIT_FAILURE );
74         }
75
76         if(( tag = ber_get_next( sb, &len, ber) ) == LBER_ERROR ) {
77                 perror( "ber_get_next" );
78                 return( EXIT_FAILURE );
79         }
80
81         printf("decode: message tag 0x%lx and length %ld\n",
82                 (unsigned long) tag, (long) len );
83
84         for( s = argv[1]; *s; s++ ) {
85                 char buf[128];
86                 char fmt[2];
87                 fmt[0] = *s;
88                 fmt[1] = '\0';
89
90                 printf("decode: format %s\n", fmt );
91                 len = sizeof(buf);
92                 rc = ber_scanf( ber, fmt, &buf[0], &len );
93
94                 if( rc == LBER_ERROR ) {
95                         perror( "ber_scanf" );
96                         return( EXIT_FAILURE );
97                 }
98         }
99
100         ber_sockbuf_free( sb );
101         return( EXIT_SUCCESS );
102 }