diff options
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) |