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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
|
/*------------------------------------------------------------------------------
* Copyright (C) 2003-2006 Matt J. Weinstein <weinstein@macalester.edu>
*
* Distributable under the terms of either the Apache License (Version 2.0) or
* the GNU Lesser General Public License, as specified in the COPYING file.
------------------------------------------------------------------------------*/
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#if !defined(HAVE_DIRENT_H) && !defined(HAVE_SYS_NDIR_H) && !defined(HAVE_SYS_DIR_H) && !defined(HAVE_NDIR_H)
#include "stgdirent.h"
#include <sys/stat.h>
#include "errno.h"
DIR *
opendir (const char *szPath)
{
DIR *nd;
char szFullPath[MAX_PATH];
errno = 0;
if (!szPath)
{
errno = EFAULT;
return NULL;
}
if (szPath[0] == '\0')
{
errno = ENOTDIR;
return NULL;
}
/* Attempt to determine if the given path really is a directory. */
struct _stat rcs;
if ( _stat(szPath,&rcs) == -1)
{
/* call GetLastError for more error info */
errno = ENOENT;
return NULL;
}
if (!(rcs.st_mode & _S_IFDIR))
{
/* Error, entry exists but not a directory. */
errno = ENOTDIR;
return NULL;
}
/* Make an absolute pathname. */
_fullpath(szFullPath,szPath,MAX_PATH);
/* Allocate enough space to store DIR structure and the complete
* directory path given. */
//nd = (DIR *) malloc (sizeof (DIR) + _tcslen (szFullPath) + _tcslen (DIRENT_SLASH) +
// _tcslen (DIRENT_SEARCH_SUFFIX)+1);
nd = new DIR;
if (!nd)
{
/* Error, out of memory. */
errno = ENOMEM;
return NULL;
}
/* Create the search expression. */
strcpy (nd->dd_name, szFullPath);
/* Add on a slash if the path does not end with one. */
if (nd->dd_name[0] != '\0' &&
nd->dd_name[strlen (nd->dd_name) - 1] != '/' &&
nd->dd_name[strlen (nd->dd_name) - 1] != '\\')
{
strcat (nd->dd_name, "\\");
}
/* Add on the search pattern */
strcat (nd->dd_name, DIRENT_SEARCH_SUFFIX);
/* Initialize handle to -1 so that a premature closedir doesn't try
* to call _findclose on it. */
nd->dd_handle = -1;
/* Initialize the status. */
nd->dd_stat = 0;
/* Initialize the dirent structure. ino and reclen are invalid under
* Win32, and name simply points at the appropriate part of the
* findfirst_t structure. */
//nd->dd_dir.d_ino = 0;
//nd->dd_dir.d_reclen = 0;
nd->dd_dir.d_namlen = 0;
nd->dd_dir.d_name = nd->dd_dta.name;
return nd;
}
struct dirent * readdir (DIR * dirp)
{
errno = 0;
/* Check for valid DIR struct. */
if (!dirp)
{
errno = EFAULT;
return NULL;
}
if (dirp->dd_dir.d_name != dirp->dd_dta.name)
{
/* The structure does not seem to be set up correctly. */
errno = EINVAL;
return NULL;
}
if (dirp->dd_stat < 0)
{
/* We have already returned all files in the directory
* (or the structure has an invalid dd_stat). */
return NULL;
}
else if (dirp->dd_stat == 0)
{
/* We haven't started the search yet. */
/* Start the search */
dirp->dd_handle = _findfirst (dirp->dd_name, &(dirp->dd_dta));
if (dirp->dd_handle == -1)
{
/* Whoops! Seems there are no files in that
* directory. */
dirp->dd_stat = -1;
}
else
{
dirp->dd_stat = 1;
}
}
else
{
/* Get the next search entry. */
if (_findnext (dirp->dd_handle, &(dirp->dd_dta)))
{
/* We are off the end or otherwise error. */
_findclose (dirp->dd_handle);
dirp->dd_handle = -1;
dirp->dd_stat = -1;
}
else
{
/* Update the status to indicate the correct
* number. */
dirp->dd_stat++;
}
}
if (dirp->dd_stat > 0)
{
/* Successfully got an entry. Everything about the file is
* already appropriately filled in except the length of the
* file name. */
dirp->dd_dir.d_namlen = strlen (dirp->dd_dir.d_name);
if ( dirp->dd_dir.d_name[0] == '.' &&
(dirp->dd_dir.d_name[1] == 0 ||
(dirp->dd_dir.d_name[1] == '.' && dirp->dd_dir.d_name[2] == 0)))
return readdir(dirp);
struct _stat buf;
char buffer[MAX_PATH];
size_t bl = strlen(dirp->dd_name)-strlen(DIRENT_SEARCH_SUFFIX);
strncpy(buffer,dirp->dd_name,bl);
buffer[bl]=0;
strcat(buffer, dirp->dd_dir.d_name);
if ( _stat(buffer,&buf) == -1 )
return readdir(dirp);
return &dirp->dd_dir;
}
return NULL;
}
int32_t
closedir (DIR * dirp)
{
int32_t rc;
errno = 0;
rc = 0;
if (!dirp)
{
errno = EFAULT;
return -1;
}
if (dirp->dd_handle != -1)
{
rc = _findclose (dirp->dd_handle);
}
/* Delete the dir structure. */
delete dirp;
return rc;
}
#endif //HAVE_DIRENT_H
|
