krb5_get_princ_type
krb5_get_princ_type(krb5_context, krb5_db_entry *, int *);
if (((st=krb5_get_princ_type(context, entry, &(ptype))) != 0) ||
code = krb5_get_princ_type(kcontext, entry, res);
if (((st=krb5_get_princ_type(context, entry, &kerberos_principal_object_type)) != 0) ||