perldir.h

   1 #ifndef H_PERLDIR
   2 #define H_PERLDIR 1
   3
   4 #ifdef PERL_OBJECT
   5 #else
   6 #define PerlDir_mkdir(name, mode) Mkdir((name), (mode))
   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
  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