+++ /dev/null
-set ::tmpcounter 0
-set ::tmproot "./test/tmp"
-file mkdir $::tmproot
-
-# returns a dirname unique to this process to write to
-proc tmpdir {basename} {
- set dir [file join $::tmproot $basename.[pid].[incr ::tmpcounter]]
- file mkdir $dir
- set _ $dir
-}
-
-# return a filename unique to this process to write to
-proc tmpfile {basename} {
- file join $::tmproot $basename.[pid].[incr ::tmpcounter]
-}