Bell 32V development

Work on file usr/src/libI77/lio.h

Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v

diff --git a/usr/src/libI77/lio.h b/usr/src/libI77/lio.h
new file mode 100644 (file)
index 0000000..d54bf03
--- /dev/null
+++ b/usr/src/libI77/lio.h
@@ -0,0 +1,41 @@
+/*     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)();