From de3bbbc0981bde7a02f7f5398ce921e0beb4c174 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sun, 16 Jan 2022 00:48:37 +0000
Subject: Implement floats

---
 apl9.h | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'apl9.h')

diff --git a/apl9.h b/apl9.h
index f65e8f7..f15cd77 100644
--- a/apl9.h
+++ b/apl9.h
@@ -22,6 +22,7 @@ typedef enum
 typedef enum
 {
 	AtypeInt,
+	AtypeFloat,
 	AtypeArray,
 } arrayDataType;
 
@@ -58,6 +59,7 @@ struct Array
 	union {
 		char *rawdata;
 		vlong *intdata;
+		double *floatdata;
 		Array **arraydata;
 	};
 };
@@ -154,11 +156,13 @@ Statement *lexline(Rune *);
 
 /* array.c */
 Array *mkscalarint(vlong);
+Array *mkscalarfloat(double);
 Array *duparray(Array *);
 int simplearray(Array *);
 int simplescalar(Array *);
 Array *extend(Array *, Array *);
 int scalarextend(Array *, Array *, Array **, Array **);
+int commontype(Array *, Array *, Array **, Array **, int);
 Array *arrayitem(Array *, int);
 Array *simplifyarray(Array *);
 
@@ -169,7 +173,6 @@ Datum *eval(Statement *);
 Symbol *getsym(Symtab *, Rune *);
 Symtab *newsymtab(void);
 void freesymtab(Symtab *);
-vlong globalIO(void);
 
 /* memory.c */
 void *emalloc(ulong);
@@ -230,3 +233,4 @@ extern Symtab *globalsymtab; /* symbol.c */
 extern Symtab *currentsymtab; /* symbol.c */
 extern int alloccounts; /* memory.c */
 extern QuadnameDef quadnames[]; /* quadnames.c */
+extern int printprecision; /* print.c */
\ No newline at end of file
-- 
cgit v1.2.3