Update demo

2 files changed, 18 insertions, 12 deletions

diff --git a/APLDemo b/APLDemo
index fbf85b5..106b37d 100755
--- a/APLDemo
+++ b/APLDemo
@@ -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 ⍬