asn/prt-dia.c

   1 /*
   2  * Copyright (c) 1995, Index Data.
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: prt-dia.c,v $
   7  * Revision 1.1  1995-08-29 11:19:31  quinn
   8  * Added Diagnostic Format
   9  *
  10  *
  11  */
  12
  13 #include <proto.h>
  14
  15 int z_TooMany(ODR o, Z_TooMany **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)->tooManyWhat, ODR_CONTEXT, 1, 0) &&
  21         odr_implicit(o, odr_integer, &(*p)->max, ODR_CONTEXT, 2, 1) &&
  22         odr_sequence_end(o);
  23 }
  24
  25 int z_BadSpec(ODR o, Z_BadSpec **p, int opt)
  26 {
  27     if (!odr_sequence_begin(o, p, sizeof(**p)))
  28         return opt && odr_ok(o);
  29     return
  30         odr_implicit(o, z_Specification, &(*p)->spec, ODR_CONTEXT, 1, 0) &&
  31         odr_implicit(o, z_DatabaseName, &(*p)->db, ODR_CONTEXT, 2, 1) &&
  32         odr_implicit_settag(o, ODR_CONTEXT, 3) &&
  33         (odr_sequence_of(o, z_Specification, &(*p)->goodOnes,
  34             &(*p)->num_goodOnes) || odr_ok(o)) &&
  35         odr_sequence_end(o);
  36 }
  37
  38 int z_DbUnavailWhy(ODR o, Z_DbUnavailWhy **p, int opt)
  39 {
  40     if (!odr_sequence_begin(o, p, sizeof(**p)))
  41         return opt && odr_ok(o);
  42     return
  43         odr_implicit(o, odr_integer, &(*p)->reasonCode, ODR_CONTEXT, 1, 1) &&
  44         odr_implicit(o, z_InternationalString, &(*p)->message, ODR_CONTEXT,
  45             2, 1) &&
  46         odr_sequence_end(o);
  47 }
  48
  49 int z_DbUnavail(ODR o, Z_DbUnavail **p, int opt)
  50 {
  51     if (!odr_sequence_begin(o, p, sizeof(**p)))
  52         return opt && odr_ok(o);
  53     return
  54         odr_implicit(o, z_DatabaseName, &(*p)->db, ODR_CONTEXT, 1, 0) &&
  55         odr_implicit(o, z_DbUnavailWhy, &(*p)->why, ODR_CONTEXT, 2, 0) &&
  56         odr_sequence_end(o);
  57 }
  58
  59 int z_Attribute(ODR o, Z_Attribute **p, int opt)
  60 {
  61     if (!odr_sequence_begin(o, p, sizeof(**p)))
  62         return opt && odr_ok(o);
  63     return
  64         odr_implicit(o, odr_oid, &(*p)->id, ODR_CONTEXT, 1, 0) &&
  65         odr_implicit(o, odr_integer, &(*p)->type, ODR_CONTEXT, 2, 1) &&
  66         odr_implicit(o, odr_integer, &(*p)->value, ODR_CONTEXT, 3, 1) &&
  67         odr_explicit(o, z_Term, &(*p)->term, ODR_CONTEXT, 4, 1) &&
  68         odr_sequence_end(o);
  69 }
  70
  71 int z_AttCombo(ODR o, Z_AttCombo **p, int opt)
  72 {
  73     if (!odr_sequence_begin(o, p, sizeof(**p)))
  74         return opt && odr_ok(o);
  75     return
  76         odr_implicit(o, z_AttributeList, &(*p)->unsupportedCombination,
  77             ODR_CONTEXT, 1, 0) &&
  78         odr_implicit_settag(o, ODR_CONTEXT, 2) &&
  79         (odr_sequence_of(o, z_AttributeList, &(*p)->alternatives,
  80             &(*p)->num_alternatives) || odr_ok(o)) &&
  81         odr_sequence_end(o);
  82 }
  83
  84 int z_DiagTerm(ODR o, Z_DiagTerm **p, int opt)
  85 {
  86     if (!odr_sequence_begin(o, p, sizeof(**p)))
  87         return opt && odr_ok(o);
  88     return
  89         odr_implicit(o, odr_integer, &(*p)->problem, ODR_CONTEXT, 1, 1) &&
  90         odr_explicit(o, z_Term, &(*p)->term, ODR_CONTEXT, 2, 0) &&
  91         odr_sequence_end(o);
  92 }
  93
  94 int z_Proximity(ODR o, Z_Proximity **p, int opt)
  95 {
  96     static Odr_arm arm[] =
  97     {
  98         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Proximity_resultSets, odr_null},
  99         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Proximity_badSet,
 100             z_InternationalString},
 101         {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_Proximity_relation, odr_integer},
 102         {ODR_IMPLICIT, ODR_CONTEXT, 4, Z_Proximity_unit, odr_integer},
 103         {ODR_IMPLICIT, ODR_CONTEXT, 5, Z_Proximity_distance, odr_integer},
 104         {ODR_EXPLICIT, ODR_CONTEXT, 6, Z_Proximity_attributes, z_AttributeList},
 105         {ODR_IMPLICIT, ODR_CONTEXT, 7, Z_Proximity_ordered, odr_null},
 106         {ODR_IMPLICIT, ODR_CONTEXT, 8, Z_Proximity_exclusion, odr_null},
 107         {-1, -1, -1, -1, 0}
 108     };
 109
 110     if (o->direction == ODR_DECODE)
 111         *p = odr_malloc(o, sizeof(**p));
 112     else if (!*p)
 113         return opt;
 114     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 115         return 1;
 116     *p = 0;
 117     return opt && odr_ok(o);
 118 }
 119
 120 int z_AttrListList(ODR o, Z_AttrListList **p, int opt)
 121 {
 122     if (o->direction == ODR_DECODE)
 123         *p = odr_malloc(o, sizeof(**p));
 124     else if (!*p)
 125         return opt;
 126     if (odr_sequence_of(o, z_AttributeList, &(*p)->lists, &(*p)->num_lists))
 127         return 1;
 128     *p = 0;
 129     return opt && odr_ok(o);
 130 }
 131
 132 int z_Scan(ODR o, Z_Scan **p, int opt)
 133 {
 134     static Odr_arm arm[] =
 135     {
 136         {ODR_IMPLICIT, ODR_CONTEXT, 0, Z_ScanD_nonZeroStepSize, odr_null},
 137         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_ScanD_specifiedStepSize, odr_null},
 138         {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_ScanD_termList1, odr_null},
 139         {ODR_IMPLICIT, ODR_CONTEXT, 4, Z_ScanD_termList2, z_AttrListList},
 140         {ODR_IMPLICIT, ODR_CONTEXT, 5, Z_ScanD_posInResponse, odr_integer},
 141         {ODR_IMPLICIT, ODR_CONTEXT, 6, Z_ScanD_resources, odr_null},
 142         {ODR_IMPLICIT, ODR_CONTEXT, 7, Z_ScanD_endOfList, odr_null},
 143         {-1, -1, -1, -1, 0}
 144     };
 145
 146     if (o->direction == ODR_DECODE)
 147         *p = odr_malloc(o, sizeof(**p));
 148     else if (!*p)
 149         return opt;
 150     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 151         return 1;
 152     *p = 0;
 153     return opt && odr_ok(o);
 154 }
 155
 156 int z_StringList(ODR o, Z_StringList **p, int opt)
 157 {
 158     if (o->direction == ODR_DECODE)
 159         *p = odr_malloc(o, sizeof(**p));
 160     else if (!*p)
 161         return opt;
 162     if (odr_sequence_of(o, z_InternationalString, &(*p)->strings,
 163         &(*p)->num_strings))
 164         return 1;
 165     *p = 0;
 166     return opt && odr_ok(o);
 167 }
 168
 169 int z_Sort(ODR o, Z_Sort **p, int opt)
 170 {
 171     static Odr_arm arm[] =
 172     {
 173         {ODR_IMPLICIT, ODR_CONTEXT, 0, Z_SortD_sequence, odr_null},
 174         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_SortD_noRsName, odr_null},
 175         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_SortD_tooMany, odr_integer},
 176         {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_SortD_incompatible, odr_null},
 177         {ODR_IMPLICIT, ODR_CONTEXT, 4, Z_SortD_generic, odr_null},
 178         {ODR_IMPLICIT, ODR_CONTEXT, 5, Z_SortD_dbSpecific, odr_null},
 179 #if 0
 180         {ODR_EXPLICIT, ODR_CONTEXT, 6, Z_SortD_sortElement, z_SortElement},
 181 #endif
 182         {ODR_IMPLICIT, ODR_CONTEXT, 7, Z_SortD_key, odr_integer},
 183         {ODR_IMPLICIT, ODR_CONTEXT, 8, Z_SortD_action, odr_null},
 184         {ODR_IMPLICIT, ODR_CONTEXT, 9, Z_SortD_illegal, odr_integer},
 185         {ODR_IMPLICIT, ODR_CONTEXT, 10, Z_SortD_inputTooLarge, z_StringList},
 186         {ODR_IMPLICIT, ODR_CONTEXT, 11, Z_SortD_aggregateTooLarge, odr_null},
 187         {-1, -1, -1, -1, 0}
 188     };
 189
 190     if (o->direction == ODR_DECODE)
 191         *p = odr_malloc(o, sizeof(**p));
 192     else if (!*p)
 193         return opt;
 194     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 195         return 1;
 196     *p = 0;
 197     return opt && odr_ok(o);
 198 }
 199
 200 int z_Segmentation(ODR o, Z_Segmentation **p, int opt)
 201 {
 202     static Odr_arm arm[] =
 203     {
 204         {ODR_IMPLICIT, ODR_CONTEXT, 0, Z_SegmentationD_segments, odr_null},
 205         {-1, -1, -1, -1, 0}
 206     };
 207
 208     if (o->direction == ODR_DECODE)
 209         *p = odr_malloc(o, sizeof(**p));
 210     else if (!*p)
 211         return opt;
 212     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 213         return 1;
 214     *p = 0;
 215     return opt && odr_ok(o);
 216 }
 217
 218 int z_ExtServices(ODR o, Z_ExtServices **p, int opt)
 219 {
 220     static Odr_arm arm[] =
 221     {
 222         {ODR_IMPLICIT, ODR_CONTEXT, 0, Z_ExtServicesD_req, odr_integer},
 223         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_ExtServicesD_permission, odr_integer},
 224         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_ExtServicesD_immediate, odr_integer},
 225         {-1, -1, -1, -1, 0}
 226     };
 227
 228     if (o->direction == ODR_DECODE)
 229         *p = odr_malloc(o, sizeof(**p));
 230     else if (!*p)
 231         return opt;
 232     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 233         return 1;
 234     *p = 0;
 235     return opt && odr_ok(o);
 236 }
 237
 238 int z_OidList(ODR o, Z_OidList **p, int opt)
 239 {
 240     if (o->direction == ODR_DECODE)
 241         *p = odr_malloc(o, sizeof(**p));
 242     else if (!*p)
 243         return opt;
 244     if (odr_sequence_of(o, odr_oid, &(*p)->oids, &(*p)->num_oids))
 245         return 1;
 246     *p = 0;
 247     return opt && odr_ok(o);
 248 }
 249
 250 int z_AccessCtrl(ODR o, Z_AccessCtrl **p, int opt)
 251 {
 252     static Odr_arm arm[] =
 253     {
 254         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_AccessCtrlD_noUser, odr_null},
 255         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_AccessCtrlD_refused, odr_null},
 256         {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_AccessCtrlD_simple, odr_null},
 257         {ODR_IMPLICIT, ODR_CONTEXT, 4, Z_AccessCtrlD_oid, z_OidList},
 258         {ODR_IMPLICIT, ODR_CONTEXT, 5, Z_AccessCtrlD_alternative, z_OidList},
 259         {ODR_IMPLICIT, ODR_CONTEXT, 6, Z_AccessCtrlD_pwdInv, odr_null},
 260         {ODR_IMPLICIT, ODR_CONTEXT, 7, Z_AccessCtrlD_pwdExp, odr_null},
 261         {-1, -1, -1, -1, 0}
 262     };
 263
 264     if (o->direction == ODR_DECODE)
 265         *p = odr_malloc(o, sizeof(**p));
 266     else if (!*p)
 267         return opt;
 268     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 269         return 1;
 270     *p = 0;
 271     return opt && odr_ok(o);
 272 }
 273
 274 int z_RecordSyntax(ODR o, Z_RecordSyntax **p, int opt)
 275 {
 276     if (!odr_sequence_begin(o, p, sizeof(**p)))
 277         return opt && odr_ok(o);
 278     return
 279         odr_implicit(o, odr_oid, &(*p)->unsupportedSyntax, ODR_CONTEXT, 1, 0) &&
 280         odr_implicit_settag(o, ODR_CONTEXT, 2) &&
 281         (odr_sequence_of(o, odr_oid, &(*p)->suggestedAlternatives,
 282             &(*p)->num_suggestedAlternatives) || odr_ok(o)) &&
 283         odr_sequence_end(o);
 284 }
 285
 286 int z_DiagFormat(ODR o, Z_DiagFormat **p, int opt)
 287 {
 288     static Odr_arm arm[] =
 289     {
 290         {ODR_IMPLICIT, ODR_CONTEXT, 1000, Z_DiagFormat_tooMany, z_TooMany},
 291         {ODR_IMPLICIT, ODR_CONTEXT, 1001, Z_DiagFormat_badSpec, z_BadSpec},
 292         {ODR_IMPLICIT, ODR_CONTEXT, 1002, Z_DiagFormat_dbUnavail, z_DbUnavail},
 293         {ODR_IMPLICIT, ODR_CONTEXT, 1003, Z_DiagFormat_unSupOp, odr_integer},
 294         {ODR_IMPLICIT, ODR_CONTEXT, 1004, Z_DiagFormat_attribute, z_Attribute},
 295         {ODR_IMPLICIT, ODR_CONTEXT, 1005, Z_DiagFormat_attCombo, z_AttCombo},
 296         {ODR_IMPLICIT, ODR_CONTEXT, 1006, Z_DiagFormat_term, z_DiagTerm},
 297         {ODR_EXPLICIT, ODR_CONTEXT, 1007, Z_DiagFormat_proximity, z_Proximity},
 298         {ODR_EXPLICIT, ODR_CONTEXT, 1008, Z_DiagFormat_scan, z_Scan},
 299         {ODR_EXPLICIT, ODR_CONTEXT, 1009, Z_DiagFormat_sort, z_Sort},
 300         {ODR_EXPLICIT, ODR_CONTEXT, 1010, Z_DiagFormat_segmentation,
 301             z_Segmentation},
 302         {ODR_EXPLICIT, ODR_CONTEXT, 1011, Z_DiagFormat_extServices,
 303             z_ExtServices},
 304         {ODR_EXPLICIT, ODR_CONTEXT, 1012, Z_DiagFormat_accessCtrl,
 305             z_AccessCtrl},
 306         {ODR_IMPLICIT, ODR_CONTEXT, 1013, Z_DiagFormat_recordSyntax,
 307             z_RecordSyntax},
 308         {-1, -1, -1, -1, 0}
 309     };
 310
 311     if (o->direction == ODR_DECODE)
 312         *p = odr_malloc(o, sizeof(**p));
 313     else if (!*p)
 314         return opt;
 315     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 316         return 1;
 317     *p = 0;
 318     return opt && odr_ok(o);
 319 }
 320
 321 int z_Diagnostic(ODR o, Z_Diagnostic **p, int opt)
 322 {
 323     static Odr_arm arm[] =
 324     {
 325         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Diagnostic_defaultDiagRec,
 326             z_DefaultDiagFormat},
 327         {ODR_EXPLICIT, ODR_CONTEXT, 2, Z_Diagnostic_explicitDiagnostic,
 328             z_DiagFormat},
 329         {-1, -1, -1, -1, 0}
 330     };
 331
 332     if (o->direction == ODR_DECODE)
 333         *p = odr_malloc(o, sizeof(**p));
 334     else if (!*p)
 335         return opt;
 336     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 337         return 1;
 338     *p = 0;
 339     return opt && odr_ok(o);
 340 }
 341
 342 int z_DiagnosticUnit(ODR o, Z_DiagnosticUnit **p, int opt)
 343 {
 344     if (!odr_sequence_begin(o, p, sizeof(**p)))
 345         return opt && odr_ok(o);
 346     return
 347         odr_explicit(o, z_Diagnostic, &(*p)->diagnostic, ODR_CONTEXT, 1, 1) &&
 348         odr_implicit(o, z_InternationalString, &(*p)->message, ODR_CONTEXT,
 349             2, 1) &&
 350         odr_sequence_end(o);
 351 }
 352
 353 int z_DiagnosticFormat(ODR o, Z_DiagnosticFormat **p, int opt)
 354 {
 355     if (o->direction == ODR_DECODE)
 356         *p = odr_malloc(o, sizeof(**p));
 357     else if (!*p)
 358         return opt;
 359     if (odr_sequence_of(o, z_DiagnosticUnit, &(*p)->diagnostics,
 360         &(*p)->num_diagnostics))
 361         return 1;
 362     *p = 0;
 363     return opt && odr_ok(o);
 364 }