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

Prev:	with-write-lock ( lock quot -- )
Next:	with-write-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 write lock at the same time. If another thread is holding a 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-read-lock-timeout ( lock timeout quot -- )
    pick reentrant-read-lock-ok?
    [ [ drop add-reader ] [ remove-reader ] do-lock ]
    [ [ acquire-read-lock ] [ release-read-lock ] do-lock ] if ;
    inline