blob: 132a12b1632eef9356fbf0967af2b0b1fb808abe (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
import std/os
var tmpf_seq = 0
proc getTempFile*(tmpdir: string; ext = ""): string =
if not dirExists(tmpdir):
createDir(tmpdir)
var tmpf = tmpdir / "chatmp" & $getCurrentProcessId() & "-" & $tmpf_seq
if ext != "":
tmpf &= "."
tmpf &= ext
while fileExists(tmpf):
inc tmpf_seq
tmpf = tmpdir / "chatmp" & $tmpf_seq
if ext != "":
tmpf &= "."
tmpf &= ext
inc tmpf_seq
return tmpf
|