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