[asperl] various changes to get asperl working under Borland
[p5sagit/p5-mst-13.2.git] / ipdir.h
1 /*
2
3     ipdir.h
4     Interface for perl directory functions
5
6 */
7
8 #ifndef __Inc__IPerlDir___
9 #define __Inc__IPerlDir___
10
11 class IPerlDir
12 {
13 public:
14     virtual int Makedir(const char *dirname, int mode, int &err) = 0;
15     virtual int Chdir(const char *dirname, int &err) = 0;
16     virtual int Rmdir(const char *dirname, int &err) = 0;
17     virtual int Close(DIR *dirp, int &err) = 0;
18     virtual DIR *Open(char *filename, int &err) = 0;
19     virtual struct direct *Read(DIR *dirp, int &err) = 0;
20     virtual void Rewind(DIR *dirp, int &err) = 0;
21     virtual void Seek(DIR *dirp, long loc, int &err) = 0;
22     virtual long Tell(DIR *dirp, int &err) = 0;
23 };
24
25 #endif  /* __Inc__IPerlDir___ */
26