diff options
| -rw-r--r-- | quadnames.c | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/quadnames.c b/quadnames.c index 829bc4d..266cc02 100644 --- a/quadnames.c +++ b/quadnames.c @@ -12,6 +12,8 @@ Datum *getpp(void); void setpp(Datum); Datum *getdiv(void); void setdiv(Datum); +Datum *geta(void); +Datum *getd(void); Array *runfile(Array *); Array *quadthrow1(Array *); @@ -24,6 +26,8 @@ QuadnameDef quadnames[] = { {L"⎕IO", NameTag, getio, setio, nil, nil}, {L"⎕PP", NameTag, getpp, setpp, nil, nil}, {L"⎕DIV", NameTag, getdiv, setdiv, nil, nil}, + {L"⎕A", NameTag, geta, nil, nil, nil}, + {L"⎕D", NameTag, getd, nil, nil, nil}, {L"⎕RUN", FunctionTag, nil, nil, runfile, nil}, {L"⎕THROW", FunctionTag, nil, nil, quadthrow1, quadthrow2}, {L"⎕INFO", FunctionTag, nil, nil, quadinfo, nil}, @@ -145,6 +149,26 @@ setdiv(Datum new) globalDIVset(new.array->intdata[0]); } +/* ⎕A */ +Datum * +geta(void) +{ + Datum *d = mallocz(sizeof(Datum), 1); + d->tag = ArrayTag; + d->array = mkrunearray(L"ABCDEFGHIJKLMNOPQRSTUVWXYZ"); + return d; +} + +/* ⎕D */ +Datum * +getd(void) +{ + Datum *d = mallocz(sizeof(Datum), 1); + d->tag = ArrayTag; + d->array = mkrunearray(L"0123456789"); + return d; +} + /* ⎕RUN */ Array * runfile(Array *a) |