1#!/bin/sh
2#
3# Copyright (c) 1990, 1996
4#         John Robert LoVerso. All rights reserved.
5# SMIv2 parsing copyright (c) 1999
6#         William C. Fenner.
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#    notices, this list of conditions and the following disclaimer.
14#
15# 2. Redistributions in binary form must reproduce the above copyright
16#    notices, this list of conditions and the following disclaimer in the
17#    documentation and/or other materials provided with the distribution.
18#
19# THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
20# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22# IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
23# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29
30#
31# This script will read either ASN.1-style MIB files or the ".defs" files
32# created by the ISODE "mosy" program on such files.
33#
34# The output of this script is the "mib.h" file used by tcpdumps' ASN.1/SNMP
35# decoding code.
36#
37# This script needs to be run by "gawk" (GNU awk).  "nawk" will work, but
38# dump will get a recursion error if you process LARGE mibs.  While it would
39# by fairly easy to rewrite this not to use recursion (and also easy to
40# eliminate use of gsub and functions to use classic "awk"), you have to
41# order the structure declarations in defined-first order for the compiler
42# not to barf; too bad tsort doesn't take arguments.
43#
44
45cat << EOF
46/*
47 * This file was generated by tcpdump/makemib on `date`
48 * You probably don't want to edit this by hand!
49 *
50 * struct mib somename = { desc, oid-octet, type, child-pointer, next-pointer
51};
52 */
53
54EOF
55
56awk '
57BEGIN {
58          debug=0;
59          # for sanity, we prep the namespace with objects from RFC-1155
60          # (we manually establish the root)
61          oid["iso"]=1
62          oidadd("org", "iso", 3)
63          oidadd("dod", "org", 6)
64          oidadd("internet", "dod", 1)
65          oidadd("directory", "internet", 1)
66          oidadd("mgmt", "internet", 2)
67#XXX      oidadd("mib", "mgmt", 1)
68          oidadd("mib-2", "mgmt", 1)
69          oidadd("experimental", "internet", 3)
70          oidadd("private", "internet", 4)
71          oidadd("enterprises", "private", 1)
72          oidadd("ip", "mib-2", 4)
73          oidadd("transmission", "mib-2", 10)
74
75          holddesc="none"
76}
77
78#
79# Read mosy "*.defs" file.  mosy does all the parsing work; we just read
80# its simple and straightforward output.  It would not be too hard to make
81# tcpdump directly read mosy output, but...
82#
83# Ignore these unless the current file is called something.defs; false
84# positives are too common in DESCRIPTIONs.
85
86NF > 1 && index($2,".")>0 && FILENAME ~ /\.defs/ {
87          # currently ignore items of the form "{ iso.3.6.1 }"
88          if (split($2, p, ".") == 2) {
89                    oidadd($1, p[1], p[2])
90          }
91          next
92}
93
94#
95# Must be a MIB file
96# Make it easier to parse - used to be done by sed
97{ sub(/--\*.*\*--/, ""); sub(/--.*/, ""); gsub(/[{}]/, " & "); }
98
99#
100# this next section is simple and naive, but does the job ok
101#
102
103# foo OBJECT IDENTIFIER ::= { baz 17 }
104# or
105# foo OBJECT IDENTIFIER ::=
106# { baz 17 }
107$2$3$4 == "OBJECTIDENTIFIER::=" {
108          holddesc="none"
109          if (NF == 8)
110                    oidadd($1, $6, $7)
111          if (NF == 4)
112                    holddesc=$1
113          next
114}
115$1 == "{" && holddesc != "none" && NF == 4 {
116          oidadd(holddesc, $2, $3)
117          holddesc="none"
118}
119#
120# foo OBJECT IDENTIFIER
121#  ::= { bar 1 }
122$2$3 == "OBJECTIDENTIFIER" && $1 != "SYNTAX" && NF == 3 {
123          holddesc=$1
124}
125#
126# foo
127# OBJECT IDENTIFIER ::= { bar 1 }
128# a couple of heuristics to exclude single words in e.g. long
129#  DESCRIPTION clauses
130NF == 1 && $1 ~ "[a-z][a-z]*[A-Z]" && $1 !~ /[(){}.,]/ && holddesc == "none" {
131          holddesc=$1
132}
133$1$2$3 == "OBJECTIDENTIFIER::=" && holddesc != "none" {
134          oidadd(holddesc, $5, $6)
135          holddesc="none"
136}
137#
138# "normal" style
139# foo OBJECT-TYPE ...
140# ...
141#   ::= { baz 5 }
142$2 == "MODULE-IDENTITY" || $2 == "MODULE-COMPLIANCE" ||
143          $2 == "OBJECT-IDENTITY" || $2 == "OBJECT-TYPE" ||
144          $2 == "OBJECT-GROUP" ||
145          $2 == "NOTIFICATION-TYPE" || $2 == "NOTIFICATION-GROUP" {
146          holddesc=$1
147}
148$1 == "::=" && holddesc != "none" && NF == 5 {
149          oidadd(holddesc, $3, $4)
150          holddesc="none"
151}
152#
153# foo ::= { baz 17 }
154$2$3 == "::={" {
155          oidadd($1,$4,$5)
156          holddesc="none"
157}
158
159
160#
161# End of the road - output the data.
162#
163
164END {
165          print "struct obj"
166          dump("iso")
167          print "*mibroot = &_iso_obj;"
168}
169
170function inn(file) {
171          if (file == "" || file == "-")
172                    return ""
173          return " in " file
174}
175
176#
177# add a new object to the tree
178#
179#                   new OBJECT IDENTIFIER ::= { parent value }
180#
181
182function oidadd(new, parent, value) {
183          # Ignore 0.0
184          if (parent == "0" && value == 0)
185                    return
186          if (debug)
187                    print "/* oidadd" inn(FILENAME) ":", new, "in", parent, "as", value, "line", $0, "*/"
188          # use safe C identifiers
189          gsub(/[-&\/]/,"",new)
190          gsub(/[-&\/]/,"",parent)
191          # check if parent missing
192          if (oid[parent] == "") {
193                    printf "/* parse problem%s: no parent for %s.%s(%d) */\n", \
194                              inn(FILENAME), parent, new, value
195                    return
196          }
197          # check if parent.value already exists
198          if (oid[new] > 0 && oid[new] != value) {
199                    printf "/* parse problem%s: dup %s.%s(%d) != old (%d) */\n", \
200                              inn(FILENAME), parent, new, value, oid[new]
201                    return
202          }
203          # check for new name for parent.value
204          if (child[parent] != "") {
205                    for (sib = child[parent]; sib != ""; sib = sibling[sib])
206                              if (oid[sib] == value) {
207                                        if (new != sib)
208                                                  printf "/* parse problem%s: new name" \
209                                                            " \"%s\"" \
210                                                            " for %s.%s(%d) ignored */\n", \
211                                                            inn(FILENAME), new, parent, \
212                                                            sib, value
213                                        return
214                              }
215          }
216
217          oid[new]=value
218          if (child[parent] == "") {
219                    child[parent] = new
220          } else {
221                    sibling[new] = child[parent]
222                    child[parent] = new
223          }
224}
225
226#
227# old(?) routine to recurse down the tree (in postfix order for convenience)
228#
229
230function dump(item, c, s) {
231#         newitem=sofar"."item"("oid[item]")"
232#         printf "/* %s c=%s s=%s */\n", newitem, child[item], sibling[item]
233          c="NULL"
234          if (child[item] != "") {
235                    dump(child[item])
236                    c = "&_"child[item]"_obj"
237          }
238          s="NULL"
239          if (sibling[item] != "") {
240                    dump(sibling[item])
241                    s = "&_"sibling[item]"_obj"
242          }
243          printf "_%s_obj = {\n\t\"%s\", %d, 0,\n\t%s, %s\n},\n", \
244                    item, item, oid[item], c, s
245}
246' $@
247exit 0
248