date and time created 82/01/18 19:02:35 by linton

SCCS-vsn: usr.bin/pascal/pdx/defs.h 1.1

diff --git a/usr/src/usr.bin/pascal/pdx/defs.h b/usr/src/usr.bin/pascal/pdx/defs.h
new file mode 100644 (file)
index 0000000..5e05265
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pdx/defs.h
@@ -0,0 +1,82 @@
+/* Copyright (c) 1982 Regents of the University of California */
+
+static char sccsid[] = "@(#)defs.h 1.1 %G%";
+
+/*
+ * Global debugger defines.
+ *
+ * All files include this header.
+ */
+
+#include <stdio.h>
+
+/*
+ * Since C does not allow forward referencing of types,
+ * all the global types are declared here.
+ */
+
+#define LOCAL static
+#define NIL 0
+
+typedef int BOOLEAN;
+
+#define FALSE 0
+#define TRUE 1
+
+typedef unsigned int ADDRESS;          /* object code addresses */
+typedef short LINENO;                  /* source file line numbers */
+typedef struct sym SYM;                        /* symbol information structure */
+typedef struct symtab SYMTAB;          /* symbol table */
+typedef struct node NODE;              /* expression tree node */
+typedef short OP;                      /* tree operator */
+typedef struct opinfo OPINFO;          /* tree operator information table */
+typedef unsigned int WORD;             /* machine word */
+typedef unsigned char BYTE;            /* machine byte */
+typedef struct frame FRAME;            /* runtime activation record */
+
+/*
+ * Definitions of standard C library routines that aren't in the
+ * standard I/O library, but which are generally useful.
+ */
+
+extern long atol();            /* ascii to long */
+extern double atof();          /* ascii to floating point */
+extern char *mktemp();         /* make a temporary file name */
+
+/*
+ * Definitions of library routines.
+ */
+
+char *cmdname;                 /* name of command for error messages */
+char *errfilename;             /* current file associated with error */
+short errlineno;               /* line number associated with error */
+
+error();                       /* print an error message */
+panic();                       /* print error message and exit */
+short numerrors();             /* return number of errors since last call */
+
+/*
+ * defintions for doing memory allocation
+ */
+
+extern char *malloc();
+
+#define alloc(n, type) ((type *) malloc((unsigned) (n) * sizeof(type)))
+#define dispose(p)     { free((char *) p); p = NIL; }
+
+/*
+ * macros for doing freads + fwrites
+ */
+
+#define get(fp, var)   fread((char *) &(var), sizeof(var), 1, fp)
+#define put(fp, var)   fwrite((char *) &(var), sizeof(var), 1, fp)
+
+/*
+ * string definitions
+ */
+
+extern char *strcpy();
+extern int strlen();
+
+#define strdup(s)              strcpy(malloc((unsigned) strlen(s) + 1), s)
+#define streq(s1, s2)  (strcmp(s1, s2) == 0)