#!@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=@AWK@

GETOPTS=getopts

VERSION=@VERSION@

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