13 lines
287 B
Tcl
13 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
|