RosettaCodeData/Task/Mutex/FutureBasic/mutex.basic
2025-08-11 18:05:26 -07:00

19 lines
306 B
Text

include "NSLog.incl"
void local fn DoIt
LockRef m = fn LockInit
LockingLock( m )
if ( fn LockTry( m ) )
NSLog(@"lock acquired") // acquire a lock -- does not block if not acquired
else
NSLog(@"already locked, does not block")
end if
LockingUnlock( m )
end fn
fn DoIt
HandleEvents