Implement guards, and start work on ↑ and ↓

1 files changed, 6 insertions, 2 deletions

diff --git a/apl9.h b/apl9.h
index 24ddc01..d86d659 100644
--- a/apl9.h
+++ b/apl9.h
@@ -12,8 +12,6 @@ typedef enum
 	BoundFunctionTag, /* Function with left arg bound */
 	LParTag,
 	RParTag,
-	LBracketTag,
-	RBracketTag,
 	ArrowTag,
 	AssignmentTag,
 	NameTag,
@@ -70,6 +68,7 @@ struct Statement
 {
 	int ntoks;
 	Datum *toks;
+	Statement *guard;
 	Statement *next;
 };
 
@@ -170,6 +169,7 @@ int commontype(Array *, Array *, Array **, Array **, int);
 Array *arrayitem(Array *, int);
 Array *simplifyarray(Array *);
 int comparearray(Array *, Array *, int);
+Array *fillelement(Array *);
 
 /* eval.c */
 Datum *eval(Statement *);
@@ -189,6 +189,7 @@ void incref(Array *);
 
 /* functions.c */
 Array *runfunc(Function, Array *,Array *);
+Array *rundfn(Rune *, Array *, Array *);
 
 /* quadnames.c */
 Datum quadnamedatum(QuadnameDef);
@@ -196,6 +197,8 @@ Datum quadnamedatum(QuadnameDef);
 /* Monadic functions from function.c */
 Array *fnSame(Array *);
 Array *fnTally(Array *);
+Array *fnMix(Array *);
+Array *fnSplit(Array *);
 Array *fnEnclose(Array *);
 Array *fnNest(Array *);
 Array *fnGradeUp(Array *);
@@ -218,6 +221,7 @@ Array *fnLogarithm(Array *, Array *);
 Array *fnLeft(Array *, Array *);
 Array *fnRight(Array *, Array *);
 Array *fnMatch(Array *, Array *);
+Array *fnTake(Array *, Array *);
 Array *fnIndex(Array *, Array *);
 Array *fnCatenateFirst(Array *, Array *);
 Array *fnReshape(Array *, Array *);