entered into RCS
authorroland <roland>
Sat, 4 Mar 1989 06:22:15 +0000 (06:22 +0000)
committerroland <roland>
Sat, 4 Mar 1989 06:22:15 +0000 (06:22 +0000)
printsources [new file with mode: 0755]

diff --git a/printsources b/printsources
new file mode 100755 (executable)
index 0000000..062b837
--- /dev/null
@@ -0,0 +1,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