From 6c964eb54c0056d14a1b929dc09c75240a585cea Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Mon, 10 Jan 2022 19:32:39 +0000
Subject: Implement ( expr ) and improve stranding

---
 apl9.h | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'apl9.h')

diff --git a/apl9.h b/apl9.h
index 41ad5e2..4080a81 100644
--- a/apl9.h
+++ b/apl9.h
@@ -27,6 +27,7 @@ typedef enum
 
 /* Data types */
 typedef struct Array Array;
+typedef struct Expr Expr;
 typedef struct Datum Datum;
 
 struct Array
@@ -35,6 +36,7 @@ struct Array
 	int rank;
 	int *shape;
 	int size;
+	int stranded; /* 1 if build directly by stranding */
 	union {
 		char *rawdata;
 		vlong *intdata;
@@ -42,12 +44,19 @@ struct Array
 	};
 };
 
+struct Expr
+{
+	int ntoks;
+	Datum *toks;
+};
+
 struct Datum
 {
 	datumTag tag;
 	union {
 		Array *array;
 		int code;
+		Expr expr;
 	};
 };
 
-- 
cgit v1.2.3