Commit | Line | Data |
3028581b |
1 | #ifndef H_PERLDIR |
2 | #define H_PERLDIR 1 |
3 | |
4 | #ifdef PERL_OBJECT |
0824fdcb |
5 | |
6 | #include "ipdir.h" |
7 | |
8 | #define PerlDir_mkdir(name, mode) piDir->MKdir((name), (mode), ErrorNo()) |
9 | #define PerlDir_chdir(name) piDir->Chdir((name), ErrorNo()) |
10 | #define PerlDir_rmdir(name) piDir->Rmdir((name), ErrorNo()) |
11 | #define PerlDir_close(dir) piDir->Close((dir), ErrorNo()) |
12 | #define PerlDir_open(name) piDir->Open((name), ErrorNo()) |
13 | #define PerlDir_read(dir) piDir->Read((dir), ErrorNo()) |
14 | #define PerlDir_rewind(dir) piDir->Rewind((dir), ErrorNo()) |
15 | #define PerlDir_seek(dir, loc) piDir->Seek((dir), (loc), ErrorNo()) |
16 | #define PerlDir_tell(dir) piDir->Tell((dir), ErrorNo()) |
3028581b |
17 | #else |
18 | #define PerlDir_mkdir(name, mode) mkdir((name), (mode)) |
19 | #define PerlDir_chdir(name) chdir((name)) |
20 | #define PerlDir_rmdir(name) rmdir((name)) |
21 | #define PerlDir_close(dir) closedir((dir)) |
22 | #define PerlDir_open(name) opendir((name)) |
23 | #define PerlDir_read(dir) readdir((dir)) |
24 | #define PerlDir_rewind(dir) rewinddir((dir)) |
25 | #define PerlDir_seek(dir, loc) seekdir((dir), (loc)) |
26 | #define PerlDir_tell(dir) telldir((dir)) |
27 | #endif /* PERL_OBJECT */ |
28 | |
29 | #endif /* Include guard */ |
30 | |