BSD 4_3_Tahoe development

Work on file usr/src/usr.bin/f77/f77.tahoe/f77pass1/tokens
Work on file usr/src/usr.bin/f77/f77.tahoe/f77pass1/tahoex.c

Synthesized-from: CSRG/cd2/4.3tahoe

diff --git a/usr/src/usr.bin/f77/f77.tahoe/f77pass1/tahoex.c b/usr/src/usr.bin/f77/f77.tahoe/f77pass1/tahoex.c
new file mode 100644 (file)
index 0000000..4504def
--- /dev/null
+++ b/usr/src/usr.bin/f77/f77.tahoe/f77pass1/tahoex.c
@@ -0,0 +1,42 @@
+#include <stdio.h>
+#include "../include/defines.h"
+#include "../include/machdefs.h"
+
+
+
+prchars(fp, s)
+FILEP fp;
+int *s;
+{
+
+fprintf(fp, ".byte 0%o,0%o\n", s[0], s[1]);
+}
+
+
+
+pruse(fp, s)
+FILEP fp;
+char *s;
+{
+fprintf(fp, "\t%s\n", s);
+}
+
+
+
+prskip(fp, k)
+FILEP fp;
+ftnint k;
+{
+fprintf(fp, "\t.space\t%ld\n", k);
+}
+
+
+
+
+
+prcomblock(fp, name)
+FILEP fp;
+char *name;
+{
+fprintf(fp, LABELFMT, name);
+}

diff --git a/usr/src/usr.bin/f77/f77.tahoe/f77pass1/tokens b/usr/src/usr.bin/f77/f77.tahoe/f77pass1/tokens
new file mode 100644 (file)
index 0000000..1f59a43
--- /dev/null
+++ b/usr/src/usr.bin/f77/f77.tahoe/f77pass1/tokens
@@ -0,0 +1,97 @@
+SEOS
+SCOMMENT
+SLABEL
+SUNKNOWN
+SHOLLERITH
+SSTRING
+SICON
+SRCON
+SDCON
+SBITCON
+SOCTCON
+SHEXCON
+STRUE
+SFALSE
+SNAME
+SNAMEEQ
+SFIELD
+SSCALE
+SINCLUDE
+SLET
+SASSIGN
+SAUTOMATIC
+SBACKSPACE
+SBLOCK
+SCALL
+SCHARACTER
+SCLOSE
+SCOMMON
+SCOMPLEX
+SCONTINUE
+SDATA
+SDCOMPLEX
+SDIMENSION
+SDO
+SDOUBLE
+SELSE
+SELSEIF
+SEND
+SENDFILE
+SENDIF
+SENTRY
+SEQUIV
+SEXTERNAL
+SFORMAT
+SFUNCTION
+SGOTO
+SASGOTO
+SCOMPGOTO
+SARITHIF
+SLOGIF
+SIMPLICIT
+SINQUIRE
+SINTEGER
+SINTRINSIC
+SLOGICAL
+SNAMELIST
+SOPEN
+SPARAM
+SPAUSE
+SPRINT
+SPROGRAM
+SPUNCH
+SREAD
+SREAL
+SRETURN
+SREWIND
+SSAVE
+SSTATIC
+SSTOP
+SSUBROUTINE
+STHEN
+STO
+SUNDEFINED
+SWRITE
+SLPAR
+SRPAR
+SEQUALS
+SCOLON
+SCOMMA
+SCURRENCY
+SPLUS
+SMINUS
+SSTAR
+SSLASH
+SPOWER
+SCONCAT
+SAND
+SOR
+SNEQV
+SEQV
+SNOT
+SEQ
+SLT
+SGT
+SLE
+SGE
+SNE