1 /* $NetBSD: gen_glue.c,v 1.2 2017/01/28 21:31:45 christos Exp $ */
2
3 /*
4 * Copyright (c) 1997, 1999, 2000, 2003 - 2005 Kungliga Tekniska Högskolan
5 * (Royal Institute of Technology, Stockholm, Sweden).
6 * All rights reserved.
7 *
8 * Portions Copyright (c) 2009 Apple Inc. All rights reserved.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 *
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 *
17 * 2. Redistributions in binary form must reproduce the above copyright
18 * notice, this list of conditions and the following disclaimer in the
19 * documentation and/or other materials provided with the distribution.
20 *
21 * 3. Neither the name of the Institute nor the names of its contributors
22 * may be used to endorse or promote products derived from this software
23 * without specific prior written permission.
24 *
25 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
26 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
28 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
29 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
30 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
31 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
32 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
33 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
34 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 * SUCH DAMAGE.
36 */
37
38 #include "gen_locl.h"
39
40 __RCSID("$NetBSD: gen_glue.c,v 1.2 2017/01/28 21:31:45 christos Exp $");
41
42 static void
generate_2int(const Type * t,const char * gen_name)43 generate_2int (const Type *t, const char *gen_name)
44 {
45 Member *m;
46
47 fprintf (headerfile,
48 "unsigned %s2int(%s);\n",
49 gen_name, gen_name);
50
51 fprintf (codefile,
52 "unsigned %s2int(%s f)\n"
53 "{\n"
54 "unsigned r = 0;\n",
55 gen_name, gen_name);
56
57 ASN1_TAILQ_FOREACH(m, t->members, members) {
58 fprintf (codefile, "if(f.%s) r |= (1U << %d);\n",
59 m->gen_name, m->val);
60 }
61 fprintf (codefile, "return r;\n"
62 "}\n\n");
63 }
64
65 static void
generate_int2(const Type * t,const char * gen_name)66 generate_int2 (const Type *t, const char *gen_name)
67 {
68 Member *m;
69
70 fprintf (headerfile,
71 "%s int2%s(unsigned);\n",
72 gen_name, gen_name);
73
74 fprintf (codefile,
75 "%s int2%s(unsigned n)\n"
76 "{\n"
77 "\t%s flags;\n\n"
78 "\tmemset(&flags, 0, sizeof(flags));\n\n",
79 gen_name, gen_name, gen_name);
80
81 if(t->members) {
82 ASN1_TAILQ_FOREACH(m, t->members, members) {
83 fprintf (codefile, "\tflags.%s = (n >> %d) & 1;\n",
84 m->gen_name, m->val);
85 }
86 }
87 fprintf (codefile, "\treturn flags;\n"
88 "}\n\n");
89 }
90
91 /*
92 * This depends on the bit string being declared in increasing order
93 */
94
95 static void
generate_units(const Type * t,const char * gen_name)96 generate_units (const Type *t, const char *gen_name)
97 {
98 Member *m;
99
100 if (template_flag) {
101 fprintf (headerfile,
102 "extern const struct units *asn1_%s_table_units;\n",
103 gen_name);
104 fprintf (headerfile, "#define asn1_%s_units() (asn1_%s_table_units)\n",
105 gen_name, gen_name);
106 } else {
107 fprintf (headerfile,
108 "const struct units * asn1_%s_units(void);\n",
109 gen_name);
110 }
111
112 fprintf (codefile,
113 "static struct units %s_units[] = {\n",
114 gen_name);
115
116 if(t->members) {
117 ASN1_TAILQ_FOREACH_REVERSE(m, t->members, memhead, members) {
118 fprintf (codefile,
119 "\t{\"%s\",\t1U << %d},\n", m->name, m->val);
120 }
121 }
122
123 fprintf (codefile,
124 "\t{NULL,\t0}\n"
125 "};\n\n");
126
127 if (template_flag)
128 fprintf (codefile,
129 "const struct units * asn1_%s_table_units = %s_units;\n",
130 gen_name, gen_name);
131 else
132 fprintf (codefile,
133 "const struct units * asn1_%s_units(void){\n"
134 "return %s_units;\n"
135 "}\n\n",
136 gen_name, gen_name);
137
138
139 }
140
141 void
generate_glue(const Type * t,const char * gen_name)142 generate_glue (const Type *t, const char *gen_name)
143 {
144 switch(t->type) {
145 case TTag:
146 generate_glue(t->subtype, gen_name);
147 break;
148 case TBitString :
149 if (!ASN1_TAILQ_EMPTY(t->members)) {
150 generate_2int (t, gen_name);
151 generate_int2 (t, gen_name);
152 if (parse_units_flag)
153 generate_units (t, gen_name);
154 }
155 break;
156 default :
157 break;
158 }
159 }
160