mirror of
http://github.com/valkey-io/valkey
synced 2024-11-23 11:51:01 +00:00
16 lines
402 B
Tcl
16 lines
402 B
Tcl
|
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]
|
||
|
|
}
|