Return to lio.h CVS log

Up to [Research Unix] / researchv10dc / libI77

Annotation of researchv10dc/libI77/lio.h, revision 1.1.1.1

1.1       root        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;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.