view release on metacpan or  search on metacpan

Custom.xs  view on Meta::CPAN

MODULE = Infix::Custom        PACKAGE = Infix::Custom

BOOT:
#ifdef IC_HAVE_INFIX
    wrap_infix_plugin(ic_infix_plugin, &ic_next_infix_plugin);
#endif

void
import(...)
PPCODE:
#ifdef IC_HAVE_INFIX
    ic_do_import(aTHX_ ax, items);
    XSRETURN_EMPTY;
#else
{
    static int warned = 0;
    PERL_UNUSED_VAR(ax);
    if (items > 1 && !warned) {
        warned = 1;
        warn("Infix::Custom: custom infix operators require perl 5.38+; "
             "declarations are inert on this perl (%s)\n", "<5.38");
    }
    XSRETURN_EMPTY;
}
#endif

void
unimport(...)
PPCODE:
#ifdef IC_HAVE_INFIX
{
    I32 i;
    if (items <= 1)
        ic_del_all_hints(aTHX);
    else
        for (i = 1; i < items; i++)
            ic_del_hint(aTHX_ ST(i));
    XSRETURN_EMPTY;
}