Annotation of 41BSD/lib/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: #define TYUNKNOWN 0
                      9: #define TYADDR 1
                     10: #define TYSHORT 2
                     11: #define TYLONG 3
                     12: #define TYREAL 4
                     13: #define TYDREAL 5
                     14: #define TYCOMPLEX 6
                     15: #define TYDCOMPLEX 7
                     16: #define TYLOGICAL 8
                     17: #define TYCHAR 9
                     18: #define TYSUBR 10
                     19: #define TYERROR 11
                     20: 
                     21: #define NTYPES (TYERROR+1)
                     22:  
                     23: #define        LINTW   12
                     24: #define        LINE    80
                     25: #define        LLOGW   2
                     26: #define        LLOW    1.0
                     27: #define        LHIGH   10.0
                     28: #define        LFW     12
                     29: #define        LFD     8
                     30: #define        LEW     16
                     31: #define        LED     9
                     32: #define        LEE     2
                     33: 
                     34: typedef union
                     35: {      short   flshort;
                     36:        ftnint  flint;
                     37:        float   flreal;
                     38:        double  fldouble;
                     39: } flex;
                     40: extern int scale;
                     41: extern int (*lioproc)();

unix.superglobalmegacorp.com

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