Implement dyadic (integer only) version of + - × ÷ * ⍟

1 files changed, 8 insertions, 0 deletions

diff --git a/apl9.h b/apl9.h
index 7c44980..63b6d7a 100644
--- a/apl9.h
+++ b/apl9.h
@@ -116,6 +116,8 @@ Array *mkscalarint(vlong);
 Array *duparray(Array *);
 int simplearray(Array *);
 int simplescalar(Array *);
+Array *extend(Array *, Array *);
+int scalarextend(Array *, Array *, Array **, Array **);
 
 /* eval.c */
 Datum *eval(Statement *);
@@ -141,6 +143,12 @@ Array *fnRavel(Array *);
 Array *fnShape(Array *);
 
 /* Dyadic functions from functions.h */
+Array *fnPlus(Array *, Array *);
+Array *fnMinus(Array *, Array *);
+Array *fnTimes(Array *, Array *);
+Array *fnDivide(Array *, Array *);
+Array *fnPower(Array *, Array *);
+Array *fnLogarithm(Array *, Array *);
 Array *fnLeft(Array *, Array *);
 Array *fnRight(Array *, Array *);
 Array *fnCatenateFirst(Array *, Array *);