[unix-history] / usr / src / libI77 / lio.h

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

#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 TYERROR 11

#define NTYPES (TYERROR+1)
 
#define	LINTW	12
#define	LINE	80
#define	LLOGW	2
#define	LLOW	1.0
#define	LHIGH	10.0
#define	LFW	12
#define	LFD	8
#define	LEW	16
#define	LED	9
#define	LEE	2

typedef union
{	short	flshort;
	ftnint	flint;
	float	flreal;
	double	fldouble;
} flex;
extern int scale;
extern int (*lioproc)();
Commit	Line	Data
8662e665 PW	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)();