lio.h

Go to the documentation of this file.

/*      copy of ftypes from the compiler */
/* variable types
 * numeric assumptions:
 *      int < reals < complexes
 *      TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
 */

/* 0-10 retain their old (pre LOGICAL*1, etc.) */
/* values to allow mixing old and new objects. */

#define TYUNKNOWN 0
#define TYADDR 1
#define TYSHORT 2
#define TYLONG 3
#define TYREAL 4
#define TYDREAL 5
#define TYCOMPLEX 6
#define TYDCOMPLEX 7
#define TYLOGICAL 8
#define TYCHAR 9
#define TYSUBR 10
#define TYINT1 11
#define TYLOGICAL1 12
#define TYLOGICAL2 13
#ifdef Allow_TYQUAD
#undef TYQUAD
#define TYQUAD 14
#endif

#define LINTW   24
#define LINE    80
#define LLOGW   2
#ifdef Old_list_output
#define LLOW    1.0
#define LHIGH   1.e9
#define LEFMT   " %# .8E"
#define LFFMT   " %# .9g"
#else
#define LGFMT   "%.9G"
#endif
/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
#define LEFBL   24

typedef union
{
        char    flchar;
        short   flshort;
        ftnint  flint;
#ifdef Allow_TYQUAD
        longint fllongint;
#endif
        real    flreal;
        doublereal      fldouble;
} flex;
#ifdef KR_headers
extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
extern int l_read(), l_write();
#else
#ifdef __cplusplus
extern "C" {
#endif
extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
extern int l_write(ftnint*, char*, ftnlen, ftnint);
extern void x_wsne(cilist*);
extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*);
extern int l_read(ftnint*,char*,ftnlen,ftnint);
extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*);
extern int z_rnew(void);
#endif
extern ftnint L_len;
extern int f__scale;
#ifdef __cplusplus
        }
#endif