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