Posted to tcl by stevel at Thu Jan 10 08:53:38 GMT 2008view raw
- proc precopy {dll} {
- global env
- if {[info exists env(TEMP)]} {
- set dir $env(TEMP)
- } elseif {[info exists env(TMP)]} {
- set dir $env(TMP)
- } elseif {[info exists ~]} {
- set dir ~
- } else {
- set dir .
- }
- set dir [file join $dir TCL[pid]]
- set i 0
- while {[file exists $dir]} {
- append dir [incr i]
- }
- set new [file join $dir [file tail $dll]]
- file mkdir $dir
- file copy $dll $new
- return $new
- }