src/ill-get.c

   1 /*
   2  * Copyright (C) 1995-2005, Index Data ApS
   3  * See the file LICENSE for details.
   4  *
   5  * $Id: ill-get.c,v 1.4 2005-01-16 22:12:39 adam Exp $
   6  */
   7
   8 /**
   9  * \file ill-get.c
  10  * \brief Implements ILL package creator utilities
  11  */
  12
  13 #include <stdlib.h>
  14 #include <yaz/ill.h>
  15
  16 bool_t *ill_get_bool (struct ill_get_ctl *gc, const char *name,
  17                       const char *sub, int val)
  18 {
  19     ODR o = gc->odr;
  20     char element[128];
  21     const char *v;
  22     bool_t *r = (bool_t *) odr_malloc (o, sizeof(*r));
  23
  24     strcpy(element, name);
  25     if (sub)
  26     {
  27         strcat (element, ",");
  28         strcat (element, sub);
  29     }
  30
  31     v = (gc->f)(gc->clientData, element);
  32     if (v)
  33         val = atoi(v);
  34     else if (val < 0)
  35         return 0;
  36     *r = val;
  37     return r;
  38 }
  39
  40 int *ill_get_int (struct ill_get_ctl *gc, const char *name,
  41                   const char *sub, int val)
  42 {
  43     ODR o = gc->odr;
  44     char element[128];
  45     const char *v;
  46
  47     strcpy(element, name);
  48     if (sub)
  49     {
  50         strcat (element, ",");
  51         strcat (element, sub);
  52     }
  53     v = (gc->f)(gc->clientData, element);
  54     if (v)
  55         val = atoi(v);
  56     return odr_intdup(o, val);
  57 }
  58
  59 int *ill_get_enumerated (struct ill_get_ctl *gc, const char *name,
  60                          const char *sub, int val)
  61 {
  62     return ill_get_int(gc, name, sub, val);
  63 }
  64
  65 ILL_String *ill_get_ILL_String_x (struct ill_get_ctl *gc, const char *name,
  66                                   const char *sub, const char *vdefault)
  67 {
  68     ILL_String *r = (ILL_String *) odr_malloc (gc->odr, sizeof(*r));
  69     char element[128];
  70     const char *v;
  71
  72     strcpy(element, name);
  73     if (sub)
  74     {
  75         strcat (element, ",");
  76         strcat (element, sub);
  77     }
  78     v = (gc->f)(gc->clientData, element);
  79     if (!v)
  80         v = vdefault;
  81     if (!v)
  82         return 0;
  83     r->which = ILL_String_GeneralString;
  84     r->u.GeneralString = odr_strdup (gc->odr, v);
  85     return r;
  86 }
  87
  88 ILL_String *ill_get_ILL_String(struct ill_get_ctl *gc, const char *name,
  89                                const char *sub)
  90 {
  91     return ill_get_ILL_String_x (gc, name, sub, 0);
  92 }
  93
  94 ILL_ISO_Date *ill_get_ILL_ISO_Date (struct ill_get_ctl *gc, const char *name,
  95                                     const char *sub, const char *val)
  96 {
  97     char element[128];
  98     const char *v;
  99
 100     strcpy(element, name);
 101     if (sub)
 102     {
 103         strcat (element, ",");
 104         strcat (element, sub);
 105     }
 106     v = (gc->f)(gc->clientData, element);
 107     if (!v)
 108         v = val;
 109     if (!v)
 110         return 0;
 111     return odr_strdup (gc->odr, v);
 112 }
 113
 114 ILL_ISO_Time *ill_get_ILL_ISO_Time (struct ill_get_ctl *gc, const char *name,
 115                                     const char *sub, const char *val)
 116 {
 117     char element[128];
 118     const char *v;
 119
 120     strcpy(element, name);
 121     if (sub)
 122     {
 123         strcat (element, ",");
 124         strcat (element, sub);
 125     }
 126     v = (gc->f)(gc->clientData, element);
 127     if (!v)
 128         v = val;
 129     if (!v)
 130         return 0;
 131     return odr_strdup (gc->odr, v);
 132 }
 133
 134 ILL_Person_Or_Institution_Symbol *ill_get_Person_Or_Insitution_Symbol (
 135     struct ill_get_ctl *gc, const char *name, const char *sub)
 136 {
 137     char element[128];
 138     ODR o = gc->odr;
 139     ILL_Person_Or_Institution_Symbol *p =
 140         (ILL_Person_Or_Institution_Symbol *) odr_malloc (o, sizeof(*p));
 141
 142     strcpy(element, name);
 143     if (sub)
 144     {
 145         strcat (element, ",");
 146         strcat (element, sub);
 147     }
 148     p->which = ILL_Person_Or_Institution_Symbol_person_symbol;
 149     if ((p->u.person_symbol = ill_get_ILL_String (gc, element, "person")))
 150         return p;
 151
 152     p->which = ILL_Person_Or_Institution_Symbol_institution_symbol;
 153     if ((p->u.institution_symbol =
 154          ill_get_ILL_String (gc, element, "institution")))
 155         return p;
 156     return 0;
 157 }
 158
 159 static ILL_Name_Of_Person_Or_Institution *ill_get_Name_Of_Person_Or_Institution(
 160     struct ill_get_ctl *gc, const char *name, const char *sub)
 161 {
 162     char element[128];
 163     ODR o = gc->odr;
 164     ILL_Name_Of_Person_Or_Institution *p =
 165         (ILL_Name_Of_Person_Or_Institution *) odr_malloc (o, sizeof(*p));
 166
 167     strcpy(element, name);
 168     if (sub)
 169     {
 170         strcat (element, ",");
 171         strcat (element, sub);
 172     }
 173     p->which = ILL_Name_Of_Person_Or_Institution_name_of_person;
 174     if ((p->u.name_of_person =
 175          ill_get_ILL_String (gc, element, "name-of-person")))
 176         return p;
 177
 178     p->which = ILL_Name_Of_Person_Or_Institution_name_of_institution;
 179     if ((p->u.name_of_institution =
 180          ill_get_ILL_String (gc, element, "name-of-institution")))
 181         return p;
 182     return 0;
 183 }
 184
 185 ILL_System_Id *ill_get_System_Id(struct ill_get_ctl *gc,
 186                                  const char *name, const char *sub)
 187 {
 188     ODR o = gc->odr;
 189     char element[128];
 190     ILL_System_Id *p;
 191
 192     strcpy(element, name);
 193     if (sub)
 194     {
 195         strcat (element, ",");
 196         strcat (element, sub);
 197     }
 198     p = (ILL_System_Id *) odr_malloc (o, sizeof(*p));
 199     p->person_or_institution_symbol = ill_get_Person_Or_Insitution_Symbol (
 200         gc, element, "person-or-institution-symbol");
 201     p->name_of_person_or_institution = ill_get_Name_Of_Person_Or_Institution (
 202         gc, element, "name-of-person-or-institution");
 203     return p;
 204 }
 205
 206 ILL_Transaction_Id *ill_get_Transaction_Id (struct ill_get_ctl *gc,
 207                                             const char *name, const char *sub)
 208 {
 209     ODR o = gc->odr;
 210     ILL_Transaction_Id *r = (ILL_Transaction_Id *) odr_malloc (o, sizeof(*r));
 211     char element[128];
 212
 213     strcpy(element, name);
 214     if (sub)
 215     {
 216         strcat (element, ",");
 217         strcat (element, sub);
 218     }
 219     r->initial_requester_id =
 220         ill_get_System_Id (gc, element, "initial-requester-id");
 221     r->transaction_group_qualifier =
 222         ill_get_ILL_String_x (gc, element, "transaction-group-qualifier", "");
 223     r->transaction_qualifier =
 224         ill_get_ILL_String_x (gc, element, "transaction-qualifier", "");
 225     r->sub_transaction_qualifier =
 226         ill_get_ILL_String (gc, element, "sub-transaction-qualifier");
 227     return r;
 228 }
 229
 230
 231 ILL_Service_Date_this *ill_get_Service_Date_this (
 232     struct ill_get_ctl *gc, const char *name, const char *sub)
 233 {
 234     ODR o = gc->odr;
 235     ILL_Service_Date_this *r =
 236         (ILL_Service_Date_this *) odr_malloc (o, sizeof(*r));
 237     char element[128];
 238
 239     strcpy(element, name);
 240     if (sub)
 241     {
 242         strcat (element, ",");
 243         strcat (element, sub);
 244     }
 245     r->date = ill_get_ILL_ISO_Date (gc, element, "date", "20000101");
 246     r->time = ill_get_ILL_ISO_Time (gc, element, "time", 0);
 247     return r;
 248 }
 249
 250 ILL_Service_Date_original *ill_get_Service_Date_original (
 251     struct ill_get_ctl *gc, const char *name, const char *sub)
 252 {
 253     ODR o = gc->odr;
 254     ILL_Service_Date_original *r =
 255         (ILL_Service_Date_original *) odr_malloc (o, sizeof(*r));
 256     char element[128];
 257
 258     strcpy(element, name);
 259     if (sub)
 260     {
 261         strcat (element, ",");
 262         strcat (element, sub);
 263     }
 264     r->date = ill_get_ILL_ISO_Date (gc, element, "date", 0);
 265     r->time = ill_get_ILL_ISO_Time (gc, element, "time", 0);
 266     if (!r->date && !r->time)
 267         return 0;
 268     return r;
 269 }
 270
 271 ILL_Service_Date_Time *ill_get_Service_Date_Time (
 272     struct ill_get_ctl *gc, const char *name, const char *sub)
 273 {
 274     ODR o = gc->odr;
 275     ILL_Service_Date_Time *r =
 276         (ILL_Service_Date_Time *) odr_malloc (o, sizeof(*r));
 277     char element[128];
 278
 279     strcpy(element, name);
 280     if (sub)
 281     {
 282         strcat (element, ",");
 283         strcat (element, sub);
 284     }
 285     r->date_time_of_this_service = ill_get_Service_Date_this (
 286         gc, element, "this");
 287     r->date_time_of_original_service = ill_get_Service_Date_original (
 288         gc, element, "original");
 289     return r;
 290 }
 291
 292 ILL_Requester_Optional_Messages_Type *ill_get_Requester_Optional_Messages_Type (
 293     struct ill_get_ctl *gc, const char *name, const char *sub)
 294 {
 295     ODR o = gc->odr;
 296     ILL_Requester_Optional_Messages_Type *r =
 297         (ILL_Requester_Optional_Messages_Type *) odr_malloc (o, sizeof(*r));
 298     char element[128];
 299
 300     strcpy(element, name);
 301     if (sub)
 302     {
 303         strcat (element, ",");
 304         strcat (element, sub);
 305     }
 306     r->can_send_RECEIVED = ill_get_bool (gc, element, "can-send-RECEIVED", 0);
 307     r->can_send_RETURNED = ill_get_bool (gc, element, "can-send-RETURNED", 0);
 308     r->requester_SHIPPED =
 309         ill_get_enumerated (gc, element, "requester-SHIPPED", 1);
 310     r->requester_CHECKED_IN =
 311         ill_get_enumerated (gc, element, "requester-CHECKED-IN", 1);
 312     return r;
 313 }
 314
 315 ILL_Item_Id *ill_get_Item_Id (
 316     struct ill_get_ctl *gc, const char *name, const char *sub)
 317 {
 318     ODR o = gc->odr;
 319     ILL_Item_Id *r = (ILL_Item_Id *) odr_malloc (o, sizeof(*r));
 320     char element[128];
 321
 322     strcpy(element, name);
 323     if (sub)
 324     {
 325         strcat (element, ",");
 326         strcat (element, sub);
 327     }
 328     r->item_type = ill_get_enumerated (gc, element, "item-type",
 329                                        ILL_Item_Id_monograph);
 330     r->held_medium_type = 0;
 331     r->call_number = ill_get_ILL_String(gc, element, "call-number");
 332     r->author = ill_get_ILL_String(gc, element, "author");
 333     r->title = ill_get_ILL_String(gc, element, "title");
 334     r->sub_title = ill_get_ILL_String(gc, element, "sub-title");
 335     r->sponsoring_body = ill_get_ILL_String(gc, element, "sponsoring-body");
 336     r->place_of_publication =
 337         ill_get_ILL_String(gc, element, "place-of-publication");
 338     r->publisher = ill_get_ILL_String(gc, element, "publisher");
 339     r->series_title_number =
 340         ill_get_ILL_String(gc, element, "series-title-number");
 341     r->volume_issue = ill_get_ILL_String(gc, element, "volume-issue");
 342     r->edition = ill_get_ILL_String(gc, element, "edition");
 343     r->publication_date = ill_get_ILL_String(gc, element, "publication-date");
 344     r->publication_date_of_component =
 345         ill_get_ILL_String(gc, element, "publication-date-of-component");
 346     r->author_of_article = ill_get_ILL_String(gc, element,
 347                                               "author-of-article");
 348     r->title_of_article = ill_get_ILL_String(gc, element, "title-of-article");
 349     r->pagination = ill_get_ILL_String(gc, element, "pagination");
 350     r->national_bibliography_no = 0;
 351     r->iSBN = ill_get_ILL_String(gc, element, "ISBN");
 352     r->iSSN = ill_get_ILL_String(gc, element, "ISSN");
 353     r->system_no = 0;
 354     r->additional_no_letters =
 355         ill_get_ILL_String(gc, element, "additional-no-letters");
 356     r->verification_reference_source =
 357         ill_get_ILL_String(gc, element, "verification-reference-source");
 358     return r;
 359 }
 360
 361
 362 ILL_Client_Id *ill_get_Client_Id (
 363     struct ill_get_ctl *gc, const char *name, const char *sub)
 364 {
 365     char element[128];
 366     ODR o = gc->odr;
 367     ILL_Client_Id *r = (ILL_Client_Id *) odr_malloc(o, sizeof(*r));
 368
 369     strcpy(element, name);
 370     if (sub)
 371     {
 372         strcat (element, ",");
 373         strcat (element, sub);
 374     }
 375     r->client_name = ill_get_ILL_String (gc, element, "client-name");
 376     r->client_status = ill_get_ILL_String (gc, element, "client-status");
 377     r->client_identifier = ill_get_ILL_String (gc, element,
 378                                                "client-identifier");
 379     return r;
 380 }
 381
 382 ILL_Postal_Address *ill_get_Postal_Address (
 383     struct ill_get_ctl *gc, const char *name, const char *sub)
 384 {
 385     ODR o = gc->odr;
 386     ILL_Postal_Address *r =
 387         (ILL_Postal_Address *) odr_malloc(o, sizeof(*r));
 388     char element[128];
 389
 390     strcpy(element, name);
 391     if (sub)
 392     {
 393         strcat (element, ",");
 394         strcat (element, sub);
 395     }
 396     r->name_of_person_or_institution =
 397         ill_get_Name_Of_Person_Or_Institution (
 398             gc, element, "name-of-person-or-institution");
 399     r->extended_postal_delivery_address =
 400         ill_get_ILL_String (
 401             gc, element, "extended-postal-delivery-address");
 402     r->street_and_number =
 403         ill_get_ILL_String (gc, element, "street-and-number");
 404     r->post_office_box =
 405         ill_get_ILL_String (gc, element, "post-office-box");
 406     r->city = ill_get_ILL_String (gc, element, "city");
 407     r->region = ill_get_ILL_String (gc, element, "region");
 408     r->country = ill_get_ILL_String (gc, element, "country");
 409     r->postal_code = ill_get_ILL_String (gc, element, "postal-code");
 410     return r;
 411 }
 412
 413 ILL_System_Address *ill_get_System_Address (
 414     struct ill_get_ctl *gc, const char *name, const char *sub)
 415 {
 416     ODR o = gc->odr;
 417     ILL_System_Address *r =
 418         (ILL_System_Address *) odr_malloc(o, sizeof(*r));
 419     char element[128];
 420
 421     strcpy(element, name);
 422     if (sub)
 423     {
 424         strcat (element, ",");
 425         strcat (element, sub);
 426     }
 427     r->telecom_service_identifier =
 428         ill_get_ILL_String (gc, element, "telecom-service-identifier");
 429     r->telecom_service_address =
 430         ill_get_ILL_String (gc, element, "telecom-service-addreess");
 431     return r;
 432 }
 433
 434 ILL_Delivery_Address *ill_get_Delivery_Address (
 435     struct ill_get_ctl *gc, const char *name, const char *sub)
 436 {
 437     ODR o = gc->odr;
 438     ILL_Delivery_Address *r =
 439         (ILL_Delivery_Address *) odr_malloc(o, sizeof(*r));
 440     char element[128];
 441
 442     strcpy(element, name);
 443     if (sub)
 444     {
 445         strcat (element, ",");
 446         strcat (element, sub);
 447     }
 448     r->postal_address =
 449         ill_get_Postal_Address (gc, element, "postal-address");
 450     r->electronic_address =
 451         ill_get_System_Address (gc, element, "electronic-address");
 452     return r;
 453 }
 454
 455 ILL_Search_Type *ill_get_Search_Type (
 456     struct ill_get_ctl *gc, const char *name, const char *sub)
 457 {
 458     ODR o = gc->odr;
 459     ILL_Search_Type *r = (ILL_Search_Type *) odr_malloc(o, sizeof(*r));
 460     char element[128];
 461
 462     strcpy(element, name);
 463     if (sub)
 464     {
 465         strcat (element, ",");
 466         strcat (element, sub);
 467     }
 468     r->level_of_service = ill_get_ILL_String (gc, element, "level-of-service");
 469     r->need_before_date = ill_get_ILL_ISO_Date (gc, element,
 470                                                 "need-before-date", 0);
 471     r->expiry_date = ill_get_ILL_ISO_Date (gc, element, "expiry-date", 0);
 472     r->expiry_flag = ill_get_enumerated (gc, element, "expiry-flag", 3);
 473
 474     return r;
 475 }
 476
 477 ILL_Request *ill_get_ILLRequest (
 478     struct ill_get_ctl *gc, const char *name, const char *sub)
 479 {
 480     ODR o = gc->odr;
 481     ILL_Request *r = (ILL_Request *) odr_malloc(o, sizeof(*r));
 482     char element[128];
 483
 484     strcpy(element, name);
 485     if (sub)
 486     {
 487         strcat (element, ",");
 488         strcat (element, sub);
 489     }
 490     r->protocol_version_num =
 491         ill_get_enumerated (gc, element, "protocol-version-num",
 492                             ILL_Request_version_2);
 493
 494     r->transaction_id = ill_get_Transaction_Id (gc, element, "transaction-id");
 495     r->service_date_time =
 496         ill_get_Service_Date_Time (gc, element, "service-date-time");
 497     r->requester_id = ill_get_System_Id (gc, element, "requester-id");
 498     r->responder_id = ill_get_System_Id (gc, element, "responder-id");
 499     r->transaction_type =
 500         ill_get_enumerated(gc, element, "transaction-type", 1);
 501
 502     r->delivery_address =
 503         ill_get_Delivery_Address (gc, element, "delivery-address");
 504     r->delivery_service = 0; /* TODO */
 505     /* ill_get_Delivery_Service (gc, element, "delivery-service"); */
 506     r->billing_address =
 507         ill_get_Delivery_Address (gc, element, "billing-address");
 508
 509     r->num_iLL_service_type = 1;
 510     r->iLL_service_type = (ILL_Service_Type **)
 511         odr_malloc (o, sizeof(*r->iLL_service_type));
 512     *r->iLL_service_type =
 513         ill_get_enumerated (gc, element, "ill-service-type",
 514                             ILL_Service_Type_copy_non_returnable);
 515
 516     r->responder_specific_service = 0;
 517     r->requester_optional_messages =
 518         ill_get_Requester_Optional_Messages_Type (
 519             gc, element,"requester-optional-messages");
 520     r->search_type = ill_get_Search_Type(gc, element, "search-type");
 521     r->num_supply_medium_info_type = 0;
 522     r->supply_medium_info_type = 0;
 523
 524     r->place_on_hold = ill_get_enumerated (
 525         gc, element, "place-on-hold",
 526         ILL_Place_On_Hold_Type_according_to_responder_policy);
 527     r->client_id = ill_get_Client_Id (gc, element, "client-id");
 528
 529     r->item_id = ill_get_Item_Id (gc, element, "item-id");
 530     r->supplemental_item_description = 0;
 531     r->cost_info_type = 0;
 532     r->copyright_compliance =
 533         ill_get_ILL_String(gc, element, "copyright-complicance");
 534     r->third_party_info_type = 0;
 535     r->retry_flag = ill_get_bool (gc, element, "retry-flag", 0);
 536     r->forward_flag = ill_get_bool (gc, element, "forward-flag", 0);
 537     r->requester_note = ill_get_ILL_String(gc, element, "requester-note");
 538     r->forward_note = ill_get_ILL_String(gc, element, "forward-note");
 539     r->num_iLL_request_extensions = 0;
 540     r->iLL_request_extensions = 0;
 541     return r;
 542 }
 543
 544 ILL_ItemRequest *ill_get_ItemRequest (
 545     struct ill_get_ctl *gc, const char *name, const char *sub)
 546 {
 547     ODR o = gc->odr;
 548     ILL_ItemRequest *r = (ILL_ItemRequest *)odr_malloc(o, sizeof(*r));
 549     char element[128];
 550
 551     strcpy(element, name);
 552     if (sub)
 553     {
 554         strcat (element, ",");
 555         strcat (element, sub);
 556     }
 557     r->protocol_version_num =
 558         ill_get_enumerated (gc, element, "protocol-version-num",
 559                             ILL_Request_version_2);
 560
 561     r->transaction_id = ill_get_Transaction_Id (gc, element, "transaction-id");
 562     r->service_date_time =
 563         ill_get_Service_Date_Time (gc, element, "service-date-time");
 564     r->requester_id = ill_get_System_Id (gc, element, "requester-id");
 565     r->responder_id = ill_get_System_Id (gc, element, "responder-id");
 566     r->transaction_type =
 567         ill_get_enumerated(gc, element, "transaction-type", 1);
 568
 569     r->delivery_address =
 570         ill_get_Delivery_Address (gc, element, "delivery-address");
 571     r->delivery_service = 0; /* TODO */
 572     /* ill_get_Delivery_Service (gc, element, "delivery-service"); */
 573     r->billing_address =
 574         ill_get_Delivery_Address (gc, element, "billing-address");
 575
 576     r->num_iLL_service_type = 1;
 577     r->iLL_service_type = (ILL_Service_Type **)
 578         odr_malloc (o, sizeof(*r->iLL_service_type));
 579     *r->iLL_service_type =
 580         ill_get_enumerated (gc, element, "ill-service-type",
 581                             ILL_Service_Type_copy_non_returnable);
 582
 583     r->responder_specific_service = 0;
 584     r->requester_optional_messages =
 585         ill_get_Requester_Optional_Messages_Type (
 586             gc, element,"requester-optional-messages");
 587     r->search_type = ill_get_Search_Type(gc, element, "search-type");
 588     r->num_supply_medium_info_type = 0;
 589     r->supply_medium_info_type = 0;
 590
 591     r->place_on_hold = ill_get_enumerated (
 592         gc, element, "place-on-hold",
 593         ILL_Place_On_Hold_Type_according_to_responder_policy);
 594     r->client_id = ill_get_Client_Id (gc, element, "client-id");
 595
 596     r->item_id = ill_get_Item_Id (gc, element, "item-id");
 597     r->supplemental_item_description = 0;
 598     r->cost_info_type = 0;
 599     r->copyright_compliance =
 600         ill_get_ILL_String(gc, element, "copyright-complicance");
 601     r->third_party_info_type = 0;
 602     r->retry_flag = ill_get_bool (gc, element, "retry-flag", 0);
 603     r->forward_flag = ill_get_bool (gc, element, "forward-flag", 0);
 604     r->requester_note = ill_get_ILL_String(gc, element, "requester-note");
 605     r->forward_note = ill_get_ILL_String(gc, element, "forward-note");
 606     r->num_iLL_request_extensions = 0;
 607     r->iLL_request_extensions = 0;
 608     return r;
 609 }
 610
 611 ILL_Cancel *ill_get_Cancel (
 612     struct ill_get_ctl *gc, const char *name, const char *sub)
 613 {
 614     ODR o = gc->odr;
 615     ILL_Cancel *r = (ILL_Cancel *)odr_malloc(o, sizeof(*r));
 616     char element[128];
 617
 618     strcpy(element, name);
 619     if (sub)
 620     {
 621         strcat (element, ",");
 622         strcat (element, sub);
 623     }
 624     r->protocol_version_num =
 625         ill_get_enumerated (gc, element, "protocol-version-num",
 626                             ILL_Request_version_2);
 627
 628     r->transaction_id = ill_get_Transaction_Id (gc, element, "transaction-id");
 629     r->service_date_time =
 630         ill_get_Service_Date_Time (gc, element, "service-date-time");
 631     r->requester_id = ill_get_System_Id (gc, element, "requester-id");
 632     r->responder_id = ill_get_System_Id (gc, element, "responder-id");
 633     r->requester_note = ill_get_ILL_String(gc, element, "requester-note");
 634
 635     r->num_cancel_extensions = 0;
 636     r->cancel_extensions = 0;
 637     return r;
 638 }
 639
 640 ILL_APDU *ill_get_APDU (
 641     struct ill_get_ctl *gc, const char *name, const char *sub)
 642 {
 643     ODR o = gc->odr;
 644     ILL_APDU *r = (ILL_APDU *)odr_malloc(o, sizeof(*r));
 645     char element[128];
 646     const char *v;
 647
 648     strcpy (element, name);
 649     strcat (element, ",which");
 650
 651     v = (gc->f)(gc->clientData, element);
 652     if (!v)
 653         v = "request";
 654     if (!strcmp (v, "request"))
 655     {
 656         r->which = ILL_APDU_ILL_Request;
 657         r->u.illRequest = ill_get_ILLRequest(gc, name, sub);
 658     }
 659     else if (!strcmp (v, "cancel"))
 660     {
 661         r->which = ILL_APDU_Cancel;
 662         r->u.Cancel = ill_get_Cancel(gc, name, sub);
 663     }
 664     else
 665         return 0;
 666     return r;
 667 }