mirror of
https://sourceware.org/git/glibc.git
synced 2024-11-22 21:10:07 +00:00
30 lines
499 B
Tcsh
Executable File
30 lines
499 B
Tcsh
Executable File
#! /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
|