[9fans] man! play nice (redux)

[9fans] man! play nice (redux)

[erik quanstrom]

this version should play nicely with any flavor of rc.
and it supports -u and -9 to force one way or the other.

edit the shebang line to your liking.

erik

----

#!/usr/local/bin/rc
u_man=/usr/bin/man
9_man=$PLAN9 ^ /bin/man

fn u_psv {
	psv -
}

fn u_cat {
	sed 's///g
s.//g'
}

fn do_u_man { uargs=() viewer=() {
	for (i){
		switch($i){
		case -P:
			uargs=($uargs -t)
			viewer=u_psv
		case *
			uargs=($uargs $i)
			viewer=u_cat
		}
	}

	$u_man $uargs | $viewer
}}

force=()
args=()

for(i){
	switch($i){
	case -u
		force=u
	case -9
		force=9
	case *
		args=($args $i)
	}
}

if (~ $PLAN9 ()){
	force=u
}

switch($force){
case u
	do_u_man $args
case 9
	$9_man $args >[2] /dev/null
case *
	$9_man $args >[2] /dev/null || do_u_man $args
}