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);
41 /* operator new is supposed to throw std::bad_alloc */
47 CPerlObj::operator delete(void *pPerl, IPerlMem *pvtbl)
50 pvtbl->pFree(pvtbl, pPerl);
58 #ifdef WIN32 /* XXX why are these needed? */
60 Perl_do_exec(char *cmd)
62 return PerlProc_Cmd(cmd);
66 CPerlObj::do_aspawn(void *vreally, void **vmark, void **vsp)
68 return PerlProc_aspawn(vreally, vmark, vsp);
72 #endif /* PERL_OBJECT */
75 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
79 va_start(arglist, format);
80 return PerlIO_vprintf(stream, format, arglist);