entered into RCS
[kopensolaris-gnu/glibc.git] / dirent / scandir.c
1 /* Copyright (C) 1992, 1993 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 the GNU C Library; see the file COPYING.LIB.  If
16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
17 Cambridge, MA 02139, USA.  */
18
19 #include <ansidecl.h>
20 #include <dirent.h>
21 #include <stdlib.h>
22
23 int
24 DEFUN(scandir, (dir, namelist, select, cmp),
25       CONST char *dir AND
26       struct dirent ***namelist AND
27       int EXFUN((*select), (struct dirent *)) AND
28       int EXFUN((*cmp), (CONST PTR, CONST PTR)))
29 {
30   DIR *dp = opendir (dir);
31   struct dirent **v = NULL;
32   size_t vsize = 0, i;
33   struct dirent *d;
34   int save;
35
36   if (dp == NULL)
37     return -1;
38
39   save = errno;
40   errno = 0;
41
42   i = 0;
43   while ((d = readdir (dp)) != NULL)
44     if (select == NULL || (*select) (d))
45       {
46         if (i == vsize)
47           {
48             struct dirent **new;
49             if (vsize == 0)
50               vsize = 10;
51             else
52               vsize *= 2;
53             new = (struct dirent **) realloc (v, vsize * sizeof (*v));
54             if (new == NULL)
55               {
56               lose:
57                 (void) closedir (dp);
58                 while (i > 0)
59                   free (v[--i]);
60                 free (v);
61                 errno = ENOMEM;
62                 return -1;
63               }
64             v = new;
65           }
66
67         v[i] = (struct dirent *) malloc (sizeof (**v));
68         if (v[i] == NULL)
69           goto lose;
70
71         *v[i++] = *d;
72       }
73
74   if (errno != 0)
75     {
76       save = errno;
77       (void) closedir (dp);
78       errno = save;
79       return -1;
80     }
81
82   (void) closedir (dp);
83   errno = save;
84
85   /* Sort the list if we have a comparison function to sort with.  */
86   if (cmp != NULL)
87     qsort (v, i, sizeof (*v), cmp);
88   *namelist = v;
89   return i;
90 }