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);
49 #ifdef WIN32 /* XXX why are these needed? */
51 Perl_do_exec(char *cmd)
53 return PerlProc_Cmd(cmd);
57 CPerlObj::do_aspawn(void *vreally, void **vmark, void **vsp)
59 return PerlProc_aspawn(vreally, vmark, vsp);
63 #endif /* PERL_OBJECT */
66 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
70 va_start(arglist, format);
71 return PerlIO_vprintf(stream, format, arglist);