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