#include "k5-int.h"
#include "int-proto.h"
static krb5_error_code krb5_principal_size
(krb5_context, krb5_pointer, size_t *);
static krb5_error_code krb5_principal_externalize
(krb5_context, krb5_pointer, krb5_octet **, size_t *);
static krb5_error_code krb5_principal_internalize
(krb5_context,krb5_pointer *, krb5_octet **, size_t *);
static const krb5_ser_entry krb5_principal_ser_entry = {
KV5M_PRINCIPAL,
krb5_principal_size,
krb5_principal_externalize,
krb5_principal_internalize
};
static krb5_error_code
krb5_principal_size(krb5_context kcontext, krb5_pointer arg, size_t *sizep)
{
krb5_error_code kret;
krb5_principal principal;
char *fname;
kret = EINVAL;
if ((principal = (krb5_principal) arg) &&
!(kret = krb5_unparse_name(kcontext, principal, &fname))) {
*sizep += (3*sizeof(krb5_int32)) + strlen(fname);
krb5_xfree(fname);
}
return(kret);
}
static krb5_error_code
krb5_principal_externalize(krb5_context kcontext, krb5_pointer arg, krb5_octet **buffer, size_t *lenremain)
{
krb5_error_code kret;
krb5_principal principal;
size_t required;
krb5_octet *bp;
size_t remain;
char *fname;
required = 0;
bp = *buffer;
remain = *lenremain;
kret = EINVAL;
if ((principal = (krb5_principal) arg)) {
kret = ENOMEM;
if (!krb5_principal_size(kcontext, arg, &required) &&
(required <= remain)) {
if (!(kret = krb5_unparse_name(kcontext, principal, &fname))) {
(void) krb5_ser_pack_int32(KV5M_PRINCIPAL, &bp, &remain);
(void) krb5_ser_pack_int32((krb5_int32) strlen(fname),
&bp, &remain);
(void) krb5_ser_pack_bytes((krb5_octet *) fname,
strlen(fname), &bp, &remain);
(void) krb5_ser_pack_int32(KV5M_PRINCIPAL, &bp, &remain);
*buffer = bp;
*lenremain = remain;
krb5_xfree(fname);
}
}
}
return(kret);
}
static krb5_error_code
krb5_principal_internalize(krb5_context kcontext, krb5_pointer *argp, krb5_octet **buffer, size_t *lenremain)
{
krb5_error_code kret;
krb5_principal principal;
krb5_int32 ibuf;
krb5_octet *bp;
size_t remain;
char *tmpname;
bp = *buffer;
remain = *lenremain;
kret = EINVAL;
if (krb5_ser_unpack_int32(&ibuf, &bp, &remain))
ibuf = 0;
if (ibuf == KV5M_PRINCIPAL) {
kret = ENOMEM;
if (!(kret = krb5_ser_unpack_int32(&ibuf, &bp, &remain))) {
if ((tmpname = (char *) malloc((size_t) (ibuf+1))) &&
!(kret = krb5_ser_unpack_bytes((krb5_octet *) tmpname,
(size_t) ibuf,
&bp, &remain))) {
tmpname[ibuf] = '\0';
principal = (krb5_principal) NULL;
kret = krb5_parse_name(kcontext, tmpname, &principal);
if (!kret) {
kret = krb5_ser_unpack_int32(&ibuf, &bp, &remain);
if (!kret && (ibuf == KV5M_PRINCIPAL)) {
*buffer = bp;
*lenremain = remain;
*argp = principal;
}
else
kret = EINVAL;
}
if (kret && principal)
krb5_free_principal(kcontext, principal);
free(tmpname);
}
}
}
return(kret);
}
krb5_error_code
krb5_ser_principal_init(krb5_context kcontext)
{
return(krb5_register_serializer(kcontext, &krb5_principal_ser_entry));
}