mkman revision 1.1
11.1Shubertf#!/bin/sh
21.1Shubertf
31.1Shubertfverbose=no
41.1Shubertf
51.1Shubertfif [ X"$1" = X-v ] ; then
61.1Shubertf    verbose=yes
71.1Shubertf    shift
81.1Shubertffi
91.1Shubertfif [ $# != 2 ] ; then
101.1Shubertf    echo "Usage: $0 [-v] which-shell ksh.Man-file" 1>&2
111.1Shubertf    exit 1;
121.1Shubertffi
131.1Shubertfshell=$1
141.1Shubertfman=$2
151.1Shubertf
161.1Shubertfcase $shell in
171.1Shubertf sh) which=0;;
181.1Shubertf ksh) which=1;;
191.1Shubertf *)
201.1Shubertf    echo "$0: bad shell option (must be sh or ksh)" 1>&2
211.1Shubertf    exit 1
221.1Shubertf    ;;
231.1Shubertfesac
241.1Shubertfif [ ! -r "$man" ] ; then
251.1Shubertf    echo "$0: can't read $man file" 1>&2
261.1Shubertf    exit 1;
271.1Shubertffi
281.1Shubertf
291.1Shubertf
301.1Shubertf#
311.1Shubertf# Now generate the appropriate man page...
321.1Shubertf#
331.1Shubertf[ $verbose = yes ] && echo "$0: Generating $which man page (0=sh,1=ksh)..." 1>&2
341.1Shubertf
351.1Shubertfawk 'BEGIN { ksh = '$which'; pr = 1 }
361.1Shubertf    /^\.sh\(/ { pr = ksh - 1; next }
371.1Shubertf    /^\.sh\)/ { pr = 1; next }
381.1Shubertf    /^\.ksh\(/ { pr = ksh; next }
391.1Shubertf    /^\.ksh\)/ { pr = 1; next }
401.1Shubertf    { if (pr) print $0 } ' < $man
411.1Shubertf
421.1Shubertf[ $verbose = yes ] && echo "$0: All done" 1>&2
431.1Shubertf
441.1Shubertfexit 0
45