Esempi in C++ (Cpp) per boot_DynaLoader

Esempio n. 1

File: interface.cpp Progetto: rurban/perl

static void xs_init(pTHX)
{
	const char *file = __FILE__;

        dSP;
	CV *cv = newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
	dXSUB_SYS;
	/* With cperl boot it now immediately */
        PUSHMARK(SP);
	boot_DynaLoader(aTHX_ cv);
}

Esempio n. 2

File: hello.p.c Progetto: pp7462-git/sandbox

/* yanked from perl.c */
static void
xs_init(pTHX)
{
    char *file = __FILE__;
    dTARG;
    dSP;

#ifdef USE_DYNAMIC_LOADING
	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
#endif
/* bootstrapping code*/
	SAVETMPS;
	targ=sv_newmortal();
#ifdef USE_DYNAMIC_LOADING
	PUSHMARK(sp);
	XPUSHp("DynaLoader",strlen("DynaLoader"));
	PUTBACK;
	boot_DynaLoader(aTHX_ NULL);
	SPAGAIN;
#endif
	FREETMPS;
/* end bootstrapping code */
}