2008-10-06 18:17:14 -04:00
|
|
|
! Copyright (C) 2008 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-09-05 20:29:14 -04:00
|
|
|
USING: kernel io.ports io.unix.backend math.bitwise
|
2008-12-08 22:32:36 -05:00
|
|
|
unix system io.files.unique ;
|
2008-02-29 01:10:37 -05:00
|
|
|
IN: io.unix.files.unique
|
|
|
|
|
|
|
|
|
|
: open-unique-flags ( -- flags )
|
|
|
|
|
{ O_RDWR O_CREAT O_EXCL } flags ;
|
|
|
|
|
|
2008-12-08 22:32:36 -05:00
|
|
|
M: unix touch-unique-file ( path -- )
|
2008-05-14 07:08:57 -04:00
|
|
|
open-unique-flags file-mode open-file close-file ;
|
2008-02-29 01:10:37 -05:00
|
|
|
|
2008-04-02 21:09:56 -04:00
|
|
|
M: unix temporary-path ( -- path ) "/tmp" ;
|
