compiler/clib/fchdir.c

   1 /*
   2     Copyright © 2008-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "__arosc_privdata.h"
   7
   8 #include <exec/types.h>
   9 #include <dos/dos.h>
  10 #include <proto/dos.h>
  11 #include <aros/symbolsets.h>
  12 #include <errno.h>
  13 #include "__upath.h"
  14 #include <aros/debug.h>
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <unistd.h>
  20
  21         int fchdir(
  22
  23 /*  SYNOPSIS */
  24         int fd )
  25
  26 /*  FUNCTION
  27         Change the current working directory to the directory given as an open
  28         file descriptor.
  29
  30     INPUTS
  31         fd - File descriptor of the directory to change to.
  32
  33     RESULT
  34         If the current directory was changed successfully, zero is returned.
  35         Otherwise, -1 is returned and errno set apropriately.
  36
  37     NOTES
  38         At program exit, the current working directory will be changed back
  39         to the one that was current when the program first started. If you
  40         do not desire this behaviour, use dos.library/CurrentDir() instead.
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47
  48     INTERNALS
  49
  50 ******************************************************************************/
  51 {
  52     struct aroscbase *aroscbase = __GM_GetBase();
  53     BPTR oldlock = BNULL;
  54     BPTR newlock = BNULL;
  55     BPTR handle = BNULL;
  56
  57     if ( __get_default_file(fd, (long*) &handle) != 0 )
  58     {
  59         errno = EBADF;
  60         goto error;
  61     }
  62
  63     newlock = DupLockFromFH(handle);
  64
  65     if( newlock == BNULL )
  66     {
  67         errno = __arosc_ioerr2errno( IoErr() );
  68         goto error;
  69     }
  70     oldlock = CurrentDir( newlock );
  71
  72     if( aroscbase->acb_cd_changed )
  73     {
  74         UnLock( oldlock );
  75     }
  76     else
  77     {
  78         aroscbase->acb_cd_changed = TRUE;
  79         aroscbase->acb_cd_lock    = oldlock;
  80     }
  81     return 0;
  82
  83 error:
  84     if( newlock != BNULL )
  85         UnLock( newlock );
  86
  87     return -1;
  88 }