Back to index

glibc  2.9
closedir.c
Go to the documentation of this file.
00001 /* Copyright (C) 1993, 1995, 1996, 1997 Free Software Foundation, Inc.
00002    This file is part of the GNU C Library.
00003 
00004    The GNU C Library is free software; you can redistribute it and/or
00005    modify it under the terms of the GNU Lesser General Public
00006    License as published by the Free Software Foundation; either
00007    version 2.1 of the License, or (at your option) any later version.
00008 
00009    The GNU C Library is distributed in the hope that it will be useful,
00010    but WITHOUT ANY WARRANTY; without even the implied warranty of
00011    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00012    Lesser General Public License for more details.
00013 
00014    You should have received a copy of the GNU Lesser General Public
00015    License along with the GNU C Library; if not, write to the Free
00016    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
00017    02111-1307 USA.  */
00018 
00019 #include <errno.h>
00020 #include <stddef.h>
00021 #include <stdlib.h>
00022 #include <dirent.h>
00023 #include <unistd.h>
00024 #include <hurd.h>
00025 #include <hurd/fd.h>
00026 #include "dirstream.h"
00027 
00028 /* Close the directory stream DIRP.
00029    Return 0 if successful, -1 if not.  */
00030 int
00031 __closedir (DIR *dirp)
00032 {
00033   error_t err;
00034 
00035   if (dirp == NULL)
00036     {
00037       errno = EINVAL;
00038       return -1;
00039     }
00040 
00041   __libc_lock_lock (dirp->__lock);
00042   err = __vm_deallocate (__mach_task_self (),
00043                       (vm_address_t) dirp->__data, dirp->__allocation);
00044   dirp->__data = NULL;
00045   err = _hurd_fd_close (dirp->__fd);
00046 
00047   if (err)
00048     {
00049       /* Unlock the DIR.  A failing closedir can be repeated (and may fail
00050         again, but shouldn't deadlock).  */
00051       __libc_lock_unlock (dirp->__lock);
00052       return __hurd_fail (err);
00053     }
00054 
00055   /* Clean up the lock and free the structure.  */
00056   __libc_lock_fini (dirp->__lock);
00057   free (dirp);
00058 
00059   return 0;
00060 }
00061 weak_alias (__closedir, closedir)