1# 2# Copyright (c) 2001-2003 3# Fraunhofer Institute for Open Communication Systems (FhG Fokus). 4# All rights reserved. 5# 6# Redistribution and use in source and binary forms, with or without 7# modification, are permitted provided that the following conditions 8# are met: 9# 1. Redistributions of source code must retain the above copyright 10# notice, this list of conditions and the following disclaimer. 11# 2. Redistributions in binary form must reproduce the above copyright 12# notice, this list of conditions and the following disclaimer in the 13# documentation and/or other materials provided with the distribution. 14# 15# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 16# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 17# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 19# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25# SUCH DAMAGE. 26# 27# Author: Hartmut Brandt <harti@freebsd.org> 28#
|
30# 31# Generate message functions. 32# 33function begin() { 34} 35 36function first_entry() { 37 print "/* This file was created automatically" 38 print " * Source file: " id 39 print " */" 40 print "" 41 print "#include <sys/types.h>" 42 print "#include <sys/param.h>" 43 print "" 44 print "#ifdef _KERNEL" 45 print "#include <sys/libkern.h>" 46 print "#else" 47 print "#include <string.h>" 48 print "#endif" 49 print "#include <netnatm/unimsg.h>" 50 print "#include <netnatm/msg/unistruct.h>" 51 print "#include <netnatm/msg/unimsglib.h>" 52 print "#include <netnatm/msg/priv.h>" 53 print "#include <netnatm/msg/privmsg.c>" 54} 55 56function end() { 57 print "" 58 print "const struct msgdecl *uni_msgtable[256] = {" 59 for(i = 0; i < 256; i++) { 60 if(decl[i] == "") { 61 printf "\t&decl_unknown," 62 } else { 63 printf "\t&%s,", decl[i] 64 } 65 printf "\t/* 0x%02x */\n", i 66 } 67 print "};" 68} 69 70function start_message() { 71} 72 73function end_message() { 74 gen_print() 75 gen_check() 76 gen_encode() 77 gen_decode() 78 gen_reg() 79} 80 81function gen_print() { 82 print "" 83 print "static void" 84 print "print_" msg "(struct uni_" msg " *msg, struct unicx *cx)" 85 print "{" 86 if(msgrep) { 87 print "\tu_int i;" 88 print "" 89 } 90 for(i = 0; i < cnt; i++) { 91 ie = iename[i] 92 uie = toupper(iename[i]) 93 if(ierep[i]) { 94 print "\tif(msg->" ie "_repeat.h.present & UNI_IE_PRESENT)" 95 print "\t\tuni_print_ie_internal(UNI_IE_REPEAT, (union uni_ieall *)&msg->" ie "_repeat, cx);" 96 } 97 if(ienum[i] == "-") { 98 print "\tif(msg->" ie ".h.present & UNI_IE_PRESENT)" 99 print "\t\tuni_print_ie_internal(UNI_IE_" uie ", (union uni_ieall *)&msg->" ie ", cx);" 100 } else { 101 print "\tfor(i = 0; i < " ienum[i] "; i++)" 102 print "\t\tif(msg->" ie "[i].h.present & UNI_IE_PRESENT)" 103 print "\t\t\tuni_print_ie_internal(UNI_IE_" uie ", (union uni_ieall *)&msg->" ie "[i], cx);" 104 } 105 } 106 print "}" 107} 108 109function gen_check() { 110 print "" 111 print "static int" 112 print "check_" msg "(struct uni_" msg " *m, struct unicx *cx)" 113 print "{" 114 print "\tint ret = 0;" 115 if(msgrep) { 116 print "\tu_int i;" 117 } 118 print "" 119 for(i = 0; i < cnt; i++) { 120 ie = iename[i] 121 if(ierep[i]) { 122 if(iecond[i] == "1") { 123 print "\tret |= uni_check_ie(UNI_IE_REPEAT, (union uni_ieall *)&m->" ie "_repeat, cx);" 124 } else { 125 print "\tif(!(" iecond[i] "))" 126 print "\t\tret |= IE_ISPRESENT(m->" ie "_repeat);" 127 print "\telse" 128 print "\t\tret |= uni_check_ie(UNI_IE_REPEAT, (union uni_ieall *)&m->" ie "_repeat, cx);" 129 } 130 } 131 if(ienum[i] == "-") { 132 if(iecond[i] == "1") { 133 print "\tret |= uni_check_ie(UNI_IE_" toupper(ie) ", (union uni_ieall *)&m->" ie ", cx);" 134 } else { 135 print "\tif(!(" iecond[i] "))" 136 print "\t\tret |= IE_ISPRESENT(m->" ie ");" 137 print "\telse" 138 print "\t\tret |= uni_check_ie(UNI_IE_" toupper(ie) ", (union uni_ieall *)&m->" ie ", cx);" 139 } 140 } else { 141 print "\tfor(i = 0; i < " ienum[i]" ; i++) {" 142 if(iecond[i] == "1") { 143 print "\t\tret |= uni_check_ie(UNI_IE_" toupper(ie) ", (union uni_ieall *)&m->" ie "[i], cx);" 144 } else { 145 print "\t\tif(!(" iecond[i] "))" 146 print "\t\t\tret |= IE_ISPRESENT(m->" ie "[i]);" 147 print "\t\telse" 148 print "\t\t\tret |= uni_check_ie(UNI_IE_" toupper(ie) ", (union uni_ieall *)&m->" ie "[i], cx);" 149 } 150 print "\t}" 151 } 152 } 153 print "" 154 print "\treturn ret;" 155 print "}" 156} 157 158function gen_encode() { 159 print "" 160 print "static int" 161 print "encode_" msg "(struct uni_msg *msg, struct uni_" msg " *p, struct unicx *cx)" 162 print "{" 163 print "\tu_int mlen;" 164 if(msgrep) { 165 print "\tu_int i;" 166 } 167 print "" 168 print "\tif(uni_encode_msg_hdr(msg, &p->hdr, UNI_" toupper(msg) ", cx, &mlen))" 169 print "\t\treturn (-2);" 170 print "" 171 for(i = 0; i < cnt; i++) { 172 ie = iename[i] 173 if(ierep[i]) { 174 print "\tif((p->" ie "_repeat.h.present & UNI_IE_PRESENT) &&" 175 print "\t uni_encode_ie(UNI_IE_" toupper(ie) ", msg, (union uni_ieall *)&p->" ie "_repeat, cx))" 176 print "\t\treturn (0x10000000 + UNI_IE_" toupper(ie) ");" 177 } 178 if(ienum[i] == "-") { 179 print "\tif((p->" ie ".h.present & UNI_IE_PRESENT) &&" 180 print "\t uni_encode_ie(UNI_IE_" toupper(ie) ", msg, (union uni_ieall *)&p->" ie ", cx))" 181 print "\t\treturn (UNI_IE_" toupper(ie) ");" 182 } else { 183 print "\tfor(i = 0; i < " ienum[i] "; i++)" 184 print "\t\tif((p->" ie "[i].h.present & UNI_IE_PRESENT) &&" 185 print "\t\t uni_encode_ie(UNI_IE_" toupper(ie) ", msg, (union uni_ieall *)&p->" ie "[i], cx))" 186 print "\t\treturn ((i << 16) + UNI_IE_" toupper(ie) ");" 187 } 188 } 189 print "" 190 print "\tmsg->b_buf[mlen+0] = ((msg->b_wptr-msg->b_rptr)-mlen-2) >> 8;" 191 print "\tmsg->b_buf[mlen+1] = ((msg->b_wptr-msg->b_rptr)-mlen-2) >> 0;" 192 print "" 193 print "\treturn (0);" 194 print "}" 195} 196 197function gen_decode() { 198 print "" 199 print "static int" 200 print "decode_" msg "(struct uni_" msg " *out, struct uni_msg *msg," 201 print " enum uni_ietype ie, struct uni_iehdr *hdr, u_int ielen," 202 print " struct unicx *cx)" 203 print "{" 204 if (msgrep) { 205 print " u_int i;" 206 print "" 207 } 208 print " switch (ie) {" 209 210 rep=0 211 for (i = 0; i < cnt; i++) { 212 ie = iename[i] 213 print "" 214 print " case UNI_IE_" toupper(ie) ":" 215 if (iecond[i] != "1") { 216 print " if (!(" iecond[i] "))" 217 print " return (DEC_ILL);" 218 } 219 if (ierep[i]) { 220 rep=1 221 print " if (IE_ISPRESENT(cx->repeat))" 222 print " out->" ie "_repeat = cx->repeat;" 223 } 224 if (ienum[i] == "-") { 225 print " out->" ie ".h = *hdr;" 226 print " if (hdr->present & UNI_IE_ERROR)" 227 print " return (DEC_ERR);" 228 print " if(uni_decode_ie_body(UNI_IE_"toupper(ie)", (union uni_ieall *)&out->"ie", msg, ielen, cx))" 229 print " return (DEC_ERR);" 230 231 } else { 232 print " for(i = 0; i < " ienum[i] "; i++)" 233 print " if (!IE_ISPRESENT(out->" ie "[i])) {" 234 print " out->" ie "[i].h = *hdr;" 235 print " if (hdr->present & UNI_IE_ERROR)" 236 print " return (DEC_ERR);" 237 print " if(uni_decode_ie_body(UNI_IE_"toupper(ie)", (union uni_ieall *)&out->"ie"[i], msg, ielen, cx))" 238 print " return (DEC_ERR);" 239 print " break;" 240 print " }" 241 } 242 print " break;" 243 } 244 if(rep) { 245 print "" 246 print " case UNI_IE_REPEAT:" 247 print " cx->repeat.h = *hdr;" 248 print " if (hdr->present & UNI_IE_ERROR)" 249 print " return (DEC_ERR);" 250 print " if (uni_decode_ie_body(UNI_IE_REPEAT, (union uni_ieall *)&cx->repeat, msg, ielen, cx))" 251 print " return (DEC_ERR);" 252 print " break;" 253 } 254 255 print "" 256 print " default:" 257 print " return (DEC_ILL);" 258 print " }" 259 print " return (DEC_OK);" 260 print "}" 261} 262 263function gen_reg() { 264 print "" 265 print "static const struct msgdecl decl_" msg " = {" 266 print "\t0," 267 print "\t\"" msg "\"," 268 print "\t(uni_msg_print_f)print_" msg "," 269 print "\t(uni_msg_check_f)check_" msg "," 270 print "\t(uni_msg_encode_f)encode_" msg "," 271 print "\t(uni_msg_decode_f)decode_" msg 272 print "};" 273 decl[code] = "decl_" msg 274}
|