with-write-lock-timeout ( lock timeout quot -- )
Locks » Read-write locks

Prev:

with-read-lock-timeout ( lock timeout quot -- )

Vocabulary
concurrency.locks

Inputs

lock	a lock
timeout	a duration or f
quot	a quotation

Outputs
None

Word description
Calls the quotation, ensuring that no other thread is holding a read or write lock at the same time. If another thread is holding a read or write lock, blocks until the thread releases the lock.

Errors
Throws an error if the lock could not be acquired before the timeout expires. A timeout value of f means the thread is willing to wait indefinitely.

Definition

USING: concurrency.locks.private kernel ;

IN: concurrency.locks

: with-write-lock-timeout ( lock timeout quot -- )
    pick reentrant-write-lock-ok?
    [ 2nip call ]
    [ [ acquire-write-lock ] [ release-write-lock ] do-lock ] if
    ; inline