/* ISC license. */

#include <unistd.h>
#include <errno.h>

#include <skalibs/djbunix.h>

int fd_move (int to, int from)
{
  int e = errno ;
  int r ;
  if (to == from) return uncoe(to) ;
  do r = dup2(from, to) ;
  while (r == -1 && errno == EINTR) ;
  if (r < 0) return r ;
  errno = e ;
  fd_close(from) ;
  return 0 ;
}