steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add while-no-messages to concurrency 

while-no-messages will run a quotation while there is no messages in the processes mailbox. This is useful for game loops.
release
chris.double 2006-03-29 10:00:57 +00:00
parent d76f15619d
commit 61e110bb75
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
contrib/concurrency/concurrency.factor
View File

@ -116,7 +116,16 @@ TUPLE: mailbox threads data ;
#! The thread then resumes, leaving the item on the stack. #! The thread then resumes, leaving the item on the stack.
(mailbox-block-if-empty) (mailbox-block-if-empty)
mailbox-data dlist-pop-front ; mailbox-data dlist-pop-front ;
: while-mailbox-empty ( mailbox quot -- )
#! Run the quotation until there is an item in the mailbox.
#! Quotation should have stack effect ( -- ).
over mailbox-empty? [
dup >r swap >r call r> r> while-mailbox-empty
] [
2drop
] if ; inline
: mailbox-get? ( pred mailbox -- obj ) : mailbox-get? ( pred mailbox -- obj )
#! Get the first item in the mailbox which satisfies the predicate. #! Get the first item in the mailbox which satisfies the predicate.
#! 'pred' will be called with each item on the stack. When pred returns #! 'pred' will be called with each item on the stack. When pred returns
@ -177,6 +186,12 @@ init-main-process
TUPLE: linked-exception error ; TUPLE: linked-exception error ;
: while-no-messages ( quot -- )
#! Run the quotation in a loop while no messages are in
#! the processes mailbox. The quot should have stack effect
#! ( -- ).
>r self process-mailbox r> while-mailbox-empty ; inline
: send ( message process -- ) : send ( message process -- )
#! Send the message to the process by placing it in the #! Send the message to the process by placing it in the
#! processes mailbox. #! processes mailbox.