From 1ef3119fe613823a2145126c58948361ca7d3cd8 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sat, 8 Jan 2022 22:45:00 +0000
Subject: Add initial code, just to get started

---
 array.c | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 array.c

(limited to 'array.c')

diff --git a/array.c b/array.c
new file mode 100644
index 0000000..766ccd8
--- /dev/null
+++ b/array.c
@@ -0,0 +1,29 @@
+#include <u.h>
+#include <libc.h>
+#include <bio.h>
+
+#include "apl9.h"
+
+int datasizes[] = {
+	[AtypeInt] = sizeof(vlong)
+};
+
+Array *
+mkarray(arrayDataType t, int rank, int size)
+{
+	Array *a = malloc(sizeof(Array));
+	a->rank = rank;
+	a->shape = malloc(sizeof(int) * rank);
+	a->rawdata = malloc(datasizes[t] * size);
+	a->type = t;
+	return a;
+}
+
+Array *
+mkscalarint(vlong i)
+{
+	Array *a = mkarray(AtypeInt, 0, 1);
+	a->intdata[0] = i;
+
+	return a;
+}
\ No newline at end of file
-- 
cgit v1.2.3