io.files: implement (file-writer-secure)

[factor.git] / basis / io / files / windows / windows.factor

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index d7c848f23fdabe872b8387f76da45ba8e96de2df..51fe2e823632641fc297b2c9e55fe27ddb75342d 100644 (file)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -247,6 +247,8 @@ M: windows init-stdio
 : open-write ( path -- win32-file )
     GENERIC_WRITE CREATE_ALWAYS 0 open-file 0 >>ptr ;
 
+: open-secure-write ( path -- win32-file )
+    GENERIC_WRITE CREATE_NEW FILE_ATTRIBUTE_TEMPORARY open-file 0 >>ptr ;
 
 <PRIVATE
 
@@ -280,6 +282,9 @@ M: windows (file-reader)
 M: windows (file-writer)
     open-write <output-port> ;
 
+M: windows (file-writer-secure)
+    open-secure-write <output-port> ;
+
 M: windows (file-appender)
     open-append <output-port> ;