Implement quad names for variables

1 files changed, 21 insertions, 1 deletions

diff --git a/apl9.h b/apl9.h
index 8eb570f..f65e8f7 100644
--- a/apl9.h
+++ b/apl9.h
@@ -46,7 +46,7 @@ typedef struct Function Function;
 typedef struct Datum Datum;
 typedef struct Symbol Symbol;
 typedef struct Symtab Symtab;
-
+typedef struct QuadnameDef QuadnameDef;
 struct Array
 {
 	arrayDataType type;
@@ -110,11 +110,14 @@ struct Symbol
 	int undefined;
 	Rune *name;
 	Datum value;
+	Datum *(*getfn)(void);
+	int (*setfn)(Datum);
 };
 
 struct Symtab
 {
 	int nsyms;
+	int io; /* index origin */
 	Symbol **syms;
 };
 
@@ -123,9 +126,22 @@ typedef Array* (*fndyad)(Array*, Array*);
 typedef Array* (*opmonad)(Datum *, Array *, Array *);
 typedef Array* (*opdyad)(Datum *, Datum *, Array *, Array *);
 
+struct QuadnameDef
+{
+	Rune *name;
+	datumTag tag;
+	Datum *(*get)(void);
+	int (*set)(Datum);
+	fnmonad monadfn;
+	fnmonad dyadfn;
+	opmonad monadop;
+	opdyad dyadop;
+};
+
 /* Function prototypes for the different source files */
 /* main.c */
 Datum *evalline(Rune *);
+Rune *prompt(Rune *);
 
 /* print.c */
 Rune *ppdatum(Datum);
@@ -166,6 +182,9 @@ void incref(Array *);
 /* functions.c */
 Array *runfunc(Function, Array *,Array *);
 
+/* quadnames.c */
+Datum quadnamedatum(QuadnameDef);
+
 /* Monadic functions from function.c */
 Array *fnSame(Array *);
 Array *fnTally(Array *);
@@ -210,3 +229,4 @@ extern opdyad dyadoperatordefs[]; /* operators.c */
 extern Symtab *globalsymtab; /* symbol.c */
 extern Symtab *currentsymtab; /* symbol.c */
 extern int alloccounts; /* memory.c */
+extern QuadnameDef quadnames[]; /* quadnames.c */