From cb3dbf22c21ef2d4ad43f718dd9360b7f4008cc8 Mon Sep 17 00:00:00 2001
From: glenda <glenda@cirno>
Date: Tue, 13 Sep 2022 15:37:47 +0000
Subject: Call it threads, not tasks

---
 quadnames.c | 29 ++++++++++++++---------------
 1 file changed, 14 insertions(+), 15 deletions(-)

(limited to 'quadnames.c')

diff --git a/quadnames.c b/quadnames.c
index 0727d3e..3340ac6 100644
--- a/quadnames.c
+++ b/quadnames.c
@@ -32,8 +32,8 @@ Array *quadinfo(Array *);
 Array *quadproto(Array *);
 Array *quaducs(Array *);
 Array *quaddl(Array *);
-Array *quadtasks1(Array *);
-Array *quadtasks2(Array *, Array *);
+Array *quadthreads1(Array *);
+Array *quadthreads2(Array *, Array *);
 
 static Rune *quadquotebuf = nil;
 static Array *session = nil;
@@ -57,7 +57,7 @@ QuadnameDef quadnames[] = {
 	{L"⎕PROTO", FunctionTag, nil, nil, quadproto, nil},
 	{L"⎕UCS", FunctionTag, nil, nil, quaducs, nil},
 	{L"⎕DL", FunctionTag, nil, nil, quaddl, nil},
-	{L"⎕TASKS", FunctionTag, nil, nil, quadtasks1, quadtasks2},
+	{L"⎕THREADS", FunctionTag, nil, nil, quadthreads1, quadthreads2},
 	{nil, 0, nil, nil, nil, nil} /* MUST BE LAST */
 };
 
@@ -467,29 +467,28 @@ quaddl(Array *a)
 	return fnSame(a);
 }
 
-/* ⎕TASKS */
+/* ⎕THREADS */
 Array *
-quadtasks1(Array *properties)
+quadthreads1(Array *properties)
 {
-	Array *threadids = runningtasks();
-	Array *res = rundfn(L"⍺ ⎕TASKS ⍵", nil, nil, threadids, properties);
+	Array *threadids = runningthreads();
+	Array *res = quadthreads2(threadids, properties);
 	freearray(threadids);
 	return res;
 }
 
-/* ⎕TASKS */
 Array *
-quadtasks2(Array *task, Array *property)
+quadthreads2(Array *thread, Array *property)
 {
-	if(GetType(task) != AtypeInt || GetType(property) != AtypeInt)
+	if(GetType(thread) != AtypeInt || GetType(property) != AtypeInt)
 		throwerror(nil, EDomain);
-	if(GetRank(task) > 1 || GetRank(property) > 1)
+	if(GetRank(thread) > 1 || GetRank(property) > 1)
 		throwerror(nil, ERank);
-	if(GetRank(task) > 0 || GetRank(property) > 0)
-		return rundfn(L"⍺ ⎕TASKS⌾ ⍵", nil, nil, task, property);
+	if(GetRank(thread) > 0 || GetRank(property) > 0)
+		return rundfn(L"⍺ ⎕THREADS⌾ ⍵", nil, nil, thread, property);
 
-	/* Get task with ID task, and property based on number in property */
-	return taskproperty(task->intdata[0], property->intdata[0]);
+	/* Get thread with ID thread, and property based on number in property */
+	return threadproperty(thread->intdata[0], property->intdata[0]);
 }
 
 
-- 
cgit v1.2.3