11 lines
227 B
Tcl
11 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
|