From 153c044bc888f405f5257d55ac482bad3be2f7a1 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 7 Dec 2004 09:52:44 +0000
Subject: [PATCH] In MSVC, rename does not delete an existing file.

---
 src/c/unixfsys.d | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/c/unixfsys.d b/src/c/unixfsys.d
index 8fbdd416e..ffe34426b 100644
--- a/src/c/unixfsys.d
+++ b/src/c/unixfsys.d
@@ -17,6 +17,10 @@
 #include <string.h>
 #ifndef _MSC_VER
 # include <unistd.h>
+#else
+# include <io.h>
+# define access _access
+# define F_OK 0
 #endif
 #include <sys/types.h>
 #ifdef HAVE_PWD_H
@@ -241,9 +245,14 @@ backup_fopen(const char *filename, const char *option)
 	char backupfilename[MAXPATHLEN];
 
 	strcat(strcpy(backupfilename, filename), ".BAK");
+#ifdef _MSC_VER
+	/* MSVC rename doesn't remove an existing file */
+	if (access(backupfilename, F_OK) == 0 && unlink(backupfilename))
+		FElibc_error("Cannot remove the file ~S", 1, make_simple_string(backupfilename));
+#endif
 	if (rename(filename, backupfilename))
 		FElibc_error("Cannot rename the file ~S to ~S.", 2,
-			     filename, backupfilename);
+			     make_simple_string(filename), make_simple_string(backupfilename));
 	return fopen(filename, option);
 }