14 lines
287 B
Tcl
14 lines
287 B
Tcl
|
package require Thread
|
||
|
|
|
||
|
|
# How to create a mutex
|
||
|
|
set m [thread::mutex create]
|
||
|
|
|
||
|
|
# This will block if the lock is already held unless the mutex is made recursive
|
||
|
|
thread::mutex lock $m
|
||
|
|
# Now locked...
|
||
|
|
thread::mutex unlock $m
|
||
|
|
# Unlocked again
|
||
|
|
|
||
|
|
# Dispose of the mutex
|
||
|
|
thread::mutex destroy $m
|