+/* Copyright (c) 1979 Regents of the University of California */
+
+/* static char sccsid[] = "@(#)vars.h 1.1 %G%"; */
+
+#include <stdio.h>
+
+/*
+ * px - Berkeley Pascal interpreter
+ *
+ * Version 4.0, January 1981
+ *
+ * Original version by Ken Thompson
+ *
+ * Substantial revisions by Bill Joy and Chuck Haley
+ * November-December 1976
+ *
+ * Rewritten for VAX 11/780 by Kirk McKusick
+ * Fall 1978
+ *
+ * Rewritten in ``C'' using libpc by Kirk McKusick
+ * Winter 1981
+ *
+ * Px is described in detail in the "PX 4.0 Implementation Notes"
+ * The source code for px is in several major pieces:
+ *
+ * int.c C main program which reads in interpreter code
+ * interp.c Driver including main interpreter loop and
+ * the interpreter instructions grouped by their
+ * positions in the interpreter table.
+ * except.c Handlers for interpreter specific errors not
+ * included in libpc.
+ * utilities.c Interpreter exit, backtrace, and runtime statistics.
+ *
+ * In addition there are several headers defining mappings for panic
+ * names into codes, and a definition of the interpreter transfer
+ * table. These are made by the script make.ed1 in this directory and
+ * the routine opc.c from ${PASCALDIR}. (see the makefile for details)
+ */
+#define PXPFILE "pmon.out"
+#define BITSPERBYTE 8
+#define BITSPERLONG (BITSPERBYTE * sizeof(long))
+#define HZ 60
+#define TRUE 1
+#define FALSE 0
+#define MAXLVL 20
+#define NAMSIZ 76
+#define MAXFILES 32
+#define PREDEF 2
+#define STDLVL ((struct iorec *)(0x7ffffff1))
+#define GLVL ((struct iorec *)(0x7ffffff0))
+#define FILNIL ((struct iorec *)(0))
+#define INPUT ((struct iorec *)(&input))
+#define OUTPUT ((struct iorec *)(&output))
+#define ERR ((struct iorec *)(&_err))
+#define PX 0 /* normal run of px */
+#define PIX 1 /* load and go */
+#define PIPE 2 /* bootstrap via a pipe */
+#define releq 0
+#define relne 1
+#define rellt 2
+#define relgt 3
+#define relle 4
+#define relge 5
+
+/*
+ * interrupt and allocation routines
+ */
+extern long createtime;
+extern char *PALLOC();
+extern char *malloc();
+extern intr();
+extern memsize();
+extern except();
+extern syserr();
+extern liberr();
+
+/*
+ * stack routines
+ */
+extern short pop2();
+extern long pop4();
+extern double pop8();
+extern char *pushsp();
+
+/*
+ * emulated pc types
+ */
+union progcntr {
+ char *cp;
+ unsigned char *ucp;
+ short *sp;
+ unsigned short *usp;
+ long *lp;
+ double *dp;
+ struct hdr *hdrp;
+};
+\f
+/*
+ * THE RUNTIME DISPLAY
+ *
+ * The entries in the display point to the active static block marks.
+ * The first entry in the display is for the global variables,
+ * then the procedure or function at level one, etc.
+ * Each display entry points to a stack frame as shown:
+ *
+ * base of stack frame
+ * ---------------
+ * | |
+ * | block mark |
+ * | |
+ * --------------- <-- display entry points here
+ * | |
+ * | local |
+ * | variables |
+ * | |
+ * ---------------
+ * | |
+ * | expression |
+ * | temporary |
+ * | storage |
+ * | |
+ * - - - - - - - -
+ *
+ * The information in the block mark is thus at positive offsets from
+ * the display pointer entries while the local variables are at negative
+ * offsets. The block mark actually consists of two parts. The first
+ * part is created at CALL and the second at entry, i.e. BEGIN. Thus:
+ *
+ * -------------------------
+ * | |
+ * | Saved lino |
+ * | Saved lc |
+ * | Saved dp |
+ * | |
+ * -------------------------
+ * | |
+ * | Saved (dp) |
+ * | |
+ * | Current section name |
+ * | and entry line ptr |
+ * | |
+ * | Saved file name and |
+ * | file buffer ptr |
+ * | |
+ * | Empty tos value |
+ * | |
+ * -------------------------
+ */
+\f
+/*
+ * runtime display structure
+ */
+struct disp {
+ char *locvars; /* pointer to local variables */
+ struct stack *stp; /* pointer to local stack frame */
+};
+
+struct stack {
+ char *tos; /* pointer to top of stack frame */
+ struct iorec *file; /* pointer to active file name */
+ struct hdr {
+ long framesze; /* number of bytes of local vars */
+ long nargs; /* number of bytes of arguments */
+ short offset; /* offset of procedure in source file */
+ char name[1]; /* name of active procedure */
+ } *entry;
+ struct disp odisp; /* previous display value for this level */
+ struct disp *dp; /* pointer to active display entry */
+ union progcntr pc; /* previous location counter */
+ long lino; /* previous line number */
+};
+
+/*
+ * formal routine structure
+ */
+struct formalrtn {
+ char *entryaddr;
+ long cbn;
+ struct disp disp[2*MAXLVL];
+};
+
+/*
+ * program variables
+ */
+extern struct disp _display[MAXLVL]; /* runtime display */
+extern struct disp *_dp; /* runtime display */
+extern long _lino; /* current line number */
+extern int _argc; /* number of passed args */
+extern char **_argv; /* values of passed args */
+extern long _nodump; /* 1 => no post mortum dump */
+extern long _mode; /* execl by PX, PIPE, or PIX */
+extern long _stlim; /* statement limit */
+extern long _stcnt; /* statement count */
+extern char *_maxptr; /* maximum valid pointer */
+extern char *_minptr; /* minimum valid pointer */
+extern long *_pcpcount; /* pointer to pxp buffer */
+extern long _cntrs; /* number of counters */
+extern long _rtns; /* number of routine cntrs */
+
+/*
+ * The file i/o routines maintain a notion of a "current file".
+ * A pointer to this file structure is kept in "curfile".
+ *
+ * file structures
+ */
+struct iorechd {
+ char *fileptr; /* ptr to file window */
+ long lcount; /* number of lines printed */
+ long llimit; /* maximum number of text lines */
+ FILE *fbuf; /* FILE ptr */
+ struct iorec *fchain; /* chain to next file */
+ struct iorec *flev; /* ptr to associated file variable */
+ char *pfname; /* ptr to name of file */
+ short funit; /* file status flags */
+ short fblk; /* index into active file table */
+ long fsize; /* size of elements in the file */
+ char fname[NAMSIZ]; /* name of associated UNIX file */
+};
+
+struct iorec {
+ char *fileptr; /* ptr to file window */
+ long lcount; /* number of lines printed */
+ long llimit; /* maximum number of text lines */
+ FILE *fbuf; /* FILE ptr */
+ struct iorec *fchain; /* chain to next file */
+ struct iorec *flev; /* ptr to associated file variable */
+ char *pfname; /* ptr to name of file */
+ short funit; /* file status flags */
+ short fblk; /* index into active file table */
+ long fsize; /* size of elements in the file */
+ char fname[NAMSIZ]; /* name of associated UNIX file */
+ char buf[BUFSIZ]; /* I/O buffer */
+ char window[1]; /* file window element */
+};
+
+/*
+ * unit flags
+ */
+#define FDEF 0x80 /* 1 => reserved file name */
+#define FTEXT 0x40 /* 1 => text file, process EOLN */
+#define FWRITE 0x20 /* 1 => open for writing */
+#define FREAD 0x10 /* 1 => open for reading */
+#define TEMP 0x08 /* 1 => temporary file */
+#define SYNC 0x04 /* 1 => window is out of sync */
+#define EOLN 0x02 /* 1 => at end of line */
+#define EOFF 0x01 /* 1 => at end of file */
+
+/*
+ * file routines
+ */
+extern struct iorec *GETNAME();
+extern char *MKTEMP();
+
+/*
+ * file record variables
+ */
+extern struct iorechd _fchain; /* head of active file chain */
+extern struct iorec *_actfile[]; /* table of active files */
+extern long _filefre; /* last used entry in _actfile */
+
+/*
+ * standard files
+ */
+extern struct iorechd input;
+extern struct iorechd output;
+extern struct iorechd _err;
+\f
+#ifdef profile
+/*
+ * Px execution profile data
+ */
+#define numops 256
+struct cntrec {
+ double counts[numops]; /* instruction counts */
+ long runs; /* number of interpreter runs */
+ long startdate; /* date profile started */
+ long usrtime; /* total user time consumed */
+ long systime; /* total system time consumed */
+ double stmts; /* number of pascal statements executed */
+ } profdata;
+long profcnts[numops];
+#define proffile "/usr/grad/mckusick/px/profile/pcnt.out"
+FILE *datafile; /* input datafiles */
+#else
+int profcnts; /* dummy just to keep the linker happy */
+#endif
projects / unix-history / commitdiff