21 lines
581 B
Factor
21 lines
581 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: dlists kernel threads concurrency.conditions accessors ;
|
|
IN: concurrency.flags
|
|
|
|
TUPLE: flag value threads ;
|
|
|
|
: <flag> ( -- flag ) f <dlist> flag boa ;
|
|
|
|
: raise-flag ( flag -- )
|
|
dup value>> [ drop ] [ t >>value threads>> notify-all ] if ;
|
|
|
|
: wait-for-flag-timeout ( flag timeout -- )
|
|
over value>> [ 2drop ] [ >r threads>> r> "flag" wait ] if ;
|
|
|
|
: wait-for-flag ( flag -- )
|
|
f wait-for-flag-timeout ;
|
|
|
|
: lower-flag ( flag -- )
|
|
[ wait-for-flag ] [ f >>value drop ] bi ;
|