1/* Stop reading the entries of a directory. 2 Copyright (C) 2006-2022 Free Software Foundation, Inc. 3 4 This file is free software: you can redistribute it and/or modify 5 it under the terms of the GNU Lesser General Public License as 6 published by the Free Software Foundation; either version 2.1 of the 7 License, or (at your option) any later version. 8 9 This file 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 12 GNU Lesser General Public License for more details. 13 14 You should have received a copy of the GNU Lesser General Public License 15 along with this program. If not, see <https://www.gnu.org/licenses/>. */ 16 17#include <config.h> 18 19/* Specification. */ 20#include <dirent.h> 21 22#if REPLACE_FCHDIR 23# include <unistd.h> 24#endif 25 26#if HAVE_CLOSEDIR 27 28/* Override closedir(), to keep track of the open file descriptors. 29 Needed because there is a function dirfd(). */ 30 31#else 32 33# include <stdlib.h> 34 35# include "dirent-private.h" 36 37#endif 38 39int 40closedir (DIR *dirp) 41{ 42# if REPLACE_FCHDIR || REPLACE_DIRFD 43 int fd = dirfd (dirp); 44# endif 45 int retval; 46 47#if HAVE_CLOSEDIR 48# undef closedir 49 50 retval = closedir (dirp); 51 52# ifdef __KLIBC__ 53 if (!retval) 54 _gl_unregister_dirp_fd (fd); 55# endif 56#else 57 58 if (dirp->current != INVALID_HANDLE_VALUE) 59 FindClose (dirp->current); 60 free (dirp); 61 62 retval = 0; 63 64#endif 65 66#if REPLACE_FCHDIR 67 if (retval >= 0) 68 _gl_unregister_fd (fd); 69#endif 70 return retval; 71} 72