1TYPEMAP 2 3Authen::Krb5::Ccache T_PTROBJ_NU 4Authen::Krb5::Principal T_PTROBJ_NU 5Authen::Krb5::AuthContext T_PTROBJ_NU 6Authen::Krb5::Rcache T_PTROBJ_NU 7Authen::Krb5::Creds T_PTROBJ_NU 8Authen::Krb5::ApRepEncPart T_PTROBJ_NU 9Authen::Krb5::Error T_PTROBJ_NU 10Authen::Krb5::Ticket T_PTROBJ_NU 11Authen::Krb5::Keytab T_PTROBJ_NU 12Authen::Krb5::EncTktPart T_PTROBJ_NU 13Authen::Krb5::Ccache T_PTROBJ_NU 14Authen::Krb5::Principal T_PTROBJ_NU 15Authen::Krb5::AuthContext T_PTROBJ_NU 16Authen::Krb5::Rcache T_PTROBJ_NU 17Authen::Krb5::Creds T_PTROBJ_NU 18Authen::Krb5::Address T_PTROBJ_NU 19Authen::Krb5::Keyblock T_PTROBJ_NU 20Authen::Krb5::KeytabEntry T_PTROBJ_NU 21Authen::Krb5::KeyBlock T_PTROBJ_NU 22 23struct in_addr * T_PTROBJ_NU 24krb5_error_code T_INT 25krb5_int32 T_INT 26krb5_flags T_INT 27krb5_timestamp T_INT 28krb5_ui_4 T_INT 29krb5_enctype T_INT 30krb5_kt_cursor * T_PTROBJ_NU 31krb5_cc_cursor * T_PTROBJ_NU 32krb5_kvno T_U_INT 33 34INPUT 35 36T_PTROBJ_NU 37 if ($arg == &PL_sv_undef) { 38 $var = 0; 39 } 40 else if (sv_isa($arg, \"${ntype}\")) { 41 IV tmp = SvIV((SV*)SvRV($arg)); 42 $var = ($type) tmp; 43 } 44 else { 45 croak(\"$var is not of type ${ntype}\"); 46 } 47 48OUTPUT 49 50T_PTROBJ_NU 51 sv_setref_pv($arg, \"${ntype}\", (void*)$var); 52