From 2ea103e6fa9a400c56ef8e095682779d8e9037ee Mon Sep 17 00:00:00 2001
From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Thu, 19 Feb 1981 02:02:30 -0800
Subject: [PATCH] date and time created 81/02/18 18:02:30 by dlw

SCCS-vsn: usr.bin/f77/libI77/lio.h 1.1
---
 usr/src/usr.bin/f77/libI77/lio.h | 60 ++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 usr/src/usr.bin/f77/libI77/lio.h

diff --git a/usr/src/usr.bin/f77/libI77/lio.h b/usr/src/usr.bin/f77/libI77/lio.h
new file mode 100644
index 0000000000..336740bcc0
--- /dev/null
+++ b/usr/src/usr.bin/f77/libI77/lio.h
@@ -0,0 +1,60 @@
+/*
+char id_lio[] = "@(#)lio.h	1.1";
+ *
+ * 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	LINE	80
+#define LINTW	(strlen(buf))
+#define	LLOGW	3
+#define LSTRW	(len+2)
+#define	LLOW	1.0e-1
+#define	LHIGH	1.0e+LFD
+#define LDHIGH	1.0e+LDFD
+#define	LFD	6
+#define	LFW	(LFD+4)
+#define LDFD	14
+#define LDFW	(LDFD+4)
+#define	LED	LFD
+#define	LEW	LFW+4
+#define	LEE	2
+#define LDED	LDFD
+#define LDEW	LDFW+4
+#define LDEE	2
+#define LCW	(width(a)+width(b)+5)
+#define LDCW	(dwidth(a)+dwidth(b)+5)
+
+#define abs(z)	(z<0?-z:z)
+#define width(z) ((z!=0.0 && (abs(z)>=LHIGH || abs(z)<LLOW))?LEW:LFW)
+#define dwidth(z) ((z!=0.0 && (abs(z)>=LDHIGH || abs(z)<LLOW))?LDEW:LDFW)
+#define ERR(x)	if(n=(x)) err(n>0?errflag:endflag,n,"list io")
+
+typedef union
+{	short	flshort;
+	ftnint	flint;
+	float	flreal;
+	double	fldouble;
+} flex;
+
+extern int (*lioproc)();
+extern flag leof;
+extern ioflag lquit,l_first;
+extern int lcount,line_len;
-- 
2.20.1