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

  1. proc precopy {dll} {
  2. global env
  3. if {[info exists env(TEMP)]} {
  4. set dir $env(TEMP)
  5. } elseif {[info exists env(TMP)]} {
  6. set dir $env(TMP)
  7. } elseif {[info exists ~]} {
  8. set dir ~
  9. } else {
  10. set dir .
  11. }
  12. set dir [file join $dir TCL[pid]]
  13. set i 0
  14. while {[file exists $dir]} {
  15. append dir [incr i]
  16. }
  17. set new [file join $dir [file tail $dll]]
  18. file mkdir $dir
  19. file copy $dll $new
  20. return $new
  21. }