basis/io/files/unique/windows/windows.factor

   1 USING: kernel system windows.kernel32 io.backend.windows
   2 io.files.windows io.ports windows destructors environment
   3 io.files.unique ;
   4 IN: io.files.unique.windows
   5
   6 M: windows (touch-unique-file) ( path -- )
   7     GENERIC_WRITE CREATE_NEW 0 open-file dispose ;
   8
   9 M: windows default-temporary-directory ( -- path )
  10     "TEMP" os-env ;