+ /* If FILE_NAME represents a special file, write to it directly
+ instead of trying to replace it. */
+ if (Tstat (Tfile_name, &s) == 0 && !S_ISREG (s.st_mode))
+ {
+ /* Open file descriptor. */
+ fd = Topen (Tfile_name, O_WRONLY);
+ if (fd < 0)
+ {
+ saved_errno = errno;
+ msg (ME, _("Opening %s for writing: %s."),
+ file_name, strerror (saved_errno));
+ free (Tfile_name);
+ return NULL;
+ }
+
+ /* Open file as stream. */
+ *fp = fdopen (fd, mode);
+ if (*fp == NULL)
+ {
+ saved_errno = errno;
+ msg (ME, _("Opening stream for %s: %s."),
+ file_name, strerror (saved_errno));
+ close (fd);
+ free (Tfile_name);
+ return NULL;
+ }
+
+ rf = xzalloc (sizeof *rf);
+ rf->file_name = NULL;
+ rf->tmp_name = Tfile_name;
+ return rf;
+ }
+
+ if (!registered)
+ {
+ at_fatal_signal (unlink_replace_files);
+ registered = true;
+ }
+ block_fatal_signals ();
+
+ rf = xzalloc (sizeof *rf);
+ rf->file_name = Tfile_name;
+ rf->file_name_verbatim = file_name;
+
+ for (;;)
+ {
+ /* Generate unique temporary file name. */
+ free (rf->tmp_name_verbatim);
+ rf->tmp_name_verbatim = xasprintf ("%stmpXXXXXX", file_name);
+ if (gen_tempname (rf->tmp_name_verbatim, 0, 0600, GT_NOCREATE) < 0)
+ {
+ saved_errno = errno;
+ msg (ME, _("Creating temporary file to replace %s: %s."),
+ file_name, strerror (saved_errno));
+ goto error;
+ }
+
+ rf->tmp_name = convert_to_filename_encoding (rf->tmp_name_verbatim, strlen (rf->tmp_name_verbatim), fh_get_file_name_encoding (fh));
+
+ /* Create file by that name. */
+ bool binary = strchr (mode, 'b') != NULL;
+ fd = Topen (rf->tmp_name,
+ O_WRONLY | O_CREAT | O_EXCL | (binary ? O_BINARY : O_TEXT),
+ permissions);
+ if (fd >= 0)
+ break;
+ if (errno != EEXIST)
+ {
+ saved_errno = errno;
+ msg (ME, _("Creating temporary file %s: %s."),
+ rf->tmp_name_verbatim, strerror (saved_errno));
+ goto error;
+ }
+ }
+
+
+ /* Open file as stream. */
+ *fp = fdopen (fd, mode);
+ if (*fp == NULL)
+ {
+ saved_errno = errno;
+ msg (ME, _("Opening stream for temporary file %s: %s."),
+ rf->tmp_name_verbatim, strerror (saved_errno));
+ close (fd);
+ Tunlink (rf->tmp_name);
+ goto error;
+ }
+
+ /* Register file for deletion. */
+ ll_push_head (&all_files, &rf->ll);
+ unblock_fatal_signals ();
+
+ return rf;
+
+ error:
+ unblock_fatal_signals ();
+ free_replace_file (rf);
+ *fp = NULL;
+ errno = saved_errno;
+ return NULL;
+}