2008-12-08 22:32:36 -05:00
|
|
|
USING: kernel system windows.kernel32 io.windows
|
|
|
|
io.windows.files io.ports windows destructors environment
|
|
|
|
io.files.unique ;
|
2008-02-29 01:10:37 -05:00
|
|
|
IN: io.windows.files.unique
|
2008-02-28 16:42:07 -05:00
|
|
|
|
2008-12-08 22:32:36 -05:00
|
|
|
M: windows touch-unique-file ( path -- )
|
2008-05-15 06:20:42 -04:00
|
|
|
GENERIC_WRITE CREATE_NEW 0 open-file dispose ;
|
2008-02-28 16:42:07 -05:00
|
|
|
|
2008-04-02 21:09:56 -04:00
|
|
|
M: windows temporary-path ( -- path )
|
2008-02-28 16:42:07 -05:00
|
|
|
"TEMP" os-env ;
|