asn/prt-esp.c

   1 /*
   2  * Copyright (c) 1995, Index Data.
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: prt-esp.c,v $
   7  * Revision 1.1  1995-10-12 10:34:37  quinn
   8  * Added Espec-1.
   9  *
  10  *
  11  */
  12
  13 #include <proto.h>
  14
  15 int z_OccurValues(ODR o, Z_OccurValues **p, int opt)
  16 {
  17     if (!odr_sequence_begin(o, p, sizeof(**p)))
  18         return opt && odr_ok(o);
  19     return
  20         odr_implicit(o, odr_integer, &(*p)->start, ODR_CONTEXT, 1, 0) &&
  21         odr_implicit(o, odr_integer, &(*p)->howMany, ODR_CONTEXT, 2, 1) &&
  22         odr_sequence_end(o);
  23 }
  24
  25 int z_Occurrences(ODR o, Z_Occurrences **p, int opt)
  26 {
  27     static Odr_arm arm[] =
  28     {
  29         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Occurrences_all, odr_null},
  30         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Occurrences_last, odr_null},
  31         {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_Occurrences_values, z_OccurValues},
  32         {-1, -1, -1, -1, 0}
  33     };
  34
  35     if (o->direction == ODR_DECODE)
  36         *p = odr_malloc(o, sizeof(**p));
  37     else if (!*p)
  38         return opt;
  39     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
  40         return 1;
  41     *p = 0;
  42     return opt && odr_ok(o);
  43 }
  44
  45 int z_SpecificTag(ODR o, Z_SpecificTag **p, int opt)
  46 {
  47     if (!odr_sequence_begin(o, p, sizeof(**p)))
  48         return opt && odr_ok(o);
  49     return
  50         odr_implicit(o, odr_integer, &(*p)->tagType, ODR_CONTEXT, 1, 1) &&
  51         odr_explicit(o, z_StringOrNumeric, &(*p)->tagValue, ODR_CONTEXT,
  52             2, 0) &&
  53         odr_explicit(o, z_Occurrences, &(*p)->occurrences, ODR_CONTEXT, 3, 1) &&
  54         odr_sequence_end(o);
  55 }
  56
  57 int z_ETagUnit(ODR o, Z_ETagUnit **p, int opt)
  58 {
  59     static Odr_arm arm[] =
  60     {
  61         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_ETagUnit_specificTag, z_SpecificTag},
  62         {ODR_EXPLICIT, ODR_CONTEXT, 2, Z_ETagUnit_wildThing, z_Occurrences},
  63         {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_ETagUnit_wildPath, odr_null},
  64         {-1, -1, -1 -1, 0}
  65     };
  66
  67     if (o->direction == ODR_DECODE)
  68         *p = odr_malloc(o, sizeof(**p));
  69     else if (!*p)
  70         return opt;
  71     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
  72         return 1;
  73     *p = 0;
  74     return opt && odr_ok(o);
  75 }
  76
  77 int z_ETagPath(ODR o, Z_ETagPath **p, int opt)
  78 {
  79     if (o->direction == ODR_DECODE)
  80         *p = odr_malloc(o, sizeof(**p));
  81     else if (!*p)
  82         return opt;
  83     if (odr_sequence_of(o, z_ETagUnit, &(*p)->tags, &(*p)->num_tags))
  84         return 1;
  85     *p = 0;
  86     return opt && odr_ok(o);
  87 }
  88
  89 int z_SimpleElement(ODR o, Z_SimpleElement **p, int opt)
  90 {
  91     if (!odr_sequence_begin(o, p, sizeof(**p)))
  92         return opt && odr_ok(o);
  93     return
  94         odr_implicit(o, z_ETagPath, &(*p)->path, ODR_CONTEXT, 1, 0) &&
  95         odr_implicit(o, z_Variant, &(*p)->variantRequest, ODR_CONTEXT,
  96             2, 1) &&
  97         odr_sequence_end(o);
  98 }
  99
 100 int z_CompoPrimitives(ODR o, Z_CompoPrimitives **p, int opt)
 101 {
 102     if (o->direction == ODR_DECODE)
 103         *p = odr_malloc(o, sizeof(**p));
 104     else if (!*p)
 105         return opt;
 106     if (odr_sequence_of(o, z_InternationalString, &(*p)->primitives,
 107         &(*p)->num_primitives))
 108         return 1;
 109     *p = 0;
 110     return opt && odr_ok(o);
 111 }
 112
 113 int z_CompoSpecs(ODR o, Z_CompoSpecs **p, int opt)
 114 {
 115     if (o->direction == ODR_DECODE)
 116         *p = odr_malloc(o, sizeof(**p));
 117     else if (!*p)
 118         return opt;
 119     if (odr_sequence_of(o, z_SimpleElement, &(*p)->specs, &(*p)->num_specs))
 120         return 1;
 121     *p = 0;
 122     return opt && odr_ok(o);
 123 }
 124
 125 int z_CompositeElement(ODR o, Z_CompositeElement **p, int opt)
 126 {
 127     static Odr_arm arm[] =
 128     {
 129         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_CompoElement_primitives,
 130             z_CompoPrimitives},
 131         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_CompoElement_specs,
 132             z_CompoSpecs},
 133         {-1, -1, -1, -1, 0}
 134     };
 135
 136     if (!odr_sequence_begin(o, p, sizeof(**p)))
 137         return opt && odr_ok(o);
 138     return
 139         odr_constructed_begin(o, &(*p)->elementList, ODR_CONTEXT, 1) &&
 140         odr_choice(o, arm, &(*p)->elementList, &(*p)->which) &&
 141         odr_constructed_end(o) &&
 142         odr_implicit(o, z_ETagPath, &(*p)->deliveryTag, ODR_CONTEXT, 2, 0) &&
 143         odr_implicit(o, z_Variant, &(*p)->variantRequest, ODR_CONTEXT, 3, 1) &&
 144         odr_sequence_end(o);
 145 }
 146
 147 int z_ElementRequest(ODR o, Z_ElementRequest **p, int opt)
 148 {
 149     static Odr_arm arm[] =
 150     {
 151         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_ERequest_simpleElement,
 152             z_SimpleElement},
 153         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_ERequest_compositeElement,
 154             z_CompositeElement},
 155         {-1, -1, -1 -1, 0}
 156     };
 157
 158     if (o->direction == ODR_DECODE)
 159         *p = odr_malloc(o, sizeof(**p));
 160     else if (!*p)
 161         return opt;
 162     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 163         return 1;
 164     *p = 0;
 165     return opt && odr_ok(o);
 166 }
 167
 168 int z_Espec1(ODR o, Z_Espec1 **p, int opt)
 169 {
 170     if (!odr_sequence_begin(o, p, sizeof(**p)))
 171         return opt && odr_ok(o);
 172     return
 173         odr_implicit_settag(o, ODR_CONTEXT, 1) &&
 174         (odr_sequence_of(o, z_InternationalString, &(*p)->elementSetNames,
 175             &(*p)->num_elementSetNames) || odr_ok(o)) &&
 176         odr_implicit(o, odr_oid, &(*p)->defaultVariantSetId, ODR_CONTEXT,
 177             2, 1) &&
 178         odr_implicit(o, z_Variant, &(*p)->defaultVariantRequest, ODR_CONTEXT,
 179             3, 1) &&
 180         odr_implicit(o, odr_integer, &(*p)->defaultTagType, ODR_CONTEXT,
 181             4, 1) &&
 182         odr_implicit_settag(o, ODR_CONTEXT, 5) &&
 183         (odr_sequence_of(o, z_ElementRequest, &(*p)->elements,
 184             &(*p)->num_elements) || odr_ok(o)) &&
 185         odr_sequence_end(o);
 186 }