← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/net-snmp/gutsy-security

« back to all changes in this revision

Viewing changes to mibs/smistrip

  • Committer: Bazaar Package Importer
  • Author(s): Martin Pitt
  • Date: 2004-09-13 12:06:21 UTC
  • Revision ID: james.westby@ubuntu.com-20040913120621-g952ntonlleihcvm
Tags: upstream-5.1.1
Import upstream version 5.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
mibs/smistrip
 
1
#!/bin/sh
 
2
#
 
3
# smistrip --
 
4
#
 
5
#       Extract MIB modules from text files, like RFCs or I-Ds.
 
6
#
 
7
# This is variant of smistrip from libsmi-0.2, modified to be somewhat
 
8
# more aggressive in suppressing blank lines, and support the -x option.
 
9
#
 
10
# Copyright (c) 1999 Frank Strauss, Technical University of Braunschweig.
 
11
# Modified by Niels Baggesen
 
12
#
 
13
# See the file "COPYING" for information on usage and redistribution
 
14
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 
15
#
 
16
# $Id: smistrip,v 5.0 2002/04/20 07:30:17 hardaker Exp $
 
17
#
 
18
# NOTE, that this script relies on awk (tested with GNU awk) and getopts
 
19
# (shell builtin like in bash or standalone).
 
20
#
 
21
 
 
22
AWK=awk
 
23
GETOPTS=getopts
 
24
VERSION=0.2-cvs
 
25
 
 
26
 
 
27
do_version () {
 
28
    echo "smistrip $VERSION"
 
29
}
 
30
 
 
31
 
 
32
 
 
33
do_usage () {
 
34
    echo "Usage: smistrip [-Vhn] [-d dir] [-s suffix] [-m modules] file ..."
 
35
    echo "-V         show version and license information"
 
36
    echo "-h         show usage information"
 
37
    echo "-n         do not write module files"
 
38
    echo "-d dir     write module to directory dir"
 
39
    echo "-x suffix  append suffix to the module file name"
 
40
    echo "-m modules strip only the specified modules. For a list of modules"
 
41
    echo "           use : as a separator"
 
42
    echo "file ...   input files to parse (RFCs, I-Ds, ...)"
 
43
}
 
44
 
 
45
 
 
46
 
 
47
do_strip () {
 
48
    cat $1 | $AWK -vtest="$test" -vdir="$dir" -vsingle="$single" -vsuffix="$suffix" '
 
49
 
 
50
    # start of module
 
51
    /^[ \t]*[A-Za-z0-9-]* *DEFINITIONS */ {
 
52
        module = $1
 
53
        collect = 1
 
54
        macro = 0
 
55
        n = 0
 
56
    }
 
57
 
 
58
    # page footer - start skipping
 
59
    /\[Page [iv0-9]*\] */ {
 
60
        collect = 0
 
61
        next
 
62
    }
 
63
 
 
64
    /^[ \t]*(::=|DESCRIPTION|SYNTAX|(MAX-|MIN-|)ACCESS|STATUS|REFERENCE|INDEX|AUGMENTS|DEFVAL|UNITS|DISPLAY|")/ {
 
65
        if (collect)
 
66
            if (line[n-1] == "") n--
 
67
    }
 
68
 
 
69
    # a blank line - suppress multiple
 
70
    /^[ \t\r]*$/ {
 
71
        if (collect)
 
72
            if (line[n-1] != "" && line[n-1] !~ /,[ \t\r]*$/) line[n++] = ""    
 
73
        next
 
74
    }
 
75
 
 
76
    # collect non-blank line when inside mib module
 
77
    /[^ \f\t]/ {
 
78
        if (length(module) > 0) {
 
79
            if (!collect)
 
80
                collect = 1     # page header, stop skipping
 
81
            else
 
82
                line[n++] = $0
 
83
        }
 
84
    }
 
85
 
 
86
    # remember when we enter a macro definition
 
87
    / *MACRO *::=/ {
 
88
        macro = 1
 
89
    }
 
90
 
 
91
    # end of module
 
92
    /^[ \t]*END[ \t\r]*$/ {
 
93
        if (macro)
 
94
            macro = 0
 
95
        else if (length(single) == 0 || match(":"single":", ":"module":")) {
 
96
            strip = 99
 
97
            for (i = 0 ; i < n ; i++) {
 
98
                # find the minimum column that contains non-blank characters
 
99
                # in order to cut a blank prefix off.
 
100
                p = match(line[i], "[^ ]")
 
101
                if (p < strip && length(line[i]) > p) strip = p
 
102
            }
 
103
 
 
104
            if (test != "1") {
 
105
                if (dir)
 
106
                    f = dir "/" module suffix
 
107
                else
 
108
                    f = module suffix
 
109
                for (i = 0 ; i < n ; i++)
 
110
                    print substr(line[i], strip) >f
 
111
            }
 
112
 
 
113
            print module ": " n " lines."
 
114
            module = ""
 
115
            collect = 0
 
116
        }
 
117
        else
 
118
            print module ": ignored."
 
119
    }
 
120
    '
 
121
}
 
122
 
 
123
 
 
124
while $GETOPTS Vhnm:d:x: c ; do
 
125
    case $c in
 
126
        n)      test=1
 
127
                ;;
 
128
        m)      single=$OPTARG
 
129
                ;;
 
130
        d)      dir=$OPTARG
 
131
                ;;
 
132
        x)      suffix=$OPTARG
 
133
                ;;
 
134
        h)      do_usage
 
135
                exit 0
 
136
                ;;
 
137
        V)      do_version
 
138
                exit 0
 
139
                ;;
 
140
        *)      do_usage
 
141
                exit 1
 
142
                ;;
 
143
    esac
 
144
done
 
145
 
 
146
shift `expr $OPTIND - 1`
 
147
 
 
148
 
 
149
if [ $# -eq 0 ] ; then
 
150
    do_strip -
 
151
else 
 
152
    for f in $@ ; do
 
153
        do_strip $f
 
154
    done
 
155
fi
 
156
 
 
157
exit 0