|
|
1.1 ! root 1: /* ! 2: * This header file contains definitions used by the stream routines ! 3: * for UDI, COHERENT, VAX/VMS, GEMDOS, and MSDOS versions of the compiler. ! 4: */ ! 5: ! 6: #ifdef UDI ! 7: /* ! 8: * UDI (Series III, RMX). ! 9: */ ! 10: #define SRMODE "rb" ! 11: #define SWMODE "wb" ! 12: #define SUMODE "r+w+b" ! 13: ! 14: #if RUNNING_LARGE ! 15: #define pget() ((char *)lget()) ! 16: #define pput(p) lput((p)) ! 17: #else ! 18: #define pget() ((char *)iget()) ! 19: #define pput(p) iput((p)) ! 20: #endif ! 21: ! 22: extern ival_t iget(); ! 23: extern lval_t lget(); ! 24: extern void dget(); ! 25: #endif ! 26: ! 27: #ifdef COHERENT ! 28: /* ! 29: * Coherent (many machines). ! 30: */ ! 31: #define SRMODE "r" ! 32: #define SWMODE "w" ! 33: #define SUMODE "r+w" ! 34: ! 35: #if RUNNING_LARGE ! 36: #define pget() ((char *)lget()) ! 37: #define pput(p) lput(p) ! 38: #else ! 39: #define pget() ((char *)iget()) ! 40: #define pput(p) iput((p)) ! 41: #endif ! 42: ! 43: extern ival_t iget(); ! 44: extern lval_t lget(); ! 45: extern void dget(); ! 46: #endif ! 47: ! 48: #ifdef vax ! 49: /* ! 50: * VAX/VMS. ! 51: */ ! 52: #define SRMODE "r" ! 53: #define SWMODE "w" ! 54: #define SUMODE "r+w" ! 55: ! 56: #define pget() ((char *)lget()) ! 57: #define pput(p) lput((p)) ! 58: ! 59: extern ival_t iget(); ! 60: extern lval_t lget(); ! 61: extern int dget(); ! 62: #endif ! 63: ! 64: #ifdef GEMDOS ! 65: /* ! 66: * GEMDOS for the Atari ST. ! 67: */ ! 68: #define SRMODE "rb" ! 69: #define SWMODE "wb" ! 70: #define SUMODE "rwb" ! 71: ! 72: #define pget() ((char *)lget()) ! 73: #define pput(p) lput(p) ! 74: #undef getc ! 75: #define getc bingetc ! 76: #undef putc ! 77: #define putc binputc ! 78: ! 79: ! 80: extern ival_t iget(); ! 81: extern lval_t lget(); ! 82: extern void dget(); ! 83: #endif ! 84: ! 85: #ifdef MSDOS ! 86: #define SRMODE "rb" ! 87: #define SWMODE "wb" ! 88: #define SUMODE "rwb" ! 89: ! 90: #if RUNNING_LARGE ! 91: #define pget() ((char *)lget()) ! 92: #define pput(p) lput((p)) ! 93: #else ! 94: #define pget() ((char *)iget()) ! 95: #define pput(p) iput((p)) ! 96: #endif ! 97: ! 98: extern ival_t iget(); ! 99: extern lval_t lget(); ! 100: extern void dget(); ! 101: #endif ! 102: ! 103: /* ! 104: * The following definitions are required if the compiler uses ! 105: * memory buffers instead of disk files for temporaries. ! 106: * Currently, the VAX version uses 512K memory buffers by default; ! 107: * other versions use 0K memory buffers (i.e. disk temp files) by default. ! 108: */ ! 109: #if TEMPBUF ! 110: extern unsigned char *inbuf, *inbufp, *inbufmax; ! 111: extern unsigned char *outbuf, *outbufp, *outbufmax; ! 112: extern unsigned tempsize; ! 113: #ifdef vax ! 114: #define TEMPSIZE 524288 /* default memory buffer size */ ! 115: #else ! 116: #define TEMPSIZE 0 ! 117: #endif ! 118: #endif ! 119: ! 120: #if SIZEOF_LARGE /* ie, sizeof_t != ival_t */ ! 121: #define zget() ((sizeof_t)lget()) ! 122: #define zput(z) lput(z) ! 123: #else ! 124: #define zget() ((sizeof_t)iget()) ! 125: #define zput(z) iput((ival_t)z) ! 126: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.