source: for-distributions/trunk/bin/windows/perl/lib/CORE/dirent.h@ 14489

Last change on this file since 14489 was 14489, checked in by oranfry, 17 years ago

upgrading to perl 5.8

File size: 1.2 KB
Line 
1/* dirent.h */
2
3/* djl
4 * Provide UNIX compatibility
5 */
6
7#ifndef _INC_DIRENT
8#define _INC_DIRENT
9
10/*
11 * NT versions of readdir(), etc
12 * From the MSDOS implementation
13 */
14
15/* Directory entry size */
16#ifdef DIRSIZ
17#undef DIRSIZ
18#endif
19#define DIRSIZ(rp) (sizeof(struct direct))
20
21/* needed to compile directory stuff */
22#define DIRENT direct
23
24/* structure of a directory entry */
25typedef struct direct
26{
27 long d_ino; /* inode number (not used by MS-DOS) */
28 long d_namlen; /* name length */
29 char d_name[257]; /* file name */
30} _DIRECT;
31
32/* structure for dir operations */
33typedef struct _dir_struc
34{
35 char *start; /* starting position */
36 char *curr; /* current position */
37 long size; /* allocated size of string table */
38 long nfiles; /* number of filenames in table */
39 struct direct dirstr; /* directory structure to return */
40 void* handle; /* system handle */
41 char *end; /* position after last filename */
42} DIR;
43
44#if 0 /* these have moved to win32iop.h */
45DIR * win32_opendir(char *filename);
46struct direct * win32_readdir(DIR *dirp);
47long win32_telldir(DIR *dirp);
48void win32_seekdir(DIR *dirp,long loc);
49void win32_rewinddir(DIR *dirp);
50int win32_closedir(DIR *dirp);
51#endif
52
53#endif /* _INC_DIRENT */
Note: See TracBrowser for help on using the repository browser.