1 |
cebix |
1.1 |
/* msd_dir.c - portable directory routines |
2 |
|
|
Copyright (C) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet |
3 |
|
|
|
4 |
|
|
This program is free software; you can redistribute it and/or modify |
5 |
|
|
it under the terms of the GNU General Public License as published by |
6 |
|
|
the Free Software Foundation; either version 1, or (at your option) |
7 |
|
|
any later version. |
8 |
|
|
|
9 |
|
|
This program is distributed in the hope that it will be useful, |
10 |
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of |
11 |
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
12 |
|
|
GNU General Public License for more details. |
13 |
|
|
|
14 |
|
|
You should have received a copy of the GNU General Public License |
15 |
|
|
along with this program; if not, write to the Free Software |
16 |
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
17 |
|
|
|
18 |
|
|
$Header: /u/src/master/ccvs/windows-NT/ndir.c,v 1.3 1995/09/08 00:34:09 jimb Exp $ |
19 |
|
|
*/ |
20 |
|
|
|
21 |
|
|
/* Everything non trivial in this code is from: @(#)msd_dir.c 1.4 |
22 |
|
|
87/11/06. A public domain implementation of BSD directory routines |
23 |
|
|
for MS-DOS. Written by Michael Rendell ({uunet,utai}michael@garfield), |
24 |
|
|
August 1987 */ |
25 |
|
|
|
26 |
|
|
|
27 |
|
|
#include <io.h> |
28 |
|
|
#include <stdio.h> |
29 |
|
|
#include <stdlib.h> |
30 |
|
|
#include <string.h> |
31 |
|
|
#include <sys/types.h> |
32 |
|
|
#include <sys/stat.h> |
33 |
|
|
|
34 |
|
|
#include <dos.h> |
35 |
|
|
|
36 |
|
|
#include <ndir.h> |
37 |
|
|
|
38 |
|
|
static void free_dircontents (struct _dircontents *); |
39 |
|
|
|
40 |
|
|
/* find ALL files! */ |
41 |
|
|
#define ATTRIBUTES (_A_RDONLY | _A_HIDDEN | _A_SYSTEM | _A_SUBDIR) |
42 |
|
|
|
43 |
|
|
|
44 |
|
|
|
45 |
|
|
DIR * |
46 |
|
|
opendir (const char *name) |
47 |
|
|
{ |
48 |
|
|
struct _finddata_t find_buf; |
49 |
|
|
DIR *dirp; |
50 |
|
|
struct _dircontents *dp; |
51 |
|
|
char name_buf[_MAX_PATH + 1]; |
52 |
|
|
char *slash = ""; |
53 |
|
|
long hFile; |
54 |
|
|
|
55 |
|
|
if (!name) |
56 |
|
|
name = ""; |
57 |
|
|
else if (*name) |
58 |
|
|
{ |
59 |
|
|
const char *s; |
60 |
|
|
int l = strlen (name); |
61 |
|
|
|
62 |
|
|
s = name + l - 1; |
63 |
|
|
if ( !(l == 2 && *s == ':') && *s != '\\' && *s != '/') |
64 |
|
|
slash = "/"; /* save to insert slash between path and "*.*" */ |
65 |
|
|
} |
66 |
|
|
|
67 |
|
|
strcat (strcat (strcpy (name_buf, name), slash), "*.*"); |
68 |
|
|
|
69 |
|
|
dirp = (DIR *) malloc (sizeof (DIR)); |
70 |
|
|
if (dirp == (DIR *)0) |
71 |
|
|
return (DIR *)0; |
72 |
|
|
|
73 |
|
|
dirp->dd_loc = 0; |
74 |
|
|
dirp->dd_contents = dirp->dd_cp = (struct _dircontents *) 0; |
75 |
|
|
|
76 |
|
|
if ((hFile = _findfirst (name_buf, &find_buf)) < 0) |
77 |
|
|
{ |
78 |
|
|
free (dirp); |
79 |
|
|
return (DIR *)0; |
80 |
|
|
} |
81 |
|
|
|
82 |
|
|
do |
83 |
|
|
{ |
84 |
|
|
dp = (struct _dircontents *) malloc (sizeof (struct _dircontents)); |
85 |
|
|
if (dp == (struct _dircontents *)0) |
86 |
|
|
{ |
87 |
|
|
free_dircontents (dirp->dd_contents); |
88 |
|
|
return (DIR *)0; |
89 |
|
|
} |
90 |
|
|
|
91 |
|
|
dp->_d_entry = malloc (strlen (find_buf.name) + 1); |
92 |
|
|
if (dp->_d_entry == (char *)0) |
93 |
|
|
{ |
94 |
|
|
free (dp); |
95 |
|
|
free_dircontents (dirp->dd_contents); |
96 |
|
|
return (DIR *)0; |
97 |
|
|
} |
98 |
|
|
|
99 |
|
|
if (dirp->dd_contents) |
100 |
|
|
dirp->dd_cp = dirp->dd_cp->_d_next = dp; |
101 |
|
|
else |
102 |
|
|
dirp->dd_contents = dirp->dd_cp = dp; |
103 |
|
|
|
104 |
|
|
strcpy (dp->_d_entry, find_buf.name); |
105 |
|
|
|
106 |
|
|
dp->_d_next = (struct _dircontents *)0; |
107 |
|
|
|
108 |
|
|
} while (!_findnext (hFile, &find_buf)); |
109 |
|
|
|
110 |
|
|
dirp->dd_cp = dirp->dd_contents; |
111 |
|
|
|
112 |
|
|
_findclose(hFile); |
113 |
|
|
|
114 |
|
|
return dirp; |
115 |
|
|
} |
116 |
|
|
|
117 |
|
|
|
118 |
|
|
void |
119 |
|
|
closedir (DIR *dirp) |
120 |
|
|
{ |
121 |
|
|
free_dircontents (dirp->dd_contents); |
122 |
|
|
free ((char *) dirp); |
123 |
|
|
} |
124 |
|
|
|
125 |
|
|
|
126 |
|
|
struct direct * |
127 |
|
|
readdir (DIR *dirp) |
128 |
|
|
{ |
129 |
|
|
static struct direct dp; |
130 |
|
|
|
131 |
|
|
if (dirp->dd_cp == (struct _dircontents *)0) |
132 |
|
|
return (struct direct *)0; |
133 |
|
|
dp.d_namlen = dp.d_reclen = |
134 |
|
|
strlen (strcpy (dp.d_name, dirp->dd_cp->_d_entry)); |
135 |
|
|
#if 0 /* JB */ |
136 |
|
|
strlwr (dp.d_name); /* JF */ |
137 |
|
|
#endif |
138 |
|
|
dp.d_ino = 0; |
139 |
|
|
dirp->dd_cp = dirp->dd_cp->_d_next; |
140 |
|
|
dirp->dd_loc++; |
141 |
|
|
|
142 |
|
|
return &dp; |
143 |
|
|
} |
144 |
|
|
|
145 |
|
|
|
146 |
|
|
void |
147 |
|
|
seekdir (DIR *dirp, long off) |
148 |
|
|
{ |
149 |
|
|
long i = off; |
150 |
|
|
struct _dircontents *dp; |
151 |
|
|
|
152 |
|
|
if (off < 0) |
153 |
|
|
return; |
154 |
|
|
for (dp = dirp->dd_contents; --i >= 0 && dp; dp = dp->_d_next) |
155 |
|
|
; |
156 |
|
|
dirp->dd_loc = off - (i + 1); |
157 |
|
|
dirp->dd_cp = dp; |
158 |
|
|
} |
159 |
|
|
|
160 |
|
|
|
161 |
|
|
long |
162 |
|
|
telldir (DIR *dirp) |
163 |
|
|
{ |
164 |
|
|
return dirp->dd_loc; |
165 |
|
|
} |
166 |
|
|
|
167 |
|
|
|
168 |
|
|
/* Garbage collection */ |
169 |
|
|
|
170 |
|
|
static void |
171 |
|
|
free_dircontents (struct _dircontents *dp) |
172 |
|
|
{ |
173 |
|
|
struct _dircontents *odp; |
174 |
|
|
|
175 |
|
|
while (dp) |
176 |
|
|
{ |
177 |
|
|
if (dp->_d_entry) |
178 |
|
|
free (dp->_d_entry); |
179 |
|
|
dp = (odp = dp)->_d_next; |
180 |
|
|
free (odp); |
181 |
|
|
} |
182 |
|
|
} |
183 |
|
|
|
184 |
|
|
|
185 |
|
|
#ifdef TEST |
186 |
|
|
|
187 |
|
|
void main (int argc, char *argv[]); |
188 |
|
|
|
189 |
|
|
void |
190 |
|
|
main (int argc, char *argv[]) |
191 |
|
|
{ |
192 |
|
|
static DIR *directory; |
193 |
|
|
struct direct *entry = (struct direct *)0; |
194 |
|
|
|
195 |
|
|
char *name = ""; |
196 |
|
|
|
197 |
|
|
if (argc > 1) |
198 |
|
|
name = argv[1]; |
199 |
|
|
|
200 |
|
|
directory = opendir (name); |
201 |
|
|
|
202 |
|
|
if (!directory) |
203 |
|
|
{ |
204 |
|
|
fprintf (stderr, "can't open directory `%s'.\n", name); |
205 |
|
|
exit (2); |
206 |
|
|
} |
207 |
|
|
|
208 |
|
|
while (entry = readdir (directory)) |
209 |
|
|
printf ("> %s\n", entry->d_name); |
210 |
|
|
|
211 |
|
|
printf ("done.\n"); |
212 |
|
|
} |
213 |
|
|
|
214 |
|
|
#endif /* TEST */ |
215 |
|
|
|
216 |
|
|
/* |
217 |
|
|
* Local Variables: |
218 |
|
|
* mode:C |
219 |
|
|
* ChangeLog:ChangeLog |
220 |
|
|
* compile-command:make |
221 |
|
|
* End: |
222 |
|
|
*/ |