acquire-write-lock ( lock timeout -- )

Vocabulary

concurrency.locks.private

Inputs

lock	an object
timeout	an object

Outputs

None

Definition

USING: accessors concurrency.conditions kernel math threads ;

IN: concurrency.locks.private

: acquire-write-lock ( lock timeout -- )
    >deadline
    [ over [ writer>> ] [ reader#>> 0 > ] bi or ]
    [ 2dup [ writers>> ] dip "write lock" wait ] while drop
    self >>writer drop ;