/* * *********** WARNING ************** * This file generated by Embperl::WrapXS/2.0.0 * Any changes made here will be lost * *********************************** * 1. /opt/perlt5.8.7/lib/site_perl/5.8.7/ExtUtils/XSBuilder/WrapXS.pm:52 * 2. /opt/perlt5.8.7/lib/site_perl/5.8.7/ExtUtils/XSBuilder/WrapXS.pm:2068 * 3. xsbuilder/xs_generate.pl:6 */ #include "ep.h" #include "epmacro.h" #include "epdat2.h" #include "eptypes.h" #include "eppublic.h" #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "ep_xs_sv_convert.h" #include "ep_xs_typedefs.h" void Embperl__App__Config_destroy (pTHX_ Embperl__App__Config obj) { if (obj -> pSessionArgs) SvREFCNT_dec(obj -> pSessionArgs); if (obj -> pSessionClasses) SvREFCNT_dec(obj -> pSessionClasses); if (obj -> pObjectAddpathAV) SvREFCNT_dec(obj -> pObjectAddpathAV); if (obj -> pObjectReqpathAV) SvREFCNT_dec(obj -> pObjectReqpathAV); }; void Embperl__App__Config_new_init (pTHX_ Embperl__App__Config obj, SV * item, int overwrite) { SV * * tmpsv ; if (SvTYPE(item) == SVt_PVMG) memcpy (obj, (void *)SvIVX(item), sizeof (*obj)) ; else if (SvTYPE(item) == SVt_PVHV) { if ((tmpsv = hv_fetch((HV *)item, "app_name", sizeof("app_name") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sAppName = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sAppName = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "app_handler_class", sizeof("app_handler_class") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sAppHandlerClass = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sAppHandlerClass = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "session_handler_class", sizeof("session_handler_class") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sSessionHandlerClass = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sSessionHandlerClass = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "session_args", sizeof("session_args") - 1, 0)) || overwrite) { HV * tmpobj = ((HV *)epxs_sv2_HVREF((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> pSessionArgs = (HV *)SvREFCNT_inc(tmpobj); else obj -> pSessionArgs = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "session_classes", sizeof("session_classes") - 1, 0)) || overwrite) { AV * tmpobj = ((AV *)epxs_sv2_AVREF((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> pSessionClasses = (AV *)SvREFCNT_inc(tmpobj); else obj -> pSessionClasses = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "session_config", sizeof("session_config") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sSessionConfig = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sSessionConfig = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "cookie_name", sizeof("cookie_name") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sCookieName = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sCookieName = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "cookie_domain", sizeof("cookie_domain") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sCookieDomain = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sCookieDomain = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "cookie_path", sizeof("cookie_path") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sCookiePath = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sCookiePath = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "cookie_expires", sizeof("cookie_expires") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sCookieExpires = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sCookieExpires = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "cookie_secure", sizeof("cookie_secure") - 1, 0)) || overwrite) { obj -> bCookieSecure = (bool)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ; } if ((tmpsv = hv_fetch((HV *)item, "log", sizeof("log") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sLog = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sLog = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "debug", sizeof("debug") - 1, 0)) || overwrite) { obj -> bDebug = (unsigned)epxs_sv2_UV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ; } if ((tmpsv = hv_fetch((HV *)item, "mailhost", sizeof("mailhost") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sMailhost = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sMailhost = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "mailhelo", sizeof("mailhelo") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sMailhelo = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sMailhelo = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "mailfrom", sizeof("mailfrom") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sMailfrom = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sMailfrom = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "maildebug", sizeof("maildebug") - 1, 0)) || overwrite) { obj -> bMaildebug = (bool)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ; } if ((tmpsv = hv_fetch((HV *)item, "mail_errors_to", sizeof("mail_errors_to") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sMailErrorsTo = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sMailErrorsTo = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "mail_errors_limit", sizeof("mail_errors_limit") - 1, 0)) || overwrite) { obj -> nMailErrorsLimit = (int)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ; } if ((tmpsv = hv_fetch((HV *)item, "mail_errors_reset_time", sizeof("mail_errors_reset_time") - 1, 0)) || overwrite) { obj -> nMailErrorsResetTime = (int)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ; } if ((tmpsv = hv_fetch((HV *)item, "mail_errors_resend_time", sizeof("mail_errors_resend_time") - 1, 0)) || overwrite) { obj -> nMailErrorsResendTime = (int)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ; } if ((tmpsv = hv_fetch((HV *)item, "object_base", sizeof("object_base") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sObjectBase = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sObjectBase = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "object_app", sizeof("object_app") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sObjectApp = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sObjectApp = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "object_addpath", sizeof("object_addpath") - 1, 0)) || overwrite) { AV * tmpobj = ((AV *)epxs_sv2_AVREF((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> pObjectAddpathAV = (AV *)SvREFCNT_inc(tmpobj); else obj -> pObjectAddpathAV = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "object_reqpath", sizeof("object_reqpath") - 1, 0)) || overwrite) { AV * tmpobj = ((AV *)epxs_sv2_AVREF((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> pObjectReqpathAV = (AV *)SvREFCNT_inc(tmpobj); else obj -> pObjectReqpathAV = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "object_stopdir", sizeof("object_stopdir") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sObjectStopdir = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sObjectStopdir = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "object_fallback", sizeof("object_fallback") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sObjectFallback = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sObjectFallback = NULL ; } if ((tmpsv = hv_fetch((HV *)item, "object_handler_class", sizeof("object_handler_class") - 1, 0)) || overwrite) { char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef))); if (tmpobj) obj -> sObjectHandlerClass = (char *)ep_pstrdup(obj->pPool,tmpobj); else obj -> sObjectHandlerClass = NULL ; } ; } else croak ("initializer for Embperl::App::Config::new is not a hash or object reference") ; } ; MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * app_name(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sAppName; if (items > 1) { obj->sAppName = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * app_handler_class(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sAppHandlerClass; if (items > 1) { obj->sAppHandlerClass = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * session_handler_class(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sSessionHandlerClass; if (items > 1) { obj->sSessionHandlerClass = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config HV * session_args(obj, val=NULL) Embperl::App::Config obj HV * val PREINIT: /*nada*/ CODE: RETVAL = (HV *) obj->pSessionArgs; if (items > 1) { obj->pSessionArgs = (HV *)SvREFCNT_inc(val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config AV * session_classes(obj, val=NULL) Embperl::App::Config obj AV * val PREINIT: /*nada*/ CODE: RETVAL = (AV *) obj->pSessionClasses; if (items > 1) { obj->pSessionClasses = (AV *)SvREFCNT_inc(val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * session_config(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sSessionConfig; if (items > 1) { obj->sSessionConfig = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * cookie_name(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sCookieName; if (items > 1) { obj->sCookieName = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * cookie_domain(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sCookieDomain; if (items > 1) { obj->sCookieDomain = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * cookie_path(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sCookiePath; if (items > 1) { obj->sCookiePath = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * cookie_expires(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sCookieExpires; if (items > 1) { obj->sCookieExpires = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config bool cookie_secure(obj, val=0) Embperl::App::Config obj bool val PREINIT: /*nada*/ CODE: RETVAL = (bool) obj->bCookieSecure; if (items > 1) { obj->bCookieSecure = (bool) val; } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * log(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sLog; if (items > 1) { obj->sLog = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config unsigned debug(obj, val=0) Embperl::App::Config obj unsigned val PREINIT: /*nada*/ CODE: RETVAL = (unsigned) obj->bDebug; if (items > 1) { obj->bDebug = (unsigned) val; } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * mailhost(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sMailhost; if (items > 1) { obj->sMailhost = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * mailhelo(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sMailhelo; if (items > 1) { obj->sMailhelo = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * mailfrom(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sMailfrom; if (items > 1) { obj->sMailfrom = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config bool maildebug(obj, val=0) Embperl::App::Config obj bool val PREINIT: /*nada*/ CODE: RETVAL = (bool) obj->bMaildebug; if (items > 1) { obj->bMaildebug = (bool) val; } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * mail_errors_to(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sMailErrorsTo; if (items > 1) { obj->sMailErrorsTo = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config int mail_errors_limit(obj, val=0) Embperl::App::Config obj int val PREINIT: /*nada*/ CODE: RETVAL = (int) obj->nMailErrorsLimit; if (items > 1) { obj->nMailErrorsLimit = (int) val; } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config int mail_errors_reset_time(obj, val=0) Embperl::App::Config obj int val PREINIT: /*nada*/ CODE: RETVAL = (int) obj->nMailErrorsResetTime; if (items > 1) { obj->nMailErrorsResetTime = (int) val; } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config int mail_errors_resend_time(obj, val=0) Embperl::App::Config obj int val PREINIT: /*nada*/ CODE: RETVAL = (int) obj->nMailErrorsResendTime; if (items > 1) { obj->nMailErrorsResendTime = (int) val; } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * object_base(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sObjectBase; if (items > 1) { obj->sObjectBase = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * object_app(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sObjectApp; if (items > 1) { obj->sObjectApp = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config AV * object_addpath(obj, val=NULL) Embperl::App::Config obj AV * val PREINIT: /*nada*/ CODE: RETVAL = (AV *) obj->pObjectAddpathAV; if (items > 1) { obj->pObjectAddpathAV = (AV *)SvREFCNT_inc(val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config AV * object_reqpath(obj, val=NULL) Embperl::App::Config obj AV * val PREINIT: /*nada*/ CODE: RETVAL = (AV *) obj->pObjectReqpathAV; if (items > 1) { obj->pObjectReqpathAV = (AV *)SvREFCNT_inc(val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * object_stopdir(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sObjectStopdir; if (items > 1) { obj->sObjectStopdir = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * object_fallback(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sObjectFallback; if (items > 1) { obj->sObjectFallback = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config char * object_handler_class(obj, val=NULL) Embperl::App::Config obj char * val PREINIT: /*nada*/ CODE: RETVAL = (char *) obj->sObjectHandlerClass; if (items > 1) { obj->sObjectHandlerClass = (char *)ep_pstrdup(obj->pPool,val); } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config SV * new (class,initializer=NULL) char * class SV * initializer PREINIT: SV * svobj ; Embperl__App__Config cobj ; SV * tmpsv ; CODE: epxs_Embperl__App__Config_create_obj(cobj,svobj,RETVAL,malloc(sizeof(*cobj))) ; if (initializer) { if (!SvROK(initializer) || !(tmpsv = SvRV(initializer))) croak ("initializer for Embperl::App::Config::new is not a reference") ; if (SvTYPE(tmpsv) == SVt_PVHV || SvTYPE(tmpsv) == SVt_PVMG) Embperl__App__Config_new_init (aTHX_ cobj, tmpsv, 0) ; else if (SvTYPE(tmpsv) == SVt_PVAV) { int i ; SvGROW(svobj, sizeof (*cobj) * av_len((AV *)tmpsv)) ; for (i = 0; i <= av_len((AV *)tmpsv); i++) { SV * * itemrv = av_fetch((AV *)tmpsv, i, 0) ; SV * item ; if (!itemrv || !*itemrv || !SvROK(*itemrv) || !(item = SvRV(*itemrv))) croak ("array element of initializer for Embperl::App::Config::new is not a reference") ; Embperl__App__Config_new_init (aTHX_ &cobj[i], item, 1) ; } } else { croak ("initializer for Embperl::App::Config::new is not a hash/array/object reference") ; } } OUTPUT: RETVAL MODULE = Embperl::App::Config PACKAGE = Embperl::App::Config void DESTROY (obj) Embperl::App::Config obj CODE: Embperl__App__Config_destroy (aTHX_ obj) ; PROTOTYPES: disabled BOOT: items = items; /* -Wall */