1 files changed, 36 insertions, 0 deletions
diff --git a/ipl/progs/procwrap.icn b/ipl/progs/procwrap.icn
new file mode 100644
index 0000000..01fdcac
--- /dev/null
+++ b/ipl/progs/procwrap.icn
@@ -0,0 +1,36 @@
+############################################################################
+#
+#	File:     procwrap.icn
+#
+#	Subject:  Program to produce Icon procedure wrappers
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     September 29, 1994
+#
+############################################################################
+#
+#   This file is in the public domain.
+#
+############################################################################
+#
+#  This little program takes procedure names from standard input and
+#  writes minimal procedure declarations for them.  For example, the
+#  input line
+#
+#	wrapper
+#
+#  produces
+#
+#	procedure wrapper()
+#	end
+#
+#  This program is useful when you have a lot of procedures to write.
+#
+############################################################################
+
+procedure main()
+
+   while write("procedure ", read(), "()\nend\n")
+
+end