C++ (Cpp) PARROT_CALLIN_END Exemples

Exemple #1

Fichier : bkmarshal.c Projet : GunioRobot/blizkost

static int
blizkost_delete_binding(PerlInterpreter *my_perl, SV *handle, MAGIC *mg)
{
    blizkost_nexus *nexus = (blizkost_nexus *)(mg->mg_ptr);
    dBNINTERP;
    PMC *targ = (PMC *)(mg->mg_obj);

    PARROT_CALLIN_START(interp);
    Parrot_pmc_gc_unregister(interp, targ);
    PARROT_CALLIN_END(interp);

    return 0;
}

Exemple #2

Fichier : extend.c Projet : Cristofor/parrot

PARROT_EXPORT
int
Parrot_vfprintf(PARROT_INTERP, ARGIN(Parrot_PMC pio),
        ARGIN(const char *s), va_list args)
{
    ASSERT_ARGS(Parrot_vfprintf)
    STRING * str;
    INTVAL retval;

    PARROT_CALLIN_START(interp);
    str = Parrot_vsprintf_c(interp, s, args);
    retval = Parrot_io_putps(interp, pio, str);
    PARROT_CALLIN_END(interp);

    return retval;
}