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