(routines): Remove __ names.
[kopensolaris-gnu/glibc.git] / dirent / scandir.c
1 /* Copyright (C) 1992, 1993, 1994 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                 errno = ENOMEM;
58                 break;
59               }
60             v = new;
61           }
62
63         v[i] = (struct dirent *) malloc (sizeof (**v));
64         if (v[i] == NULL)
65           goto lose;
66
67         *v[i++] = *d;
68       }
69
70   if (errno != 0)
71     {
72       save = errno;
73       (void) closedir (dp);
74       while (i > 0)
75         free (v[--i]);
76       free (v);
77       errno = save;
78       return -1;
79     }
80
81   (void) closedir (dp);
82   errno = save;
83
84   /* Sort the list if we have a comparison function to sort with.  */
85   if (cmp != NULL)
86     qsort (v, i, sizeof (*v), cmp);
87   *namelist = v;
88   return i;
89 }