Initial upstream version 9.4.3upstream/9.4.3

1 files changed, 31 insertions, 0 deletions

diff --git a/ipl/progs/catlines.icn b/ipl/progs/catlines.icn
new file mode 100644
index 0000000..026808e
--- /dev/null
+++ b/ipl/progs/catlines.icn
@@ -0,0 +1,31 @@
+############################################################################
+#
+#	File:     catlines.icn
+#
+#	Subject:  Program to concatenate lines of a file
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     January 14, 1999
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#  This program concatenates all the lines from standard input and
+#  writes the result to standard output.
+#
+############################################################################
+
+procedure main()
+   local line
+
+   line := ""
+
+   while line ||:= read()
+
+   write(line)
+
+end