2 #define PERL_IN_GLOBALS_C
10 #define PERLVARA(x, n, y)
12 #define PERLVARI(x, y, z) PL_##x = z;
14 #define PERLVARIC(x, y, z) PL_##x = z;
16 CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd,
17 IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS,
20 memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*));
36 CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl)
39 return pvtbl->pMalloc(pvtbl, nSize);
50 CPerlObj::fprintf(PerlIO *stream, const char *format, ...)
53 va_start(arglist, format);
54 return PerlIO_vprintf(stream, format, arglist);
57 #ifdef WIN32 /* XXX why are these needed? */
59 Perl_do_exec(char *cmd)
61 return PerlProc_Cmd(cmd);
65 CPerlObj::do_aspawn(void *vreally, void **vmark, void **vsp)
67 return PerlProc_aspawn(vreally, vmark, vsp);
71 #endif /* PERL_OBJECT */