2008-10-06 18:17:14 -04:00
|
|
|
! Copyright (C) 2008 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2016-03-18 13:57:54 -04:00
|
|
|
USING: io.backend.unix io.files.unique.private literals system
|
|
|
|
|
unix unix.ffi ;
|
2008-12-14 21:03:00 -05:00
|
|
|
IN: io.files.unique.unix
|
2008-02-29 01:10:37 -05:00
|
|
|
|
2010-04-01 15:43:27 -04:00
|
|
|
CONSTANT: open-unique-flags flags{ O_RDWR O_CREAT O_EXCL }
|
2008-02-29 01:10:37 -05:00
|
|
|
|
2009-01-26 16:05:15 -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 ;
|
