asn/proto.c

   1 /*
   2  * Copyright (C) 1994, Index Data I/S
   3  * All rights reserved.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: proto.c,v $
   7  * Revision 1.3  1995-02-09 15:51:39  quinn
   8  * Works better now.
   9  *
  10  * Revision 1.2  1995/02/06  21:26:07  quinn
  11  * Repaired this evening's damages..
  12  *
  13  * Revision 1.1  1995/02/06  16:44:47  quinn
  14  * First hack at Z/SR protocol
  15  *
  16  */
  17
  18 #include <odr.h>
  19
  20 #include <proto.h>
  21
  22 /* ---------------------- GLOBAL DEFS ------------------- */
  23
  24 int z_ReferenceId(ODR o, Z_ReferenceId **p, int opt)
  25 {
  26     return odr_implicit(o, odr_octetstring, (Odr_oct**) p, ODR_CONTEXT, 2, opt);
  27 }
  28
  29 int z_DatabaseName(ODR o, Z_DatabaseName **p, int opt)
  30 {
  31     return odr_implicit(o, odr_visiblestring, (char **) p, ODR_CONTEXT, 105,
  32         opt);
  33 }
  34
  35 int z_ResultSetId(ODR o, char **p, int opt)
  36 {
  37     return odr_implicit(o, odr_visiblestring, (char **) p, ODR_CONTEXT, 31,
  38         opt);
  39 }
  40
  41 int z_UserInformationField(ODR o, Z_UserInformationField **p, int opt)
  42 {
  43     return odr_explicit(o, odr_external, (Odr_external **)p, ODR_CONTEXT,
  44         11, opt);
  45 }
  46
  47 /* ---------------------- INITIALIZE SERVICE ------------------- */
  48
  49 int z_InitRequest(ODR o, Z_InitRequest **p, int opt)
  50 {
  51     Z_InitRequest *pp;
  52
  53     if (!odr_sequence_begin(o, p, sizeof(**p)))
  54         return opt;
  55     pp = *p;
  56     return
  57         z_ReferenceId(o, &pp->referenceId, 1) &&
  58         odr_implicit(o, odr_bitstring, &pp->protocolVersion, ODR_CONTEXT,
  59             3, 0) &&
  60         odr_implicit(o, odr_bitstring, &pp->options, ODR_CONTEXT, 4, 0) &&
  61         odr_implicit(o, odr_integer, &pp->preferredMessageSize, ODR_CONTEXT,
  62             5, 0) &&
  63         odr_implicit(o, odr_integer, &pp->maximumRecordSize, ODR_CONTEXT,
  64             6, 0) &&
  65         odr_implicit(o, odr_visiblestring, &pp->idAuthentication, ODR_CONTEXT,
  66             7, 1) &&
  67         odr_implicit(o, odr_visiblestring, &pp->implementationId, ODR_CONTEXT,
  68             110, 1) &&
  69         odr_implicit(o, odr_visiblestring, &pp->implementationName, ODR_CONTEXT,
  70             111, 1) &&
  71         odr_implicit(o, odr_visiblestring, &pp->implementationVersion,
  72             ODR_CONTEXT, 112, 1) &&
  73         z_UserInformationField(o, &pp->userInformationField, 1) &&
  74         odr_sequence_end(o);
  75 }
  76
  77 int z_InitResponse(ODR o, Z_InitResponse **p, int opt)
  78 {
  79     Z_InitResponse *pp;
  80
  81     if (!odr_sequence_begin(o, p, sizeof(**p)))
  82         return opt;
  83     pp = *p;
  84     return
  85         z_ReferenceId(o, &pp->referenceId, 1) &&
  86         odr_implicit(o, odr_bitstring, &pp->protocolVersion, ODR_CONTEXT,
  87             3, 0) &&
  88         odr_implicit(o, odr_bitstring, &pp->options, ODR_CONTEXT, 4, 0) &&
  89         odr_implicit(o, odr_integer, &pp->preferredMessageSize, ODR_CONTEXT,
  90             5, 0) &&
  91         odr_implicit(o, odr_integer, &pp->maximumRecordSize, ODR_CONTEXT,
  92             6, 0) &&
  93         odr_implicit(o, odr_bool, &pp->result, ODR_CONTEXT, 12, 0) &&
  94         odr_implicit(o, odr_visiblestring, &pp->idAuthentication, ODR_CONTEXT,
  95             7, 1) &&
  96         odr_implicit(o, odr_visiblestring, &pp->implementationId, ODR_CONTEXT,
  97             110, 1) &&
  98         odr_implicit(o, odr_visiblestring, &pp->implementationName, ODR_CONTEXT,
  99             111, 1) &&
 100         odr_implicit(o, odr_visiblestring, &pp->implementationVersion,
 101             ODR_CONTEXT, 112, 1) &&
 102         z_UserInformationField(o, &pp->userInformationField, 1) &&
 103         odr_sequence_end(o);
 104 }
 105
 106 /* ------------------------ SEARCH SERVICE ----------------------- */
 107
 108 int z_ElementSetName(ODR o, char **p, int opt)
 109 {
 110     return odr_implicit(o, odr_visiblestring, (char**) p, ODR_CONTEXT, 103,
 111         opt);
 112 }
 113
 114 int z_PreferredRecordSyntax(ODR o, Z_PreferredRecordSyntax **p, int opt)
 115 {
 116     return odr_implicit(o, odr_oid, (Odr_oid**) p, ODR_CONTEXT, 104, opt);
 117 }
 118
 119 int z_DatabaseSpecificUnit(ODR o, Z_DatabaseSpecificUnit **p, int opt)
 120 {
 121     if (!odr_sequence_begin(o, p, sizeof(**p)))
 122         return opt;
 123     return
 124         z_DatabaseName(o, &(*p)->databaseName, 0) &&
 125         z_ElementSetName(o, &(*p)->elementSetName, 0) &&
 126         odr_sequence_end(o);
 127 }
 128
 129 int z_DatabaseSpecific(ODR o, Z_DatabaseSpecific **p, int opt)
 130 {
 131     if (o->direction == ODR_DECODE)
 132         *p = nalloc(o, sizeof(**p));
 133     else if (!*p)
 134         return opt;
 135
 136     odr_implicit_settag(o, ODR_CONTEXT, 1);
 137     if (odr_sequence_of(o, z_DatabaseSpecificUnit, &(*p)->elements,
 138         &(*p)->num_elements))
 139         return 1;
 140     *p = 0;
 141     return 0;
 142 }
 143
 144 int z_ElementSetNames(ODR o, Z_ElementSetNames **p, int opt)
 145 {
 146     static Odr_arm arm[] =
 147     {
 148         {ODR_IMPLICIT, ODR_CONTEXT, 0, Z_ElementSetNames_generic,
 149             z_ElementSetName},
 150         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_ElementSetNames_databaseSpecific,
 151             z_DatabaseSpecific},
 152         {-1, -1, -1, -1, 0}
 153     };
 154
 155     if (!odr_constructed_begin(o, p, ODR_CONTEXT, 19))
 156         return opt;
 157
 158     if (o->direction == ODR_DECODE)
 159         *p = nalloc(o, sizeof(**p));
 160
 161     if (odr_choice(o, arm, &(*p)->u, &(*p)->which) &&
 162         odr_constructed_end(o))
 163         return 1;
 164     *p = 0;
 165     return 0;
 166 }
 167
 168 /* ----------------------- RPN QUERY -----------------------*/
 169
 170 int z_AttributeElement(ODR o, Z_AttributeElement **p, int opt)
 171 {
 172     if (!odr_sequence_begin(o, p, sizeof(**p)))
 173         return opt;
 174     return
 175         odr_implicit(o, odr_integer, &(*p)->attributeType, ODR_CONTEXT,
 176             120, 1) &&
 177         odr_implicit(o, odr_integer, &(*p)->attributeValue, ODR_CONTEXT,
 178             121, 1) &&
 179         odr_sequence_end(o);
 180 }
 181
 182 int z_AttributesPlusTerm(ODR o, Z_AttributesPlusTerm **p, int opt)
 183 {
 184     if (!(odr_implicit_settag(o, ODR_CONTEXT, 102) &&
 185         odr_sequence_begin(o, p, sizeof(**p))))
 186         return opt;
 187     return
 188         odr_implicit_settag(o, ODR_CONTEXT, 44) &&
 189         odr_sequence_of(o, z_AttributeElement, &(*p)->attributeList,
 190             &(*p)->num_attributes) &&
 191         odr_implicit(o, odr_octetstring, &(*p)->term, ODR_CONTEXT, 45, 0) &&
 192         odr_sequence_end(o);
 193 }
 194
 195 int z_Operator(ODR o, Z_Operator **p, int opt)
 196 {
 197     static Odr_arm arm[] =
 198     {
 199         {ODR_IMPLICIT, ODR_CONTEXT, 0, Z_Operator_and, odr_null},
 200         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Operator_or, odr_null},
 201         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Operator_and_not, odr_null},
 202         {-1, -1, -1, -1, 0}
 203     };
 204     int dummy = 999;
 205
 206     if (!*p && o->direction != ODR_DECODE)
 207         return opt;
 208     if (!odr_constructed_begin(o, p, ODR_CONTEXT, 46))
 209         return opt;
 210     if (o->direction == ODR_DECODE)
 211         *p = nalloc(o, sizeof(**p));
 212     else
 213         (*p)->u.and = &dummy;
 214
 215     if (odr_choice(o, arm, &(*p)->u, &(*p)->which) &&
 216         odr_constructed_end(o))
 217         return 1;
 218     *p = 0;
 219     return opt;
 220 }
 221
 222 int z_Operand(ODR o, Z_Operand **p, int opt)
 223 {
 224     static Odr_arm arm[] =
 225     {
 226         {-1, -1, -1, Z_Operand_APT, z_AttributesPlusTerm},
 227         {-1, -1, -1, Z_Operand_resultSetId, z_ResultSetId},
 228         {-1, -1, -1, -1, 0}
 229     };
 230
 231     if (o->direction ==ODR_DECODE)
 232         *p = nalloc(o, sizeof(**p));
 233     else if (!*p)
 234         return opt;
 235     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 236         return 1;
 237     *p = 0;
 238     return opt;
 239 }
 240
 241 int z_RPNStructure(ODR o, Z_RPNStructure **p, int opt);
 242
 243 int z_Complex(ODR o, Z_Complex **p, int opt)
 244 {
 245     if (!odr_sequence_begin(o, p, sizeof(**p)))
 246         return opt;
 247     return
 248         z_RPNStructure(o, &(*p)->s1, 0) &&
 249         z_RPNStructure(o, &(*p)->s2, 0) &&
 250         z_Operator(o, &(*p)->operator, 0) &&
 251         odr_sequence_end(o);
 252 }
 253
 254 int z_RPNStructure(ODR o, Z_RPNStructure **p, int opt)
 255 {
 256     static Odr_arm arm[] =
 257     {
 258         {ODR_EXPLICIT, ODR_CONTEXT, 0, Z_RPNStructure_simple, z_Operand},
 259         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_RPNStructure_complex, z_Complex},
 260         {-1 -1, -1, -1, 0}
 261     };
 262
 263     if (o->direction == ODR_DECODE)
 264         *p = nalloc(o, sizeof(**p));
 265     else if (!*p)
 266         return opt;
 267     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 268         return 1;
 269     *p = 0;
 270     return opt;
 271 }
 272
 273 int z_RPNQuery(ODR o, Z_RPNQuery **p, int opt)
 274 {
 275     if (!odr_sequence_begin(o, p, sizeof(**p)))
 276         return opt;
 277     return
 278         odr_oid(o, &(*p)->attributeSetId, 0) &&
 279         z_RPNStructure(o, &(*p)->RPNStructure, 0) &&
 280         odr_sequence_end(o);
 281 }
 282
 283 /* -----------------------END RPN QUERY ----------------------- */
 284
 285 int z_Query(ODR o, Z_Query **p, int opt)
 286 {
 287     static Odr_arm arm[] =
 288     {
 289         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Query_type_1, z_RPNQuery},
 290         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Query_type_2, odr_octetstring},
 291         {-1, -1, -1, -1, 0}
 292     };
 293
 294     if (o->direction == ODR_DECODE)
 295         *p = nalloc(o, sizeof(**p));
 296     else if (!*p)
 297         return opt;
 298     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 299         return 1;
 300     *p = 0;
 301     return opt;
 302 }
 303
 304 int z_SearchRequest(ODR o, Z_SearchRequest **p, int opt)
 305 {
 306     Z_SearchRequest *pp;
 307
 308     if (!odr_sequence_begin(o, p, sizeof(**p)))
 309         return opt;
 310     pp = *p;
 311     return
 312         z_ReferenceId(o, &pp->referenceId, 1) &&
 313         odr_implicit(o, odr_integer, &pp->smallSetUpperBound, ODR_CONTEXT,
 314             13, 0) &&
 315         odr_implicit(o, odr_integer, &pp->largeSetLowerBound, ODR_CONTEXT,
 316             14, 0) &&
 317         odr_implicit(o, odr_integer, &pp->mediumSetPresentNumber, ODR_CONTEXT,
 318             15, 0) &&
 319         odr_implicit(o, odr_bool, &pp->replaceIndicator, ODR_CONTEXT, 16, 1) &&
 320         odr_implicit(o, odr_visiblestring, &pp->resultSetName, ODR_CONTEXT,
 321             17, 9) &&
 322         odr_implicit_settag(o, ODR_CONTEXT, 18) &&
 323         odr_sequence_of(o, z_DatabaseName, &pp->databaseNames,
 324             &pp->num_databaseNames) &&
 325         odr_implicit(o, z_ElementSetNames, &pp->smallSetElementSetNames,
 326             ODR_CONTEXT, 100, 1) &&
 327         odr_implicit(o, z_ElementSetNames, &pp->mediumSetElementSetNames,
 328             ODR_CONTEXT, 101, 1) &&
 329         z_PreferredRecordSyntax(o, &pp->preferredRecordSyntax, 1) &&
 330         odr_explicit(o, z_Query, &pp->query, ODR_CONTEXT, 21, 0) &&
 331         odr_sequence_end(o);
 332 }
 333
 334 /* ------------------------ RECORD ------------------------- */
 335
 336 int z_DatabaseRecord(ODR o, Z_DatabaseRecord **p, int opt)
 337 {
 338     return odr_external(o, (Odr_external **) p, opt);
 339 }
 340
 341 int z_DiagRec(ODR o, Z_DiagRec **p, int opt)
 342 {
 343     if (!odr_sequence_begin(o, p, sizeof(**p)))
 344         return opt;
 345     return
 346         odr_oid(o, &(*p)->diagnosticSetId, 1) &&       /* SHOULD NOT BE OPT */
 347         odr_integer(o, &(*p)->condition, 0) &&
 348         (odr_visiblestring(o, &(*p)->addinfo, 0) ||
 349         odr_implicit(o, odr_cstring, &(*p)->addinfo, ODR_CONTEXT, ODR_VISIBLESTRING, 1)) &&
 350         odr_sequence_end(o);
 351 }
 352
 353 int z_NamePlusRecord(ODR o, Z_NamePlusRecord **p, int opt)
 354 {
 355     static Odr_arm arm[] =
 356     {
 357         {ODR_EXPLICIT, ODR_CONTEXT, 1, Z_NamePlusRecord_databaseRecord,
 358             z_DatabaseRecord},
 359         {ODR_EXPLICIT, ODR_CONTEXT, 2, Z_NamePlusRecord_surrogateDiagnostic,
 360             z_DiagRec},
 361         {-1, -1, -1, -1, 0}
 362     };
 363
 364     if (!odr_sequence_begin(o, p, sizeof(**p)))
 365         return opt;
 366     return
 367         odr_implicit(o, z_DatabaseName, &(*p)->databaseName, ODR_CONTEXT,
 368             0, 1) &&
 369         odr_constructed_begin(o, &(*p)->u, ODR_CONTEXT, 1) &&
 370         odr_choice(o, arm, &(*p)->u, &(*p)->which) &&
 371         odr_constructed_end(o) &&
 372         odr_sequence_end(o);
 373 }
 374
 375 int z_NamePlusRecordList(ODR o, Z_NamePlusRecordList **p, int opt)
 376 {
 377     if (o->direction == ODR_DECODE)
 378         *p = nalloc(o, sizeof(**p));
 379     if (odr_sequence_of(o, z_NamePlusRecordList, &(*p)->records,
 380         &(*p)->num_records))
 381         return 1;
 382     *p = 0;
 383     return 0;
 384 }
 385
 386 int z_Records(ODR o, Z_Records **p, int opt)
 387 {
 388     Odr_arm arm[] =
 389     {
 390         {ODR_IMPLICIT, ODR_CONTEXT, 28, Z_Records_DBOSD, z_NamePlusRecordList},
 391         {ODR_IMPLICIT, ODR_CONTEXT, 130, Z_Records_NSD, z_DiagRec},
 392         {-1, -1, -1, -1, 0}
 393     };
 394
 395     if (o->direction == ODR_DECODE)
 396         *p = nalloc(o, sizeof(**p));
 397     else if (!*p)
 398         return opt;
 399     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 400         return 1;
 401     *p = 0;
 402     return opt;
 403 }
 404
 405 /* ------------------------ SEARCHRESPONSE ----------------*/
 406
 407 int z_NumberOfRecordsReturned(ODR o, int **p, int opt)
 408 {
 409     return odr_implicit(o, odr_integer, p, ODR_CONTEXT, 24, opt);
 410 }
 411
 412 int z_NextResultSetPosition(ODR o, int **p, int opt)
 413 {
 414     return odr_implicit(o, odr_integer, p, ODR_CONTEXT, 25, opt);
 415 }
 416
 417 int z_PresentStatus(ODR o, int **p, int opt)
 418 {
 419     return odr_implicit(o, odr_integer, p, ODR_CONTEXT, 27, opt);
 420 }
 421
 422 int z_SearchResponse(ODR o, Z_SearchResponse **p, int opt)
 423 {
 424     Z_SearchResponse *pp;
 425
 426     if (!odr_sequence_begin(o, p, sizeof(**p)))
 427         return opt;
 428     pp = *p;
 429     return
 430         z_ReferenceId(o, &pp->referenceId, 1) &&
 431         odr_implicit(o, odr_integer, &pp->resultCount, ODR_CONTEXT, 23, 0) &&
 432         z_NumberOfRecordsReturned(o, &pp->numberOfRecordsReturned, 0) &&
 433         z_NextResultSetPosition(o, &pp->nextResultSetPosition, 0) &&
 434         odr_implicit(o, odr_bool, &pp->searchStatus, ODR_CONTEXT, 22, 0) &&
 435         odr_implicit(o, odr_integer, &pp->resultSetStatus, ODR_CONTEXT, 26, 1) &&
 436         z_PresentStatus(o, &pp->presentStatus, 1) &&
 437         z_Records(o, &pp->records, 1) &&
 438         odr_sequence_end(o);
 439 }
 440
 441 /* --------------------- PRESENT SERVICE ---------------------- */
 442
 443 int z_PresentRequest(ODR o, Z_PresentRequest **p, int opt)
 444 {
 445     Z_PresentRequest *pp;
 446
 447     if (!odr_sequence_begin(o, p, sizeof(**p)))
 448         return opt;
 449     pp = *p;
 450     return
 451         z_ReferenceId(o, &pp->referenceId, 1) &&
 452         z_ResultSetId(o, &pp->resultSetId, 0) &&
 453         odr_implicit(o, odr_integer, &pp->resultSetStartPoint, ODR_CONTEXT,
 454             30, 0) &&
 455         odr_implicit(o, odr_integer, &pp->numberOfRecordsRequested, ODR_CONTEXT,
 456             29, 0) &&
 457         z_ElementSetNames(o, &pp->elementSetNames, 1) &&
 458         z_PreferredRecordSyntax(o, &pp->preferredRecordSyntax, 1) &&
 459         odr_sequence_end(o);
 460 }
 461
 462 int z_PresentResponse(ODR o, Z_PresentResponse **p, int opt)
 463 {
 464     Z_PresentResponse *pp;
 465
 466     if (!odr_sequence_begin(o, p, sizeof(**p)))
 467         return opt;
 468     pp = *p;
 469     return
 470         z_ReferenceId(o, &pp->referenceId, 1) &&
 471         z_NumberOfRecordsReturned(o, &pp->numberOfRecordsReturned, 0) &&
 472         z_NextResultSetPosition(o, &pp->nextResultSetPosition, 0) &&
 473         z_PresentStatus(o, &pp->presentStatus, 0) &&
 474         z_Records(o, &pp->records, 1) &&
 475         odr_sequence_end(o);
 476 }
 477
 478 /* ------------------------ APDU ------------------------- */
 479
 480 int z_APDU(ODR o, Z_APDU **p, int opt)
 481 {
 482     static Odr_arm arm[] =
 483     {
 484         {ODR_IMPLICIT, ODR_CONTEXT, 20, Z_APDU_initRequest, z_InitRequest},
 485         {ODR_IMPLICIT, ODR_CONTEXT, 21, Z_APDU_initResponse, z_InitResponse},
 486         {ODR_IMPLICIT, ODR_CONTEXT, 22, Z_APDU_searchRequest, z_SearchRequest},
 487         {ODR_IMPLICIT, ODR_CONTEXT, 23, Z_APDU_searchResponse, z_SearchResponse},
 488         {ODR_IMPLICIT, ODR_CONTEXT, 24, Z_APDU_presentRequest, z_PresentRequest},
 489         {ODR_IMPLICIT, ODR_CONTEXT, 25, Z_APDU_presentResponse, z_PresentResponse},
 490
 491         {-1, -1, -1, -1, 0}
 492     };
 493
 494     if (o->direction == ODR_DECODE)
 495         *p = nalloc(o, sizeof(**p));
 496     if (!odr_choice(o, arm, &(*p)->u, &(*p)->which))
 497     {
 498         if (o->direction == ODR_DECODE)
 499         {
 500             *p = 0;
 501             return opt;
 502         }
 503     }
 504     return 1;
 505 }