12 lines
227 B
Tcl
12 lines
227 B
Tcl
|
set rw [thread::rwmutex create]
|
||
|
|
|
||
|
|
# Get and drop a reader lock
|
||
|
|
thread::rwmutex rlock $rw
|
||
|
|
thread::rwmutex unlock $rw
|
||
|
|
|
||
|
|
# Get and drop a writer lock
|
||
|
|
thread::rwmutex wlock $rw
|
||
|
|
thread::rwmutex unlock $rw
|
||
|
|
|
||
|
|
thread::rwmutex destroy $rw
|