pith/osdep/rename.c

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