Return to lio.h CVS log

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

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