blob: f58995c5e1f58d7f9602c39320ec81cfad0a5362 [file] [log] [blame]
#!/bin/sh
#
# smistrip --
#
# Extract MIB modules from text files, like RFCs or I-Ds.
#
# This is variant of smistrip from libsmi-0.2, modified to be somewhat
# more aggressive in suppressing blank lines, and support the -x option.
#
# Copyright (c) 1999 Frank Strauss, Technical University of Braunschweig.
# Modified by Niels Baggesen
#
# See the file "COPYING" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# $Id$
#
# NOTE, that this script relies on awk (tested with GNU awk) and getopts
# (shell builtin like in bash or standalone).
#
AWK=awk
[ `uname` != SunOS ] || AWK=/usr/bin/nawk
GETOPTS=getopts
VERSION=0.3-cvs
do_version () {
echo "smistrip $VERSION"
}
do_usage () {
echo "Usage: smistrip [-Vhn] [-d dir] [-s suffix] [-m modules] file ..."
echo "-V show version and license information"
echo "-v verbose"
echo "-h show usage information"
echo "-n do not write module files"
echo "-d dir write module to directory dir"
echo "-x suffix append suffix to the module file name"
echo "-m modules strip only the specified modules. For a list of modules"
echo " use : as a separator"
echo "file ... input files to parse (RFCs, I-Ds, ...)"
}
do_strip () {
cat $1 | $AWK -v test="$test" -v dir="$dir" -v single="$single" -v suffix="$suffix" -v verbose="$verbose" '
BEGIN {
if (length(single) != 0) {
single = ":"single":"
}
else {
single = ""
}
}
END {
if (single != "" && single != ":") {
gsub(":", " ", single)
print "WARNING: Module(s) not found:" single
}
}
# start of module
/^[ \t]*[A-Za-z0-9-]* *DEFINITIONS *::= *BEGIN/ {
module = $1
collect = 1
macro = 0
n = 0
}
# page footer - start skipping
/\[Page [iv0-9]*\] */ {
collect = 0
next
}
/^[ \t]*(::=|DESCRIPTION|SYNTAX|MAX-ACCESS|MIN-ACCESS|ACCESS|STATUS|REFERENCE|INDEX|AUGMENTS|DEFVAL|UNITS|DISPLAY|")/ {
if (collect)
if (line[n-1] == "") n--
}
# a blank line - suppress multiple
/^[ \t\r]*$/ {
if (collect)
if (line[n-1] != "" && line[n-1] !~ /,[ \t\r]*$/) line[n++] = ""
next
}
# collect non-blank line when inside mib module
/[^ \f\t]/ {
if (length(module) > 0) {
if (!collect)
collect = 1 # page header, stop skipping
else
line[n++] = $0
}
}
# remember when we enter a macro definition
/ *MACRO *::=/ {
macro = 1
}
# end of module
/^[ \t]*END[ \t\r]*$/ {
if (macro)
macro = 0
else if (single == "" || match(single, ":"module":")) {
sub(":"module, "", single)
strip = 99
for (i = 0 ; i < n ; i++) {
# find the minimum column that contains non-blank characters
# in order to cut a blank prefix off.
p = match(line[i], "[^ ]")
if (p < strip && length(line[i]) > p) strip = p
}
if (test != "1") {
if (dir)
f = dir "/" module suffix
else
f = module suffix
for (i = 0 ; i < n ; i++)
print substr(line[i], strip) >f
}
if (verbose) {
print module ": " n " lines."
}
module = ""
collect = 0
}
else
print "NOTE: " module ": ignored."
}
'
}
while $GETOPTS Vvhnm:d:x: c ; do
case $c in
v) verbose=1
;;
n) test=1
;;
m) single=$OPTARG
;;
d) dir=$OPTARG
;;
x) suffix=$OPTARG
;;
h) do_usage
exit 0
;;
V) do_version
exit 0
;;
*) do_usage
exit 1
;;
esac
done
shift `expr $OPTIND - 1`
if [ $# -eq 0 ] ; then
do_strip -
else
for f in $@ ; do
do_strip $f
done
fi
exit 0