/* * This file was generated automatically by ExtUtils::ParseXS version 2.21 from the * contents of Access.xs. Do not edit this file, edit Access.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "Access.xs" /* * *********** WARNING ************** * This file generated by ModPerl::WrapXS/0.01 * Any changes made here will be lost * *********************************** * 01: lib/ModPerl/WrapXS.pm:540 * 02: lib/ModPerl/WrapXS.pm:1174 * 03: Makefile.PL:423 * 04: Makefile.PL:325 * 05: Makefile.PL:56 */ #define MP_IN_XS #include "mod_perl.h" #include "modperl_xs_sv_convert.h" #include "modperl_xs_util.h" #include "modperl_xs_typedefs.h" #include "Apache2/Access/Apache2__Access.h" #line 38 "Access.c" #ifndef PERL_UNUSED_VAR # define PERL_UNUSED_VAR(var) if (0) var = var #endif #ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE #define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params) /* prototype to pass -Wmissing-prototypes */ STATIC void S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params); STATIC void S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params) { const GV *const gv = CvGV(cv); PERL_ARGS_ASSERT_CROAK_XS_USAGE; if (gv) { const char *const gvname = GvNAME(gv); const HV *const stash = GvSTASH(gv); const char *const hvname = stash ? HvNAME(stash) : NULL; if (hvname) Perl_croak(aTHX_ "Usage: %s::%s(%s)", hvname, gvname, params); else Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params); } else { /* Pants. I don't think that it should be possible to get here. */ Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params); } } #undef PERL_ARGS_ASSERT_CROAK_XS_USAGE #ifdef PERL_IMPLICIT_CONTEXT #define croak_xs_usage(a,b) S_croak_xs_usage(aTHX_ a,b) #else #define croak_xs_usage S_croak_xs_usage #endif #endif /* NOTE: the prototype of newXSproto() is different in versions of perls, * so we define a portable version of newXSproto() */ #ifdef newXS_flags #define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0) #else #define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv) #endif /* !defined(newXS_flags) */ #line 90 "Access.c" XS(XS_Apache2__RequestRec_allow_methods); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_allow_methods) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif PERL_UNUSED_VAR(cv); /* -W */ { #line 35 "Access.xs" mpxs_ap_allow_methods(aTHX_ items, MARK+1, SP); #line 104 "Access.c" } XSRETURN_EMPTY; } XS(XS_Apache2__RequestRec_allow_options); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_allow_options) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); int RETVAL; dXSTARG; RETVAL = ap_allow_options(r); XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__RequestRec_allow_overrides); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_allow_overrides) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); int RETVAL; dXSTARG; RETVAL = ap_allow_overrides(r); XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__RequestRec_get_remote_logname); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_get_remote_logname) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); const char * RETVAL; dXSTARG; RETVAL = ap_get_remote_logname(r); sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_Apache2__RequestRec_note_auth_failure); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_note_auth_failure) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); ap_note_auth_failure(r); } XSRETURN_EMPTY; } XS(XS_Apache2__RequestRec_note_basic_auth_failure); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_note_basic_auth_failure) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); ap_note_basic_auth_failure(r); } XSRETURN_EMPTY; } XS(XS_Apache2__RequestRec_note_digest_auth_failure); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_note_digest_auth_failure) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); ap_note_digest_auth_failure(r); } XSRETURN_EMPTY; } XS(XS_Apache2__RequestRec_requires); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_requires) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); SV * RETVAL; #line 88 "Access.xs" RETVAL = mpxs_ap_requires(aTHX_ r); #line 249 "Access.c" ST(0) = RETVAL; sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_Apache2__RequestRec_satisfies); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_satisfies) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); int RETVAL; dXSTARG; RETVAL = ap_satisfies(r); XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__RequestRec_some_auth_required); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_some_auth_required) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); int RETVAL; dXSTARG; RETVAL = ap_some_auth_required(r); XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__RequestRec_allow_override_opts); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_allow_override_opts) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "r"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); int RETVAL; dXSTARG; #line 115 "Access.xs" RETVAL = mpxs_Apache2__RequestRec_allow_override_opts(aTHX_ r); #line 318 "Access.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__RequestRec_auth_name); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_auth_name) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "r, name=NULL"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); char * name; const char * RETVAL; dXSTARG; if (items < 2) name = NULL; else { name = (char *)SvPV_nolen(ST(1)); } #line 129 "Access.xs" RETVAL = mpxs_Apache2__RequestRec_auth_name(aTHX_ r, name); #line 349 "Access.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_Apache2__RequestRec_auth_type); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__RequestRec_auth_type) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "r, type=NULL"); { Apache2__RequestRec r = modperl_xs_sv2request_rec(aTHX_ ST(0), "Apache2::RequestRec", cv); char * type; const char * RETVAL; dXSTARG; if (items < 2) type = NULL; else { type = (char *)SvPV_nolen(ST(1)); } #line 143 "Access.xs" RETVAL = mpxs_Apache2__RequestRec_auth_type(aTHX_ r, type); #line 380 "Access.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } #ifdef __cplusplus extern "C" #endif XS(boot_Apache2__Access); /* prototype to pass -Wmissing-prototypes */ XS(boot_Apache2__Access) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif #if (PERL_REVISION == 5 && PERL_VERSION < 9) char* file = __FILE__; #else const char* file = __FILE__; #endif PERL_UNUSED_VAR(cv); /* -W */ PERL_UNUSED_VAR(items); /* -W */ XS_VERSION_BOOTCHECK ; (void)newXS("Apache2::RequestRec::allow_methods", XS_Apache2__RequestRec_allow_methods, file); (void)newXS("Apache2::RequestRec::allow_options", XS_Apache2__RequestRec_allow_options, file); (void)newXS("Apache2::RequestRec::allow_overrides", XS_Apache2__RequestRec_allow_overrides, file); (void)newXS("Apache2::RequestRec::get_remote_logname", XS_Apache2__RequestRec_get_remote_logname, file); (void)newXS("Apache2::RequestRec::note_auth_failure", XS_Apache2__RequestRec_note_auth_failure, file); (void)newXS("Apache2::RequestRec::note_basic_auth_failure", XS_Apache2__RequestRec_note_basic_auth_failure, file); (void)newXS("Apache2::RequestRec::note_digest_auth_failure", XS_Apache2__RequestRec_note_digest_auth_failure, file); (void)newXS("Apache2::RequestRec::requires", XS_Apache2__RequestRec_requires, file); (void)newXS("Apache2::RequestRec::satisfies", XS_Apache2__RequestRec_satisfies, file); (void)newXS("Apache2::RequestRec::some_auth_required", XS_Apache2__RequestRec_some_auth_required, file); (void)newXS("Apache2::RequestRec::allow_override_opts", XS_Apache2__RequestRec_allow_override_opts, file); (void)newXS("Apache2::RequestRec::auth_name", XS_Apache2__RequestRec_auth_name, file); (void)newXS("Apache2::RequestRec::auth_type", XS_Apache2__RequestRec_auth_type, file); /* Initialisation Section */ #line 152 "Access.xs" items = items; /* -Wall */ cv = newXS("Apache2::RequestRec::get_basic_auth_pw", MPXS_ap_get_basic_auth_pw, __FILE__); #line 428 "Access.c" /* End of Initialisation Section */ #if (PERL_REVISION == 5 && PERL_VERSION >= 9) if (PL_unitcheckav) call_list(PL_scopestack_ix, PL_unitcheckav); #endif XSRETURN_YES; }