From 85aa2ad424c68343ef09e5f6df243ad6499e47d5 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 12 Jan 2022 00:09:12 +0000 Subject: =?UTF-8?q?Add=20a=20small=20version=20of=20monadic=20=E2=8D=B3=20?= =?UTF-8?q?and=20some=20simple=20form=20of=20=E2=8E=95IO?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- apl9.h | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'apl9.h') diff --git a/apl9.h b/apl9.h index 413c52c..620eae6 100644 --- a/apl9.h +++ b/apl9.h @@ -113,12 +113,14 @@ Datum *eval(Datum *, int *); /* symbol.c */ Symbol *getsym(Symtab *, Rune *); Symtab *newsymtab(void); +vlong globalIO(void); /* Monadic functions from functions.h */ Array *fnSame(Array *); Array *fnTally(Array *); Array *fnEnclose(Array *); Array *fnNest(Array *); +Array *fnIndexGenerator(Array *); Array *fnRavel(Array *); Array *fnShape(Array *); @@ -138,4 +140,5 @@ extern Rune primdyadopnames[]; /* lexer.c */ extern Rune primhybridnames[]; /* lexer.c */ extern fnmonad monadfunctiondefs[]; /* function.c */ extern fndyad dyadfunctiondefs[]; /* function.c */ -extern Symtab *globalsymtab; /* symbol.c */ \ No newline at end of file +extern Symtab *globalsymtab; /* symbol.c */ +extern Symtab *currentsymtab; /* symbol.c */ \ No newline at end of file -- cgit v1.2.3