mirror of
git://sourceware.org/git/glibc.git
synced 2026-10-05 22:27:29 +08:00
30 lines
499 B
Tcsh
30 lines
499 B
Tcsh
|
#! /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
|