src/zget.c

   1 /* This file is part of the YAZ toolkit.
   2  * Copyright (C) 1995-2008 Index Data
   3  * See the file LICENSE for details.
   4  */
   5 /**
   6  * \file zget.c
   7  * \brief Implements Z39.50 package creator utilities
   8  */
   9
  10 #include <yaz/proto.h>
  11 #include <yaz/oid_db.h>
  12
  13 Z_InitRequest *zget_InitRequest(ODR o)
  14 {
  15     Z_InitRequest *r = (Z_InitRequest *)odr_malloc(o, sizeof(*r));
  16
  17     r->referenceId = 0;
  18     r->options = (Odr_bitmask *)odr_malloc(o, sizeof(*r->options));
  19     ODR_MASK_ZERO(r->options);
  20     r->protocolVersion = (Odr_bitmask *)
  21         odr_malloc(o, sizeof(*r->protocolVersion));
  22
  23     ODR_MASK_SET(r->options, Z_Options_search);
  24     ODR_MASK_SET(r->options, Z_Options_present);
  25
  26     ODR_MASK_ZERO(r->protocolVersion);
  27
  28     ODR_MASK_SET(r->protocolVersion, Z_ProtocolVersion_1);
  29     ODR_MASK_SET(r->protocolVersion, Z_ProtocolVersion_2);
  30
  31     r->preferredMessageSize = odr_intdup(o, 1024*1024);
  32     r->maximumRecordSize = odr_intdup(o, 1024*1024);
  33     r->idAuthentication = 0;
  34     r->implementationId = "81";
  35     r->implementationName = "YAZ";
  36     r->implementationVersion = YAZ_VERSION
  37 #ifdef YAZ_DATE_STR
  38     " (" YAZ_DATE_STR ")"
  39 #endif
  40 #ifdef YAZ_OS
  41     " " YAZ_OS
  42 #endif
  43         ;
  44     r->userInformationField = 0;
  45     r->otherInfo = 0;
  46     return r;
  47 }
  48
  49 Z_InitResponse *zget_InitResponse(ODR o)
  50 {
  51     Z_InitResponse *r = (Z_InitResponse *)odr_malloc(o, sizeof(*r));
  52
  53     r->referenceId = 0;
  54     r->options = (Odr_bitmask *)odr_malloc(o, sizeof(*r->options));
  55     ODR_MASK_ZERO(r->options);
  56     r->protocolVersion = (Odr_bitmask *)odr_malloc(o, sizeof(*r->protocolVersion));
  57     ODR_MASK_ZERO(r->protocolVersion);
  58     r->preferredMessageSize = odr_intdup(o, 30*1024);
  59     r->maximumRecordSize = odr_intdup(o, 30*1024);
  60     r->result = odr_intdup(o, 1);
  61     r->implementationId = "81";
  62     r->implementationName = "YAZ";
  63     r->implementationVersion = YAZ_VERSION
  64 #ifdef YAZ_DATE_STR
  65     " (" YAZ_DATE_STR ")"
  66 #endif
  67 #ifdef YAZ_OS
  68     " " YAZ_OS
  69 #endif
  70         ;
  71     r->userInformationField = 0;
  72     r->otherInfo = 0;
  73     return r;
  74 }
  75
  76 Z_SearchRequest *zget_SearchRequest(ODR o)
  77 {
  78     Z_SearchRequest *r = (Z_SearchRequest *)odr_malloc(o, sizeof(*r));
  79
  80     r->referenceId = 0;
  81     r->smallSetUpperBound = odr_intdup(o, 0);
  82     r->largeSetLowerBound = odr_intdup(o, 1);
  83     r->mediumSetPresentNumber = odr_intdup(o, 0);
  84     r->replaceIndicator = odr_intdup(o, 1);
  85     r->resultSetName = "default";
  86     r->num_databaseNames = 0;
  87     r->databaseNames = 0;
  88     r->smallSetElementSetNames = 0;
  89     r->mediumSetElementSetNames = 0;
  90     r->preferredRecordSyntax = 0;
  91     r->query = 0;
  92     r->additionalSearchInfo = 0;
  93     r->otherInfo = 0;
  94     return r;
  95 }
  96
  97 Z_SearchResponse *zget_SearchResponse(ODR o)
  98 {
  99     Z_SearchResponse *r = (Z_SearchResponse *)odr_malloc(o, sizeof(*r));
 100
 101     r->referenceId = 0;
 102     r->resultCount = odr_intdup(o, 0);
 103     r->numberOfRecordsReturned = odr_intdup(o, 0);
 104     r->nextResultSetPosition = odr_intdup(o, 0);
 105     r->searchStatus = odr_intdup(o, 1);
 106     r->resultSetStatus = 0;
 107     r->presentStatus = 0;
 108     r->records = 0;
 109     r->additionalSearchInfo = 0;
 110     r->otherInfo = 0;
 111     return r;
 112 }
 113
 114 Z_PresentRequest *zget_PresentRequest(ODR o)
 115 {
 116     Z_PresentRequest *r = (Z_PresentRequest *)odr_malloc(o, sizeof(*r));
 117
 118     r->referenceId = 0;
 119     r->resultSetId = "default";
 120     r->resultSetStartPoint = odr_intdup(o, 1);
 121     r->numberOfRecordsRequested = odr_intdup(o, 10);
 122     r->num_ranges = 0;
 123     r->additionalRanges = 0;
 124     r->recordComposition = 0;
 125     r->preferredRecordSyntax = 0;
 126     r->maxSegmentCount = 0;
 127     r->maxRecordSize = 0;
 128     r->maxSegmentSize = 0;
 129     r->otherInfo = 0;
 130     return r;
 131 }
 132
 133 Z_PresentResponse *zget_PresentResponse(ODR o)
 134 {
 135     Z_PresentResponse *r = (Z_PresentResponse *)odr_malloc(o, sizeof(*r));
 136
 137     r->referenceId = 0;
 138     r->numberOfRecordsReturned = odr_intdup(o, 0);
 139     r->nextResultSetPosition = odr_intdup(o, 0);
 140     r->presentStatus = odr_intdup(o, Z_PresentStatus_success);
 141     r->records = 0;
 142     r->otherInfo = 0;
 143     return r;
 144 }
 145
 146 Z_DeleteResultSetRequest *zget_DeleteResultSetRequest(ODR o)
 147 {
 148     Z_DeleteResultSetRequest *r = (Z_DeleteResultSetRequest *)
 149         odr_malloc(o, sizeof(*r));
 150
 151     r->referenceId = 0;
 152     r->deleteFunction = odr_intdup(o, Z_DeleteResultSetRequest_list);
 153     r->num_resultSetList = 0;
 154     r->resultSetList = 0;
 155     r->otherInfo = 0;
 156     return r;
 157 }
 158
 159 Z_DeleteResultSetResponse *zget_DeleteResultSetResponse(ODR o)
 160 {
 161     Z_DeleteResultSetResponse *r = (Z_DeleteResultSetResponse *)
 162         odr_malloc(o, sizeof(*r));
 163
 164     r->referenceId = 0;
 165     r->deleteOperationStatus = odr_intdup(o, Z_DeleteStatus_success);
 166     r->deleteListStatuses = 0;
 167     r->numberNotDeleted = 0;
 168     r->bulkStatuses = 0;
 169     r->deleteMessage = 0;
 170     r->otherInfo = 0;
 171     return r;
 172 }
 173
 174 Z_ScanRequest *zget_ScanRequest(ODR o)
 175 {
 176     Z_ScanRequest *r = (Z_ScanRequest *)odr_malloc(o, sizeof(*r));
 177
 178     r->referenceId = 0;
 179     r->num_databaseNames = 0;
 180     r->databaseNames = 0;
 181     r->attributeSet = 0;
 182     r->termListAndStartPoint = 0;
 183     r->stepSize = 0;
 184     r->numberOfTermsRequested = odr_intdup(o, 20);
 185     r->preferredPositionInResponse = 0;
 186     r->otherInfo = 0;
 187     return r;
 188 }
 189
 190 Z_ScanResponse *zget_ScanResponse(ODR o)
 191 {
 192     Z_ScanResponse *r = (Z_ScanResponse *)odr_malloc(o, sizeof(*r));
 193
 194     r->referenceId = 0;
 195     r->stepSize = 0;
 196     r->scanStatus = odr_intdup(o, Z_Scan_success);
 197     r->numberOfEntriesReturned = odr_intdup(o, 0);
 198     r->positionOfTerm =0;
 199     r->entries = 0;
 200     r->attributeSet = 0;
 201     r->otherInfo = 0;
 202     return r;
 203 }
 204
 205 Z_TriggerResourceControlRequest *zget_TriggerResourceControlRequest(ODR o)
 206 {
 207     Z_TriggerResourceControlRequest *r = (Z_TriggerResourceControlRequest *)
 208         odr_malloc(o, sizeof(*r));
 209
 210     r->referenceId = 0;
 211     r->requestedAction = odr_intdup(o, Z_TriggerResourceControlRequest_resourceReport);
 212     r->prefResourceReportFormat = 0;
 213     r->resultSetWanted = 0;
 214     r->otherInfo = 0;
 215     return r;
 216 }
 217
 218 Z_ResourceControlRequest *zget_ResourceControlRequest(ODR o)
 219 {
 220     Z_ResourceControlRequest *r = (Z_ResourceControlRequest *)
 221         odr_malloc(o, sizeof(*r));
 222
 223     r->referenceId = 0;
 224     r->suspendedFlag = 0;
 225     r->resourceReport = 0;
 226     r->partialResultsAvailable = 0;
 227     r->responseRequired = odr_intdup(o, 0);
 228     r->triggeredRequestFlag = 0;
 229     r->otherInfo = 0;
 230     return r;
 231 }
 232
 233 Z_ResourceControlResponse *zget_ResourceControlResponse(ODR o)
 234 {
 235     Z_ResourceControlResponse *r = (Z_ResourceControlResponse *)
 236         odr_malloc(o, sizeof(*r));
 237
 238     r->referenceId = 0;
 239     r->continueFlag = odr_intdup(o, 1);
 240     r->resultSetWanted = 0;
 241     r->otherInfo = 0;
 242     return r;
 243 }
 244
 245 Z_AccessControlRequest *zget_AccessControlRequest(ODR o)
 246 {
 247     Z_AccessControlRequest *r = (Z_AccessControlRequest *)
 248         odr_malloc(o, sizeof(*r));
 249
 250     r->referenceId = 0;
 251     r->which = Z_AccessControlRequest_simpleForm;
 252     r->u.simpleForm = 0;
 253     r->otherInfo = 0;
 254     return r;
 255 }
 256
 257 Z_AccessControlResponse *zget_AccessControlResponse(ODR o)
 258 {
 259     Z_AccessControlResponse *r = (Z_AccessControlResponse *)
 260         odr_malloc(o, sizeof(*r));
 261
 262     r->referenceId = 0;
 263     r->which = Z_AccessControlResponse_simpleForm;
 264     r->u.simpleForm = 0;
 265     r->diagnostic = 0;
 266     r->otherInfo = 0;
 267     return r;
 268 }
 269
 270 Z_Segment *zget_Segment(ODR o)
 271 {
 272     Z_Segment *r = (Z_Segment *)odr_malloc(o, sizeof(*r));
 273
 274     r->referenceId = 0;
 275     r->numberOfRecordsReturned = odr_intdup(o, 0);
 276     r->num_segmentRecords = 0;
 277     r->segmentRecords = (Z_NamePlusRecord **) odr_nullval();
 278     r->otherInfo = 0;
 279     return r;
 280 }
 281
 282 Z_Close *zget_Close(ODR o)
 283 {
 284     Z_Close *r = (Z_Close *)odr_malloc(o, sizeof(*r));
 285
 286     r->referenceId = 0;
 287     r->closeReason = odr_intdup(o, Z_Close_finished);
 288     r->diagnosticInformation = 0;
 289     r->resourceReportFormat = 0;
 290     r->resourceReport = 0;
 291     r->otherInfo = 0;
 292     return r;
 293 }
 294
 295 Z_ResourceReportRequest *zget_ResourceReportRequest(ODR o)
 296 {
 297     Z_ResourceReportRequest *r = (Z_ResourceReportRequest *)
 298         odr_malloc(o, sizeof(*r));
 299
 300     r->referenceId = 0;
 301     r->opId = 0;
 302     r->prefResourceReportFormat = 0;
 303     r->otherInfo = 0;
 304     return r;
 305 }
 306
 307 Z_ResourceReportResponse *zget_ResourceReportResponse(ODR o)
 308 {
 309     Z_ResourceReportResponse *r = (Z_ResourceReportResponse *)
 310         odr_malloc(o, sizeof(*r));
 311
 312     r->referenceId = 0;
 313     r->resourceReportStatus = odr_intdup(o, Z_ResourceReportResponse_success);
 314     r->resourceReport = 0;
 315     r->otherInfo = 0;
 316     return r;
 317 }
 318
 319 Z_SortRequest *zget_SortRequest(ODR o)
 320 {
 321     Z_SortRequest *r = (Z_SortRequest *)odr_malloc(o, sizeof(*r));
 322
 323     r->referenceId = 0;
 324     r->inputResultSetNames = 0;
 325     r->sortedResultSetName = 0;
 326     r->sortSequence = 0;
 327     r->otherInfo = 0;
 328     return r;
 329 }
 330
 331 Z_SortResponse *zget_SortResponse(ODR o)
 332 {
 333     Z_SortResponse *r = (Z_SortResponse *)odr_malloc(o, sizeof(*r));
 334
 335     r->referenceId = 0;
 336     r->sortStatus = odr_intdup(o, Z_SortResponse_success);
 337     r->resultSetStatus = odr_intdup(o, Z_SortResponse_empty);
 338     r->diagnostics = 0;
 339     r->resultCount = 0;
 340     r->otherInfo = 0;
 341     return r;
 342 }
 343
 344 Z_ExtendedServicesRequest *zget_ExtendedServicesRequest(ODR o)
 345 {
 346     Z_ExtendedServicesRequest *r = (Z_ExtendedServicesRequest *)
 347         odr_malloc(o, sizeof(*r));
 348
 349     r->referenceId = 0;
 350     r->function = odr_intdup(o, Z_ExtendedServicesRequest_create);
 351     r->packageType = 0;
 352     r->packageName = 0;
 353     r->userId = 0;
 354     r->retentionTime = 0;
 355     r->permissions = 0;
 356     r->description = 0;
 357     r->taskSpecificParameters = 0;
 358     r->waitAction = odr_intdup(o, Z_ExtendedServicesRequest_waitIfPossible);
 359     r->elements = 0;
 360     r->otherInfo = 0;
 361     return r;
 362 }
 363
 364 Z_ExtendedServicesResponse *zget_ExtendedServicesResponse(ODR o)
 365 {
 366     Z_ExtendedServicesResponse *r = (Z_ExtendedServicesResponse *)
 367         odr_malloc(o, sizeof(*r));
 368
 369     r->referenceId = 0;
 370     r->operationStatus = odr_intdup(o, Z_ExtendedServicesResponse_done);
 371     r->num_diagnostics = 0;
 372     r->diagnostics = 0;
 373     r->taskPackage = 0;
 374     r->otherInfo = 0;
 375     return r;
 376 }
 377
 378 Z_DuplicateDetectionRequest *zget_DuplicateDetectionRequest(ODR o)
 379 {
 380     Z_DuplicateDetectionRequest *r = (Z_DuplicateDetectionRequest *)
 381         odr_malloc(o, sizeof(*r));
 382
 383     r->referenceId = 0;
 384     r->num_inputResultSetIds = 0;
 385     r->inputResultSetIds = 0;
 386     r->outputResultSetName = 0;
 387     r->applicablePortionOfRecord = 0;
 388     r->num_duplicateDetectionCriteria = 0;
 389     r->duplicateDetectionCriteria = 0;
 390     r->clustering = 0;
 391     r->num_retentionCriteria = 0;
 392     r->retentionCriteria = 0;
 393     r->num_sortCriteria = 0;
 394     r->sortCriteria = 0;
 395     r->otherInfo = 0;
 396     return r;
 397 }
 398
 399 Z_DuplicateDetectionResponse *zget_DuplicateDetectionResponse(ODR o)
 400 {
 401     Z_DuplicateDetectionResponse *r = (Z_DuplicateDetectionResponse *)
 402         odr_malloc(o, sizeof(*r));
 403
 404     r->referenceId = 0;
 405     r->status = odr_intdup(o, Z_DuplicateDetectionResponse_success);
 406     r->resultSetCount = 0;
 407     r->num_diagnostics = 0;
 408     r->diagnostics = 0;
 409     r->otherInfo = 0;
 410     return r;
 411 }
 412
 413 Z_APDU *zget_APDU(ODR o, int which)
 414 {
 415     Z_APDU *r = (Z_APDU *)odr_malloc(o, sizeof(*r));
 416
 417     switch (r->which = which)
 418     {
 419     case Z_APDU_initRequest:
 420         r->u.initRequest = zget_InitRequest(o);
 421         break;
 422     case Z_APDU_initResponse:
 423         r->u.initResponse = zget_InitResponse(o);
 424         break;
 425     case Z_APDU_searchRequest:
 426         r->u.searchRequest = zget_SearchRequest(o);
 427         break;
 428     case Z_APDU_searchResponse:
 429         r->u.searchResponse = zget_SearchResponse(o);
 430         break;
 431     case Z_APDU_presentRequest:
 432         r->u.presentRequest = zget_PresentRequest(o);
 433         break;
 434     case Z_APDU_presentResponse:
 435         r->u.presentResponse = zget_PresentResponse(o);
 436         break;
 437     case Z_APDU_deleteResultSetRequest:
 438         r->u.deleteResultSetRequest = zget_DeleteResultSetRequest(o);
 439         break;
 440     case Z_APDU_deleteResultSetResponse:
 441         r->u.deleteResultSetResponse = zget_DeleteResultSetResponse(o);
 442         break;
 443     case Z_APDU_scanRequest:
 444         r->u.scanRequest = zget_ScanRequest(o);
 445         break;
 446     case Z_APDU_scanResponse:
 447         r->u.scanResponse = zget_ScanResponse(o);
 448         break;
 449     case Z_APDU_triggerResourceControlRequest:
 450         r->u.triggerResourceControlRequest =
 451             zget_TriggerResourceControlRequest(o);
 452         break;
 453     case Z_APDU_resourceControlRequest:
 454         r->u.resourceControlRequest = zget_ResourceControlRequest(o);
 455         break;
 456     case Z_APDU_resourceControlResponse:
 457         r->u.resourceControlResponse = zget_ResourceControlResponse(o);
 458         break;
 459     case Z_APDU_segmentRequest:
 460         r->u.segmentRequest = zget_Segment(o);
 461         break;
 462     case Z_APDU_close:
 463         r->u.close = zget_Close(o);
 464         break;
 465     case Z_APDU_accessControlRequest:
 466         r->u.accessControlRequest = zget_AccessControlRequest(o);
 467         break;
 468     case Z_APDU_accessControlResponse:
 469         r->u.accessControlResponse = zget_AccessControlResponse(o);
 470         break;
 471     case Z_APDU_resourceReportRequest:
 472         r->u.resourceReportRequest = zget_ResourceReportRequest(o);
 473         break;
 474     case Z_APDU_resourceReportResponse:
 475         r->u.resourceReportResponse = zget_ResourceReportResponse(o);
 476         break;
 477     case Z_APDU_sortRequest:
 478         r->u.sortRequest = zget_SortRequest(o);
 479         break;
 480     case Z_APDU_sortResponse:
 481         r->u.sortResponse = zget_SortResponse(o);
 482         break;
 483     case Z_APDU_extendedServicesRequest:
 484         r->u.extendedServicesRequest = zget_ExtendedServicesRequest(o);
 485         break;
 486     case Z_APDU_extendedServicesResponse:
 487         r->u.extendedServicesResponse = zget_ExtendedServicesResponse(o);
 488         break;
 489     case Z_APDU_duplicateDetectionRequest:
 490         r->u.duplicateDetectionRequest = zget_DuplicateDetectionRequest(o);
 491         break;
 492     case Z_APDU_duplicateDetectionResponse:
 493         r->u.duplicateDetectionResponse = zget_DuplicateDetectionResponse(o);
 494         break;
 495     default:
 496         return 0;
 497     }
 498     return r;
 499 }
 500
 501 Z_DefaultDiagFormat *zget_DefaultDiagFormat(ODR o, int error,
 502                                             const char *addinfo)
 503 {
 504     Z_DefaultDiagFormat *dr = (Z_DefaultDiagFormat *)
 505         odr_malloc (o, sizeof(*dr));
 506
 507     dr->diagnosticSetId = odr_oiddup(o, yaz_oid_diagset_bib_1);
 508     dr->condition = odr_intdup(o, error);
 509     dr->which = Z_DefaultDiagFormat_v2Addinfo;
 510     dr->u.v2Addinfo = odr_strdup (o, addinfo ? addinfo : "");
 511     return dr;
 512 }
 513
 514 Z_DiagRec *zget_DiagRec(ODR o, int error, const char *addinfo)
 515 {
 516     Z_DiagRec *dr = (Z_DiagRec*) odr_malloc(o, sizeof(*dr));
 517     dr->which = Z_DiagRec_defaultFormat;
 518     dr->u.defaultFormat = zget_DefaultDiagFormat(o, error, addinfo);
 519     return dr;
 520 }
 521
 522 Z_DiagRecs *zget_DiagRecs(ODR o, int error, const char *addinfo)
 523 {
 524     Z_DiagRecs *drecs = (Z_DiagRecs*) odr_malloc(o, sizeof(*drecs));
 525     Z_DiagRec **dr = (Z_DiagRec**) odr_malloc(o, sizeof(**dr));
 526     drecs->diagRecs = dr;
 527     dr[0] = zget_DiagRec(o, error, addinfo);
 528     drecs->num_diagRecs = 1;
 529     return drecs;
 530 }
 531
 532 Z_NamePlusRecord *zget_surrogateDiagRec(ODR o, const char *dbname,
 533                                         int error, const char *addinfo)
 534 {
 535     Z_NamePlusRecord *rec = (Z_NamePlusRecord *) odr_malloc (o, sizeof(*rec));
 536     Z_DiagRec *drec = (Z_DiagRec *)odr_malloc (o, sizeof(*drec));
 537
 538     if (dbname)
 539         rec->databaseName = odr_strdup(o, dbname);
 540     else
 541         rec->databaseName = 0;
 542     rec->which = Z_NamePlusRecord_surrogateDiagnostic;
 543     rec->u.surrogateDiagnostic = drec;
 544     drec->which = Z_DiagRec_defaultFormat;
 545     drec->u.defaultFormat = zget_DefaultDiagFormat(o, error, addinfo);
 546     return rec;
 547 }
 548
 549 Z_External *zget_init_diagnostics(ODR odr, int error, const char *addinfo)
 550 {
 551     Z_External *x, *x2;
 552     Z_OtherInformation *u;
 553     Z_OtherInformationUnit *l;
 554     Z_DiagnosticFormat *d;
 555     Z_DiagnosticFormat_s *e;
 556
 557     x = (Z_External*) odr_malloc(odr, sizeof *x);
 558     x->descriptor = 0;
 559     x->indirect_reference = 0;
 560     x->direct_reference = odr_oiddup(odr, yaz_oid_userinfo_userinfo_1);
 561     x->which = Z_External_userInfo1;
 562
 563     u = (Z_OtherInformation *) odr_malloc(odr, sizeof *u);
 564     x->u.userInfo1 = u;
 565     u->num_elements = 1;
 566     u->list = (Z_OtherInformationUnit**) odr_malloc(odr, sizeof *u->list);
 567     u->list[0] = (Z_OtherInformationUnit*) odr_malloc(odr, sizeof *u->list[0]);
 568     l = u->list[0];
 569     l->category = 0;
 570     l->which = Z_OtherInfo_externallyDefinedInfo;
 571
 572     x2 = (Z_External*) odr_malloc(odr, sizeof *x);
 573     l->information.externallyDefinedInfo = x2;
 574     x2->descriptor = 0;
 575     x2->indirect_reference = 0;
 576     x2->direct_reference = odr_oiddup(odr, yaz_oid_diagset_diag_1);
 577     x2->which = Z_External_diag1;
 578
 579     d = (Z_DiagnosticFormat*) odr_malloc(odr, sizeof *d);
 580     x2->u.diag1 = d;
 581     d->num = 1;
 582     d->elements = (Z_DiagnosticFormat_s**) odr_malloc (odr, sizeof *d->elements);
 583     d->elements[0] = (Z_DiagnosticFormat_s*) odr_malloc (odr, sizeof *d->elements[0]);
 584     e = d->elements[0];
 585
 586     e->which = Z_DiagnosticFormat_s_defaultDiagRec;
 587     e->u.defaultDiagRec = zget_DefaultDiagFormat(odr, error, addinfo);
 588     e->message = 0;
 589     return x;
 590 }
 591
 592 Z_External *zget_init_diagnostics_octet(ODR odr, int error,
 593                                         const char *addinfo)
 594 {
 595     Z_External *x, *x2;
 596     Z_OtherInformation *u;
 597     Z_OtherInformationUnit *l;
 598     Z_DiagnosticFormat *d;
 599     Z_DiagnosticFormat_s *e;
 600     char *octet_buf;
 601     int octet_len;
 602     ODR encode;
 603
 604     u = (Z_OtherInformation *) odr_malloc(odr, sizeof *u);
 605     u->num_elements = 1;
 606     u->list = (Z_OtherInformationUnit**) odr_malloc(odr, sizeof *u->list);
 607     u->list[0] = (Z_OtherInformationUnit*) odr_malloc(odr, sizeof *u->list[0]);
 608     l = u->list[0];
 609     l->category = 0;
 610     l->which = Z_OtherInfo_externallyDefinedInfo;
 611
 612     x2 = (Z_External*) odr_malloc(odr, sizeof *x);
 613     l->information.externallyDefinedInfo = x2;
 614     x2->descriptor = 0;
 615     x2->indirect_reference = 0;
 616
 617     x2->direct_reference = odr_oiddup(odr, yaz_oid_diagset_diag_1);
 618     x2->which = Z_External_diag1;
 619
 620     d = (Z_DiagnosticFormat*) odr_malloc(odr, sizeof *d);
 621     x2->u.diag1 = d;
 622     d->num = 1;
 623     d->elements = (Z_DiagnosticFormat_s**) odr_malloc (odr, sizeof *d->elements);
 624     d->elements[0] = (Z_DiagnosticFormat_s*) odr_malloc (odr, sizeof *d->elements[0]);
 625     e = d->elements[0];
 626
 627     e->which = Z_DiagnosticFormat_s_defaultDiagRec;
 628     e->u.defaultDiagRec = zget_DefaultDiagFormat(odr, error, addinfo);
 629     e->message = 0;
 630
 631     encode = odr_createmem(ODR_ENCODE);
 632
 633     z_OtherInformation(encode, &u, 0, 0);
 634
 635     octet_buf = odr_getbuf(encode, &octet_len, 0);
 636
 637     x = (Z_External*) odr_malloc(odr, sizeof *x);
 638     x->descriptor = 0;
 639     x->indirect_reference = 0;
 640     x->direct_reference = odr_oiddup(odr, yaz_oid_userinfo_userinfo_1);
 641     x->which = Z_External_octet;
 642     x->u.octet_aligned = (Odr_oct *) odr_malloc(odr, sizeof(Odr_oct));
 643     x->u.octet_aligned->buf = (unsigned char *) odr_malloc(odr, octet_len);
 644     memcpy(x->u.octet_aligned->buf, octet_buf, octet_len);
 645     x->u.octet_aligned->len = octet_len;
 646
 647     odr_destroy(encode);
 648
 649     return x;
 650 }
 651
 652 /*
 653  * Local variables:
 654  * c-basic-offset: 4
 655  * indent-tabs-mode: nil
 656  * End:
 657  * vim: shiftwidth=4 tabstop=8 expandtab
 658  */
 659