printsources


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

#! /bin/csh -f

#
#	Prints all the files given as arguments.
#	Files that will fit on less than a printed page
#	are concatenated together.  Bigger ones are pr'd.
#


set tocat='' topr=''

foreach file ($*)
	set lines=`wc -l $file | sed "s/$file//"`
	if ($lines > 40) then
		set topr=($topr $file)
	else
		set tocat=($tocat $file)
	endif
end


if ("$topr" != '') pr $topr

if ("$tocat" != '') foreach file ($tocat)
	echo -n "==================== $file ======================"
	cat $file
end

exit 0