https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 3028581b GS |
1 | #ifndef H_PERLDIR |
| 2 | #define H_PERLDIR 1 | |
| 3 | ||
| 4 | #ifdef PERL_OBJECT | |
| 0824fdcb GS |
5 | |
| 6 | #include "ipdir.h" | |
| 7 | ||
| f7a92b15 | 8 | #define PerlDir_mkdir(name, mode) piDir->Makedir((name), (mode), ErrorNo()) |
| 0824fdcb GS |
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 GS |
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 |