diff options
| -rwxr-xr-x | APLDemo | 3 | ||||
| -rw-r--r-- | demos/doubleup.apl | 27 |
2 files changed, 18 insertions, 12 deletions
@@ -3,6 +3,9 @@ winid=`{grep -e '-apl' /mnt/acme/index | awk '{print $1}' } if(~ $#winid 0){ win apl & + sleep 1 + winid=`{grep -e '-apl' /mnt/acme/index | awk '{print $1}' } + rm /tmp/apldemo.$winid.state exit } diff --git a/demos/doubleup.apl b/demos/doubleup.apl index 44d3cd9..0206528 100644 --- a/demos/doubleup.apl +++ b/demos/doubleup.apl @@ -1,38 +1,41 @@ ⍝ Define the "double up" function f←{ - (who message)←{1 ⍵} RECV ⍬ ⍝ Recieve a message with no timeout - (2×message) SEND who ⍝ Reply with 2×message - ∇⍵ ⍝ Recurse + (who message)←{1 ⍵}⍇⍬ ⍝ Recieve a message with no timeout + (2×message)⍈who ⍝ Reply with 2×message + ∇⍵ ⍝ Recurse } ⍝ Spawn it as a seperate thread id←f&'double up'⊢⍬ ⍝ Check it's status (id, name, mails in mailbox) -id ⎕tasks 0 1 4 +id ⎕threads 0 1 4 ⍝ Check our own status -⎕self ⎕tasks 0 1 4 +⎕self ⎕threads 0 1 4 ⍝ Send a few messages to our own mailbox -'hello' SEND ⎕self -(⍳2 2) SEND ⎕self +'hello'⍈⎕self +(⍳2 2)⍈⎕self ⍝ Send a message to the double up thread -(⍳5) SEND id +(⍳5)⍈id + +⍝ Send a message to ourself again +'last one'⍈⎕self ⍝ Check our own status again -⎕self ⎕tasks 0 1 4 +⎕self ⎕threads 0 1 4 ⍝ We now have a few messages, but we want a specific one.. ⍝ That is, the one where the sender = id -{id=⊃⍵:1 ⍵ ⋄ 0} RECV 0 +{id=⊃⍵:1 ⍵ ⋄ 0}⍇0 ⍝ We might as well get the other messages as well flush←{ 12::⍵ ⍝ Stop when we get a timeout error - m←{1 ⍵} RECV 0 + m←{1 ⍵}⍇0 ∇⍵,⊂m } -flush ⍬
\ No newline at end of file +flush ⍬ |