diff options
| author | glenda <glenda@cirno> | 2022-09-10 17:14:51 +0000 |
|---|---|---|
| committer | glenda <glenda@cirno> | 2022-09-10 17:14:51 +0000 |
| commit | a1a9641baeab04b954420122b6fd1c9428a757b5 (patch) | |
| tree | 1d41db19a169d3d6d130841750968ccb3e974a85 /quadnames.c | |
| parent | e2ebfbb7d19ff3b990eb51dc9843200053cbbf98 (diff) | |
Try some more
Diffstat (limited to 'quadnames.c')
| -rw-r--r-- | quadnames.c | 15 |
1 files changed, 14 insertions, 1 deletions
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) |