1 ! Copyright (C) 2008 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: io.backend.unix io.files.unique.private literals system
5 IN: io.files.unique.unix
7 CONSTANT: open-unique-flags flags{ O_RDWR O_CREAT O_EXCL }
9 M: unix (touch-unique-file) ( path -- )
10 open-unique-flags file-mode open-file close-file ;