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
|
/*-
* See the file LICENSE for redistribution information.
*
* Copyright (c) 1997-2009 Oracle. All rights reserved.
*
* $Id$
*/
#include "db_config.h"
#define __INCLUDE_DIRECTORY 1
#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, "fileops: directory list %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);
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);
}
}
|