Blame gcl-2.6.11-rename.patch
|
Jerry James |
b08b3a4 |
--- ./o/unixfsys.c.orig 2014-09-06 09:45:30.000000000 -0600
|
|
Jerry James |
b08b3a4 |
+++ ./o/unixfsys.c 2014-09-06 20:00:00.000000000 -0600
|
|
Jerry James |
a8bc9ed |
@@ -411,11 +411,17 @@ FILE *
|
|
|
e6a2505 |
backup_fopen(char *filename, char *option)
|
|
|
e6a2505 |
{
|
|
|
e6a2505 |
char backupfilename[MAXPATHLEN];
|
|
|
7fc6c88 |
- char command[MAXPATHLEN * 2];
|
|
|
e6a2505 |
+#ifndef HAVE_RENAME
|
|
|
7fc6c88 |
+ char command[MAXPATHLEN * 2 + 4];
|
|
|
e6a2505 |
+#endif
|
|
|
e6a2505 |
|
|
|
e6a2505 |
strcat(strcpy(backupfilename, filename), ".BAK");
|
|
|
e6a2505 |
+#ifdef HAVE_RENAME
|
|
|
e6a2505 |
+ rename(filename, backupfilename);
|
|
|
e6a2505 |
+#else
|
|
|
e6a2505 |
sprintf(command, "mv %s %s", filename, backupfilename);
|
|
|
7fc6c88 |
msystem(command);
|
|
|
e6a2505 |
+#endif
|
|
|
e6a2505 |
return(fopen(filename, option));
|
|
|
e6a2505 |
}
|
|
|
e6a2505 |
|
|
Jerry James |
a8bc9ed |
@@ -440,6 +446,9 @@ LFD(Lrename_file)(void)
|
|
|
e6a2505 |
{
|
|
|
e6a2505 |
char filename[MAXPATHLEN];
|
|
|
e6a2505 |
char newfilename[MAXPATHLEN];
|
|
|
e6a2505 |
+#ifndef HAVE_RENAME
|
|
|
7fc6c88 |
+ char command[MAXPATHLEN * 2 + 4];
|
|
|
e6a2505 |
+#endif
|
|
|
e6a2505 |
|
|
|
e6a2505 |
check_arg(2);
|
|
|
e6a2505 |
check_type_or_pathname_string_symbol_stream(&vs_base[0]);
|