From 468e0f6313fb620bd2f7ea469178fe02412ddc31 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Mon, 24 Jan 2022 21:18:01 +0000 Subject: =?UTF-8?q?Implement=20=E2=8D=BA=E2=8D=B5=E2=8D=B6=E2=8D=B9=20as?= =?UTF-8?q?=20get-set=20variables,=20which=20may=20make=20it=20easier=20to?= =?UTF-8?q?=20do=20TCO=20later.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- apl9.h | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'apl9.h') diff --git a/apl9.h b/apl9.h index 092c8ce..b19c686 100644 --- a/apl9.h +++ b/apl9.h @@ -183,6 +183,10 @@ struct DfnFrame { Rune *code; Symtab *symtab; + Datum *left; + Array *right; + Datum *lefto; + Datum *righto; DfnFrame *prev; }; @@ -226,7 +230,7 @@ Datum *eval(Statement *, int); Symbol *getsym(Rune *, int); void initsymtab(void); DfnFrame *getcurrentdfn(void); -DfnFrame *pushdfnframe(Rune *); +DfnFrame *pushdfnframe(Rune *, Datum *, Datum *, Array *, Array *); void popdfnframe(void); vlong globalIO(void); void globalIOset(vlong); @@ -243,7 +247,7 @@ void incref(Array *); /* functions.c */ Array *runfunc(Function, Array *,Array *); -Array *rundfn(Rune *, Array *, Array *); +Array *rundfn(Rune *, Datum *, Datum *, Array *, Array *); Array *runtrain(Function *, int, Array *, Array *, Array *); /* quadnames.c */ -- cgit v1.2.3