asn/prt-arc.c

   1 /*
   2  * Copyright (c) 1995, Index Data.
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: prt-arc.c,v $
   7  * Revision 1.2  1998-02-11 11:53:32  adam
   8  * Changed code so that it compiles as C++.
   9  *
  10  * Revision 1.1  1996/06/10 08:55:20  quinn
  11  * Added Summary, OPAC
  12  *
  13  *
  14  */
  15
  16 #include <proto.h>
  17
  18 /* ----------------------- Summary Record --------------- */
  19
  20 int z_FormatSpec(ODR o, Z_FormatSpec **p, int opt)
  21 {
  22     if (!odr_sequence_begin(o, p, sizeof(**p)))
  23         return opt && odr_ok(o);
  24     return
  25         odr_implicit(o, z_InternationalString, &(*p)->type, ODR_CONTEXT,
  26             1, 0) &&
  27         odr_implicit(o, odr_integer, &(*p)->size, ODR_CONTEXT, 2, 1) &&
  28         odr_implicit(o, odr_integer, &(*p)->bestPosn, ODR_CONTEXT, 3, 1) &&
  29         odr_sequence_end(o);
  30 }
  31
  32 int z_BriefBib(ODR o, Z_BriefBib **p, int opt)
  33 {
  34     if (!odr_sequence_begin(o, p, sizeof(**p)))
  35         return opt && odr_ok(o);
  36     return
  37         odr_implicit(o, z_InternationalString, &(*p)->title, ODR_CONTEXT,
  38             1, 0) &&
  39         odr_implicit(o, z_InternationalString, &(*p)->author, ODR_CONTEXT,
  40             2, 1) &&
  41         odr_implicit(o, z_InternationalString, &(*p)->callNumber, ODR_CONTEXT,
  42             3, 1) &&
  43         odr_implicit(o, z_InternationalString, &(*p)->recordType, ODR_CONTEXT,
  44             4, 1) &&
  45         odr_implicit(o, z_InternationalString, &(*p)->bibliographicLevel,
  46             ODR_CONTEXT, 5, 1) &&
  47         odr_implicit_settag(o, ODR_CONTEXT, 6) &&
  48         (odr_sequence_of(o, (Odr_fun)z_FormatSpec, &(*p)->format, &(*p)->num_format) ||
  49             odr_ok(o)) &&
  50         odr_implicit(o, z_InternationalString, &(*p)->publicationPlace,
  51             ODR_CONTEXT, 7, 1) &&
  52         odr_implicit(o, z_InternationalString, &(*p)->publicationDate,
  53             ODR_CONTEXT, 8, 1) &&
  54         odr_implicit(o, z_InternationalString, &(*p)->targetSystemKey,
  55             ODR_CONTEXT, 9, 1) &&
  56         odr_implicit(o, z_InternationalString, &(*p)->satisfyingElement,
  57             ODR_CONTEXT, 10, 1) &&
  58         odr_implicit(o, odr_integer, &(*p)->rank, ODR_CONTEXT, 11, 1) &&
  59         odr_implicit(o, z_InternationalString, &(*p)->documentId,
  60             ODR_CONTEXT, 12, 1) &&
  61         odr_implicit(o, z_InternationalString, &(*p)->abstract, ODR_CONTEXT,
  62             13, 1) &&
  63         z_OtherInformation(o, &(*p)->otherInfo, 1) &&
  64         odr_sequence_end(o);
  65 }
  66
  67 /* ----------------------- Summary Record --------------- */
  68
  69 int z_CircRecord(ODR o, Z_CircRecord **p, int opt)
  70 {
  71     if (!odr_sequence_begin(o, p, sizeof(**p)))
  72         return opt && odr_ok(o);
  73     return
  74         odr_implicit(o, odr_bool, &(*p)->availableNow, ODR_CONTEXT, 1, 0) &&
  75         odr_implicit(o, z_InternationalString, &(*p)->availabilityDate,
  76             ODR_CONTEXT, 2, 1) &&
  77         odr_implicit(o, z_InternationalString, &(*p)->availableThru,
  78             ODR_CONTEXT, 3, 1) &&
  79         odr_implicit(o, z_InternationalString, &(*p)->restrictions,
  80             ODR_CONTEXT, 4, 1) &&
  81         odr_implicit(o, z_InternationalString, &(*p)->itemId, ODR_CONTEXT,
  82             5, 1) &&
  83         odr_implicit(o, odr_bool, &(*p)->renewable, ODR_CONTEXT, 6, 0) &&
  84         odr_implicit(o, odr_bool, &(*p)->onHold, ODR_CONTEXT, 7, 0) &&
  85         odr_implicit(o, z_InternationalString, &(*p)->enumAndChron,
  86             ODR_CONTEXT, 8, 1) &&
  87         odr_implicit(o, z_InternationalString, &(*p)->midspine, ODR_CONTEXT,
  88             9, 1) &&
  89         odr_implicit(o, z_InternationalString, &(*p)->temporaryLocation,
  90             ODR_CONTEXT, 10, 1) &&
  91         odr_sequence_end(o);
  92 }
  93
  94 int z_Volume(ODR o, Z_Volume **p, int opt)
  95 {
  96     if (!odr_sequence_begin(o, p, sizeof(**p)))
  97         return opt && odr_ok(o);
  98     return
  99         odr_implicit(o, z_InternationalString, &(*p)->enumeration,
 100             ODR_CONTEXT, 1, 1) &&
 101         odr_implicit(o, z_InternationalString, &(*p)->chronology, ODR_CONTEXT,
 102             2, 1) &&
 103         odr_implicit(o, z_InternationalString, &(*p)->enumAndChron,
 104             ODR_CONTEXT, 3, 1) &&
 105         odr_sequence_end(o);
 106 }
 107
 108 int z_HoldingsAndCircData(ODR o, Z_HoldingsAndCircData **p, int opt)
 109 {
 110     if (!odr_sequence_begin(o, p, sizeof(**p)))
 111         return opt && odr_ok(o);
 112     return
 113         odr_implicit(o, z_InternationalString, &(*p)->typeOfRecord,
 114             ODR_CONTEXT, 1, 1) &&
 115         odr_implicit(o, z_InternationalString, &(*p)->encodingLevel,
 116             ODR_CONTEXT, 2, 1) &&
 117         odr_implicit(o, z_InternationalString, &(*p)->format, ODR_CONTEXT,
 118             3, 1) &&
 119         odr_implicit(o, z_InternationalString, &(*p)->receiptAcqStatus,
 120             ODR_CONTEXT, 4, 1) &&
 121         odr_implicit(o, z_InternationalString, &(*p)->generalRetention,
 122             ODR_CONTEXT, 5, 1) &&
 123         odr_implicit(o, z_InternationalString, &(*p)->completeness,
 124             ODR_CONTEXT, 6, 1) &&
 125         odr_implicit(o, z_InternationalString, &(*p)->dateOfReport,
 126             ODR_CONTEXT, 7, 1) &&
 127         odr_implicit(o, z_InternationalString, &(*p)->nucCode, ODR_CONTEXT,
 128             8, 1) &&
 129         odr_implicit(o, z_InternationalString, &(*p)->localLocation,
 130             ODR_CONTEXT, 9, 1) &&
 131         odr_implicit(o, z_InternationalString, &(*p)->shelvingLocation,
 132             ODR_CONTEXT, 10, 1) &&
 133         odr_implicit(o, z_InternationalString, &(*p)->callNumber, ODR_CONTEXT,
 134             11, 1) &&
 135         odr_implicit(o, z_InternationalString, &(*p)->shelvingData,
 136             ODR_CONTEXT, 12, 1) &&
 137         odr_implicit(o, z_InternationalString, &(*p)->copyNumber, ODR_CONTEXT,
 138             13, 1) &&
 139         odr_implicit(o, z_InternationalString, &(*p)->publicNote, ODR_CONTEXT,
 140             14, 1) &&
 141         odr_implicit(o, z_InternationalString, &(*p)->reproductionNote,
 142             ODR_CONTEXT, 15, 1) &&
 143         odr_implicit(o, z_InternationalString, &(*p)->termsUseRepro,
 144             ODR_CONTEXT, 16, 1) &&
 145         odr_implicit(o, z_InternationalString, &(*p)->enumAndChron,
 146             ODR_CONTEXT, 17, 1) &&
 147         odr_implicit_settag(o, ODR_CONTEXT, 18) &&
 148         (odr_sequence_of(o, (Odr_fun)z_Volume, &(*p)->volumes, &(*p)->num_volumes) ||
 149             odr_ok(o)) &&
 150         odr_implicit_settag(o, ODR_CONTEXT, 19) &&
 151         (odr_sequence_of(o, (Odr_fun)z_CircRecord, &(*p)->circulationData,
 152             &(*p)->num_circulationData) || odr_ok(o)) &&
 153         odr_sequence_end(o);
 154 }
 155
 156 int z_HoldingsRecord(ODR o, Z_HoldingsRecord **p, int opt)
 157 {
 158     static Odr_arm arm[] =
 159     {
 160         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_HoldingsRecord_marcHoldingsRecord,
 161             (Odr_fun)z_External},
 162         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_HoldingsRecord_holdingsAndCirc,
 163             (Odr_fun)z_HoldingsAndCircData},
 164         {-1, -1, -1, -1, 0}
 165     };
 166
 167     if (!odr_initmember(o, p, sizeof(**p)))
 168         return opt && odr_ok(o);
 169     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 170         return 1;
 171     *p = 0;
 172     return opt && odr_ok(o);
 173 }
 174
 175 int z_OPACRecord(ODR o, Z_OPACRecord **p, int opt)
 176 {
 177     if (!odr_sequence_begin(o, p, sizeof(**p)))
 178         return opt && odr_ok(o);
 179     return
 180         odr_implicit(o, z_External, &(*p)->bibliographicRecord,
 181             ODR_CONTEXT, 1, 1) &&
 182         odr_implicit_settag(o, ODR_CONTEXT, 2) &&
 183         (odr_sequence_of(o, (Odr_fun)z_HoldingsRecord, &(*p)->holdingsData,
 184             &(*p)->num_holdingsData) || odr_ok(o)) &&
 185         odr_sequence_end(o);
 186 }