[asperl] added AS patch#2
[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 MKdir(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