Commit | Line | Data |
ecfc5424 |
1 | #include "INTERN.h" |
864dbfa3 |
2 | #define PERL_IN_GLOBALS_C |
ecfc5424 |
3 | #include "perl.h" |
76e3520e |
4 | |
5 | #ifdef PERL_OBJECT |
76e3520e |
6 | |
3dfd1da1 |
7 | #undef PERLVAR |
8 | #define PERLVAR(x, y) |
9 | #undef PERLVARI |
4c2891ed |
10 | #define PERLVARI(x, y, z) PL_##x = z; |
3dfd1da1 |
11 | #undef PERLVARIC |
4c2891ed |
12 | #define PERLVARIC(x, y, z) PL_##x = z; |
3dfd1da1 |
13 | |
76e3520e |
14 | CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd, |
864dbfa3 |
15 | IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS, |
16 | IPerlProc* ipP) |
76e3520e |
17 | { |
18 | memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*)); |
3dfd1da1 |
19 | |
20 | #include "thrdvar.h" |
21 | #include "intrpvar.h" |
22 | #include "perlvars.h" |
23 | |
4c2891ed |
24 | PL_piMem = ipM; |
25 | PL_piENV = ipE; |
26 | PL_piStdIO = ipStd; |
27 | PL_piLIO = ipLIO; |
28 | PL_piDir = ipD; |
29 | PL_piSock = ipS; |
30 | PL_piProc = ipP; |
76e3520e |
31 | } |
32 | |
33 | void* |
34 | CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl) |
35 | { |
36 | if(pvtbl != NULL) |
37 | return pvtbl->Malloc(nSize); |
38 | |
39 | return NULL; |
40 | } |
41 | |
42 | int& |
43 | CPerlObj::ErrorNo(void) |
44 | { |
5a092403 |
45 | return errno; |
76e3520e |
46 | } |
47 | |
48 | void |
49 | CPerlObj::Init(void) |
50 | { |
76e3520e |
51 | } |
52 | |
76e3520e |
53 | #endif /* PERL_OBJECT */ |