Commit | Line | Data |
3028581b |
1 | #ifndef H_PERLDIR |
2 | #define H_PERLDIR 1 |
3 | |
4 | #ifdef PERL_OBJECT |
5 | #else |
f7d144c8 |
6 | #define PerlDir_mkdir(name, mode) Mkdir((name), (mode)) |
17f28c40 |
7 | #ifdef VMS |
8 | # define PerlDir_chdir(name) chdir(((name) && *(name)) ? (name) : "SYS$LOGIN") |
9 | #else |
10 | # define PerlDir_chdir(name) chdir((name)) |
11 | #endif |
3028581b |
12 | #define PerlDir_rmdir(name) rmdir((name)) |
13 | #define PerlDir_close(dir) closedir((dir)) |
14 | #define PerlDir_open(name) opendir((name)) |
15 | #define PerlDir_read(dir) readdir((dir)) |
16 | #define PerlDir_rewind(dir) rewinddir((dir)) |
17 | #define PerlDir_seek(dir, loc) seekdir((dir), (loc)) |
18 | #define PerlDir_tell(dir) telldir((dir)) |
19 | #endif /* PERL_OBJECT */ |
20 | |
21 | #endif /* Include guard */ |
22 | |