From 64e1c7a7617c05fc5f2a80a1d503878d9b30a013 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 2 Feb 2022 21:59:31 +0000 Subject: =?UTF-8?q?Add=20=E2=8E=95A=20and=20=E2=8E=95D?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- quadnames.c | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) 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) -- cgit v1.2.3