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 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 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 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 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