basis/io/files/unique/unix/unix.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel io.ports io.backend.unix math.bitwise
   4 unix system io.files.unique unix.ffi literals ;
   5 IN: io.files.unique.unix
   6
   7 CONSTANT: open-unique-flags flags{ O_RDWR O_CREAT O_EXCL }
   8
   9 M: unix (touch-unique-file) ( path -- )
  10     open-unique-flags file-mode open-file close-file ;
  11
  12 M: unix default-temporary-directory ( -- path ) "/tmp" ;