summary |
tags |
clone url |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
325467e)
Work on file usr/src/libI77/lio.h
Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v
--- /dev/null
+/* 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)();