compiler/clib/closedir.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX function closedir().
   6 */
   7
   8 #include <proto/dos.h>
   9 #include <proto/exec.h>
  10 #include <stdlib.h>
  11 #include <unistd.h>
  12 #include <errno.h>
  13
  14 #include "__fdesc.h"
  15 #include "__dirdesc.h"
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <dirent.h>
  21
  22         int closedir(
  23
  24 /*  SYNOPSIS */
  25         DIR *dir)
  26
  27 /*  FUNCTION
  28          Closes a directory
  29
  30     INPUTS
  31         dir - the directory stream pointing to the directory being closed
  32
  33     RESULT
  34         The  closedir()  function  returns  0  on success or -1 on
  35         failure.
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         close(), opendir(),  readdir(), rewinddir(), seekdir(),
  45         telldir(), scandir()
  46
  47     INTERNALS
  48
  49 ******************************************************************************/
  50 {
  51     fdesc *desc;
  52
  53     if (!dir)
  54     {
  55         errno = EFAULT;
  56         return -1;
  57     }
  58
  59     desc = __getfdesc(dir->fd);
  60     if (!desc)
  61     {
  62         errno = EBADF;
  63         return -1;
  64     }
  65
  66     if (--desc->fcb->opencount == 0)
  67     {
  68         UnLock(desc->fcb->fh);
  69         FreeVec(desc->fcb);
  70     }
  71     __free_fdesc(desc);
  72     __setfdesc(dir->fd, NULL);
  73
  74     FreeDosObject(DOS_FIB, dir->priv);
  75     free(dir);
  76
  77     return 0;
  78 }