perldir.h

   1 #ifndef H_PERLDIR
   2 #define H_PERLDIR 1
   3
   4 #ifdef PERL_OBJECT
   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())
  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