mirror of
https://sourceware.org/git/glibc.git
synced 2024-11-18 02:50:09 +00:00
30 lines
499 B
Plaintext
30 lines
499 B
Plaintext
|
#! /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
|