compiler/clib/readdir.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX function readdir().
   6 */
   7
   8 #include "__arosc_privdata.h"
   9
  10 #include <dos/dos.h>
  11 #include <proto/dos.h>
  12
  13 #include <string.h>
  14 #include <errno.h>
  15
  16 #include "__errno.h"
  17 #include "__open.h"
  18 #include "__upath.h"
  19
  20 #define DEBUG 0
  21 #include <aros/debug.h>
  22
  23 /*****************************************************************************
  24
  25     NAME */
  26 #include <dirent.h>
  27
  28         struct dirent *readdir(
  29
  30 /*  SYNOPSIS */
  31         DIR *dir)
  32
  33 /*  FUNCTION
  34          Reads a directory
  35
  36     INPUTS
  37         dir - the directory stream pointing to the directory being read
  38
  39     RESULT
  40         The  readdir()  function  returns  a  pointer  to a dirent
  41         structure, or NULL if an error occurs  or  end-of-file  is
  42         reached.
  43
  44         The data returned by readdir() is  overwritten  by  subse
  45         quent calls to readdir() for the same directory stream.
  46
  47         According  to POSIX, the dirent structure contains a field
  48         char d_name[] of unspecified size, with at  most  NAME_MAX
  49         characters  preceding the terminating null character.  Use
  50         of other fields will harm the  portability  of  your  pro
  51         grams.
  52
  53     NOTES
  54
  55     EXAMPLE
  56
  57     BUGS
  58
  59     SEE ALSO
  60         read(), opendir(), closedir(), rewinddir(), seekdir(),
  61         telldir(), scandir()
  62
  63     INTERNALS
  64
  65 ******************************************************************************/
  66 {
  67     int const max = MAXFILENAMELENGTH > NAME_MAX ? NAME_MAX : MAXFILENAMELENGTH;
  68     fdesc *desc;
  69
  70     D(bug("readdir("));
  71
  72     if (!dir)
  73     {
  74         D(bug("null)=EFAULT\n"));
  75         errno = EFAULT;
  76         return NULL;
  77     }
  78
  79     desc = __getfdesc(dir->fd);
  80     if (!desc)
  81     {
  82         D(bug("fd=%d)=EBADF\n", (int)dir->fd));
  83         errno = EBADF;
  84         return NULL;
  85     }
  86
  87     if (__doupath && dir->pos == 0)
  88     {
  89         dir->ent.d_type = DT_DIR;
  90         dir->ent.d_name[0]='.';
  91         dir->ent.d_name[1]='\0';
  92         dir->ent.d_reclen = 1;
  93     }
  94     else
  95     if (__doupath && dir->pos == 1)
  96     {
  97         dir->ent.d_type = DT_DIR;
  98         dir->ent.d_name[0]='.';
  99         dir->ent.d_name[1]='.';
 100         dir->ent.d_name[2]='\0';
 101         dir->ent.d_reclen = 2;
 102     }
 103     else
 104     {
 105         struct FileInfoBlock *fib = (struct FileInfoBlock *)dir->priv;
 106
 107         if (!ExNext(desc->fh, fib))
 108         {
 109             dir->pos--;
 110             if (IoErr() != ERROR_NO_MORE_ENTRIES)
 111             {
 112                 errno = IoErr2errno(IoErr());
 113                 D(bug(") errno=%d\n", (int)errno));
 114             }
 115             D(else
 116                 bug("NO_MORE_ENTRIES)\n"));
 117             return NULL;
 118         }
 119
 120         CONST_STRPTR name = fib->fib_FileName;
 121         while (TRUE)
 122         {
 123
 124             if (__doupath && name[0] == '.')
 125             {
 126                 if (name[1] == '.')
 127                 {
 128                     if (name[2] == '\0')
 129                         continue;
 130                 }
 131                 else
 132                 if (name[1] == '\0')
 133                     continue;
 134             }
 135
 136             strncpy(dir->ent.d_name, name, max);
 137             dir->ent.d_reclen = strlen(name);
 138
 139             switch (fib->fib_DirEntryType)
 140             {
 141             case ST_FILE:
 142               dir->ent.d_type = DT_REG;
 143               break;
 144             case ST_ROOT:
 145             case ST_USERDIR:
 146               dir->ent.d_type = DT_DIR;
 147               break;
 148             case ST_SOFTLINK:
 149             case ST_LINKFILE:
 150             case ST_LINKDIR:
 151               dir->ent.d_type = DT_LNK;
 152               break;
 153             case ST_PIPEFILE:
 154               dir->ent.d_type = DT_FIFO;
 155               break;
 156             default:
 157               dir->ent.d_type = DT_UNKNOWN;
 158               break;
 159             }
 160
 161             break;
 162         }
 163     }
 164
 165     D(bug("%s) d_type=%d\n", dir->ent.d_name, (int)dir->ent.d_type));
 166     dir->pos++;
 167     return &(dir->ent);
 168 }