00001
00007 #include <yaz/z-acckrb1.h>
00008
00009 int z_KRBObject (ODR o, Z_KRBObject **p, int opt, const char *name)
00010 {
00011 static Odr_arm arm[] = {
00012 {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_KRBObject_challenge,
00013 (Odr_fun) z_KRBRequest, "challenge"},
00014 {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_KRBObject_response,
00015 (Odr_fun) z_KRBResponse, "response"},
00016 {-1, -1, -1, -1, (Odr_fun) 0, 0}
00017 };
00018 if (!odr_initmember(o, p, sizeof(**p)))
00019 return odr_missing(o, opt, name);
00020 if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
00021 return 1;
00022 if(o->direction == ODR_DECODE)
00023 *p = 0;
00024 return odr_missing(o, opt, name);
00025 }
00026
00027 int z_KRBRequest (ODR o, Z_KRBRequest **p, int opt, const char *name)
00028 {
00029 if (!odr_sequence_begin (o, p, sizeof(**p), name))
00030 return odr_missing(o, opt, name) && odr_ok (o);
00031 return
00032 odr_implicit_tag (o, z_InternationalString,
00033 &(*p)->service, ODR_CONTEXT, 1, 0, "service") &&
00034 odr_implicit_tag (o, z_InternationalString,
00035 &(*p)->instance, ODR_CONTEXT, 2, 1, "instance") &&
00036 odr_implicit_tag (o, z_InternationalString,
00037 &(*p)->realm, ODR_CONTEXT, 3, 1, "realm") &&
00038 odr_sequence_end (o);
00039 }
00040
00041 int z_KRBResponse (ODR o, Z_KRBResponse **p, int opt, const char *name)
00042 {
00043 if (!odr_sequence_begin (o, p, sizeof(**p), name))
00044 return odr_missing(o, opt, name) && odr_ok (o);
00045 return
00046 odr_implicit_tag (o, z_InternationalString,
00047 &(*p)->userid, ODR_CONTEXT, 1, 1, "userid") &&
00048 odr_implicit_tag (o, odr_octetstring,
00049 &(*p)->ticket, ODR_CONTEXT, 2, 0, "ticket") &&
00050 odr_sequence_end (o);
00051 }
