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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
/*-
* See the file LICENSE for redistribution information.
*
* Copyright (c) 1997, 2012 Oracle and/or its affiliates. All rights reserved.
*
* $Id$
*/
#include "db_config.h"
#if HAVE_DIRENT_H
# include <dirent.h>
# define NAMLEN(dirent) strlen((dirent)->d_name)
#else
# define dirent direct
# define NAMLEN(dirent) (dirent)->d_namlen
# if HAVE_SYS_NDIR_H
# include <sys/ndir.h>
# endif
# if HAVE_SYS_DIR_H
# include <sys/dir.h>
# endif
# if HAVE_NDIR_H
# include <ndir.h>
# endif
#endif
#include "db_int.h"
/*
* __os_dirlist --
* Return a list of the files in a directory.
*
* PUBLIC: int __os_dirlist __P((ENV *, const char *, int, char ***, int *));
*/
int
__os_dirlist(env, dir, returndir, namesp, cntp)
ENV *env;
const char *dir;
int returndir, *cntp;
char ***namesp;
{
DB_ENV *dbenv;
struct dirent *dp;
DIR *dirp;
struct stat sb;
int arraysz, cnt, ret;
char **names, buf[DB_MAXPATHLEN];
*namesp = NULL;
*cntp = 0;
dbenv = env == NULL ? NULL : env->dbenv;
if (dbenv != NULL &&
FLD_ISSET(dbenv->verbose, DB_VERB_FILEOPS | DB_VERB_FILEOPS_ALL))
__db_msg(env, DB_STR_A("0159",
"fileops: directory list %s", "%s"), dir);
if (DB_GLOBAL(j_dirlist) != NULL)
return (DB_GLOBAL(j_dirlist)(dir, namesp, cntp));
if ((dirp = opendir(CHAR_STAR_CAST dir)) == NULL)
return (__os_get_errno());
names = NULL;
for (arraysz = cnt = 0; (dp = readdir(dirp)) != NULL;) {
snprintf(buf, sizeof(buf), "%s/%s", dir, dp->d_name);
RETRY_CHK(stat(buf, &sb), ret);
if (ret != 0) {
ret = __os_posix_err(ret);
/* Ignore entries that no longer exist. */
if (ret == ENOENT)
continue;
goto err;
}
/*
* We return regular files, and optionally return directories
* (except for dot and dot-dot).
*
* Shared memory files are of a different type on QNX, and we
* return those as well.
*/
#ifdef HAVE_QNX
if (!S_ISREG(sb.st_mode) && !S_TYPEISSHM(&sb)) {
#else
if (!S_ISREG(sb.st_mode)) {
#endif
if (!returndir || !S_ISDIR(sb.st_mode))
continue;
if (dp->d_name[0] == '.' && (dp->d_name[1] == '\0' ||
(dp->d_name[1] == '.' && dp->d_name[2] == '\0')))
continue;
}
if (cnt >= arraysz) {
arraysz += 100;
if ((ret = __os_realloc(env,
(u_int)arraysz * sizeof(names[0]), &names)) != 0)
goto err;
}
if ((ret = __os_strdup(env, dp->d_name, &names[cnt])) != 0)
goto err;
cnt++;
}
(void)closedir(dirp);
*namesp = names;
*cntp = cnt;
return (0);
err: if (names != NULL)
__os_dirfree(env, names, cnt);
if (dirp != NULL)
(void)closedir(dirp);
return (ret);
}
/*
* __os_dirfree --
* Free the list of files.
*
* PUBLIC: void __os_dirfree __P((ENV *, char **, int));
*/
void
__os_dirfree(env, names, cnt)
ENV *env;
char **names;
int cnt;
{
if (DB_GLOBAL(j_dirfree) != NULL)
DB_GLOBAL(j_dirfree)(names, cnt);
else {
while (cnt > 0)
__os_free(env, names[--cnt]);
__os_free(env, names);
}
}
|
