22 lines
528 B
Factor
22 lines
528 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: boxes kernel threads ;
|
||
|
|
IN: concurrency.flags
|
||
|
|
|
||
|
|
TUPLE: flag value? thread ;
|
||
|
|
|
||
|
|
: <flag> ( -- flag ) f <box> flag construct-boa ;
|
||
|
|
|
||
|
|
: raise-flag ( flag -- )
|
||
|
|
dup flag-value? [
|
||
|
|
dup flag-thread ?box
|
||
|
|
[ resume ] [ drop t over set-flag-value? ] if
|
||
|
|
] unless drop ;
|
||
|
|
|
||
|
|
: lower-flag ( flag -- )
|
||
|
|
dup flag-value? [
|
||
|
|
f swap set-flag-value?
|
||
|
|
] [
|
||
|
|
[ flag-thread >box ] curry "flag" suspend drop
|
||
|
|
] if ;
|