compiler/clib/chdir.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     ANSI C function chdir().
   6 */
   7
   8 #include "__arosc_privdata.h"
   9
  10 #include <exec/types.h>
  11 #include <dos/dos.h>
  12 #include <proto/dos.h>
  13 #include <aros/symbolsets.h>
  14 #include <errno.h>
  15 #include "__errno.h"
  16 #include "__upath.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <unistd.h>
  22
  23         int chdir(
  24
  25 /*  SYNOPSIS */
  26         const char *path )
  27
  28 /*  FUNCTION
  29         Change the current working directory to the one specified by path.
  30
  31     INPUTS
  32         path - Path 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         The path given to chdir can be translated so that getcwd gives back
  43         a string that is not the same but points to th same directory. For
  44         example, assigns are replaced by the path where the assign points to
  45         and device names (like DH0:) are replaced with the volume name
  46         (e.g. Workbench:).
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53
  54     INTERNALS
  55
  56 ******************************************************************************/
  57 {
  58     BPTR oldlock;
  59     BPTR newlock;
  60
  61     path = __path_u2a(path);
  62
  63     if (path == NULL)
  64         return -1;
  65
  66     newlock = Lock( path, SHARED_LOCK );
  67
  68     if( newlock == NULL )
  69     {
  70         errno = IoErr2errno( IoErr() );
  71         goto error;
  72     }
  73
  74     if( SetCurrentDirName( path ) != DOSTRUE )
  75     {
  76         errno = ENAMETOOLONG;
  77         goto error;
  78     }
  79
  80     oldlock = CurrentDir( newlock );
  81
  82     if( __startup_cd_changed )
  83     {
  84         UnLock( oldlock );
  85     }
  86     else
  87     {
  88         __startup_cd_changed = TRUE;
  89         __startup_cd_lock    = oldlock;
  90     }
  91
  92     return 0;
  93
  94 error:
  95     if( newlock != NULL ) UnLock( newlock );
  96
  97     return -1;
  98 }
  99
 100 int __init_chdir(void)
 101 {
 102     __startup_cd_changed = FALSE;
 103
 104     return 1;
 105 }
 106
 107 void __exit_chdir(void)
 108 {
 109     if( __startup_cd_changed )
 110     {
 111         TEXT buffer[256]; /* Longest string supported by SetCurrentDirName() */
 112
 113         if( NameFromLock( __startup_cd_lock, buffer, 256 ) )
 114         {
 115             SetCurrentDirName(buffer);
 116         }
 117
 118             BPTR
 119         lock = CurrentDir( __startup_cd_lock );
 120
 121         UnLock( lock );
 122     }
 123 }
 124
 125 ADD2INIT(__init_chdir, 110);
 126 ADD2EXIT(__exit_chdir, 110);