Annotation of gforth/libltdl/lt__dirent.c, revision 1.1
1.1 ! anton 1: /* lt__dirent.c -- internal directory entry scanning interface
! 2:
! 3: Copyright (C) 2001, 2004 Free Software Foundation, Inc.
! 4: Written by Bob Friesenhahn, 2001
! 5:
! 6: NOTE: The canonical source of this file is maintained with the
! 7: GNU Libtool package. Report bugs to bug-libtool@gnu.org.
! 8:
! 9: GNU Libltdl is free software; you can redistribute it and/or
! 10: modify it under the terms of the GNU Lesser General Public
! 11: License as published by the Free Software Foundation; either
! 12: version 2 of the License, or (at your option) any later version.
! 13:
! 14: As a special exception to the GNU Lesser General Public License,
! 15: if you distribute this file as part of a program or library that
! 16: is built using GNU Libtool, you may include this file under the
! 17: same distribution terms that you use for the rest of that program.
! 18:
! 19: GNU Libltdl is distributed in the hope that it will be useful,
! 20: but WITHOUT ANY WARRANTY; without even the implied warranty of
! 21: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! 22: GNU Lesser General Public License for more details.
! 23:
! 24: You should have received a copy of the GNU Lesser General Public
! 25: License along with GNU Libltdl; see the file COPYING.LIB. If not, a
! 26: copy can be downloaded from http://www.gnu.org/licenses/lgpl.html,
! 27: or obtained by writing to the Free Software Foundation, Inc.,
! 28: 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
! 29: */
! 30:
! 31: #include "lt__private.h"
! 32:
! 33: #include <assert.h>
! 34: #include <stddef.h>
! 35:
! 36: #include "lt__dirent.h"
! 37:
! 38: #if defined(__WINDOWS__)
! 39:
! 40: void
! 41: closedir (DIR *entry)
! 42: {
! 43: assert (entry != (DIR *) NULL);
! 44: FindClose (entry->hSearch);
! 45: free ((void *) entry);
! 46: }
! 47:
! 48:
! 49: DIR *
! 50: opendir (const char *path)
! 51: {
! 52: char file_spec[LT_FILENAME_MAX];
! 53: DIR *entry;
! 54:
! 55: assert (path != (char *) 0);
! 56: if (lt_strlcpy (file_spec, path, sizeof file_spec) >= sizeof file_spec
! 57: || lt_strlcat (file_spec, "\\", sizeof file_spec) >= sizeof file_spec)
! 58: return (DIR *) 0;
! 59: entry = (DIR *) malloc (sizeof(DIR));
! 60: if (entry != (DIR *) 0)
! 61: {
! 62: entry->firsttime = TRUE;
! 63: entry->hSearch = FindFirstFile (file_spec, &entry->Win32FindData);
! 64:
! 65: if (entry->hSearch == INVALID_HANDLE_VALUE)
! 66: {
! 67: if (lt_strlcat (file_spec, "\\*.*", sizeof file_spec) < sizeof file_spec)
! 68: {
! 69: entry->hSearch = FindFirstFile (file_spec, &entry->Win32FindData);
! 70: }
! 71:
! 72: if (entry->hSearch == INVALID_HANDLE_VALUE)
! 73: {
! 74: entry = (free (entry), (DIR *) 0);
! 75: }
! 76: }
! 77: }
! 78:
! 79: return entry;
! 80: }
! 81:
! 82:
! 83: struct dirent *
! 84: readdir (DIR *entry)
! 85: {
! 86: int status;
! 87:
! 88: if (entry == (DIR *) 0)
! 89: return (struct dirent *) 0;
! 90:
! 91: if (!entry->firsttime)
! 92: {
! 93: status = FindNextFile (entry->hSearch, &entry->Win32FindData);
! 94: if (status == 0)
! 95: return (struct dirent *) 0;
! 96: }
! 97:
! 98: entry->firsttime = FALSE;
! 99: if (lt_strlcpy (entry->file_info.d_name, entry->Win32FindData.cFileName,
! 100: sizeof entry->file_info.d_name) >= sizeof entry->file_info.d_name)
! 101: return (struct dirent *) 0;
! 102: entry->file_info.d_namlen = strlen (entry->file_info.d_name);
! 103:
! 104: return &entry->file_info;
! 105: }
! 106:
! 107: #endif /*defined(__WINDOWS__)*/
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>