From a1a9641baeab04b954420122b6fd1c9428a757b5 Mon Sep 17 00:00:00 2001
From: glenda <glenda@cirno>
Date: Sat, 10 Sep 2022 17:14:51 +0000
Subject: Try some more

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

(limited to 'quadnames.c')

diff --git a/quadnames.c b/quadnames.c
index 7c915eb..f00de5e 100644
--- a/quadnames.c
+++ b/quadnames.c
@@ -8,7 +8,7 @@
 Datum *getquotequad(void);
 void setquotequad(Datum *);
 Datum *getquad(void);
-/* void setquad(Datum *); in apl9.h */
+void setquad(Datum *);
 Datum *getquadrawio(void);
 void setquadrawio(Datum *);
 Datum *getio(void);
@@ -164,6 +164,19 @@ setquad(Datum *d)
 	free(str);
 }
 
+/* for output from main loop */
+void
+outputmain(Datum *d)
+{
+	Rune *str = ppdatum(d);
+	Array *strarray = mkrunearray(str);
+	if(session)
+		rundfn(L"0::⎕RAWIO←⍶ ⋄ ('→' ⍺) ⍈ ⍵", d, nil, strarray, session);
+	else
+		setquadrawio(d);
+	free(str);
+}
+
 /* ⎕RAWIO */
 Datum *
 getquadrawio(void)
-- 
cgit v1.2.3