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