[unix-history] / usr.bin / vgrind / vgrind.sh

#!/bin/csh -f
#
# Copyright (c) 1980 The Regents of the University of California.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. All advertising materials mentioning features or use of this software
#    must display the following acknowledgement:
#	This product includes software developed by the University of
#	California, Berkeley and its contributors.
# 4. Neither the name of the University nor the names of its contributors
#    may be used to endorse or promote products derived from this software
#    without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
#	@(#)vgrind.sh	5.7 (Berkeley) 4/16/91
#

set voptions=
set options=
set files=
set f=''
set head=""
set vf=/usr/libexec/vfontedpr
set tm=/usr/share/tmac
top:
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 -o*:
	set voptions="$voptions $1:q"
	shift
	goto top

    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 ($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
	    $vf $options -h "$head" $files | cat $tm/tmac.vgrind -
	else
	    $vf $options $files | cat $tm/tmac.vgrind -
	endif
    else
	if ("$head" != "") then
	    $vf $options -h "$head" $files | \
		sh -c "troff -rx1 $voptions -i -mvgrind 2>> xindex"
	else
	    $vf $options $files | \
		sh -c "troff -rx1 $voptions -i -mvgrind 2>> xindex"
	endif
    endif
    sort -df +0 -2 xindex >index
    rm nindex xindex
else
    if ($f == 'filter') then
	if ("$head" != "") then
	    $vf $options -h "$head" $files | cat $tm/tmac.vgrind -
	else
	    $vf $options $files | cat $tm/tmac.vgrind -
	endif
    else
	if ("$head" != "") then
	    $vf $options -h "$head" $files | troff -i $voptions -mvgrind
	else
	    $vf $options $files | troff -i $voptions -mvgrind
	endif
    endif
endif

done:
Commit	Line	Data
15637ed4 RG	1	#!/bin/csh -f
	2	#
	3	# Copyright (c) 1980 The Regents of the University of California.
	4	# All rights reserved.
	5	#
	6	# Redistribution and use in source and binary forms, with or without
	7	# modification, are permitted provided that the following conditions
	8	# are met:
	9	# 1. Redistributions of source code must retain the above copyright
	10	# notice, this list of conditions and the following disclaimer.
	11	# 2. Redistributions in binary form must reproduce the above copyright
	12	# notice, this list of conditions and the following disclaimer in the
	13	# documentation and/or other materials provided with the distribution.
	14	# 3. All advertising materials mentioning features or use of this software
	15	# must display the following acknowledgement:
	16	# This product includes software developed by the University of
	17	# California, Berkeley and its contributors.
	18	# 4. Neither the name of the University nor the names of its contributors
	19	# may be used to endorse or promote products derived from this software
	20	# without specific prior written permission.
	21	#
	22	# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	23	# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	24	# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	25	# ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	26	# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	27	# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	28	# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	29	# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	30	# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	31	# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	32	# SUCH DAMAGE.
	33	#
	34	# @(#)vgrind.sh 5.7 (Berkeley) 4/16/91
	35	#
	36
	37	set voptions=
	38	set options=
	39	set files=
	40	set f=''
	41	set head=""
	42	set vf=/usr/libexec/vfontedpr
	43	set tm=/usr/share/tmac
	44	top:
	45	if ($#argv > 0) then
	46	switch ($1:q)
	47
	48	case -f:
	49	set f='filter'
	50	set options = "$options $1:q"
	51	shift
	52	goto top
	53
	54	case -t:
	55	set voptions = "$voptions -t"
	56	shift
	57	goto top
	58
	59	case -o*:
	60	set voptions="$voptions $1:q"
	61	shift
	62	goto top
	63
	64	case -W:
65	set voptions = "$voptions -W"
66	shift
67	goto top
68
69	case -d:
70	if ($#argv < 2) then
71	echo "vgrind: $1:q option must have argument"
72	goto done
73	else
74	set options = ($options $1:q $2)
75	shift
76	shift
77	goto top
78	endif
79
80	case -h:
81	if ($#argv < 2) then
82	echo "vgrind: $1:q option must have argument"
83	goto done
84	else
85	set head="$2"
86	shift
87	shift
88	goto top
89	endif
90
91	case -*:
92	set options = "$options $1:q"
93	shift
94	goto top
95
96	default:
97	set files = "$files $1:q"
98	shift
99	goto top
100	endsw
101	endif
102	if (-r index) then
103	echo > nindex
104	foreach i ($files)
105	# make up a sed delete command for filenames
106	# being careful about slashes.
107	echo "? $i ?d" \| sed -e "s:/:\\/:g" -e "s:?:/:g" >> nindex
108	end
109	sed -f nindex index >xindex
110	if ($f == 'filter') then
111	if ("$head" != "") then
112	$vf $options -h "$head" $files \| cat $tm/tmac.vgrind -
113	else
114	$vf $options $files \| cat $tm/tmac.vgrind -
115	endif
116	else
117	if ("$head" != "") then
118	$vf $options -h "$head" $files \| \
78ed81a3	119	sh -c "troff -rx1 $voptions -i -mvgrind 2>> xindex"
15637ed4 RG	120	else
15637ed4 RG	121	$vf $options $files \| \
78ed81a3	122	sh -c "troff -rx1 $voptions -i -mvgrind 2>> xindex"
15637ed4 RG	123	endif
	124	endif
	125	sort -df +0 -2 xindex >index
	126	rm nindex xindex
	127	else
	128	if ($f == 'filter') then
	129	if ("$head" != "") then
	130	$vf $options -h "$head" $files \| cat $tm/tmac.vgrind -
	131	else
	132	$vf $options $files \| cat $tm/tmac.vgrind -
	133	endif
	134	else
	135	if ("$head" != "") then
78ed81a3	136	$vf $options -h "$head" $files \| troff -i $voptions -mvgrind
15637ed4	137	else
78ed81a3	138	$vf $options $files \| troff -i $voptions -mvgrind
15637ed4 RG	139	endif
	140	endif
	141	endif
	142
	143	done: