From 396543790dc1c844c726b77a95c6180978232abd Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Fri, 14 Jan 2022 01:06:14 +0000 Subject: =?UTF-8?q?Add=20each=20(=C2=A8)=20operator?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- apl9.h | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'apl9.h') diff --git a/apl9.h b/apl9.h index 72b8ca2..a2d0e3d 100644 --- a/apl9.h +++ b/apl9.h @@ -143,6 +143,7 @@ int simplearray(Array *); int simplescalar(Array *); Array *extend(Array *, Array *); int scalarextend(Array *, Array *, Array **, Array **); +Array *arrayitem(Array *, int); /* eval.c */ Datum *eval(Statement *); @@ -183,7 +184,10 @@ Array *fnCatenateFirst(Array *, Array *); Array *fnReshape(Array *, Array *); /* Monadic operators from operators.c */ +Array *opEach(Datum *, Array *, Array *); Array *opSwitch(Datum *, Array *, Array *); + +/* Dyadic operators from operators.c */ Array *opOver(Datum *, Datum *, Array *, Array *); /* Global variables */ -- cgit v1.2.3