1 /* crypto/asn1/asn1_mac.h */
\r
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
\r
3 * All rights reserved.
\r
5 * This package is an SSL implementation written
\r
6 * by Eric Young (eay@cryptsoft.com).
\r
7 * The implementation was written so as to conform with Netscapes SSL.
\r
9 * This library is free for commercial and non-commercial use as long as
\r
10 * the following conditions are aheared to. The following conditions
\r
11 * apply to all code found in this distribution, be it the RC4, RSA,
\r
12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation
\r
13 * included with this distribution is covered by the same copyright terms
\r
14 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
\r
16 * Copyright remains Eric Young's, and as such any Copyright notices in
\r
17 * the code are not to be removed.
\r
18 * If this package is used in a product, Eric Young should be given attribution
\r
19 * as the author of the parts of the library used.
\r
20 * This can be in the form of a textual message at program startup or
\r
21 * in documentation (online or textual) provided with the package.
\r
23 * Redistribution and use in source and binary forms, with or without
\r
24 * modification, are permitted provided that the following conditions
\r
26 * 1. Redistributions of source code must retain the copyright
\r
27 * notice, this list of conditions and the following disclaimer.
\r
28 * 2. Redistributions in binary form must reproduce the above copyright
\r
29 * notice, this list of conditions and the following disclaimer in the
\r
30 * documentation and/or other materials provided with the distribution.
\r
31 * 3. All advertising materials mentioning features or use of this software
\r
32 * must display the following acknowledgement:
\r
33 * "This product includes cryptographic software written by
\r
34 * Eric Young (eay@cryptsoft.com)"
\r
35 * The word 'cryptographic' can be left out if the rouines from the library
\r
36 * being used are not cryptographic related :-).
\r
37 * 4. If you include any Windows specific code (or a derivative thereof) from
\r
38 * the apps directory (application code) you must include an acknowledgement:
\r
39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
\r
41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
\r
42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\r
43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\r
44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\r
45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\r
46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\r
47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\r
48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\r
49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\r
50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\r
53 * The licence and distribution terms for any publically available version or
\r
54 * derivative of this code cannot be changed. i.e. this code cannot simply be
\r
55 * copied and put under another distribution licence
\r
56 * [including the GNU Public Licence.]
\r
59 #ifndef HEADER_ASN1_MAC_H
\r
60 #define HEADER_ASN1_MAC_H
\r
62 #include <openssl/asn1.h>
\r
68 #ifndef ASN1_MAC_ERR_LIB
\r
69 #define ASN1_MAC_ERR_LIB ERR_LIB_ASN1
\r
72 #define ASN1_MAC_H_err(f,r,line) \
\r
73 ERR_PUT_error(ASN1_MAC_ERR_LIB,(f),(r),__FILE__,(line))
\r
75 #define M_ASN1_D2I_vars(a,type,func) \
\r
79 c.pp=(const unsigned char **)pp; \
\r
80 c.q= *(const unsigned char **)pp; \
\r
81 c.error=ERR_R_NESTED_ASN1_ERROR; \
\r
82 if ((a == NULL) || ((*a) == NULL)) \
\r
83 { if ((ret=(type)func()) == NULL) \
\r
84 { c.line=__LINE__; goto err; } } \
\r
87 #define M_ASN1_D2I_Init() \
\r
88 c.p= *(const unsigned char **)pp; \
\r
89 c.max=(length == 0)?0:(c.p+length);
\r
91 #define M_ASN1_D2I_Finish_2(a) \
\r
92 if (!asn1_const_Finish(&c)) \
\r
93 { c.line=__LINE__; goto err; } \
\r
94 *(const unsigned char **)pp=c.p; \
\r
95 if (a != NULL) (*a)=ret; \
\r
98 #define M_ASN1_D2I_Finish(a,func,e) \
\r
99 M_ASN1_D2I_Finish_2(a); \
\r
101 ASN1_MAC_H_err((e),c.error,c.line); \
\r
102 asn1_add_error(*(const unsigned char **)pp,(int)(c.q- *pp)); \
\r
103 if ((ret != NULL) && ((a == NULL) || (*a != ret))) func(ret); \
\r
106 #define M_ASN1_D2I_start_sequence() \
\r
107 if (!asn1_GetSequence(&c,&length)) \
\r
108 { c.line=__LINE__; goto err; }
\r
109 /* Begin reading ASN1 without a surrounding sequence */
\r
110 #define M_ASN1_D2I_begin() \
\r
113 /* End reading ASN1 with no check on length */
\r
114 #define M_ASN1_D2I_Finish_nolen(a, func, e) \
\r
116 if (a != NULL) (*a)=ret; \
\r
119 ASN1_MAC_H_err((e),c.error,c.line); \
\r
120 asn1_add_error(*pp,(int)(c.q- *pp)); \
\r
121 if ((ret != NULL) && ((a == NULL) || (*a != ret))) func(ret); \
\r
124 #define M_ASN1_D2I_end_sequence() \
\r
125 (((c.inf&1) == 0)?(c.slen <= 0): \
\r
126 (c.eos=ASN1_const_check_infinite_end(&c.p,c.slen)))
\r
128 /* Don't use this with d2i_ASN1_BOOLEAN() */
\r
129 #define M_ASN1_D2I_get(b, func) \
\r
131 if (func(&(b),&c.p,c.slen) == NULL) \
\r
132 {c.line=__LINE__; goto err; } \
\r
135 /* Don't use this with d2i_ASN1_BOOLEAN() */
\r
136 #define M_ASN1_D2I_get_x(type,b,func) \
\r
138 if (((D2I_OF(type))func)(&(b),&c.p,c.slen) == NULL) \
\r
139 {c.line=__LINE__; goto err; } \
\r
142 /* use this instead () */
\r
143 #define M_ASN1_D2I_get_int(b,func) \
\r
145 if (func(&(b),&c.p,c.slen) < 0) \
\r
146 {c.line=__LINE__; goto err; } \
\r
149 #define M_ASN1_D2I_get_opt(b,func,type) \
\r
150 if ((c.slen != 0) && ((M_ASN1_next & (~V_ASN1_CONSTRUCTED)) \
\r
151 == (V_ASN1_UNIVERSAL|(type)))) \
\r
153 M_ASN1_D2I_get(b,func); \
\r
156 #define M_ASN1_D2I_get_imp(b,func, type) \
\r
157 M_ASN1_next=(_tmp& V_ASN1_CONSTRUCTED)|type; \
\r
159 if (func(&(b),&c.p,c.slen) == NULL) \
\r
160 {c.line=__LINE__; M_ASN1_next_prev = _tmp; goto err; } \
\r
161 c.slen-=(c.p-c.q);\
\r
162 M_ASN1_next_prev=_tmp;
\r
164 #define M_ASN1_D2I_get_IMP_opt(b,func,tag,type) \
\r
165 if ((c.slen != 0) && ((M_ASN1_next & (~V_ASN1_CONSTRUCTED)) == \
\r
166 (V_ASN1_CONTEXT_SPECIFIC|(tag)))) \
\r
168 unsigned char _tmp = M_ASN1_next; \
\r
169 M_ASN1_D2I_get_imp(b,func, type);\
\r
172 #define M_ASN1_D2I_get_set(r,func,free_func) \
\r
173 M_ASN1_D2I_get_imp_set(r,func,free_func, \
\r
174 V_ASN1_SET,V_ASN1_UNIVERSAL);
\r
176 #define M_ASN1_D2I_get_set_type(type,r,func,free_func) \
\r
177 M_ASN1_D2I_get_imp_set_type(type,r,func,free_func, \
\r
178 V_ASN1_SET,V_ASN1_UNIVERSAL);
\r
180 #define M_ASN1_D2I_get_set_opt(r,func,free_func) \
\r
181 if ((c.slen != 0) && (M_ASN1_next == (V_ASN1_UNIVERSAL| \
\r
182 V_ASN1_CONSTRUCTED|V_ASN1_SET)))\
\r
183 { M_ASN1_D2I_get_set(r,func,free_func); }
\r
185 #define M_ASN1_D2I_get_set_opt_type(type,r,func,free_func) \
\r
186 if ((c.slen != 0) && (M_ASN1_next == (V_ASN1_UNIVERSAL| \
\r
187 V_ASN1_CONSTRUCTED|V_ASN1_SET)))\
\r
188 { M_ASN1_D2I_get_set_type(type,r,func,free_func); }
\r
190 #define M_ASN1_I2D_len_SET_opt(a,f) \
\r
191 if ((a != NULL) && (sk_num(a) != 0)) \
\r
192 M_ASN1_I2D_len_SET(a,f);
\r
194 #define M_ASN1_I2D_put_SET_opt(a,f) \
\r
195 if ((a != NULL) && (sk_num(a) != 0)) \
\r
196 M_ASN1_I2D_put_SET(a,f);
\r
198 #define M_ASN1_I2D_put_SEQUENCE_opt(a,f) \
\r
199 if ((a != NULL) && (sk_num(a) != 0)) \
\r
200 M_ASN1_I2D_put_SEQUENCE(a,f);
\r
202 #define M_ASN1_I2D_put_SEQUENCE_opt_type(type,a,f) \
\r
203 if ((a != NULL) && (sk_##type##_num(a) != 0)) \
\r
204 M_ASN1_I2D_put_SEQUENCE_type(type,a,f);
\r
206 #define M_ASN1_D2I_get_IMP_set_opt(b,func,free_func,tag) \
\r
207 if ((c.slen != 0) && \
\r
209 (V_ASN1_CONTEXT_SPECIFIC|V_ASN1_CONSTRUCTED|(tag))))\
\r
211 M_ASN1_D2I_get_imp_set(b,func,free_func,\
\r
212 tag,V_ASN1_CONTEXT_SPECIFIC); \
\r
215 #define M_ASN1_D2I_get_IMP_set_opt_type(type,b,func,free_func,tag) \
\r
216 if ((c.slen != 0) && \
\r
218 (V_ASN1_CONTEXT_SPECIFIC|V_ASN1_CONSTRUCTED|(tag))))\
\r
220 M_ASN1_D2I_get_imp_set_type(type,b,func,free_func,\
\r
221 tag,V_ASN1_CONTEXT_SPECIFIC); \
\r
224 #define M_ASN1_D2I_get_seq(r,func,free_func) \
\r
225 M_ASN1_D2I_get_imp_set(r,func,free_func,\
\r
226 V_ASN1_SEQUENCE,V_ASN1_UNIVERSAL);
\r
228 #define M_ASN1_D2I_get_seq_type(type,r,func,free_func) \
\r
229 M_ASN1_D2I_get_imp_set_type(type,r,func,free_func,\
\r
230 V_ASN1_SEQUENCE,V_ASN1_UNIVERSAL)
\r
232 #define M_ASN1_D2I_get_seq_opt(r,func,free_func) \
\r
233 if ((c.slen != 0) && (M_ASN1_next == (V_ASN1_UNIVERSAL| \
\r
234 V_ASN1_CONSTRUCTED|V_ASN1_SEQUENCE)))\
\r
235 { M_ASN1_D2I_get_seq(r,func,free_func); }
\r
237 #define M_ASN1_D2I_get_seq_opt_type(type,r,func,free_func) \
\r
238 if ((c.slen != 0) && (M_ASN1_next == (V_ASN1_UNIVERSAL| \
\r
239 V_ASN1_CONSTRUCTED|V_ASN1_SEQUENCE)))\
\r
240 { M_ASN1_D2I_get_seq_type(type,r,func,free_func); }
\r
242 #define M_ASN1_D2I_get_IMP_set(r,func,free_func,x) \
\r
243 M_ASN1_D2I_get_imp_set(r,func,free_func,\
\r
244 x,V_ASN1_CONTEXT_SPECIFIC);
\r
246 #define M_ASN1_D2I_get_IMP_set_type(type,r,func,free_func,x) \
\r
247 M_ASN1_D2I_get_imp_set_type(type,r,func,free_func,\
\r
248 x,V_ASN1_CONTEXT_SPECIFIC);
\r
250 #define M_ASN1_D2I_get_imp_set(r,func,free_func,a,b) \
\r
252 if (d2i_ASN1_SET(&(r),&c.p,c.slen,(char *(*)())func,\
\r
253 (void (*)())free_func,a,b) == NULL) \
\r
254 { c.line=__LINE__; goto err; } \
\r
257 #define M_ASN1_D2I_get_imp_set_type(type,r,func,free_func,a,b) \
\r
259 if (d2i_ASN1_SET_OF_##type(&(r),&c.p,c.slen,func,\
\r
260 free_func,a,b) == NULL) \
\r
261 { c.line=__LINE__; goto err; } \
\r
264 #define M_ASN1_D2I_get_set_strings(r,func,a,b) \
\r
266 if (d2i_ASN1_STRING_SET(&(r),&c.p,c.slen,a,b) == NULL) \
\r
267 { c.line=__LINE__; goto err; } \
\r
270 #define M_ASN1_D2I_get_EXP_opt(r,func,tag) \
\r
271 if ((c.slen != 0L) && (M_ASN1_next == \
\r
272 (V_ASN1_CONSTRUCTED|V_ASN1_CONTEXT_SPECIFIC|tag))) \
\r
274 int Tinf,Ttag,Tclass; \
\r
278 Tinf=ASN1_get_object(&c.p,&Tlen,&Ttag,&Tclass,c.slen); \
\r
280 { c.error=ERR_R_BAD_ASN1_OBJECT_HEADER; \
\r
281 c.line=__LINE__; goto err; } \
\r
282 if (Tinf == (V_ASN1_CONSTRUCTED+1)) \
\r
283 Tlen = c.slen - (c.p - c.q) - 2; \
\r
284 if (func(&(r),&c.p,Tlen) == NULL) \
\r
285 { c.line=__LINE__; goto err; } \
\r
286 if (Tinf == (V_ASN1_CONSTRUCTED+1)) { \
\r
287 Tlen = c.slen - (c.p - c.q); \
\r
288 if(!ASN1_const_check_infinite_end(&c.p, Tlen)) \
\r
289 { c.error=ERR_R_MISSING_ASN1_EOS; \
\r
290 c.line=__LINE__; goto err; } \
\r
292 c.slen-=(c.p-c.q); \
\r
295 #define M_ASN1_D2I_get_EXP_set_opt(r,func,free_func,tag,b) \
\r
296 if ((c.slen != 0) && (M_ASN1_next == \
\r
297 (V_ASN1_CONSTRUCTED|V_ASN1_CONTEXT_SPECIFIC|tag))) \
\r
299 int Tinf,Ttag,Tclass; \
\r
303 Tinf=ASN1_get_object(&c.p,&Tlen,&Ttag,&Tclass,c.slen); \
\r
305 { c.error=ERR_R_BAD_ASN1_OBJECT_HEADER; \
\r
306 c.line=__LINE__; goto err; } \
\r
307 if (Tinf == (V_ASN1_CONSTRUCTED+1)) \
\r
308 Tlen = c.slen - (c.p - c.q) - 2; \
\r
309 if (d2i_ASN1_SET(&(r),&c.p,Tlen,(char *(*)())func, \
\r
310 (void (*)())free_func, \
\r
311 b,V_ASN1_UNIVERSAL) == NULL) \
\r
312 { c.line=__LINE__; goto err; } \
\r
313 if (Tinf == (V_ASN1_CONSTRUCTED+1)) { \
\r
314 Tlen = c.slen - (c.p - c.q); \
\r
315 if(!ASN1_check_infinite_end(&c.p, Tlen)) \
\r
316 { c.error=ERR_R_MISSING_ASN1_EOS; \
\r
317 c.line=__LINE__; goto err; } \
\r
319 c.slen-=(c.p-c.q); \
\r
322 #define M_ASN1_D2I_get_EXP_set_opt_type(type,r,func,free_func,tag,b) \
\r
323 if ((c.slen != 0) && (M_ASN1_next == \
\r
324 (V_ASN1_CONSTRUCTED|V_ASN1_CONTEXT_SPECIFIC|tag))) \
\r
326 int Tinf,Ttag,Tclass; \
\r
330 Tinf=ASN1_get_object(&c.p,&Tlen,&Ttag,&Tclass,c.slen); \
\r
332 { c.error=ERR_R_BAD_ASN1_OBJECT_HEADER; \
\r
333 c.line=__LINE__; goto err; } \
\r
334 if (Tinf == (V_ASN1_CONSTRUCTED+1)) \
\r
335 Tlen = c.slen - (c.p - c.q) - 2; \
\r
336 if (d2i_ASN1_SET_OF_##type(&(r),&c.p,Tlen,func, \
\r
337 free_func,b,V_ASN1_UNIVERSAL) == NULL) \
\r
338 { c.line=__LINE__; goto err; } \
\r
339 if (Tinf == (V_ASN1_CONSTRUCTED+1)) { \
\r
340 Tlen = c.slen - (c.p - c.q); \
\r
341 if(!ASN1_check_infinite_end(&c.p, Tlen)) \
\r
342 { c.error=ERR_R_MISSING_ASN1_EOS; \
\r
343 c.line=__LINE__; goto err; } \
\r
345 c.slen-=(c.p-c.q); \
\r
349 #define M_ASN1_New_Malloc(ret,type) \
\r
350 if ((ret=(type *)OPENSSL_malloc(sizeof(type))) == NULL) \
\r
351 { c.line=__LINE__; goto err2; }
\r
353 #define M_ASN1_New(arg,func) \
\r
354 if (((arg)=func()) == NULL) return(NULL)
\r
356 #define M_ASN1_New_Error(a) \
\r
357 /* err: ASN1_MAC_H_err((a),ERR_R_NESTED_ASN1_ERROR,c.line); \
\r
359 err2: ASN1_MAC_H_err((a),ERR_R_MALLOC_FAILURE,c.line); \
\r
363 /* BIG UGLY WARNING! This is so damn ugly I wanna puke. Unfortunately,
\r
364 some macros that use ASN1_const_CTX still insist on writing in the input
\r
365 stream. ARGH! ARGH! ARGH! Let's get rid of this macro package.
\r
366 Please? -- Richard Levitte */
\r
367 #define M_ASN1_next (*((unsigned char *)(c.p)))
\r
368 #define M_ASN1_next_prev (*((unsigned char *)(c.q)))
\r
370 /*************************************************/
\r
372 #define M_ASN1_I2D_vars(a) int r=0,ret=0; \
\r
373 unsigned char *p; \
\r
374 if (a == NULL) return(0)
\r
376 /* Length Macros */
\r
377 #define M_ASN1_I2D_len(a,f) ret+=f(a,NULL)
\r
378 #define M_ASN1_I2D_len_IMP_opt(a,f) if (a != NULL) M_ASN1_I2D_len(a,f)
\r
380 #define M_ASN1_I2D_len_SET(a,f) \
\r
381 ret+=i2d_ASN1_SET(a,NULL,f,V_ASN1_SET,V_ASN1_UNIVERSAL,IS_SET);
\r
383 #define M_ASN1_I2D_len_SET_type(type,a,f) \
\r
384 ret+=i2d_ASN1_SET_OF_##type(a,NULL,f,V_ASN1_SET, \
\r
385 V_ASN1_UNIVERSAL,IS_SET);
\r
387 #define M_ASN1_I2D_len_SEQUENCE(a,f) \
\r
388 ret+=i2d_ASN1_SET(a,NULL,f,V_ASN1_SEQUENCE,V_ASN1_UNIVERSAL, \
\r
391 #define M_ASN1_I2D_len_SEQUENCE_type(type,a,f) \
\r
392 ret+=i2d_ASN1_SET_OF_##type(a,NULL,f,V_ASN1_SEQUENCE, \
\r
393 V_ASN1_UNIVERSAL,IS_SEQUENCE)
\r
395 #define M_ASN1_I2D_len_SEQUENCE_opt(a,f) \
\r
396 if ((a != NULL) && (sk_num(a) != 0)) \
\r
397 M_ASN1_I2D_len_SEQUENCE(a,f);
\r
399 #define M_ASN1_I2D_len_SEQUENCE_opt_type(type,a,f) \
\r
400 if ((a != NULL) && (sk_##type##_num(a) != 0)) \
\r
401 M_ASN1_I2D_len_SEQUENCE_type(type,a,f);
\r
403 #define M_ASN1_I2D_len_IMP_SET(a,f,x) \
\r
404 ret+=i2d_ASN1_SET(a,NULL,f,x,V_ASN1_CONTEXT_SPECIFIC,IS_SET);
\r
406 #define M_ASN1_I2D_len_IMP_SET_type(type,a,f,x) \
\r
407 ret+=i2d_ASN1_SET_OF_##type(a,NULL,f,x, \
\r
408 V_ASN1_CONTEXT_SPECIFIC,IS_SET);
\r
410 #define M_ASN1_I2D_len_IMP_SET_opt(a,f,x) \
\r
411 if ((a != NULL) && (sk_num(a) != 0)) \
\r
412 ret+=i2d_ASN1_SET(a,NULL,f,x,V_ASN1_CONTEXT_SPECIFIC, \
\r
415 #define M_ASN1_I2D_len_IMP_SET_opt_type(type,a,f,x) \
\r
416 if ((a != NULL) && (sk_##type##_num(a) != 0)) \
\r
417 ret+=i2d_ASN1_SET_OF_##type(a,NULL,f,x, \
\r
418 V_ASN1_CONTEXT_SPECIFIC,IS_SET);
\r
420 #define M_ASN1_I2D_len_IMP_SEQUENCE(a,f,x) \
\r
421 ret+=i2d_ASN1_SET(a,NULL,f,x,V_ASN1_CONTEXT_SPECIFIC, \
\r
424 #define M_ASN1_I2D_len_IMP_SEQUENCE_opt(a,f,x) \
\r
425 if ((a != NULL) && (sk_num(a) != 0)) \
\r
426 ret+=i2d_ASN1_SET(a,NULL,f,x,V_ASN1_CONTEXT_SPECIFIC, \
\r
429 #define M_ASN1_I2D_len_IMP_SEQUENCE_opt_type(type,a,f,x) \
\r
430 if ((a != NULL) && (sk_##type##_num(a) != 0)) \
\r
431 ret+=i2d_ASN1_SET_OF_##type(a,NULL,f,x, \
\r
432 V_ASN1_CONTEXT_SPECIFIC, \
\r
435 #define M_ASN1_I2D_len_EXP_opt(a,f,mtag,v) \
\r
439 ret+=ASN1_object_size(1,v,mtag); \
\r
442 #define M_ASN1_I2D_len_EXP_SET_opt(a,f,mtag,tag,v) \
\r
443 if ((a != NULL) && (sk_num(a) != 0))\
\r
445 v=i2d_ASN1_SET(a,NULL,f,tag,V_ASN1_UNIVERSAL,IS_SET); \
\r
446 ret+=ASN1_object_size(1,v,mtag); \
\r
449 #define M_ASN1_I2D_len_EXP_SEQUENCE_opt(a,f,mtag,tag,v) \
\r
450 if ((a != NULL) && (sk_num(a) != 0))\
\r
452 v=i2d_ASN1_SET(a,NULL,f,tag,V_ASN1_UNIVERSAL, \
\r
454 ret+=ASN1_object_size(1,v,mtag); \
\r
457 #define M_ASN1_I2D_len_EXP_SEQUENCE_opt_type(type,a,f,mtag,tag,v) \
\r
458 if ((a != NULL) && (sk_##type##_num(a) != 0))\
\r
460 v=i2d_ASN1_SET_OF_##type(a,NULL,f,tag, \
\r
461 V_ASN1_UNIVERSAL, \
\r
463 ret+=ASN1_object_size(1,v,mtag); \
\r
467 #define M_ASN1_I2D_put(a,f) f(a,&p)
\r
469 #define M_ASN1_I2D_put_IMP_opt(a,f,t) \
\r
472 unsigned char *q=p; \
\r
474 *q=(V_ASN1_CONTEXT_SPECIFIC|t|(*q&V_ASN1_CONSTRUCTED));\
\r
477 #define M_ASN1_I2D_put_SET(a,f) i2d_ASN1_SET(a,&p,f,V_ASN1_SET,\
\r
478 V_ASN1_UNIVERSAL,IS_SET)
\r
479 #define M_ASN1_I2D_put_SET_type(type,a,f) \
\r
480 i2d_ASN1_SET_OF_##type(a,&p,f,V_ASN1_SET,V_ASN1_UNIVERSAL,IS_SET)
\r
481 #define M_ASN1_I2D_put_IMP_SET(a,f,x) i2d_ASN1_SET(a,&p,f,x,\
\r
482 V_ASN1_CONTEXT_SPECIFIC,IS_SET)
\r
483 #define M_ASN1_I2D_put_IMP_SET_type(type,a,f,x) \
\r
484 i2d_ASN1_SET_OF_##type(a,&p,f,x,V_ASN1_CONTEXT_SPECIFIC,IS_SET)
\r
485 #define M_ASN1_I2D_put_IMP_SEQUENCE(a,f,x) i2d_ASN1_SET(a,&p,f,x,\
\r
486 V_ASN1_CONTEXT_SPECIFIC,IS_SEQUENCE)
\r
488 #define M_ASN1_I2D_put_SEQUENCE(a,f) i2d_ASN1_SET(a,&p,f,V_ASN1_SEQUENCE,\
\r
489 V_ASN1_UNIVERSAL,IS_SEQUENCE)
\r
491 #define M_ASN1_I2D_put_SEQUENCE_type(type,a,f) \
\r
492 i2d_ASN1_SET_OF_##type(a,&p,f,V_ASN1_SEQUENCE,V_ASN1_UNIVERSAL, \
\r
495 #define M_ASN1_I2D_put_SEQUENCE_opt(a,f) \
\r
496 if ((a != NULL) && (sk_num(a) != 0)) \
\r
497 M_ASN1_I2D_put_SEQUENCE(a,f);
\r
499 #define M_ASN1_I2D_put_IMP_SET_opt(a,f,x) \
\r
500 if ((a != NULL) && (sk_num(a) != 0)) \
\r
501 { i2d_ASN1_SET(a,&p,f,x,V_ASN1_CONTEXT_SPECIFIC, \
\r
504 #define M_ASN1_I2D_put_IMP_SET_opt_type(type,a,f,x) \
\r
505 if ((a != NULL) && (sk_##type##_num(a) != 0)) \
\r
506 { i2d_ASN1_SET_OF_##type(a,&p,f,x, \
\r
507 V_ASN1_CONTEXT_SPECIFIC, \
\r
510 #define M_ASN1_I2D_put_IMP_SEQUENCE_opt(a,f,x) \
\r
511 if ((a != NULL) && (sk_num(a) != 0)) \
\r
512 { i2d_ASN1_SET(a,&p,f,x,V_ASN1_CONTEXT_SPECIFIC, \
\r
515 #define M_ASN1_I2D_put_IMP_SEQUENCE_opt_type(type,a,f,x) \
\r
516 if ((a != NULL) && (sk_##type##_num(a) != 0)) \
\r
517 { i2d_ASN1_SET_OF_##type(a,&p,f,x, \
\r
518 V_ASN1_CONTEXT_SPECIFIC, \
\r
521 #define M_ASN1_I2D_put_EXP_opt(a,f,tag,v) \
\r
524 ASN1_put_object(&p,1,v,tag,V_ASN1_CONTEXT_SPECIFIC); \
\r
528 #define M_ASN1_I2D_put_EXP_SET_opt(a,f,mtag,tag,v) \
\r
529 if ((a != NULL) && (sk_num(a) != 0)) \
\r
531 ASN1_put_object(&p,1,v,mtag,V_ASN1_CONTEXT_SPECIFIC); \
\r
532 i2d_ASN1_SET(a,&p,f,tag,V_ASN1_UNIVERSAL,IS_SET); \
\r
535 #define M_ASN1_I2D_put_EXP_SEQUENCE_opt(a,f,mtag,tag,v) \
\r
536 if ((a != NULL) && (sk_num(a) != 0)) \
\r
538 ASN1_put_object(&p,1,v,mtag,V_ASN1_CONTEXT_SPECIFIC); \
\r
539 i2d_ASN1_SET(a,&p,f,tag,V_ASN1_UNIVERSAL,IS_SEQUENCE); \
\r
542 #define M_ASN1_I2D_put_EXP_SEQUENCE_opt_type(type,a,f,mtag,tag,v) \
\r
543 if ((a != NULL) && (sk_##type##_num(a) != 0)) \
\r
545 ASN1_put_object(&p,1,v,mtag,V_ASN1_CONTEXT_SPECIFIC); \
\r
546 i2d_ASN1_SET_OF_##type(a,&p,f,tag,V_ASN1_UNIVERSAL, \
\r
550 #define M_ASN1_I2D_seq_total() \
\r
551 r=ASN1_object_size(1,ret,V_ASN1_SEQUENCE); \
\r
552 if (pp == NULL) return(r); \
\r
554 ASN1_put_object(&p,1,ret,V_ASN1_SEQUENCE,V_ASN1_UNIVERSAL)
\r
556 #define M_ASN1_I2D_INF_seq_start(tag,ctx) \
\r
557 *(p++)=(V_ASN1_CONSTRUCTED|(tag)|(ctx)); \
\r
560 #define M_ASN1_I2D_INF_seq_end() *(p++)=0x00; *(p++)=0x00
\r
562 #define M_ASN1_I2D_finish() *pp=p; \
\r
565 int asn1_GetSequence(ASN1_const_CTX *c, long *length);
\r
566 void asn1_add_error(const unsigned char *address,int offset);
\r