1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
/*
* Non-BSD systems only.
*/
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/dir.h>
#include <stdio.h>
#define DIRSIZE(e) (min(strlen(e->d_name), DIRSIZ))
typedef struct {
int d_fd;
} DIR;
char *malloc();
DIR *
opendir(dir)
char *dir;
{
struct stat stbuf;
DIR *dp = (DIR *) malloc(sizeof *dp);
if ((dp->d_fd = open(dir, 0)) < 0)
return(0);
if ((fstat(dp->d_fd, &stbuf) < 0) ||
((stbuf.st_mode & S_IFDIR) == 0)) {
closedir(dp);
return(0); /* this isn't a directory! */
}
return(dp);
}
closedir(dp)
DIR *dp;
{
(void) close(dp->d_fd);
free((char *) dp);
}
struct direct *
readdir(dp)
DIR *dp;
{
static struct direct dir;
do {
if (read(dp->d_fd, &dir, sizeof(dir)) != sizeof(dir))
return(0);
} while (dir.d_ino == 0);
return(&dir);
}
/*
* Scandir returns the number of entries or -1 if the
* directory cannot be opened or malloc fails.
*/
scandir(dir, nmptr, select, compar)
char *dir;
char ***nmptr;
int (*select)();
int (*compar)();
{
DIR *dirp;
char **array;
char **realloc();
struct direct *ent;
unsigned int nalloc = 10, nentries = 0;
if ((dirp = opendir(dir)) == NULL)
return(-1);
array = (char **) malloc(nalloc * sizeof (char *));
if (array == NULL)
return(-1);
while ((ent = readdir(dirp)) != NULL) {
if (select && ((*select)(ent->d_name) == 0))
continue;
if (nentries == nalloc) {
array = realloc(array, (nalloc += 10) * sizeof(char *));
if (array == NULL)
return(-1);
}
array[nentries] = (char *) malloc(DIRSIZE(ent)+1);
strncpy(array[nentries], ent->d_name, DIRSIZE(ent));
array[nentries][DIRSIZE(ent)] = NULL;
nentries++;
}
closedir(dirp);
if ((nentries + 1) != nalloc)
array = realloc(array, ((nentries + 1) * sizeof (char *)));
if (compar != 0)
qsort(array, nentries, sizeof(char **), compar);
*nmptr = array;
array[nentries] = 0; /* guaranteed 0 pointer */
return(nentries);
}
alphasort(a, b)
char **a, **b;
{
return(strcmp(*a, *b));
}
|
