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

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