Tcl Source Code

If working multi-threaded (or multi-processed in cluster-system on share) with some global directory to create some system-wide unique sub-path using some pseudo-unique name generation algorithm (also UUID), to avoid retrieving of the same folder for two workers, one can do the things like this:

proc get_unique_dir {} {
  while 1 {
    set p [file join $GLOB_PATH [some_uuid_algo]]
    if {![file exists $p]} {
      file mkdir $p
      break
    }
  }
  return $p
}

But it's affected by the race condition (firstly not exists for both workers, then one creates sub-path, another returns with no error in `file mkdir` on same existing path), if some_uuid_algo cannot guarantee a system-wide unique path.

So the creation of a safe construct for that is impossible in Tcl currently.

Suggestion:

Currently `file mkdir` returns no result at all.
If `TclFileMakeDirsCmd` will be extended with return value as counter (of created tail-directories), one may use it to avoid race condition in above-mentioned script, like here:

proc get_unique_dir {} {
  while 1 {
    set p [file join $GLOB_PATH [some_uuid_algo]]
    if {[file mkdir $p]} {
      break
    }
  }
  return $p
}

This is race condition safe. The only one backwards-incompatibility in this case would be usage like this:

set some_var "when [file mkdir $some_path]was used in substitution"