#!/bin/sh
LANG=
: process arguments
while :
do
case $1 in
[0-9]) SECT=$1;;
-) LANG=$1; B='[ -a) LANG=$1; B=' -c) LANG=$1; B='\/\*';;
-f) LANG=$1; B='[Cc]';;
-m) LANG=$1; B=' -n|-t) LANG=$1; B='\\"';;
-p) LANG=$1; B='{';;
-r) LANG=$1; B='#';;
-C) LANG=$1; B=$2; shift;;
-*) ERROR="unknown option: $1"; break;;
"") ERROR="missing file argument"; break;;
*) break;;
esac
shift
done
# check error status
case $ERROR in
"") ;;
*) echo "$0: $ERROR" 1>&2
echo "usage: $0 [-|-a|-c|-f|-m|-n|-p|-t|-r|-C] file(s)" 1>&2; exit 1;;
esac
# set up for file suffix processing
case $LANG in
"") sh='[:#]'; r='#'; rh=$r; awk='#'; mk='#';
c='\/\*'; d=$c; h=$c; y=$c; l=$c;
f='[Cc]'; fh=$f; p='{'; ph=$p;
ms='\\"'; nr=$ms; mn=$ms; man=$ms;
esac
for i
do
case $LANG in
"") eval B\="\$`expr $i : '.*\.\([^.]*\)$'`"
test "$B" || { echo "$0: unknown suffix: '$i'; assuming c" 1>&2; B=$c; }
esac
sed -n '
/^'"$B"'++/,/^'"$B"'--/{
s/[ ]*$//
/^'"$B"' NAME/{
N
s/^.*\n'"$B"'.*[ ]\([0-9]\)[ ]*$/\1/p
q
}
}
' $i
done
exit
option suffix language comment
- .sh shell [: -a .awk awk -c .c .h .l .y c lex yacc /*
-f .f .fh fortran [Cc]
-m .mk make -n .man .mn .ms .nr nroff troff \\"
-p .p .ph pascal {
-r .r .rh ratfor #
-C any language next argument
# .ft
# COMMANDS
# sh(1), sed(1)
# SEE ALSO
# newsrc(1), xman(1)
# The earlier commands new(1), mod(1), mkman(1) and dssman(1)
# by Ruud Zwart and Ben Noordzij (Erasmus University, Rotterdam)
# DIAGNOSTICS
# The program complaints if an unknown language is specified
# of if the language cannot be deduced from the file suffix.
# AUTHOR(S)
# W.Z. Venema
# Eindhoven University of Technology
# Department of Mathematics and Computer Science
# Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
# CREATION DATE
# Sun Feb 15 21:40:28 GMT+1:00 1987
# LAST MODIFICATION
# 11/4/89 15:56:37
# VERSION/RELEASE
# 1.2
#--