comparison src/fileio.c @ 37292:80082652ed9f

(Fcopy_file) [WINDOWSNT]: Use CopyFile.

37291:83dd2eb5365f

    barf_or_query_if_file_exists (encoded_newname, "copy to it",
				  INTEGERP (ok_if_already_exists), &out_st, 0);
  else if (stat (XSTRING (encoded_newname)->data, &out_st) < 0)
    out_st.st_mode = 0;

  ifd = emacs_open (XSTRING (encoded_file)->data, O_RDONLY, 0);
  if (ifd < 0)
    report_file_error ("Opening input file", Fcons (file, Qnil));

  record_unwind_protect (close_file_unwind, make_number (ifd));

#endif /* DJGPP version 2 or newer */
#endif /* MSDOS */
    }

  emacs_close (ifd);

  /* Discard the unwind protects.  */
  specpdl_ptr = specpdl + count;

  UNGCPRO;

37292:80082652ed9f

    barf_or_query_if_file_exists (encoded_newname, "copy to it",
				  INTEGERP (ok_if_already_exists), &out_st, 0);
  else if (stat (XSTRING (encoded_newname)->data, &out_st) < 0)
    out_st.st_mode = 0;

#ifdef WINDOWSNT
  if (!CopyFile (XSTRING (encoded_file)->data,
		 XSTRING (encoded_newname)->data, 
		 FALSE))
    report_file_error ("Copying file", Fcons (file, Fcons (newname, Qnil)));
  else if (NILP (keep_time))
    {
      EMACS_TIME now;
      EMACS_GET_TIME (now);
      if (set_file_times (XSTRING (encoded_newname)->data,
			  now, now))
	Fsignal (Qfile_date_error,
		 Fcons (build_string ("Cannot set file date"),
			Fcons (newname, Qnil)));
    }
#else /* not WINDOWSNT */
  ifd = emacs_open (XSTRING (encoded_file)->data, O_RDONLY, 0);
  if (ifd < 0)
    report_file_error ("Opening input file", Fcons (file, Qnil));

  record_unwind_protect (close_file_unwind, make_number (ifd));

#endif /* DJGPP version 2 or newer */
#endif /* MSDOS */
    }

  emacs_close (ifd);
#endif /* WINDOWSNT */

  /* Discard the unwind protects.  */
  specpdl_ptr = specpdl + count;

  UNGCPRO;