set flags
=() noglob length
=() fonts
=() fontf
=() macp
=(/usr
/lib
/tmac
/tmac.vcat
)
echo -F takes following font name.
set argv
=(-1 $2.r
-2 $2.i
-3 $2.b
$argv[3-])
echo $1 takes following font name.
if (! -r /usr
/lib
/fontinfo
/$2) then
if (! -r /usr
/lib
/fontinfo
/$2.r
) then
echo ${2}: font not found.
echo .nr p
$fnum >> $fontf
cat /usr
/lib
/fontinfo
/$2 >> $fontf
set flags
= ($flags $argv[1])
/usr
/bin
/troff
-t -rv1 $flags $macp $fontf $
* |
/usr
/lib
/vsort
-W $length
/usr
/bin
/troff
-t -rv1 $flags $macp $fontf $
* | \
/usr
/lib
/vsort
-W $length |
/usr
/ucb
/vpr
-W -t $fonts
/usr
/bin
/troff
-t -rv1 $flags $macp $fontf $
* |
/usr
/lib
/rvsort
$length
/usr
/bin
/troff
-t -rv1 $flags $macp $fontf $
* | \
/usr
/lib
/rvsort
$length |
/usr
/ucb
/vpr
-t $fonts
# /usr/lib/vsort -c $length | /usr/ucb/vpr -t $fonts