Return to lio.h CVS log

Up to [Research Unix] / researchv10no / libI77 / old

Annotation of researchv10no/libI77/old/lio.h, revision 1.1

1.1     ! root        1: /*     @(#)lio.h       1.2     */
        !             2: /*     3.0 SID #       1.2     */
        !             3: /*     copy of ftypes from the compiler */
        !             4: /* variable types
        !             5:  * numeric assumptions:
        !             6:  *     int < reals < complexes
        !             7:  *     TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
        !             8:  */
        !             9: 
        !            10: #define TYUNKNOWN 0
        !            11: #define TYADDR 1
        !            12: #define TYSHORT 2
        !            13: #define TYLONG 3
        !            14: #define TYREAL 4
        !            15: #define TYDREAL 5
        !            16: #define TYCOMPLEX 6
        !            17: #define TYDCOMPLEX 7
        !            18: #define TYLOGICAL 8
        !            19: #define TYCHAR 9
        !            20: #define TYSUBR 10
        !            21: #define TYERROR 11
        !            22: 
        !            23: #define NTYPES (TYERROR+1)
        !            24:  
        !            25: #define        LINTW   12
        !            26: #define        LINE    80
        !            27: #define        LLOGW   2
        !            28: #define        LLOW    1.0
        !            29: #define        LHIGH   10.0
        !            30: #define        LFW     12
        !            31: #define        LFD     8
        !            32: #define        LEW     17
        !            33: #define        LED     9
        !            34: #define        LEE     2
        !            35: 
        !            36: typedef union
        !            37: {      short   flshort;
        !            38:        ftnint  flint;
        !            39:        float   flreal;
        !            40:        double  fldouble;
        !            41: } flex;
        !            42: extern int scale;
        !            43: extern int (*lioproc)();

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