projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| bae7117f WH |
1 | /* copy of ftypes from the compiler */ |
| 2 | /* variable types | |
| 3 | * numeric assumptions: | |
| 4 | * int < reals < complexes | |
| 5 | * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX | |
| 6 | */ | |
| 7 | ||
| 8 | /* 0-10 retain their old (pre LOGICAL*1, etc.) */ | |
| 9 | /* values to allow mixing old and new objects. */ | |
| 10 | ||
| 11 | #define TYUNKNOWN 0 | |
| 12 | #define TYADDR 1 | |
| 13 | #define TYSHORT 2 | |
| 14 | #define TYLONG 3 | |
| 15 | #define TYREAL 4 | |
| 16 | #define TYDREAL 5 | |
| 17 | #define TYCOMPLEX 6 | |
| 18 | #define TYDCOMPLEX 7 | |
| 19 | #define TYLOGICAL 8 | |
| 20 | #define TYCHAR 9 | |
| 21 | #define TYSUBR 10 | |
| 22 | #define TYINT1 11 | |
| 23 | #define TYLOGICAL1 12 | |
| 24 | #define TYLOGICAL2 13 | |
| 25 | #ifdef Allow_TYQUAD | |
| 26 | #define TYQUAD 14 | |
| 27 | #endif | |
| 28 | ||
| 29 | #define LINTW 24 | |
| 30 | #define LINE 80 | |
| 31 | #define LLOGW 2 | |
| 32 | #ifdef Old_list_output | |
| 33 | #define LLOW 1.0 | |
| 34 | #define LHIGH 1.e9 | |
| 35 | #define LEFMT " %# .8E" | |
| 36 | #define LFFMT " %# .9g" | |
| 37 | #else | |
| 38 | #define LGFMT "%.9G" | |
| 39 | #endif | |
| 40 | /* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */ | |
| 41 | #define LEFBL 24 | |
| 42 | ||
| 43 | typedef union | |
| 44 | { | |
| 45 | char flchar; | |
| 46 | short flshort; | |
| 47 | ftnint flint; | |
| 48 | #ifdef Allow_TYQUAD | |
| 49 | longint fllongint; | |
| 50 | #endif | |
| 51 | real flreal; | |
| 52 | doublereal fldouble; | |
| 53 | } flex; | |
| 54 | extern int f__scale; | |
| 55 | #ifdef KR_headers | |
| 56 | extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)(); | |
| 57 | extern int l_read(), l_write(); | |
| 58 | #else | |
| 59 | #ifdef __cplusplus | |
| 60 | extern "C" { | |
| 61 | #endif | |
| 62 | extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint); | |
| 63 | extern int l_write(ftnint*, char*, ftnlen, ftnint); | |
| 64 | extern void x_wsne(cilist*); | |
| 65 | extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*); | |
| 66 | extern int l_read(ftnint*,char*,ftnlen,ftnint); | |
| 67 | extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*); | |
| 68 | extern int z_rnew(void); | |
| 69 | #ifdef __cplusplus | |
| 70 | } | |
| 71 | #endif | |
| 72 | #endif | |
| 73 | extern ftnint L_len; |