(test): Return error value.
[kopensolaris-gnu/glibc.git] / dirent / scandir.c
1 /* Copyright (C) 1992, 93, 94, 95, 96, 97 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 not,
16    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17    Boston, MA 02111-1307, USA.  */
18
19 #include <dirent.h>
20 #include <stdlib.h>
21 #include <string.h>
22 #include <errno.h>
23
24 int
25 scandir (dir, namelist, select, cmp)
26      const char *dir;
27      struct dirent ***namelist;
28      int (*select) __P ((struct dirent *));
29      int (*cmp) __P ((const void *, const void *));
30 {
31   DIR *dp = opendir (dir);
32   struct dirent **v = NULL;
33   size_t vsize = 0, i;
34   struct dirent *d;
35   int save;
36
37   if (dp == NULL)
38     return -1;
39
40   save = errno;
41   __set_errno (0);
42
43   i = 0;
44   while ((d = __readdir (dp)) != NULL)
45     if (select == NULL || (*select) (d))
46       {
47         size_t dsize;
48
49         /* Ignore errors from select or readdir */
50         __set_errno (0);
51
52         if (i == vsize)
53           {
54             struct dirent **new;
55             if (vsize == 0)
56               vsize = 10;
57             else
58               vsize *= 2;
59             new = (struct dirent **) realloc (v, vsize * sizeof (*v));
60             if (new == NULL)
61               {
62               lose:
63                 __set_errno (ENOMEM);
64                 break;
65               }
66             v = new;
67           }
68
69         dsize = &d->d_name[_D_ALLOC_NAMLEN (d)] - (char *) d;
70         v[i] = (struct dirent *) malloc (dsize);
71         if (v[i] == NULL)
72           goto lose;
73
74         memcpy (v[i++], d, dsize);
75       }
76
77   if (errno != 0)
78     {
79       save = errno;
80       (void) closedir (dp);
81       while (i > 0)
82         free (v[--i]);
83       free (v);
84       __set_errno (save);
85       return -1;
86     }
87
88   (void) closedir (dp);
89   __set_errno (save);
90
91   /* Sort the list if we have a comparison function to sort with.  */
92   if (cmp != NULL)
93     qsort (v, i, sizeof (*v), cmp);
94   *namelist = v;
95   return i;
96 }