2008-02-18 17:20:18 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
2008-02-18 10:08:59 -05:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: dlists threads kernel arrays sequences ;
|
|
|
|
|
IN: concurrency.conditions
|
|
|
|
|
|
|
|
|
|
: notify-1 ( dlist -- )
|
2008-02-18 17:20:18 -05:00
|
|
|
dup dlist-empty? [ drop ] [ pop-back second resume ] if ;
|
2008-02-18 10:08:59 -05:00
|
|
|
|
|
|
|
|
: notify-all ( dlist -- )
|
|
|
|
|
[ second resume ] dlist-slurp yield ;
|
|
|
|
|
|
2008-02-19 15:38:02 -05:00
|
|
|
: wait ( queue timeout status -- )
|
|
|
|
|
>r [ 2array swap push-front ] r> suspend 3drop ; inline
|
