Server : Apache System : Linux server1.cgrithy.com 3.10.0-1160.95.1.el7.x86_64 #1 SMP Mon Jul 24 13:59:37 UTC 2023 x86_64 User : nobody ( 99) PHP Version : 8.1.23 Disable Function : NONE Directory : /usr/bin/ |
#!/usr/bin/sh # # smistrip -- # # Extract MIB and PIB modules from text files, like RFCs or I-Ds. # # Copyright (c) 1999 Frank Strauss, Technical University of Braunschweig. # # See the file "COPYING" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # $Id: smistrip.in 3434 2006-04-07 07:02:51Z strauss $ # # NOTE, that this script relies on awk (tested with GNU awk) and getopts # (shell builtin like in bash or standalone). # AWK=/usr/bin/awk GETOPTS=getopts VERSION=0.4.8 do_version () { echo "smistrip $VERSION" } do_usage () { echo "Usage: smistrip [-Vhn] [-i dir] [-d dir] [-m module] file1 [file2 [...]]" echo "-V show version and license information" echo "-h show usage information" echo "-n do not write module files" echo "-i dir try to read files from directory dir" echo "-d dir write module to directory dir" echo "-m module strip only the specified module" echo "file1 ... input files to parse (RFCs, I-Ds, ...)" } do_strip () { if [ "$indir" ] ; then FILE="$indir/$1" else FILE="$1" fi if [ ! -f "$FILE" -a -f "$FILE.gz" ] ; then FILE="$FILE.gz" fi echo "$FILE" | grep -q '\.gz$' if [ $? -ne 0 ] ; then CMD=cat else CMD=zcat fi $CMD "$FILE" | \ tr -d '\015' | \ grep -i -v '^[ ]*Internet[ \-]Draft' | \ $AWK -vtest="$test" -vdir="$dir" -vsingle="$single" ' # start of module /^[ \t]*[A-Za-z0-9-]* *(PIB-)?DEFINITIONS *(::=)? *(BEGIN)? *$/ { module = $1 skip = 9 skipped = -1 macro = 0 n = 0 } # process each line { # at the end of a page we go back one line (which is expected to # be a separator line), and start the counter skipped to skip the # next few lines. if ($0 ~ /\[[pP]age [iv0-9]*\] */) { # some drafts do not use that separator line. so keep it if # there are non-blank characters. if (!(line[n] ~ /^[ \t]*$/)) { print "WARNING: the line ::"line[n]":: should be a separator before a page break. It was kept. " ; n-- } skipped = 0 } # if we are skipping... if (skipped >= 0) { skipped++ # if we have skipped enough lines to the top of the next page... if (skipped >= skip) { skipped = -1 } else { # finish skipping, if we find a non-empty line, but not before # we have skipped four lines. remember the miminum of lines # we have ever skipped to keep empty lines in a modules that # appear near the top of a page. if ((skipped >= 4) && ($0 ~ /[^ \t]/)) { if (skipped < skip) { skip = skipped } skipped = -1 } } } # so, if we are not skipping and inside a module, remember the line. if ((skipped == -1) && (length(module) > 0)) { line[n++] = $0 } } # remember when we enter a macro definition /^[ \t]*[A-Za-z0-9-]* *MACRO *::=/ { macro = 1 } # end of module /^[ \t]*END[ \t]*$/ { if (macro == 0) { if ((length(single) == 0) || (single == module)) { 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. Ignore lines that only # contain white spaces. if (!(line[i] ~ /^[ \t]*$/)) { p = match(line[i], "[^ ]") if ((p < strip) && (length(line[i]) > p)) { strip = p } } } if (test != "1") { if (dir) { f = dir"/"module } else { f = module } for (i=0 ; i < n ; i++) { print substr(line[i], strip) >f } } print module ": " n " lines." } module = "" } else { macro = 0 } } ' } while $GETOPTS Vhnm:i:d: c ; do case $c in n) test=1 ;; m) single=$OPTARG ;; i) indir=$OPTARG ;; d) dir=$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