pith/osdep/rename.c

   1 /*
   2  * ========================================================================
   3  * Copyright 2013-2022 Eduardo Chappa
   4  * Copyright 2006 University of Washington
   5  *
   6  * Licensed under the Apache License, Version 2.0 (the "License");
   7  * you may not use this file except in compliance with the License.
   8  * You may obtain a copy of the License at
   9  *
  10  *     http://www.apache.org/licenses/LICENSE-2.0
  11  *
  12  * ========================================================================
  13  */
  14
  15 #include <system.h>
  16 #include "err_desc.h"
  17 #include "../charconv/utf8.h"
  18 #include "../charconv/filesys.h"
  19 #include "rename.h"
  20
  21
  22 /*----------------------------------------------------------------------
  23       Rename a file
  24
  25   Args: tmpfname -- Old name of file
  26         fname    -- New name of file
  27
  28  Result: File is renamed.  Returns 0 on success, else -1 on error
  29          and errno is valid.
  30   ----*/
  31 int
  32 rename_file(char *tmpfname, char *fname)
  33 {
  34 #if     HAVE_RENAME
  35     return(our_rename(tmpfname, fname));
  36 #else
  37 # if    defined(_WINDOWS)
  38     int ret;
  39
  40     /*
  41      * DOS rename doesn't unlink destination for us...
  42      */
  43     if((ret = our_unlink(fname)) && (errno == EPERM)){
  44         ret = -5;
  45     }
  46     else{
  47         ret = our_rename(tmpfname, fname);
  48         if(ret)
  49           ret = -1;
  50     }
  51
  52     return(ret);
  53 # else
  54     int status;
  55
  56     our_unlink(fname);
  57     if ((status = link(tmpfname, fname)) != 0)
  58         return(status);
  59
  60     our_unlink(tmpfname);
  61     return(0);
  62 # endif
  63 #endif
  64 }
  65
  66