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