krb5_get_princ_type
krb5_get_princ_type(krb5_context, krb5_db_entry *, int *);
if (((st=krb5_get_princ_type(context, &entries, &(ptype))) != 0) ||
if (((st=krb5_get_princ_type(context, entries, &kerberos_principal_object_type)) != 0) ||