From 17e97bbed7abc59fb754cf463e825e890b16815d Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 26 Jan 2022 15:09:20 +0000 Subject: =?UTF-8?q?Implement=20replicate=20first=20and=20last=20=E2=8C=BF?= =?UTF-8?q?=20/?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- quadnames.c | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'quadnames.c') diff --git a/quadnames.c b/quadnames.c index 2646840..467e0a6 100644 --- a/quadnames.c +++ b/quadnames.c @@ -17,6 +17,7 @@ Array *runfile(Array *); Array *quadthrow1(Array *); Array *quadthrow2(Array *, Array *); Array *quadinfo(Array *); +Array *quadproto(Array *); QuadnameDef quadnames[] = { {L"⎕", NameTag, getquad, setquad, nil, nil}, @@ -26,6 +27,7 @@ QuadnameDef quadnames[] = { {L"⎕RUN", FunctionTag, nil, nil, runfile, nil}, {L"⎕THROW", FunctionTag, nil, nil, quadthrow1, quadthrow2}, {L"⎕INFO", FunctionTag, nil, nil, quadinfo, nil}, + {L"⎕PROTO", FunctionTag, nil, nil, quadproto, nil}, {nil, 0, nil, nil, nil, nil} /* MUST BE LAST */ }; @@ -225,4 +227,11 @@ quadinfo(Array *a) free(res); free(info); return infoarr; +} + +/* ⎕PROTO */ +Array * +quadproto(Array *a) +{ + return fillelement(a); } \ No newline at end of file -- cgit v1.2.3