compiler/clib/fchdir.c

   1 /*
   2     Copyright © 2008, 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 "__errno.h"
  14 #include "__upath.h"
  15 #include <aros/debug.h>
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <unistd.h>
  21
  22         int fchdir(
  23
  24 /*  SYNOPSIS */
  25         int fd )
  26
  27 /*  FUNCTION
  28         Change the current working directory to the directory given as an open
  29         file descriptor.
  30
  31     INPUTS
  32         fd - File descriptor of the directory to change to.
  33
  34     RESULT
  35         If the current directory was changed successfully, zero is returned.
  36         Otherwise, -1 is returned and errno set apropriately.
  37
  38     NOTES
  39         At program exit, the current working directory will be changed back
  40         to the one that was current when the program first started. If you
  41         do not desire this behaviour, use dos.library/CurrentDir() instead.
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51 ******************************************************************************/
  52 {
  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 = IoErr2errno( IoErr() );
  68         goto error;
  69     }
  70     oldlock = CurrentDir( newlock );
  71
  72     if( __cd_changed )
  73     {
  74         UnLock( oldlock );
  75     }
  76     else
  77     {
  78         __cd_changed = TRUE;
  79         __cd_lock    = oldlock;
  80     }
  81     return 0;
  82
  83 error:
  84     if( newlock != BNULL )
  85         UnLock( newlock );
  86
  87     return -1;
  88 }