Initial commit

1 files changed, 31 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/rpp.c b/unix/boot/spp/rpp/rpp.c
new file mode 100644
index 00000000..b9215a9d
--- /dev/null
+++ b/unix/boot/spp/rpp/rpp.c
@@ -0,0 +1,31 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "ratlibc/ratdef.h"
+
+int	xargc;
+char	**xargv;
+
+extern  int INITST (void);
+extern  int RATFOR (void);
+extern  int ENDST (void);
+
+
+/* RPP -- Second pass of the SPP preprocessor.  Converts a Ratfor like
+ * input language into Fortran.  RPP differs from standard tools ratfor
+ * in a number of ways.  Its input language is the output of XPP and
+ * contains tokens not intended for use in any programming language.
+ * Support is provided for SPP language features, and the output fortran
+ * is pretty-printed.
+ */
+int main (int argc, char *argv[])
+{
+	xargc = argc;
+	xargv = argv;
+
+	INITST();
+	RATFOR();
+	ENDST();
+
+	return (0);
+}