Posted to tcl by stevel at Thu Jan 10 08:53:38 GMT 2008view pretty

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
    }