1 | /* Copyright (C) 1992, 1993, 1994, 1995, 1996 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 Library General Public License as |
---|
6 | published by the Free Software Foundation; either version 2 of the |
---|
7 | 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 | Library General Public License for more details. |
---|
13 | |
---|
14 | You should have received a copy of the GNU Library General Public |
---|
15 | License along with this library; if not, write to the Free Software |
---|
16 | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 |
---|
17 | USA. */ |
---|
18 | |
---|
19 | #if defined(WIN32) && !defined(__CYGWIN__) |
---|
20 | # include "scandir_win32.c" |
---|
21 | #else |
---|
22 | |
---|
23 | # include "flstring.h" |
---|
24 | |
---|
25 | # if !HAVE_SCANDIR |
---|
26 | # include <stdlib.h> |
---|
27 | # include <sys/types.h> |
---|
28 | # include <errno.h> |
---|
29 | |
---|
30 | # if HAVE_DIRENT_H |
---|
31 | # include <dirent.h> |
---|
32 | # define NAMLEN(dirent) strlen((dirent)->d_name) |
---|
33 | # else |
---|
34 | # define dirent direct |
---|
35 | # define NAMLEN(dirent) (dirent)->d_namlen |
---|
36 | # if HAVE_SYS_NDIR_H |
---|
37 | # include <sys/ndir.h> |
---|
38 | # endif |
---|
39 | # if HAVE_SYS_DIR_H |
---|
40 | # include <sys/dir.h> |
---|
41 | # endif |
---|
42 | # if HAVE_NDIR_H |
---|
43 | # include <ndir.h> |
---|
44 | # endif |
---|
45 | # endif |
---|
46 | |
---|
47 | int |
---|
48 | fl_scandir(const char *dir, struct dirent ***namelist, |
---|
49 | int (*select)(struct dirent *), |
---|
50 | int (*compar)(struct dirent **, struct dirent **)) |
---|
51 | { |
---|
52 | DIR *dp = opendir (dir); |
---|
53 | struct dirent **v = NULL; |
---|
54 | size_t vsize = 0, i; |
---|
55 | struct dirent *d; |
---|
56 | int save; |
---|
57 | |
---|
58 | if (dp == NULL) |
---|
59 | return -1; |
---|
60 | |
---|
61 | save = errno; |
---|
62 | errno = 0; |
---|
63 | |
---|
64 | i = 0; |
---|
65 | while ((d = readdir (dp)) != NULL) |
---|
66 | if (select == NULL || (*select) (d)) |
---|
67 | { |
---|
68 | size_t dsize; |
---|
69 | |
---|
70 | if (i == vsize) |
---|
71 | { |
---|
72 | struct dirent **newv; |
---|
73 | if (vsize == 0) |
---|
74 | vsize = 10; |
---|
75 | else |
---|
76 | vsize *= 2; |
---|
77 | newv = (struct dirent **) realloc (v, vsize * sizeof (*v)); |
---|
78 | if (newv == NULL) |
---|
79 | { |
---|
80 | lose: |
---|
81 | errno = ENOMEM; |
---|
82 | break; |
---|
83 | } |
---|
84 | v = newv; |
---|
85 | } |
---|
86 | |
---|
87 | # define _D_EXACT_NAMLEN(d) (strlen ((d)->d_name)) |
---|
88 | # define _D_ALLOC_NAMLEN(d) (sizeof (d)->d_name > 1 ? sizeof (d)->d_name : \ |
---|
89 | _D_EXACT_NAMLEN (d) + 1) |
---|
90 | |
---|
91 | dsize = &d->d_name[_D_ALLOC_NAMLEN (d)] - (char *) d; |
---|
92 | v[i] = (struct dirent *) malloc (dsize); |
---|
93 | if (v[i] == NULL) |
---|
94 | goto lose; |
---|
95 | |
---|
96 | memcpy (v[i++], d, dsize); |
---|
97 | } |
---|
98 | |
---|
99 | if (errno != 0) |
---|
100 | { |
---|
101 | save = errno; |
---|
102 | (void) closedir (dp); |
---|
103 | while (i > 0) |
---|
104 | free (v[--i]); |
---|
105 | free (v); |
---|
106 | errno = save; |
---|
107 | return -1; |
---|
108 | } |
---|
109 | |
---|
110 | (void) closedir (dp); |
---|
111 | errno = save; |
---|
112 | |
---|
113 | /* Sort the list if we have a comparison function to sort with. */ |
---|
114 | if (compar) qsort (v, i, sizeof (*v), (int (*)(const void *, const void *))compar); |
---|
115 | *namelist = v; |
---|
116 | return i; |
---|
117 | } |
---|
118 | |
---|
119 | # endif |
---|
120 | #endif |
---|
121 | |
---|
122 | /* |
---|
123 | * End of "$Id$". |
---|
124 | */ |
---|