X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/960da3682b9c326b4530d3171791066b1980faa7..b041ccece3687baa46a947a5695b634ef113edfd:/usr/src/usr.bin/vgrind/vgrind.sh

diff --git a/usr/src/usr.bin/vgrind/vgrind.sh b/usr/src/usr.bin/vgrind/vgrind.sh
index 8666610af6..554dc65022 100644
--- a/usr/src/usr.bin/vgrind/vgrind.sh
+++ b/usr/src/usr.bin/vgrind/vgrind.sh
@@ -1,39 +1,118 @@
+#!/bin/sh -
+#
+# Copyright (c) 1980 Regents of the University of California.
+# All rights reserved.  The Berkeley software License Agreement
+# specifies the terms and conditions for redistribution.
+#
+#	@(#)vgrind.sh	5.1 (Berkeley) %G%
 #
 # vgrind
 #
 set b=/usr/lib
-set o=
-set t=
-set wide = ""
+set voptions=
+set options=
+set files=
+set f=''
+set head=""
 top:
-if ($#argv > 1) then
-	switch ($1:q)
+if ($#argv > 0) then
+    switch ($1:q)
+
+    case -f:
+	set f='filter'
+	set options = "$options $1:q"
+	shift
+	goto top
+
+    case -t:
+	set voptions = "$voptions -t"
+	shift
+	goto top
 
-	case -t:
-		set t=-t
-		shift
-		goto top
+    case -o*:
+	set voptions="$voptions $1:q"
+	shift
+	goto top
 
-	case -o*:
-		set o=$1:q
-		shift
-		goto top
-	case -W:
-		set wide = "-W"
-		shift
-		goto top
-	endsw
+    case -W:
+	set voptions = "$voptions -W"
+	shift
+	goto top
+
+    case -d:
+	if ($#argv < 2) then
+	    echo "vgrind: $1:q option must have argument"
+	    goto done
+	else
+	    set options = ($options $1:q $2)
+	    shift
+	    shift
+	    goto top
+	endif
+			
+    case -h:
+	if ($#argv < 2) then
+	    echo "vgrind: $1:q option must have argument"
+	    goto done
+	else
+	    set head="$2"
+	    shift
+	    shift
+	    goto top
+	endif
+			
+    case -*:
+	set options = "$options $1:q"
+	shift
+	goto top
+
+    default:
+	set files = "$files $1:q"
+	shift
+	goto top
+    endsw
 endif
 if (-r index) then
-	echo > nindex
-	foreach i ($*:q)
-		echo "/ $i /d" >> nindex
-	end
-	sed -f nindex index >xindex
-	$b/vfontedpr $*:q | \
-		/bin/sh -c "vtroff $t $wide -rx1 $o -i -mvgrind 2>> xindex"
-	sort -df +0 -2 xindex >index
-	rm nindex xindex
+    echo > nindex
+    foreach i ($files)
+	#	make up a sed delete command for filenames
+	#	being careful about slashes.
+	echo "? $i ?d" | sed -e "s:/:\\/:g" -e "s:?:/:g" >> nindex
+    end
+    sed -f nindex index >xindex
+    if ($f == 'filter') then
+	if ("$head" != "") then
+	    $b/vfontedpr $options -h "$head" $files | cat $b/tmac/tmac.vgrind -
+	else
+	    $b/vfontedpr $options $files | cat $b/tmac/tmac.vgrind -
+	endif
+    else
+	if ("$head" != "") then
+	    $b/vfontedpr $options -h "$head" $files | \
+		/bin/sh -c "vtroff -rx1 $voptions -i -mvgrind 2>> xindex"
+	else
+	    $b/vfontedpr $options $files | \
+		/bin/sh -c "vtroff -rx1 $voptions -i -mvgrind 2>> xindex"
+	endif
+    endif
+    sort -df +0 -2 xindex >index
+    rm nindex xindex
 else
-	$b/vfontedpr $*:q | vtroff $t $wide -i $o -mvgrind
+    if ($f == 'filter') then
+	if ("$head" != "") then
+	    $b/vfontedpr $options -h "$head" $files | cat $b/tmac/tmac.vgrind -
+	else
+	    $b/vfontedpr $options $files | cat $b/tmac/tmac.vgrind -
+	endif
+    else
+	if ("$head" != "") then
+	    $b/vfontedpr $options -h "$head" $files \
+		| vtroff -i $voptions -mvgrind
+	else
+	    $b/vfontedpr $options $files \
+		| vtroff -i $voptions -mvgrind
+	endif
+    endif
 endif
+
+done: