![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vars.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / px|
Return to vars.h CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / px |
1.1 ! root 1: /* ! 2: * Copyright (c) 1980 Regents of the University of California. ! 3: * All rights reserved. The Berkeley software License Agreement ! 4: * specifies the terms and conditions for redistribution. ! 5: * ! 6: * @(#)vars.h 5.2 (Berkeley) 11/5/86 ! 7: */ ! 8: ! 9: #include <stdio.h> ! 10: ! 11: /* ! 12: * px - Berkeley Pascal interpreter ! 13: * ! 14: * Version 4.0, January 1981 ! 15: * ! 16: * Original version by Ken Thompson ! 17: * ! 18: * Substantial revisions by Bill Joy and Chuck Haley ! 19: * November-December 1976 ! 20: * ! 21: * Rewritten for VAX 11/780 by Kirk McKusick ! 22: * Fall 1978 ! 23: * ! 24: * Rewritten in ``C'' using libpc by Kirk McKusick ! 25: * Winter 1981 ! 26: * ! 27: * Px is described in detail in the "PX 4.0 Implementation Notes" ! 28: * The source code for px is in several major pieces: ! 29: * ! 30: * int.c C main program which reads in interpreter code ! 31: * interp.c Driver including main interpreter loop and ! 32: * the interpreter instructions grouped by their ! 33: * positions in the interpreter table. ! 34: * utilities.c Interpreter exit, backtrace, and runtime statistics. ! 35: * ! 36: * In addition there are several headers defining mappings for panic ! 37: * names into codes, and a definition of the interpreter transfer ! 38: * table. These are made by the script make.ed1 in this directory and ! 39: * the routine opc.c from ${PASCALDIR}. (see the makefile for details) ! 40: */ ! 41: #define PXPFILE "pmon.out" ! 42: #define BITSPERBYTE 8 ! 43: #define BITSPERLONG (BITSPERBYTE * sizeof(long)) ! 44: #define HZ 100 ! 45: #define NAMSIZ 76 ! 46: #define MAXFILES 32 ! 47: #define PREDEF 2 ! 48: #ifdef ADDR32 ! 49: #ifndef tahoe ! 50: #define STDLVL ((struct iorec *)(0x7ffffff1)) ! 51: #define GLVL ((struct iorec *)(0x7ffffff0)) ! 52: #else tahoe ! 53: #define STDLVL ((struct iorec *)(0xbffffff1)) ! 54: #define GLVL ((struct iorec *)(0xbffffff0)) ! 55: #endif tahoe ! 56: #endif ADDR32 ! 57: #ifdef ADDR16 ! 58: #define STDLVL ((struct iorec *)(0xfff1)) ! 59: #define GLVL ((struct iorec *)(0xfff0)) ! 60: #endif ADDR16 ! 61: #define FILNIL ((struct iorec *)(0)) ! 62: #define INPUT ((struct iorec *)(&input)) ! 63: #define OUTPUT ((struct iorec *)(&output)) ! 64: #define ERR ((struct iorec *)(&_err)) ! 65: #define PX 0 /* normal run of px */ ! 66: #define PIX 1 /* load and go */ ! 67: #define PIPE 2 /* bootstrap via a pipe */ ! 68: #define PDX 3 /* invoked by the debugger "pdx" */ ! 69: #define releq 0 ! 70: #define relne 2 ! 71: #define rellt 4 ! 72: #define relgt 6 ! 73: #define relle 8 ! 74: #define relge 10 ! 75: typedef enum {FALSE, TRUE} bool; ! 76: ! 77: /* ! 78: * interrupt and allocation routines ! 79: */ ! 80: extern long createtime; ! 81: extern char *PALLOC(); ! 82: extern char *malloc(); ! 83: extern long time(); ! 84: extern intr(); ! 85: extern memsize(); ! 86: extern syserr(); ! 87: extern liberr(); ! 88: ! 89: /* ! 90: * stack routines and structures ! 91: */ ! 92: struct sze8 { ! 93: char element[8]; ! 94: }; ! 95: extern short pop2(); ! 96: extern long pop4(); ! 97: extern double pop8(); ! 98: extern struct sze8 popsze8(); ! 99: extern char *pushsp(); ! 100: ! 101: /* ! 102: * emulated pc types ! 103: */ ! 104: union progcntr { ! 105: char *cp; ! 106: unsigned char *ucp; ! 107: short *sp; ! 108: unsigned short *usp; ! 109: long *lp; ! 110: double *dbp; ! 111: struct hdr *hdrp; ! 112: }; ! 113: ! 114: /* ! 115: * THE RUNTIME DISPLAY ! 116: * ! 117: * The entries in the display point to the active static block marks. ! 118: * The first entry in the display is for the global variables, ! 119: * then the procedure or function at level one, etc. ! 120: * Each display entry points to a stack frame as shown: ! 121: * ! 122: * base of stack frame ! 123: * --------------- ! 124: * | | ! 125: * | block mark | ! 126: * | | ! 127: * --------------- <-- display entry "stp" points here ! 128: * | | <-- display entry "locvars" points here ! 129: * | local | ! 130: * | variables | ! 131: * | | ! 132: * --------------- ! 133: * | | ! 134: * | expression | ! 135: * | temporary | ! 136: * | storage | ! 137: * | | ! 138: * - - - - - - - - ! 139: * ! 140: * The information in the block mark is thus at positive offsets from ! 141: * the display.stp pointer entries while the local variables are at negative ! 142: * offsets from display.locvars. The block mark actually consists of ! 143: * two parts. The first part is created at CALL and the second at entry, ! 144: * i.e. BEGIN. Thus: ! 145: * ! 146: * ------------------------- ! 147: * | | ! 148: * | Saved lino | ! 149: * | Saved lc | ! 150: * | Saved dp | ! 151: * | | ! 152: * ------------------------- ! 153: * | | ! 154: * | Saved (dp) | ! 155: * | | ! 156: * | Pointer to current | ! 157: * | routine header info | ! 158: * | | ! 159: * | Saved value of | ! 160: * | "curfile" | ! 161: * | | ! 162: * | Empty tos value | ! 163: * | | ! 164: * ------------------------- ! 165: */ ! 166: ! 167: /* ! 168: * program variables ! 169: */ ! 170: extern union display _display; /* runtime display */ ! 171: extern struct dispsave *_dp; /* ptr to active frame */ ! 172: extern long _lino; /* current line number */ ! 173: extern int _argc; /* number of passed args */ ! 174: extern char **_argv; /* values of passed args */ ! 175: extern bool _nodump; /* TRUE => no post mortum dump */ ! 176: extern long _runtst; /* TRUE => runtime tests */ ! 177: extern long _mode; /* execl by PX, PIPE, or PIX */ ! 178: extern long _stlim; /* statement limit */ ! 179: extern long _stcnt; /* statement count */ ! 180: extern long _seed; /* random number seed */ ! 181: extern char *_maxptr; /* maximum valid pointer */ ! 182: extern char *_minptr; /* minimum valid pointer */ ! 183: extern long *_pcpcount; /* pointer to pxp buffer */ ! 184: extern long _cntrs; /* number of counters */ ! 185: extern long _rtns; /* number of routine cntrs */ ! 186: ! 187: /* ! 188: * The file i/o routines maintain a notion of a "current file". ! 189: * A pointer to this file structure is kept in "curfile". ! 190: * ! 191: * file structures ! 192: */ ! 193: struct iorechd { ! 194: char *fileptr; /* ptr to file window */ ! 195: long lcount; /* number of lines printed */ ! 196: long llimit; /* maximum number of text lines */ ! 197: FILE *fbuf; /* FILE ptr */ ! 198: struct iorec *fchain; /* chain to next file */ ! 199: struct iorec *flev; /* ptr to associated file variable */ ! 200: char *pfname; /* ptr to name of file */ ! 201: short funit; /* file status flags */ ! 202: short fblk; /* index into active file table */ ! 203: long fsize; /* size of elements in the file */ ! 204: char fname[NAMSIZ]; /* name of associated UNIX file */ ! 205: }; ! 206: ! 207: struct iorec { ! 208: char *fileptr; /* ptr to file window */ ! 209: long lcount; /* number of lines printed */ ! 210: long llimit; /* maximum number of text lines */ ! 211: FILE *fbuf; /* FILE ptr */ ! 212: struct iorec *fchain; /* chain to next file */ ! 213: struct iorec *flev; /* ptr to associated file variable */ ! 214: char *pfname; /* ptr to name of file */ ! 215: short funit; /* file status flags */ ! 216: short fblk; /* index into active file table */ ! 217: long fsize; /* size of elements in the file */ ! 218: char fname[NAMSIZ]; /* name of associated UNIX file */ ! 219: char buf[BUFSIZ]; /* I/O buffer */ ! 220: char window[1]; /* file window element */ ! 221: }; ! 222: ! 223: /* ! 224: * unit flags ! 225: */ ! 226: #define FDEF 0x80 /* 1 => reserved file name */ ! 227: #define FTEXT 0x40 /* 1 => text file, process EOLN */ ! 228: #define FWRITE 0x20 /* 1 => open for writing */ ! 229: #define FREAD 0x10 /* 1 => open for reading */ ! 230: #define TEMP 0x08 /* 1 => temporary file */ ! 231: #define SYNC 0x04 /* 1 => window is out of sync */ ! 232: #define EOLN 0x02 /* 1 => at end of line */ ! 233: #define EOFF 0x01 /* 1 => at end of file */ ! 234: ! 235: /* ! 236: * file routines ! 237: */ ! 238: extern struct iorec *GETNAME(); ! 239: extern char *MKTEMP(); ! 240: ! 241: /* ! 242: * file record variables ! 243: */ ! 244: extern struct iorechd _fchain; /* head of active file chain */ ! 245: extern struct iorec *_actfile[]; /* table of active files */ ! 246: extern long _filefre; /* last used entry in _actfile */ ! 247: ! 248: /* ! 249: * standard files ! 250: */ ! 251: extern struct iorechd input; ! 252: extern struct iorechd output; ! 253: extern struct iorechd _err; ! 254: ! 255: /* ! 256: * Px execution profile array ! 257: */ ! 258: #ifdef PROFILE ! 259: #define NUMOPS 256 ! 260: extern long _profcnts[NUMOPS]; ! 261: #endif PROFILE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.