diff options
| -rwxr-xr-x | demos/demo | 3 | ||||
| -rwxr-xr-x | demos/rdemo | 2 | ||||
| -rw-r--r-- | runtime/remote.apl | 12 |
3 files changed, 7 insertions, 10 deletions
@@ -1,4 +1,5 @@ #!/bin/rc -font=/lib/font/bit/APL386/22/font +font=/lib/font/bit/APL386/28/font acme -c1 -f$font -F$font demos +kill apl | rc diff --git a/demos/rdemo b/demos/rdemo index cc96767..73a311d 100755 --- a/demos/rdemo +++ b/demos/rdemo @@ -1,5 +1,5 @@ #!/bin/rc -font=/lib/font/bit/APL386/22/font +font=/lib/font/bit/APL386/28/font rm -f /srv/apl rio diff --git a/runtime/remote.apl b/runtime/remote.apl index f696a15..7733783 100644 --- a/runtime/remote.apl +++ b/runtime/remote.apl @@ -1,11 +1,9 @@ REMOTE←{ fd←⎕PIPE ⍵ - out←{ - msg←{1(2⊃⍵)}⍇⍬ - raw←0 ⎕SERIAL msg + output←{ + raw←0 ⎕SERIAL ⍵ len←(4⍴255)⊤≢raw _←fd ⎕WRITE len,raw - ∇⍵ } in←{ m←1 ⎕serial fd ⎕read (4⍴255)⊥fd ⎕read 4 @@ -13,13 +11,11 @@ REMOTE←{ ∇⍵ } remote←{ - 0≡≢⍵: ⍺∇out&'remote out'⊢⎕self ⍝ Spawn out thread - 1≡≢⍵: ⍺∇⍵,in&'remote in'⊢⎕self ⍝ Spawn in thread - (outid inid)←⍵ + ⍬≡⍵: ⍺∇in&'remote in'⊢⎕self ⍝ Spawn 'in' thread master←⍺ (from msg)←{1 ⍵}⍇⍬ _←{ - from≡master: msg⍈outid + from≡master: output msg from≢master: msg⍈master }⍬ ⍺∇⍵ |