TYPEMAP tConf * T_PTROBJ_CONF tReq * T_PTROBJ_REQ tFile * T_PTROBJ_FILE tDomNode * T_PTROBJ_DOMNODE INPUT T_PTROBJ_CONF if (sv_derived_from ($arg, \"HTML::Embperl::Conf\")) $var = (tConf *)(SvIV((SV *)SvRV($arg))) ; else croak (\"$var is not of type HTML::Embperl::Conf\") ; T_PTROBJ_REQ { MAGIC * mg ; if (mg = mg_find (SvRV($arg), '~')) $var = *((tReq **)(mg -> mg_ptr)) ; else croak (\"$var is not of type HTML::Embperl::Req\") ; } T_PTROBJ_FILE if (sv_derived_from ($arg, \"HTML::Embperl::File\")) $var = (tFile *)(SvIV((SV *)SvRV($arg))) ; else croak (\"$var is not of type HTML::Embperl::File\") ; T_PTROBJ_DOMNODE { MAGIC * mg ; if (mg = mg_find (SvRV($arg), '~')) $var = *((tDomNode **)(mg -> mg_ptr)) ; else croak (\"$var is not of type XML::Embperl::DOM::Node\") ; } OUTPUT T_PTROBJ_CONF sv_setref_pv ($arg, \"HTML::Embperl::Conf\", (void *)$var) ; T_PTROBJ_REQ { SV * pSV = $var -> pReqSV ; if (pSV == NULL) $arg = &sv_undef ; else $arg = pSV ; } T_PTROBJ_FILE sv_setref_pv ($arg, \"HTML::Embperl::File\", (void *)$var) ; T_PTROBJ_DOMNODE { SV * pSV = $var -> pDomNodeSV ; if (pSV == NULL) $arg = &sv_undef ; else $arg = pSV ; }