1 files changed, 30 insertions, 0 deletions
diff --git a/unix/boot/spp/rpp/rpprat/lndict.r b/unix/boot/spp/rpp/rpprat/lndict.r
new file mode 100644
index 00000000..42cf8d6a
--- /dev/null
+++ b/unix/boot/spp/rpp/rpprat/lndict.r
@@ -0,0 +1,30 @@
+#-h-  lndict			  678  local   12/01/80  15:54:13
+# lndict - output long-name dictionary as a debugging aid
+   include  defs
+
+subroutine lndict
+
+character sym (MAXTOK), c
+ifdef (UPPERC, character cupper)
+integer sctabl, length
+pointer posn, locn
+include COMMON_BLOCKS
+
+   posn = 0
+   while (sctabl (namtbl, sym, locn, posn) != EOF)
+      if (length(sym) > MAXIDLENGTH) {
+	  ifdef (UPPERC, call outch (BIGC))
+	  ifnotdef (UPPERC, call outch (LETC))
+	  call outtab
+	  for (; mem (locn) != EOS; locn = locn + 1) {
+	     c = mem (locn) # kluge for people with LOGICAL*1 characters
+	     ifdef (UPPERC, c = cupper (c))
+	     call outch (c)
+	  }
+	  call outch (BLANK)
+	  call outch (BLANK)
+	  call outstr (sym)
+	  call outdon
+      }
+   return
+end