/* * This file was generated automatically by ExtUtils::ParseXS version 2.21 from the * contents of ServerRec.xs. Do not edit this file, edit ServerRec.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "ServerRec.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" #line 36 "ServerRec.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 88 "ServerRec.c" XS(XS_Apache2__ServerRec_process); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_process) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "obj"); { Apache2__ServerRec obj; Apache2__Process RETVAL; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::process", "obj", "Apache2::ServerRec"); #line 35 "ServerRec.xs" RETVAL = (Apache2__Process) obj->process; #line 115 "ServerRec.c" ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "Apache2::Process", (void*)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_next); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_next) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "obj"); { Apache2__ServerRec obj; Apache2__ServerRec RETVAL; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::next", "obj", "Apache2::ServerRec"); #line 49 "ServerRec.xs" RETVAL = (Apache2__ServerRec) obj->next; #line 148 "ServerRec.c" ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "Apache2::ServerRec", (void*)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_server_admin); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_server_admin) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=Nullsv"); { Apache2__ServerRec obj; SV * val; #line 62 "ServerRec.xs" /*nada*/ #line 173 "ServerRec.c" char * RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::server_admin", "obj", "Apache2::ServerRec"); if (items < 2) val = Nullsv; else { val = ST(1); } #line 66 "ServerRec.xs" RETVAL = (char *) obj->server_admin; if (items > 1) { SV *dup = get_sv("_modperl_private::server_rec_server_admin", TRUE); MP_CROAK_IF_THREADS_STARTED("setting server_admin"); sv_setsv(dup, val); obj->server_admin = (char *)SvPV_nolen(dup); } #line 201 "ServerRec.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_Apache2__ServerRec_server_hostname); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_server_hostname) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=Nullsv"); { Apache2__ServerRec obj; SV * val; #line 86 "ServerRec.xs" /*nada*/ #line 225 "ServerRec.c" char * RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::server_hostname", "obj", "Apache2::ServerRec"); if (items < 2) val = Nullsv; else { val = ST(1); } #line 90 "ServerRec.xs" RETVAL = (char *) obj->server_hostname; if (items > 1) { SV *dup = get_sv("_modperl_private::server_rec_server_hostname", TRUE); MP_CROAK_IF_THREADS_STARTED("setting server_hostname"); sv_setsv(dup, val); obj->server_hostname = (char *)SvPV_nolen(dup); } #line 253 "ServerRec.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_Apache2__ServerRec_port); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_port) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=0"); { Apache2__ServerRec obj; apr_port_t val; #line 110 "ServerRec.xs" /*nada*/ #line 277 "ServerRec.c" apr_port_t RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::port", "obj", "Apache2::ServerRec"); if (items < 2) val = 0; else { val = (apr_port_t)SvIV(ST(1)); } #line 114 "ServerRec.xs" RETVAL = (apr_port_t) obj->port; if (items > 1) { MP_CROAK_IF_THREADS_STARTED("setting port"); obj->port = (apr_port_t) val; } #line 303 "ServerRec.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_error_fname); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_error_fname) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=Nullsv"); { Apache2__ServerRec obj; SV * val; #line 132 "ServerRec.xs" /*nada*/ #line 327 "ServerRec.c" char * RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::error_fname", "obj", "Apache2::ServerRec"); if (items < 2) val = Nullsv; else { val = ST(1); } #line 136 "ServerRec.xs" RETVAL = (char *) obj->error_fname; if (items > 1) { SV *dup = get_sv("_modperl_private::server_rec_error_fname", TRUE); MP_CROAK_IF_THREADS_STARTED("setting error_fname"); sv_setsv(dup, val); obj->error_fname = (char *)SvPV_nolen(dup); } #line 355 "ServerRec.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_Apache2__ServerRec_loglevel); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_loglevel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=0"); { Apache2__ServerRec obj; int val; #line 156 "ServerRec.xs" /*nada*/ #line 379 "ServerRec.c" int RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::loglevel", "obj", "Apache2::ServerRec"); if (items < 2) val = 0; else { val = (int)SvIV(ST(1)); } #line 160 "ServerRec.xs" RETVAL = (int) obj->loglevel; if (items > 1) { MP_CROAK_IF_THREADS_STARTED("setting loglevel"); obj->loglevel = (int) val; } #line 405 "ServerRec.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_is_virtual); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_is_virtual) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "obj"); { Apache2__ServerRec obj; int RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::is_virtual", "obj", "Apache2::ServerRec"); #line 179 "ServerRec.xs" RETVAL = (int) obj->is_virtual; #line 438 "ServerRec.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_module_config); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_module_config) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "obj"); { Apache2__ServerRec obj; Apache2__ConfVector RETVAL; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::module_config", "obj", "Apache2::ServerRec"); #line 193 "ServerRec.xs" RETVAL = (Apache2__ConfVector) obj->module_config; #line 470 "ServerRec.c" ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "Apache2::ConfVector", (void*)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_lookup_defaults); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_lookup_defaults) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "obj"); { Apache2__ServerRec obj; Apache2__ConfVector RETVAL; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::lookup_defaults", "obj", "Apache2::ServerRec"); #line 207 "ServerRec.xs" RETVAL = (Apache2__ConfVector) obj->lookup_defaults; #line 503 "ServerRec.c" ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "Apache2::ConfVector", (void*)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_addrs); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_addrs) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) croak_xs_usage(cv, "obj"); { Apache2__ServerRec obj; Apache2__ServerAddr RETVAL; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::addrs", "obj", "Apache2::ServerRec"); #line 221 "ServerRec.xs" RETVAL = (Apache2__ServerAddr) obj->addrs; #line 536 "ServerRec.c" ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "Apache2::ServerAddr", (void*)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_timeout); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_timeout) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=0"); { Apache2__ServerRec obj; apr_interval_time_t val; #line 234 "ServerRec.xs" /*nada*/ #line 561 "ServerRec.c" apr_interval_time_t RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::timeout", "obj", "Apache2::ServerRec"); if (items < 2) val = 0; else { val = (apr_interval_time_t)SvNV(ST(1)); } #line 238 "ServerRec.xs" RETVAL = (apr_interval_time_t) obj->timeout; if (items > 1) { MP_CROAK_IF_THREADS_STARTED("setting timeout"); obj->timeout = (apr_interval_time_t) val; } #line 587 "ServerRec.c" XSprePUSH; PUSHn((NV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_keep_alive_timeout); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_keep_alive_timeout) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=0"); { Apache2__ServerRec obj; apr_interval_time_t val; #line 256 "ServerRec.xs" /*nada*/ #line 611 "ServerRec.c" apr_interval_time_t RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::keep_alive_timeout", "obj", "Apache2::ServerRec"); if (items < 2) val = 0; else { val = (apr_interval_time_t)SvNV(ST(1)); } #line 260 "ServerRec.xs" RETVAL = (apr_interval_time_t) obj->keep_alive_timeout; if (items > 1) { MP_CROAK_IF_THREADS_STARTED("setting keep_alive_timeout"); obj->keep_alive_timeout = (apr_interval_time_t) val; } #line 637 "ServerRec.c" XSprePUSH; PUSHn((NV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_keep_alive_max); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_keep_alive_max) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=0"); { Apache2__ServerRec obj; int val; #line 278 "ServerRec.xs" /*nada*/ #line 661 "ServerRec.c" int RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::keep_alive_max", "obj", "Apache2::ServerRec"); if (items < 2) val = 0; else { val = (int)SvIV(ST(1)); } #line 282 "ServerRec.xs" RETVAL = (int) obj->keep_alive_max; if (items > 1) { MP_CROAK_IF_THREADS_STARTED("setting keep_alive_max"); obj->keep_alive_max = (int) val; } #line 687 "ServerRec.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_keep_alive); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_keep_alive) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=0"); { Apache2__ServerRec obj; int val; #line 300 "ServerRec.xs" /*nada*/ #line 711 "ServerRec.c" int RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::keep_alive", "obj", "Apache2::ServerRec"); if (items < 2) val = 0; else { val = (int)SvIV(ST(1)); } #line 304 "ServerRec.xs" RETVAL = (int) obj->keep_alive; if (items > 1) { MP_CROAK_IF_THREADS_STARTED("setting keep_alive"); obj->keep_alive = (int) val; } #line 737 "ServerRec.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_path); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_path) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=Nullsv"); { Apache2__ServerRec obj; SV * val; #line 322 "ServerRec.xs" /*nada*/ #line 761 "ServerRec.c" const char * RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::path", "obj", "Apache2::ServerRec"); if (items < 2) val = Nullsv; else { val = ST(1); } #line 326 "ServerRec.xs" RETVAL = (const char *) obj->path; if (items > 1) { SV *dup = get_sv("_modperl_private::server_rec_path", TRUE); MP_CROAK_IF_THREADS_STARTED("setting path"); sv_setsv(dup, val); obj->path = (const char *)SvPV_nolen(dup); } #line 789 "ServerRec.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_Apache2__ServerRec_names); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_names) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=Nullsv"); { Apache2__ServerRec obj; SV * val; #line 346 "ServerRec.xs" /*nada*/ #line 813 "ServerRec.c" APR__ArrayHeader RETVAL; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::names", "obj", "Apache2::ServerRec"); if (items < 2) val = Nullsv; else { val = ST(1); } #line 350 "ServerRec.xs" RETVAL = (APR__ArrayHeader) obj->names; if (items > 1) { SV *dup = get_sv("_modperl_private::server_rec_names", TRUE); MP_CROAK_IF_THREADS_STARTED("setting names"); sv_setsv(dup, val); obj->names = (APR__ArrayHeader)mp_xs_sv2_APR__ArrayHeader(dup); } #line 840 "ServerRec.c" ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "APR::ArrayHeader", (void*)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_wild_names); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_wild_names) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=Nullsv"); { Apache2__ServerRec obj; SV * val; #line 370 "ServerRec.xs" /*nada*/ #line 865 "ServerRec.c" APR__ArrayHeader RETVAL; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::wild_names", "obj", "Apache2::ServerRec"); if (items < 2) val = Nullsv; else { val = ST(1); } #line 374 "ServerRec.xs" RETVAL = (APR__ArrayHeader) obj->wild_names; if (items > 1) { SV *dup = get_sv("_modperl_private::server_rec_wild_names", TRUE); MP_CROAK_IF_THREADS_STARTED("setting wild_names"); sv_setsv(dup, val); obj->wild_names = (APR__ArrayHeader)mp_xs_sv2_APR__ArrayHeader(dup); } #line 892 "ServerRec.c" ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "APR::ArrayHeader", (void*)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_limit_req_line); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_limit_req_line) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=0"); { Apache2__ServerRec obj; int val; #line 394 "ServerRec.xs" /*nada*/ #line 917 "ServerRec.c" int RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::limit_req_line", "obj", "Apache2::ServerRec"); if (items < 2) val = 0; else { val = (int)SvIV(ST(1)); } #line 398 "ServerRec.xs" RETVAL = (int) obj->limit_req_line; if (items > 1) { MP_CROAK_IF_THREADS_STARTED("setting limit_req_line"); obj->limit_req_line = (int) val; } #line 943 "ServerRec.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_limit_req_fieldsize); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_limit_req_fieldsize) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=0"); { Apache2__ServerRec obj; int val; #line 416 "ServerRec.xs" /*nada*/ #line 967 "ServerRec.c" int RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::limit_req_fieldsize", "obj", "Apache2::ServerRec"); if (items < 2) val = 0; else { val = (int)SvIV(ST(1)); } #line 420 "ServerRec.xs" RETVAL = (int) obj->limit_req_fieldsize; if (items > 1) { MP_CROAK_IF_THREADS_STARTED("setting limit_req_fieldsize"); obj->limit_req_fieldsize = (int) val; } #line 993 "ServerRec.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_Apache2__ServerRec_limit_req_fields); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache2__ServerRec_limit_req_fields) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1 || items > 2) croak_xs_usage(cv, "obj, val=0"); { Apache2__ServerRec obj; int val; #line 438 "ServerRec.xs" /*nada*/ #line 1017 "ServerRec.c" int RETVAL; dXSTARG; if (sv_derived_from(ST(0), "Apache2::ServerRec")) { IV tmp = SvIV((SV*)SvRV(ST(0))); obj = INT2PTR(Apache2__ServerRec,tmp); } else Perl_croak(aTHX_ "%s: %s is not of type %s", "Apache2::ServerRec::limit_req_fields", "obj", "Apache2::ServerRec"); if (items < 2) val = 0; else { val = (int)SvIV(ST(1)); } #line 442 "ServerRec.xs" RETVAL = (int) obj->limit_req_fields; if (items > 1) { MP_CROAK_IF_THREADS_STARTED("setting limit_req_fields"); obj->limit_req_fields = (int) val; } #line 1043 "ServerRec.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #ifdef __cplusplus extern "C" #endif XS(boot_Apache2__ServerRec); /* prototype to pass -Wmissing-prototypes */ XS(boot_Apache2__ServerRec) { #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::ServerRec::process", XS_Apache2__ServerRec_process, file); (void)newXS("Apache2::ServerRec::next", XS_Apache2__ServerRec_next, file); (void)newXS("Apache2::ServerRec::server_admin", XS_Apache2__ServerRec_server_admin, file); (void)newXS("Apache2::ServerRec::server_hostname", XS_Apache2__ServerRec_server_hostname, file); (void)newXS("Apache2::ServerRec::port", XS_Apache2__ServerRec_port, file); (void)newXS("Apache2::ServerRec::error_fname", XS_Apache2__ServerRec_error_fname, file); (void)newXS("Apache2::ServerRec::loglevel", XS_Apache2__ServerRec_loglevel, file); (void)newXS("Apache2::ServerRec::is_virtual", XS_Apache2__ServerRec_is_virtual, file); (void)newXS("Apache2::ServerRec::module_config", XS_Apache2__ServerRec_module_config, file); (void)newXS("Apache2::ServerRec::lookup_defaults", XS_Apache2__ServerRec_lookup_defaults, file); (void)newXS("Apache2::ServerRec::addrs", XS_Apache2__ServerRec_addrs, file); (void)newXS("Apache2::ServerRec::timeout", XS_Apache2__ServerRec_timeout, file); (void)newXS("Apache2::ServerRec::keep_alive_timeout", XS_Apache2__ServerRec_keep_alive_timeout, file); (void)newXS("Apache2::ServerRec::keep_alive_max", XS_Apache2__ServerRec_keep_alive_max, file); (void)newXS("Apache2::ServerRec::keep_alive", XS_Apache2__ServerRec_keep_alive, file); (void)newXS("Apache2::ServerRec::path", XS_Apache2__ServerRec_path, file); (void)newXS("Apache2::ServerRec::names", XS_Apache2__ServerRec_names, file); (void)newXS("Apache2::ServerRec::wild_names", XS_Apache2__ServerRec_wild_names, file); (void)newXS("Apache2::ServerRec::limit_req_line", XS_Apache2__ServerRec_limit_req_line, file); (void)newXS("Apache2::ServerRec::limit_req_fieldsize", XS_Apache2__ServerRec_limit_req_fieldsize, file); (void)newXS("Apache2::ServerRec::limit_req_fields", XS_Apache2__ServerRec_limit_req_fields, file); /* Initialisation Section */ #line 456 "ServerRec.xs" items = items; /* -Wall */ #line 1097 "ServerRec.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; }