1 files changed, 94 insertions, 0 deletions
diff --git a/unix/boot/spp/xpp/xpp.h b/unix/boot/spp/xpp/xpp.h
new file mode 100644
index 00000000..2fde825d
--- /dev/null
+++ b/unix/boot/spp/xpp/xpp.h
@@ -0,0 +1,94 @@
+/*  XPP error codes.
+ */
+#define	XPP_OK  	OSOK		/* no problems */
+#define	XPP_COMPERR	101		/* compiler error */
+#define	XPP_BADXFILE	102		/* cannot open .x file */
+#define	XPP_SYNTAX	104		/* language error */
+
+
+
+#define F77                     /* Fortran 77 target compiler?          */
+
+#define IRAFLIB         "iraf$lib/"
+#define HOSTLIB         "host$hlib/"
+#define HBIN_INCLUDES   "hbin$arch_includes/"
+
+
+/* Size limiting definitions.
+ */
+#define MAX_TASKS       100     /* max no. of tasks we can handle       */
+#define SZ_OBUF         131072  /* buffers procedure body               */
+#define SZ_DBUF         8192    /* for errchk, common, ect. decls       */
+#define SZ_SBUF         8192    /* buffers text of strings              */
+#define MAX_STRINGS     256     /* max strings in a procedure           */
+#define MAX_INCLUDE     5       /* maximum nesting of includes          */
+#define MIN_REALPREC    7       /* used by HMS                          */
+#define SZ_NUMBUF       32      /* for numeric constants                */
+#define SZ_STBUF        4096    /* text of defined strings              */
+#define MAX_DEFSTR      128     /* max defined strings                  */
+
+#define RUNTASK         "sysruk.x"
+#define OCTAL           8
+#define DECIMAL         10
+#define HEX             16
+#define CHARCON         1
+#define SEXAG           2
+
+
+/* Contexts.
+ */
+#define	GLOBAL		01
+#define	DECL		02
+#define	BODY		04
+#define	DEFSTMT		010
+#define	DATASTMT	020
+#define	PROCSTMT	040
+
+/* String type codes.
+ */
+#define	STR_INLINE	0
+#define	STR_DEFINE	1
+#define	STR_DECL	2
+
+/* SPP keywords.  The datatype keywords bool through pointer must be assigned
+ * the lowest numbers.
+ */ 
+#define	XTY_BOOL	1
+#define	XTY_CHAR	2
+#define	XTY_SHORT	3
+#define	XTY_INT		4
+#define	XTY_LONG	5
+#define	XTY_REAL	6
+#define	XTY_DOUBLE	7
+#define	XTY_COMPLEX	8
+#define	XTY_POINTER	9
+#define	XTY_PROC	10
+#define	XTY_TRUE	11
+#define	XTY_FALSE	12
+#define	XTY_IFERR	13
+#define	XTY_IFNOERR	14
+#define XTY_EXTERN	15
+#define XTY_ERROR	16
+#define	MAX_KEY		16
+
+/* RPP type keywords (must match type codes above).
+ */
+#define	RPP_TYPES {\
+	"",\
+	"x$bool",\
+	"x$short", 	/* MACHDEP */\
+	"x$short",\
+	"x$int",\
+	"x$long",\
+	"x$real",\
+	"x$dble",\
+	"x$cplx",\
+	"x$pntr",\
+	"x$fcn",\
+	".true.",\
+	".false.",\
+	"iferr",\
+	"ifnoerr",\
+	"x$extn",\
+	"error"\
+}