mkman

来自「一个开放源代码的 AT&T 的 Korn Shell 的复制品, 支持大多数 k」· 代码 · 共 45 行

#!/bin/sh

verbose=no

if [ X"$1" = X-v ] ; then
    verbose=yes
    shift
fi
if [ $# != 2 ] ; then
    echo "Usage: $0 [-v] which-shell ksh.Man-file" 1>&2
    exit 1;
fi
shell=$1
man=$2

case $shell in
 sh) which=0;;
 ksh) which=1;;
 *)
    echo "$0: bad shell option (must be sh or ksh)" 1>&2
    exit 1
    ;;
esac
if [ ! -r "$man" ] ; then
    echo "$0: can't read $man file" 1>&2
    exit 1;
fi


#
# Now generate the appropriate man page...
#
[ $verbose = yes ] && echo "$0: Generating $which man page (0=sh,1=ksh)..." 1>&2

awk 'BEGIN { ksh = '$which'; pr = 1 }
    /^\.sh\(/ { pr = ksh - 1; next }
    /^\.sh\)/ { pr = 1; next }
    /^\.ksh\(/ { pr = ksh; next }
    /^\.ksh\)/ { pr = 1; next }
    { if (pr) print $0 } ' < $man

[ $verbose = yes ] && echo "$0: All done" 1>&2

exit 0