1 /* Copyright (C) 1993-2022 Free Software Foundation, Inc. 2 This file is part of the GNU C Library. 3 4 The GNU C Library is free software; you can redistribute it and/or 5 modify it under the terms of the GNU Lesser General Public 6 License as published by the Free Software Foundation; either 7 version 2.1 of the License, or (at your option) any later version. 8 9 The GNU C Library is distributed in the hope that it will be useful, 10 but WITHOUT ANY WARRANTY; without even the implied warranty of 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 Lesser General Public License for more details. 13 14 You should have received a copy of the GNU Lesser General Public 15 License along with the GNU C Library; if not, see 16 <https://www.gnu.org/licenses/>. */ 17 18 #include <errno.h> 19 #include <stddef.h> 20 #include <stdlib.h> 21 #include <dirent.h> 22 #include <unistd.h> 23 #include <hurd.h> 24 #include <hurd/fd.h> 25 #include "dirstream.h" 26 27 /* Close the directory stream DIRP. 28 Return 0 if successful, -1 if not. */ 29 int __closedir(DIR * dirp)30__closedir (DIR *dirp) 31 { 32 error_t err; 33 34 if (dirp == NULL) 35 { 36 errno = EINVAL; 37 return -1; 38 } 39 40 __libc_lock_lock (dirp->__lock); 41 err = __vm_deallocate (__mach_task_self (), 42 (vm_address_t) dirp->__data, dirp->__allocation); 43 dirp->__data = NULL; 44 err = _hurd_fd_close (dirp->__fd); 45 46 if (err) 47 { 48 /* Unlock the DIR. A failing closedir can be repeated (and may fail 49 again, but shouldn't deadlock). */ 50 __libc_lock_unlock (dirp->__lock); 51 return __hurd_fail (err); 52 } 53 54 /* Clean up the lock and free the structure. */ 55 __libc_lock_fini (dirp->__lock); 56 free (dirp); 57 58 return 0; 59 } 60 weak_alias (__closedir, closedir) 61