projects / redis.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | set ::tmpcounter 0 | |
| 2 | set ::tmproot "./tests/tmp" | |
| 3 | file mkdir $::tmproot | |
| 4 | ||
| 5 | # returns a dirname unique to this process to write to | |
| 6 | proc tmpdir {basename} { | |
| 7 | set dir [file join $::tmproot $basename.[pid].[incr ::tmpcounter]] | |
| 8 | file mkdir $dir | |
| 9 | set _ $dir | |
| 10 | } | |
| 11 | ||
| 12 | # return a filename unique to this process to write to | |
| 13 | proc tmpfile {basename} { | |
| 14 | file join $::tmproot $basename.[pid].[incr ::tmpcounter] | |
| 15 | } |