Mercurial > illumos > onarm
annotate usr/src/cmd/ldap/common/etest.c @ 4:1a15d5aaf794
synchronized with onnv_86 (6202) in onnv-gate
author | Koji Uno <koji.uno@sun.com> |
---|---|
date | Mon, 31 Aug 2009 14:38:03 +0900 |
parents | c9caec207d52 |
children |
rev | line source |
---|---|
0 | 1 /* |
2 * | |
3 * Portions Copyright 1998 Sun Microsystems, Inc. All rights reserved. | |
4 * Use is subject to license terms. | |
5 * | |
6 */ | |
4
1a15d5aaf794
synchronized with onnv_86 (6202) in onnv-gate
Koji Uno <koji.uno@sun.com>
parents:
0
diff
changeset
|
7 #pragma ident "%Z%%M% %I% %E% SMI" |
0 | 8 /* test.c - lber encoding test program */ |
9 /* | |
10 * Copyright (c) 1990 Regents of the University of Michigan. | |
11 * All rights reserved. | |
12 */ | |
13 | |
14 #include <stdio.h> | |
15 #include <string.h> | |
16 #ifdef MACOS | |
17 #include <stdlib.h> | |
18 #include <unix.h> | |
19 #include <fcntl.h> | |
20 #include <console.h> | |
21 #else /* MACOS */ | |
22 #include <sys/types.h> | |
23 #include <sys/socket.h> | |
24 #endif /* MACOS */ | |
25 #include "lber.h" | |
26 | |
27 static usage( char *name ) | |
28 { | |
29 fprintf( stderr, "usage: %s fmtstring\n", name ); | |
30 } | |
31 | |
32 main( int argc, char **argv ) | |
33 { | |
34 int i, num, len; | |
35 char *s, *p; | |
36 Seqorset *sos = NULLSEQORSET; | |
37 BerElement *ber; | |
38 Sockbuf sb; | |
39 extern char *optarg; | |
40 | |
41 if ( argc < 2 ) { | |
42 usage( argv[0] ); | |
43 exit( 1 ); | |
44 } | |
45 | |
46 bzero( &sb, sizeof(sb) ); | |
47 sb.sb_sd = 1; | |
48 sb.sb_ber.ber_buf = NULL; | |
49 | |
50 #ifdef MACOS | |
51 ccommand( &argv ); | |
52 cshow( stdout ); | |
53 | |
54 if (( sb.sb_sd = open( "lber-test", O_WRONLY|O_CREAT|O_TRUNC|O_BINARY )) | |
55 < 0 ) { | |
56 perror( "open" ); | |
57 exit( 1 ); | |
58 } | |
59 #endif /* MACOS */ | |
60 | |
61 if ( (ber = ber_alloc()) == NULLBER ) { | |
62 perror( "ber_alloc" ); | |
63 exit( 1 ); | |
64 } | |
65 | |
66 num = 7; | |
67 if ( ber_printf( ber, "{ti}", 0x1f44, num ) == -1 ) { | |
68 fprintf( stderr, "ber_printf returns -1" ); | |
69 exit( 1 ); | |
70 } | |
71 | |
72 if ( ber_flush( &sb, ber, 1 ) == -1 ) { | |
73 perror( "ber_flush" ); | |
74 exit( 1 ); | |
75 } | |
76 #ifdef notdef | |
77 for ( s = argv[1]; *s; s++ ) { | |
78 if ( fgets( buf, sizeof(buf), stdin ) == NULL ) | |
79 break; | |
80 if ( (p = strchr( buf, '\n' )) != NULL ) | |
81 *p = '\0'; | |
82 | |
83 switch ( *s ) { | |
84 case 'i': /* int */ | |
85 case 'b': /* boolean */ | |
86 i = atoi( buf ); | |
87 if ( ber_printf( ber, "i", i ) == -1 ) { | |
88 fprintf( stderr, "ber_printf i\n" ); | |
89 exit( 1 ); | |
90 } | |
91 break; | |
92 | |
93 case 'e': /* enumeration */ | |
94 i = va_arg( ap, int ); | |
95 rc = ber_put_enum( ber, i, (char)ber->ber_tag ); | |
96 break; | |
97 | |
98 case 'n': /* null */ | |
99 rc = ber_put_null( ber, (char)ber->ber_tag ); | |
100 break; | |
101 | |
102 case 'o': /* octet string (non-null terminated) */ | |
103 s = va_arg( ap, char * ); | |
104 len = va_arg( ap, int ); | |
105 rc = ber_put_ostring( ber, s, len, (char)ber->ber_tag ); | |
106 break; | |
107 | |
108 case 's': /* string */ | |
109 s = va_arg( ap, char * ); | |
110 rc = ber_put_string( ber, s, (char)ber->ber_tag ); | |
111 break; | |
112 | |
113 case 'B': /* bit string */ | |
114 s = va_arg( ap, char * ); | |
115 len = va_arg( ap, int ); /* in bits */ | |
116 rc = ber_put_bitstring( ber, s, len, (char)ber->ber_tag ); | |
117 break; | |
118 | |
119 case 't': /* tag for the next element */ | |
120 ber->ber_tag = va_arg( ap, int ); | |
121 ber->ber_usertag = 1; | |
122 break; | |
123 | |
124 case 'v': /* vector of strings */ | |
125 if ( (ss = va_arg( ap, char ** )) == NULL ) | |
126 break; | |
127 for ( i = 0; ss[i] != NULL; i++ ) { | |
128 if ( (rc = ber_put_string( ber, ss[i], | |
129 (char)ber->ber_tag )) == -1 ) | |
130 break; | |
131 } | |
132 break; | |
133 | |
134 case 'V': /* sequences of strings + lengths */ | |
135 if ( (bv = va_arg( ap, struct berval ** )) == NULL ) | |
136 break; | |
137 for ( i = 0; bv[i] != NULL; i++ ) { | |
138 if ( (rc = ber_put_ostring( ber, bv[i]->bv_val, | |
139 bv[i]->bv_len, (char)ber->ber_tag )) == -1 ) | |
140 break; | |
141 } | |
142 break; | |
143 | |
144 case '{': /* begin sequence */ | |
145 rc = ber_start_seq( ber, (char)ber->ber_tag ); | |
146 break; | |
147 | |
148 case '}': /* end sequence */ | |
149 rc = ber_put_seqorset( ber ); | |
150 break; | |
151 | |
152 case '[': /* begin set */ | |
153 rc = ber_start_set( ber, (char)ber->ber_tag ); | |
154 break; | |
155 | |
156 case ']': /* end set */ | |
157 rc = ber_put_seqorset( ber ); | |
158 break; | |
159 | |
160 default: | |
161 #ifndef NO_USERINTERFACE | |
162 fprintf( stderr, "unknown fmt %c\n", *fmt ); | |
163 #endif /* NO_USERINTERFACE */ | |
164 rc = -1; | |
165 break; | |
166 } | |
167 } | |
168 } | |
169 | |
170 #endif | |
171 | |
172 return( 0 ); | |
173 } |