compiler/clib/opendir.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX.1-2008 function opendir().
   6 */
   7
   8 #include <dos/dos.h>
   9 #include <proto/dos.h>
  10
  11 #include <stdlib.h>
  12 #ifndef ExNext_IS_WORKING_WITHOUT_ASSIGN
  13 #include <stdio.h>
  14 #endif
  15 #include <unistd.h>
  16 #include <errno.h>
  17 #include <fcntl.h>
  18
  19 #include "__fdesc.h"
  20 #include "__upath.h"
  21 #include "__dirdesc.h"
  22
  23 #define DEBUG 0
  24 #include <aros/debug.h>
  25
  26 /*****************************************************************************
  27
  28     NAME */
  29 #include <dirent.h>
  30
  31         DIR *opendir(
  32
  33 /*  SYNOPSIS */
  34         const char *name)
  35
  36 /*  FUNCTION
  37         Opens a directory
  38
  39     INPUTS
  40         pathname - Path and filename of the directory you want to open.
  41
  42     RESULT
  43         NULL for error or a directory stream
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52         open(), readdir(), closedir(), rewinddir(), seekdir(),
  53         telldir(), scandir()
  54
  55     INTERNALS
  56
  57 ******************************************************************************/
  58 {
  59     DIR *dir;
  60     int fd;
  61     fcb *cblock;
  62     fdesc *desc;
  63     BPTR lock;
  64     const char *aname;
  65 #ifndef ExNext_IS_WORKING_WITHOUT_ASSIGN
  66     char assign[32];
  67 #endif
  68
  69     if (!name)
  70     {
  71         errno = EFAULT;
  72         goto err1;
  73     }
  74
  75     dir = malloc(sizeof(DIR));
  76     if (!dir)
  77     {
  78         errno = ENOMEM;
  79         goto err1;
  80     }
  81
  82     dir->priv = AllocDosObject(DOS_FIB, NULL);
  83     if (!dir->priv)
  84     {
  85         errno = ENOMEM;
  86         goto err2;
  87     }
  88
  89     /* Lock is used instead of open to allow opening "" */
  90     aname = __path_u2a(name);
  91     lock = Lock(aname, SHARED_LOCK);
  92     if (!lock)
  93     {
  94         errno = __arosc_ioerr2errno(IoErr());
  95         goto err3;
  96     }
  97
  98 #ifndef ExNext_IS_WORKING_WITHOUT_ASSIGN
  99     sprintf(assign, "READDIR%p", dir);
 100
 101     if (!AssignLock(assign, DupLock(lock)))
 102     {
 103         D(bug("!AssignLock err=%d\n", IoErr()));
 104     }
 105
 106     UnLock(lock);
 107     lock = Lock(aname, SHARED_LOCK);
 108
 109     AssignLock(assign, BNULL);
 110 #endif
 111
 112     if (!Examine(lock, dir->priv))
 113     {
 114         errno = __arosc_ioerr2errno(IoErr());
 115         goto err4;
 116     }
 117
 118     if (((struct FileInfoBlock *)dir->priv)->fib_DirEntryType<=0)
 119     {
 120         errno = ENOTDIR;
 121         goto err4;
 122     }
 123
 124     cblock = AllocVec(sizeof(fcb), MEMF_ANY | MEMF_CLEAR);
 125     if(!cblock)
 126     {
 127         errno = ENOMEM;
 128         goto err4;
 129     }
 130     desc = __alloc_fdesc();
 131     if(!desc)
 132     {
 133         errno = ENOMEM;
 134         goto err5;
 135     }
 136     desc->fdflags = 0;
 137     desc->fcb = cblock;
 138     desc->fcb->fh = lock;
 139     desc->fcb->flags = O_RDONLY;
 140     desc->fcb->opencount = 1;
 141     desc->fcb->isdir = 1;
 142
 143     fd = __getfdslot(__getfirstfd(3));
 144     __setfdesc(fd, desc);
 145
 146     dir->fd = fd;
 147     dir->pos = 0;
 148     dir->ent.d_name[NAME_MAX] = '\0';
 149
 150     D(bug("opendir(%s) fd=%d\n", name, fd));
 151     return dir;
 152
 153 err5:
 154     FreeVec(cblock);
 155 err4:
 156     UnLock(lock);
 157 err3:
 158     FreeDosObject(DOS_FIB, dir->priv);
 159 err2:
 160     free(dir);
 161 err1:
 162     D(bug("opendir(%s) errno=%d\n", name, errno));
 163     return NULL;
 164 }