|
|
1.1 root 1:
2: /* variable types
3: * numeric assumptions:
4: * int < reals < complexes
5: * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
6: */
7:
8: #define TYUNKNOWN 0
9: #define TYADDR 1
10: #define TYSHORT 2
11: #define TYLONG 3
12: #define TYREAL 4
13: #define TYDREAL 5
14: #define TYCOMPLEX 6
15: #define TYDCOMPLEX 7
16: #define TYLOGICAL 8
17: #define TYCHAR 9
18: #define TYSUBR 10
19: #define TYERROR 11
20:
21: #define NTYPES (TYERROR+1)
22: #define TYBLANK TYSUBR
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.