|
|
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.