mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

(scm_copy_file): Use fstat on the input fd rather than

Browse source 
stat on the filename, to be certain a file rename can't mean we get
info on one filesystem object but open another.  This fstat usage is
similar to Emacs copy-file.
This commit is contained in:
Kevin Ryde 2004-08-05 01:02:58 +00:00
parent 29e6112441
commit 37eb673bc6
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/filesys.c
View file

@ -1408,23 +1408,31 @@ SCM_DEFINE (scm_copy_file, "copy-file", 2, 0, 0,
#define FUNC_NAME s_scm_copy_file
{
int oldfd, newfd;
int n;
int n, rv;
char buf[BUFSIZ];
struct stat oldstat;
SCM_VALIDATE_STRING (1, oldfile);
SCM_VALIDATE_STRING (2, newfile);
if (stat (SCM_STRING_CHARS (oldfile), &oldstat) == -1)
SCM_SYSERROR;
oldfd = open (SCM_STRING_CHARS (oldfile), O_RDONLY);
if (oldfd == -1)
SCM_SYSERROR;
#ifdef __MINGW32__
SCM_SYSCALL (rv = fstat_Win32 (oldfd, &oldstat));
#else
SCM_SYSCALL (rv = fstat (oldfd, &oldstat));
#endif
if (rv == -1)
goto err_close_oldfd;
/* use POSIX flags instead of 07777?. */
newfd = open (SCM_STRING_CHARS (newfile), O_WRONLY | O_CREAT | O_TRUNC,
oldstat.st_mode & 07777);
if (newfd == -1)
{
err_close_oldfd:
close (oldfd);
SCM_SYSERROR;
}