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
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
/* scandir: Scan a directory, collecting all (selected) items into a an array.
*
* This code borrowed from 'libit', which can be found here:
*
* http://www.iro.umontreal.ca/~pinard/libit/dist/scandir/
*
* The original author put this code in the public domain.
* It has been modified slightly to get rid of warnings, etc.
*
* Below is the email I received from pinard@iro.umontreal.ca (Fran�ois Pinard)
* when I sent him an email asking him about the license, etc. of this
* code which I obtained from his site.
*
* I think the correct spelling of his name is Rich Salz. I think he's now
* rsalz@datapower.com...
* --
* Rich Salz, Chief Security Architect
* DataPower Technology http://www.datapower.com
* XS40 XML Security Gateway http://www.datapower.com/products/xs40.html
*
* Copyright(C): none (public domain)
* License: none (public domain)
* Author: Rich Salz <rsalz@datapower.com>
*
*
*
* -- Alan Robertson
* alanr@unix.sh
*
**************************************************************************
*
* Subject: Re: Scandir replacement function
* Date: 18 May 2001 12:00:48 -0400
* From: pinard@iro.umontreal.ca (Fran�ois Pinard)
* To: Alan Robertson <alanr@unix.sh>
* References: 1
*
*
* [Alan Robertson]
*
* > Hi, I'd like to use your scandir replacement function found here:
* > http://www.iro.umontreal.ca/~pinard/libit/dist/scandir/ But, it does
* > not indicate authorship or licensing terms in it. Could you tell me
* > who wrote this code, under what license you distribute it, and whether
* > and under what terms I may further distribute it?
*
* Hello, Alan. These are (somewhat) explained in UNSHAR.HDR found in the
* same directory. The routines have been written by Rick Saltz (I'm not
* completely sure of the spelling) a long while ago. I think that nowadays,
* Rick is better known as the main author of the nice INN package.
*
**************************************************************************
*
* I spent a little time verifying this with Rick Salz.
* The results are below:
*
**************************************************************************
*
* Date: Tue, 20 Sep 2005 21:52:09 -0400 (EDT)
* From: Rich Salz <rsalz@datapower.com>
* To: Alan Robertson <alanr@unix.sh>
* Subject: Re: Verifying permissions/licenses/etc on some old code of yours -
* scandir.c
* In-Reply-To: <433071CA.8000107@unix.sh>
* Message-ID: <Pine.LNX.4.44L0.0509202151270.9198-100000@smtp.datapower.com>
* Content-Type: TEXT/PLAIN; charset=US-ASCII
*
* yes, it's most definitely in the public domain.
*
* I'm glad you find it useful. I'm surprised it hasn't been replaced by,
* e.g,. something in GLibC. Ii'm impressed you tracked me down.
*
* /r$
*
* --
* Rich Salz Chief Security Architect
* DataPower Technology http://www.datapower.com
* XS40 XML Security Gateway http://www.datapower.com/products/xs40.html
* ---------------------------------------------------------------------->
* Subject: scandir, ftw REDUX
* Date: 1 Jan 88 00:47:01 GMT
* From: rsalz@pebbles.bbn.com
* Newsgroups: comp.sources.misc
*
*
* Forget my previous message -- I just decided for completeness's sake to
* implement the SysV ftw(3) routine, too.
*
* To repeat, these are public-domain implementations of the SystemV ftw()
* routine, the BSD scandir() and alphasort() routines, and documentation for
* same. The FTW manpage could be more readable, but so it goes.
*
* Anyhow, feel free to post these, and incorporate them into your existing
* packages. I have readdir() routiens for MSDOS and the Amiga if anyone
* wants them, and should have them for VMS by the end of January; let me
* know if you want copies.
*
* Yours in filesystems,
* /r$
*
* Anyhow, feel free to post
* ----------------------------------------------------------------------<
*
*/
#include <lha_internal.h>
#include <sys/types.h>
#include <dirent.h>
#include <stdlib.h>
#include <stddef.h>
#include <string.h>
#ifndef NULL
# define NULL ((void *) 0)
#endif
/* Initial guess at directory allocated. */
#define INITIAL_ALLOCATION 20
int
scandir (const char *directory_name,
struct dirent ***array_pointer,
int (*select_function) (const struct dirent *),
#ifdef USE_SCANDIR_COMPARE_STRUCT_DIRENT
/* This is what the Linux man page says */
int (*compare_function) (const struct dirent**, const struct dirent**)
#else
/* This is what the Linux header file says ... */
int (*compare_function) (const void *, const void *)
#endif
);
int
scandir (const char *directory_name,
struct dirent ***array_pointer,
int (*select_function) (const struct dirent *),
#ifdef USE_SCANDIR_COMPARE_STRUCT_DIRENT
/* This is what the linux man page says */
int (*compare_function) (const struct dirent**, const struct dirent**)
#else
/* This is what the linux header file says ... */
int (*compare_function) (const void *, const void *)
#endif
)
{
DIR *directory;
struct dirent **array;
struct dirent *entry;
struct dirent *copy;
int allocated = INITIAL_ALLOCATION;
int counter = 0;
/* Get initial list space and open directory. */
if (directory = opendir (directory_name), directory == NULL)
return -1;
if (array = (struct dirent **) malloc (allocated * sizeof (struct dirent *)),
array == NULL)
return -1;
/* Read entries in the directory. */
while (entry = readdir (directory), entry)
if (select_function == NULL || (*select_function) (entry))
{
/* User wants them all, or he wants this one. Copy the entry. */
/*
* On some OSes the declaration of "entry->d_name" is a minimal-length
* placeholder. Example: Solaris:
* /usr/include/sys/dirent.h:
* "char d_name[1];"
* man page "dirent(3)":
* The field d_name is the beginning of the character array
* giving the name of the directory entry. This name is
* null terminated and may have at most MAXNAMLEN chars.
* So our malloc length may need to be increased accordingly.
* sizeof(entry->d_name): space (possibly minimal) in struct.
* strlen(entry->d_name): actual length of the entry.
*
* John Kavadias <john_kavadias@hotmail.com>
* David Lee <t.d.lee@durham.ac.uk>
*/
int namelength = strlen(entry->d_name) + 1; /* length with NULL */
int extra = 0;
if (sizeof(entry->d_name) <= namelength) {
/* allocated space <= required space */
extra += namelength - sizeof(entry->d_name);
}
if (copy = (struct dirent *) malloc (sizeof (struct dirent) + extra),
copy == NULL)
{
closedir (directory);
free (array);
return -1;
}
copy->d_ino = entry->d_ino;
copy->d_reclen = entry->d_reclen;
strcpy (copy->d_name, entry->d_name);
/* Save the copy. */
if (counter + 1 == allocated)
{
allocated <<= 1;
array = (struct dirent **)
realloc ((char *) array, allocated * sizeof (struct dirent *));
if (array == NULL)
{
closedir (directory);
free (array);
free (copy);
return -1;
}
}
array[counter++] = copy;
}
/* Close things off. */
array[counter] = NULL;
*array_pointer = array;
closedir (directory);
/* Sort? */
if (counter > 1 && compare_function)
qsort ((char *) array, counter, sizeof (struct dirent *)
, (int (*)(const void *, const void *))(compare_function));
return counter;
}
|
