Initial commit

1 files changed, 41 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/rpprat/entdkw.r b/unix/boot/spp/rpp/rpprat/entdkw.r
new file mode 100644
index 00000000..6b061075
--- /dev/null
+++ b/unix/boot/spp/rpp/rpprat/entdkw.r
@@ -0,0 +1,41 @@
+#-h-  entdkw			  975  local   12/01/80  15:54:05
+# entdkw --- install macro processor keywords
+   include  defs
+
+   subroutine entdkw
+
+   character deft(2), prag(2) #, inct(2), subt(2), ift(2), art(2),
+      # ifdft(2), ifndt(2), mact(2)
+
+   string defnam "define"
+   string prgnam "pragma"
+#  string macnam "mdefine"
+#  string incnam "incr"
+#  string subnam "substr"
+#  string ifnam "ifelse"
+#  string arnam "arith"
+#  string ifdfnm "ifdef"
+#  string ifndnm "ifnotdef"
+
+   data deft (1), deft (2) /DEFTYPE, EOS/
+   data prag (1), prag (2) /PRAGMATYPE, EOS/
+#  data mact (1), mact (2) /MACTYPE, EOS/
+#  data inct (1), inct (2) /INCTYPE, EOS/
+#  data subt (1), subt (2) /SUBTYPE, EOS/
+#  data ift (1), ift (2) /IFTYPE, EOS/
+#  data art (1), art (2) /ARITHTYPE, EOS/
+#  data ifdft (1), ifdft (2) /IFDEFTYPE, EOS/
+#  data ifndt (1), ifndt (2) /IFNOTDEFTYPE, EOS/
+
+   call ulstal (defnam, deft)
+   call ulstal (prgnam, prag)
+#  call ulstal (macnam, mact)
+#  call ulstal (incnam, inct)
+#  call ulstal (subnam, subt)
+#  call ulstal (ifnam, ift)
+#  call ulstal (arnam, art)
+#  call ulstal (ifdfnm, ifdft)
+#  call ulstal (ifndnm, ifndt)
+
+return
+end