blob: a66425a8ef51b3f2e8036f9cc2d73bb78d9a2d76 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!/usr/bin/perl
print<<EOM;
/*
* This file is automatically generated by $0
* DO NOT EDIT MANUALLY, fix the $0 instead if necessary.
*/
#ifndef ASN1_PARSER_EXPR_STR_H
#define ASN1_PARSER_EXPR_STR_H
static char *asn1p_expr_type2str[] __attribute__ ((unused)) = {
EOM
while(<>) {
chomp;
next if(/TYPE_MAX/);
next unless(/^[ \t]+(ASN_[A-Z]+_([A-Za-z0-9_]+))/);
print "\t[ $1 ]\t = ";
$_ = $2;
if($_ eq "RELATIVE_OID") {
print '"RELATIVE-OID"';
} else {
s/_/ /;
print '"'.$_.'"';
}
print ",\n";
}
print<<EOM;
};
/*
* Convert the ASN.1 expression type back into the string representation.
*/
#define ASN_EXPR_TYPE2STR(type) \\
( \\
(((ssize_t)(type)) < 0 \\
|| ((size_t)(type)) >= sizeof(asn1p_expr_type2str) \\
/ sizeof(asn1p_expr_type2str[0])) \\
? (char *)0 \\
: asn1p_expr_type2str[(int)(type)] \\
)
#endif /* ASN1_PARSER_EXPR_STR_H */
EOM
|
