2008-02-29 19:04:44 -05:00
|
|
|
USING: kernel system io.files.unique.backend
|
|
|
|
|
windows.kernel32 io.windows io.nonblocking ;
|
2008-02-29 01:10:37 -05:00
|
|
|
IN: io.windows.files.unique
|
2008-02-28 16:42:07 -05:00
|
|
|
|
2008-03-20 17:52:22 -04:00
|
|
|
M: windows-io (make-unique-file) ( path -- )
|
|
|
|
|
GENERIC_WRITE CREATE_NEW 0 open-file
|
|
|
|
|
CloseHandle win32-error=0/f ;
|
2008-02-28 16:42:07 -05:00
|
|
|
|
|
|
|
|
M: windows-io temporary-path ( -- path )
|
|
|
|
|
"TEMP" os-env ;
|
