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 "__open.h"
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <dirent.h>
  20
  21         int closedir(
  22
  23 /*  SYNOPSIS */
  24         DIR *dir)
  25
  26 /*  FUNCTION
  27          Closes a directory
  28
  29     INPUTS
  30         dir - the directory stream pointing to the directory being closed
  31
  32     RESULT
  33         The  closedir()  function  returns  0  on success or -1 on
  34         failure.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43         close(), opendir(),  readdir(), rewinddir(), seekdir(),
  44         telldir(), scandir()
  45
  46     INTERNALS
  47
  48 ******************************************************************************/
  49 {
  50     fdesc *desc;
  51
  52     if (!dir)
  53     {
  54         errno = EFAULT;
  55         return -1;
  56     }
  57
  58     desc = __getfdesc(dir->fd);
  59     if (!desc)
  60     {
  61         errno = EBADF;
  62         return -1;
  63     }
  64
  65     if (--desc->fcb->opencount == 0)
  66     {
  67         UnLock(desc->fcb->fh);
  68         FreeVec(desc->fcb);
  69     }
  70     __free_fdesc(desc);
  71     __setfdesc(dir->fd, NULL);
  72
  73     FreeDosObject(DOS_FIB, dir->priv);
  74     free(dir);
  75
  76     return 0;
  77 }