2008-02-29 18:44:53 -05:00
|
|
|
USING: kernel system io.files.unique.backend ;
|
2008-02-29 01:10:37 -05:00
|
|
|
IN: io.windows.files.unique
|
2008-02-28 16:42:07 -05:00
|
|
|
|
2008-02-29 01:10:37 -05:00
|
|
|
M: windows-io (make-unique-file) ( path -- stream )
|
2008-02-28 16:42:07 -05:00
|
|
|
GENERIC_WRITE CREATE_NEW 0 open-file 0 <writer> ;
|
|
|
|
|
|
|
|
|
|
M: windows-io temporary-path ( -- path )
|
|
|
|
|
"TEMP" os-env ;
|
