1 files changed, 51 insertions, 0 deletions
diff --git a/ipl/progs/itrbksum.icn b/ipl/progs/itrbksum.icn
new file mode 100644
index 0000000..0b0a3d6
--- /dev/null
+++ b/ipl/progs/itrbksum.icn
@@ -0,0 +1,51 @@
+############################################################################
+#
+#	File:     itrbksum.icn
+#
+#	Subject:  Program to give summary of traceback
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     March 26, 2002
+#
+############################################################################
+#
+#   This file is in the public domain.
+#
+############################################################################
+#
+#  This program summarizes traceback information produced on error
+#  termination by filtering out the bulk of the procedure traceback
+#  information.
+#
+#  Expect various options in future versions.
+#
+############################################################################
+
+$define CountWidth 10
+
+procedure main()
+   local line, count
+
+   while line := read() do {
+      if line ? =("Trace back:" | "Traceback") then break
+      else write(line)
+      }
+
+   write()
+   write(read())
+
+   count := 0
+   while line := read() do
+      count +:= 1
+
+   every 1 to 3 do
+      write("\t.")
+
+   write(line)
+
+   write()
+
+   write("at level ", count)
+
+end