#!/bin/rc -e
# fman: "man file"
rfork e
fn fatal{
	echo $* >[1=2]
	exit $"*
}
o=()
while(~ $1 -*){
	o=($o $1)
	shift
}
if(~ $#* 0){
	echo usage: fman '[options]' file >[1=2]
	exit usage
}
file=$1
dat=`{sed 1q $file}
if(! ~ $#dat 3 || ! ~ $dat(1) .TH)
	fatal not a man file

t=`{echo $dat(2) | tr A-Z a-z}
s=$dat(3)
f=/sys/man/$s/$t
echo f'='$f >[1=2]
if(test -e $f)
	fatal $f exists already

tmp=/tmp/fman.$pid
mkdir -p $tmp
cp $file $tmp/$t
bind -a $tmp /sys/man/$s
man $o $s $t
unmount $tmp /sys/man/$s
rm -rf $tmp