1# 2# vgrind 3# 4set b=/usr/lib 5set o= 6set t= 7set wide = "" 8top: 9if ($#argv > 1) then 10 switch ($1:q) 11 12 case -t: 13 set t=-t 14 shift 15 goto top 16 17 case -o*: 18 set o=$1:q 19 shift 20 goto top 21 case -W: 22 set wide = "-W" 23 shift 24 goto top 25 endsw 26endif 27if (-r index) then 28 echo > nindex 29 foreach i ($*:q) 30 echo "/ $i /d" >> nindex 31 end 32 sed -f nindex index >xindex 33 $b/vfontedpr $*:q | \ 34 /bin/sh -c "vtroff $t $wide -rx1 $o -i -mvgrind 2>> xindex" 35 sort -df +0 -2 xindex >index 36 rm nindex xindex 37else 38 $b/vfontedpr $*:q | vtroff $t $wide -i $o -mvgrind 39endif 40