about summary refs log blame commit diff
path: root/printsources
blob: 062b837c5a24d43de2ea0e7206783a84323efbb7 (plain) (tree)



























                                                                   
#! /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