Return to lio.h CVS log

Up to [Research Unix] / researchv10dc / libI77

Annotation of researchv10dc/libI77/lio.h, revision 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.