[p5sagit/p5-mst-13.2.git] / perldir.h

#ifndef H_PERLDIR
#define H_PERLDIR 1

#ifdef PERL_OBJECT
#else
#define PerlDir_mkdir(name, mode) Mkdir((name), (mode))
#ifdef VMS
#  define PerlDir_chdir(name) chdir(((name) && *(name)) ? (name) : "SYS$LOGIN")
#else 
#  define PerlDir_chdir(name) chdir((name))
#endif
#define PerlDir_rmdir(name) rmdir((name))
#define PerlDir_close(dir) closedir((dir))
#define PerlDir_open(name) opendir((name))
#define PerlDir_read(dir) readdir((dir))
#define PerlDir_rewind(dir) rewinddir((dir))
#define PerlDir_seek(dir, loc) seekdir((dir), (loc))
#define PerlDir_tell(dir) telldir((dir))
#endif	/* PERL_OBJECT */

#endif /* Include guard */
Commit	Line	Data
3028581b	1	#ifndef H_PERLDIR
	2	#define H_PERLDIR 1
	3
	4	#ifdef PERL_OBJECT
	5	#else
f7d144c8	6	#define PerlDir_mkdir(name, mode) Mkdir((name), (mode))
17f28c40	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
3028581b	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