Initial commit

1 files changed, 44 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/rpprat/Makefile b/unix/boot/spp/rpp/rpprat/Makefile
new file mode 100644
index 00000000..b09289f7
--- /dev/null
+++ b/unix/boot/spp/rpp/rpprat/Makefile
@@ -0,0 +1,44 @@
+# Ratfor source for the SPP preprocessor.  A TOOLS compatible ratfor compiler
+# is required to compile this.  The original UNIX ratfor compiler may not do
+# the job.
+
+.r.f:
+	/usr/local/bin/ratfor $*.r > $*.f
+
+SRCS=	addchr.r allblk.r alldig.r baderr.r balpar.r beginc.r brknxt.r\
+	cascod.r caslab.r declco.r deftok.r doarth.r docode.r doif.r\
+	doincr.r domac.r dostat.r dosub.r eatup.r elseif.r endcod.r\
+	entdef.r entdkw.r entfkw.r entrkw.r entxkw.r errchk.r errgo.r\
+	errorc.r evalr.r finit.r forcod.r fors.r getdef.r gettok.r\
+	gnbtok.r gocode.r gtok.r ifcode.r iferrc.r ifgo.r ifparm.r\
+	indent.r initkw.r labelc.r labgen.r lex.r litral.r lndict.r\
+	ludef.r mapid.r ngetch.r ogotos.r otherc.r outch.r outcon.r\
+	outdon.r outdwe.r outgo.r outnum.r outstr.r outtab.r parse.r\
+	pbnum.r pbstr.r poicod.r push.r putbak.r putchr.r puttok.r\
+	ratfor.r relate.r repcod.r retcod.r sdupl.r skpblk.r squash.r\
+	strdcl.r swcode.r swend.r swvar.r synerr.r thenco.r ulstal.r\
+	uniqid.r unstak.r untils.r whilec.r whiles.r
+
+FORT=	addchr.f allblk.f alldig.f baderr.f balpar.f beginc.f brknxt.f\
+	cascod.f caslab.f declco.f deftok.f doarth.f docode.f doif.f\
+	doincr.f domac.f dostat.f dosub.f eatup.f elseif.f endcod.f\
+	entdef.f entdkw.f entfkw.f entrkw.f entxkw.f errchk.f errgo.f\
+	errorc.f evalr.f finit.f forcod.f fors.f getdef.f gettok.f\
+	gnbtok.f gocode.f gtok.f ifcode.f iferrc.f ifgo.f ifparm.f\
+	indent.f initkw.f labelc.f labgen.f lex.f litral.f lndict.f\
+	ludef.f mapid.f ngetch.f ogotos.f otherc.f outch.f outcon.f\
+	outdon.f outdwe.f outgo.f outnum.f outstr.f outtab.f parse.f\
+	pbnum.f pbstr.f poicod.f push.f putbak.f putchr.f puttok.f\
+	ratfor.f relate.f repcod.f retcod.f sdupl.f skpblk.f squash.f\
+	strdcl.f swcode.f swend.f swvar.f synerr.f thenco.f ulstal.f\
+	uniqid.f unstak.f untils.f whilec.f whiles.f
+
+# NOTE -- After regenerating the fortran CASLAB.F, comment out the unreachable
+# goto on line 32, generated due to a bug in the ratfor.
+
+fort:	$(SRCS) common defs
+	make fsrc; mv *.f ../rppfor; touch fort
+	(cd ../rppfor; sed -e 's/      goto 23012/c     goto 23012/'\
+	< caslab.f > temp; mv temp caslab.f)
+
+fsrc:	$(FORT)