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
|
#include "vice.h"
#ifndef WATCOM_COMPILE
#include "dirport.h"
#include <stdio.h>
#include <string.h>
#include "lib.h"
DIR *opendir (char *path)
{
APIRET ulrc;
ULONG cnt = 1;
DIR *dir;
char *name;
if (!(dir = (DIR*) calloc(1,sizeof(DIR))))
return NULL;
if ( name = (char*)calloc(1,strlen(path)+3)) {
strcat(strcpy(name, path),path[strlen(path)-1]=='\\'?"*":"\\*");
dir->handle = HDIR_CREATE;
ulrc = DosFindFirst (name, &(dir->handle), _A_ANY, &(dir->buffer),
sizeof(struct _FILEFINDBUF3), &cnt, FIL_STANDARD);
lib_free(name);
}
if (!name || ulrc) {
DosFindClose (dir->handle);
lib_free(dir);
dir = NULL;
}
return dir;
}
struct dirent *readdir (DIR *dir)
{
ULONG cnt = 1;
return DosFindNext (dir->handle, &(dir->buffer), sizeof(struct _FILEFINDBUF), &cnt) ? NULL : &(dir->buffer);
}
int closedir (DIR *dir)
{
APIRET ulrc = DosFindClose (dir->handle);
lib_free(dir);
return (int)ulrc;
}
#endif
|