Add a small version of monadic ⍳ and some simple form of ⎕IO

1 files changed, 4 insertions, 1 deletions

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