| 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 | |
| f7a92b15 |
8 | #define PerlDir_mkdir(name, mode) piDir->Makedir((name), (mode), ErrorNo()) |
| 0824fdcb |
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 |
| f7d144c8 |
18 | #define PerlDir_mkdir(name, mode) Mkdir((name), (mode)) |
| 17f28c40 |
19 | #ifdef VMS |
| 20 | # define PerlDir_chdir(name) chdir(((name) && *(name)) ? (name) : "SYS$LOGIN") |
| 21 | #else |
| 22 | # define PerlDir_chdir(name) chdir((name)) |
| 23 | #endif |
| 3028581b |
24 | #define PerlDir_rmdir(name) rmdir((name)) |
| 25 | #define PerlDir_close(dir) closedir((dir)) |
| 26 | #define PerlDir_open(name) opendir((name)) |
| 27 | #define PerlDir_read(dir) readdir((dir)) |
| 28 | #define PerlDir_rewind(dir) rewinddir((dir)) |
| 29 | #define PerlDir_seek(dir, loc) seekdir((dir), (loc)) |
| 30 | #define PerlDir_tell(dir) telldir((dir)) |
| 31 | #endif /* PERL_OBJECT */ |
| 32 | |
| 33 | #endif /* Include guard */ |
| 34 | |
projects / p5sagit/p5-mst-13.2.git / blame