Initial commit

1 files changed, 79 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/rpprat/common b/unix/boot/spp/rpp/rpprat/common
new file mode 100644
index 00000000..9685729a
--- /dev/null
+++ b/unix/boot/spp/rpp/rpprat/common
@@ -0,0 +1,79 @@
+#-h-  common			 2163  local   12/01/80  15:50:08
+# Common blocks used by the Ratfor preprocessor
+#     Place on a file called 'common'
+
+
+ common /cdefio/ bp, buf (BUFSIZE)
+    integer bp	       # next available character; init = 0
+    character buf      # pushed-back characters
+
+ common /cfname/ fcname (MAXNAME)
+   character fcname    # text of current function name
+
+ common /cfor/ fordep, forstk (MAXFORSTK)
+   integer fordep      # current depth of for statements
+   character forstk    # stack of reinit strings
+
+ common /cgoto/ xfer
+   integer xfer        # YES if just made transfer, NO otherwise
+
+ common /clabel/ label, retlab, memflg, col, logical_column
+   integer label       # next label returned by labgen
+   integer retlab      # label for return code at end of procedure
+   integer memflg      # set to YES after Mem common has been declared
+   integer col	       # column where output statement starts
+   integer logical_column	# col = min (maxindent, logical_column)
+
+ common /cline/ dbgout, dbglev, level, linect (NFILES), infile (NFILES),
+   fnamp, fnames (MAXFNAMES)
+   integer dbgout      # YES if debug (-g) output is desired
+   integer dbglev      # current file level for debug output
+   integer level       # level of file inclusion; init = 1
+   integer linect      # line count on input file (level); init = 1
+   integer infile      # file number (level); init infile (1) = STDIN
+   integer fnamp       # next free slot in fnames; init = 2
+   character fnames    # stack of include names; init fnames (1) = EOS
+
+ common /cmacro/ cp, ep, evalst (EVALSIZE), deftbl
+    integer cp	       # current call stack pointer
+    integer ep	       # next free position in evalst
+    character evalst   # evaluation stack
+    pointer deftbl     # symbol table holding macro names
+
+ common /coutln/ outp, outbuf (74)
+   integer outp        # last position filled in outbuf; init = 0
+   character outbuf    # output lines collected here
+
+ common /csbuf/ sbp, sbuf(SBUFSIZE), smem(SZ_SMEM)
+   integer sbp	       # next available character position; init = 1
+   character sbuf      # saved for data statements
+   character smem      # mem declaration
+
+ common /cswtch/ swtop, swlast, swstak(MAXSWITCH), swvnum, swvlev,
+		 swvstk(MAXSWNEST), swinrg
+   integer swtop       # current switch entry; init = 0
+   integer swlast      # next available position; init = 1
+   integer swstak      # switch information
+   integer swvnum      # counter for switch variable names;  init = 0
+   integer swvlev      # level pointer for nesting of switches; init = 0
+   integer swvstk      # stack for the switch variable names
+   integer swinrg      # assert swinrange - disable range checking in next sw.
+
+ common /ckword/ rkwtbl
+   pointer rkwtbl      # symbol table containing Ratfor key words
+
+ common /clname/ fkwtbl, namtbl, gentbl, errtbl, xpptbl
+   pointer fkwtbl      # a list of long Fortran keywords
+   pointer namtbl      # map of long-form names to short-form names
+   pointer gentbl      # list of generated names
+   pointer errtbl      # symbol table of names to be error checked
+   pointer xpptbl      # table of xpp directives
+
+common /erchek/ ername, body, esp, errstk(MAXERRSTK)
+   integer ername      # YES if err checked name encountered
+   integer body	       # YES when between BEGIN .. END block
+   integer esp	       # error stack pointer
+   integer errstk      # error stack (for statement labels)
+
+ DS_DECL(mem, MEMSIZE)
+#-t-  common			 2163  local   12/01/80  15:50:08