view release on metacpan or  search on metacpan

Mlock.c  view on Meta::CPAN

    XSRETURN(1);
}


XS_EUPXS(XS_C__Mlock_lockall); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_C__Mlock_lockall)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "pAddressRegion");
    {
	C__Mlock	pAddressRegion;
	int	RETVAL;
	dXSTARG;

	if (SvROK(ST(0)) && sv_derived_from(ST(0), "C::Mlock")) {
	    IV tmp = SvIV((SV*)SvRV(ST(0)));
	    pAddressRegion = INT2PTR(C__Mlock,tmp);
	}
	else
	    Perl_croak(aTHX_ "%s: %s is not of type %s",
			"C::Mlock::lockall",
			"pAddressRegion", "C::Mlock")
;

	RETVAL = lockall(pAddressRegion);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}


XS_EUPXS(XS_C__Mlock_unlockall); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_C__Mlock_unlockall)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "pAddressRegion");
    {
	C__Mlock	pAddressRegion;
	int	RETVAL;
	dXSTARG;

	if (SvROK(ST(0)) && sv_derived_from(ST(0), "C::Mlock")) {
	    IV tmp = SvIV((SV*)SvRV(ST(0)));
	    pAddressRegion = INT2PTR(C__Mlock,tmp);
	}
	else
	    Perl_croak(aTHX_ "%s: %s is not of type %s",
			"C::Mlock::unlockall",
			"pAddressRegion", "C::Mlock")
;

	RETVAL = unlockall(pAddressRegion);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}


XS_EUPXS(XS_C__Mlock_is_locked); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_C__Mlock_is_locked)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "pAddressRegion");
    {
	C__Mlock	pAddressRegion;
	int	RETVAL;
	dXSTARG;

	if (SvROK(ST(0)) && sv_derived_from(ST(0), "C::Mlock")) {
	    IV tmp = SvIV((SV*)SvRV(ST(0)));
	    pAddressRegion = INT2PTR(C__Mlock,tmp);
	}
	else
	    Perl_croak(aTHX_ "%s: %s is not of type %s",
			"C::Mlock::is_locked",
			"pAddressRegion", "C::Mlock")
;

	RETVAL = is_locked(pAddressRegion);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}


XS_EUPXS(XS_C__Mlock_process_locked); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_C__Mlock_process_locked)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "pAddressRegion");
    {
	C__Mlock	pAddressRegion;
	int	RETVAL;
	dXSTARG;

	if (SvROK(ST(0)) && sv_derived_from(ST(0), "C::Mlock")) {
	    IV tmp = SvIV((SV*)SvRV(ST(0)));
	    pAddressRegion = INT2PTR(C__Mlock,tmp);
	}
	else
	    Perl_croak(aTHX_ "%s: %s is not of type %s",
			"C::Mlock::process_locked",
			"pAddressRegion", "C::Mlock")
;

	RETVAL = process_locked(pAddressRegion);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}


XS_EUPXS(XS_C__Mlock_initialize); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_C__Mlock_initialize)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "pAddressRegion");
    {
	C__Mlock	pAddressRegion;
	int	RETVAL;
	dXSTARG;

	if (SvROK(ST(0)) && sv_derived_from(ST(0), "C::Mlock")) {
	    IV tmp = SvIV((SV*)SvRV(ST(0)));
	    pAddressRegion = INT2PTR(C__Mlock,tmp);
	}
	else
	    Perl_croak(aTHX_ "%s: %s is not of type %s",
			"C::Mlock::initialize",
			"pAddressRegion", "C::Mlock")
;

	RETVAL = initialize(pAddressRegion);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}


XS_EUPXS(XS_C__Mlock_set_pages); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_C__Mlock_set_pages)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "pAddressRegion, pages");
    {
	C__Mlock	pAddressRegion;
	int	pages = (int)SvIV(ST(1))
;
	int	RETVAL;
	dXSTARG;

	if (SvROK(ST(0)) && sv_derived_from(ST(0), "C::Mlock")) {
	    IV tmp = SvIV((SV*)SvRV(ST(0)));
	    pAddressRegion = INT2PTR(C__Mlock,tmp);
	}
	else
	    Perl_croak(aTHX_ "%s: %s is not of type %s",
			"C::Mlock::set_pages",
			"pAddressRegion", "C::Mlock")
;

	RETVAL = set_pages(pAddressRegion, pages);
	XSprePUSH; PUSHi((IV)RETVAL);
    }

Mlock.c  view on Meta::CPAN

{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "pAddressRegion");
    {
	C__Mlock	pAddressRegion;
	int	RETVAL;
	dXSTARG;

	if (SvROK(ST(0)) && sv_derived_from(ST(0), "C::Mlock")) {
	    IV tmp = SvIV((SV*)SvRV(ST(0)));
	    pAddressRegion = INT2PTR(C__Mlock,tmp);
	}
	else
	    Perl_croak(aTHX_ "%s: %s is not of type %s",
			"C::Mlock::pagesize",
			"pAddressRegion", "C::Mlock")
;

	RETVAL = pagesize(pAddressRegion);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

#ifdef __cplusplus
extern "C"
#endif
XS_EXTERNAL(boot_C__Mlock); /* prototype to pass -Wmissing-prototypes */
XS_EXTERNAL(boot_C__Mlock)
{
#if PERL_VERSION_LE(5, 21, 5)
    dVAR; dXSARGS;
#else
    dVAR; dXSBOOTARGSXSAPIVERCHK;
#endif
#if (PERL_REVISION == 5 && PERL_VERSION < 9)
    char* file = __FILE__;
#else
    const char* file = __FILE__;
#endif

    PERL_UNUSED_VAR(file);

    PERL_UNUSED_VAR(cv); /* -W */
    PERL_UNUSED_VAR(items); /* -W */
#if PERL_VERSION_LE(5, 21, 5)
    XS_VERSION_BOOTCHECK;
#  ifdef XS_APIVERSION_BOOTCHECK
    XS_APIVERSION_BOOTCHECK;
#  endif
#endif

        (void)newXSproto_portable("C::Mlock::new", XS_C__Mlock_new, file, "$;$");
        (void)newXSproto_portable("C::Mlock::DESTROY", XS_C__Mlock_DESTROY, file, "$");
        (void)newXSproto_portable("C::Mlock::dump", XS_C__Mlock_dump, file, "$");
        (void)newXSproto_portable("C::Mlock::get", XS_C__Mlock_get, file, "$");
        (void)newXSproto_portable("C::Mlock::store", XS_C__Mlock_store, file, "$$$");
        (void)newXSproto_portable("C::Mlock::lockall", XS_C__Mlock_lockall, file, "$");
        (void)newXSproto_portable("C::Mlock::unlockall", XS_C__Mlock_unlockall, file, "$");
        (void)newXSproto_portable("C::Mlock::is_locked", XS_C__Mlock_is_locked, file, "$");
        (void)newXSproto_portable("C::Mlock::process_locked", XS_C__Mlock_process_locked, file, "$");
        (void)newXSproto_portable("C::Mlock::initialize", XS_C__Mlock_initialize, file, "$");
        (void)newXSproto_portable("C::Mlock::set_pages", XS_C__Mlock_set_pages, file, "$$");
        (void)newXSproto_portable("C::Mlock::set_size", XS_C__Mlock_set_size, file, "$$");
        (void)newXSproto_portable("C::Mlock::pagesize", XS_C__Mlock_pagesize, file, "$");
#if PERL_VERSION_LE(5, 21, 5)
#  if PERL_VERSION_GE(5, 9, 0)
    if (PL_unitcheckav)
        call_list(PL_scopestack_ix, PL_unitcheckav);
#  endif
    XSRETURN_YES;
#else
    Perl_xs_boot_epilog(aTHX_ ax);
#endif
}