asn/prt-acc.c

   1 /*
   2  * Copyright (c) 1995-1998, Index Data.
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: prt-acc.c,v $
   7  * Revision 1.6  1998-01-05 09:04:57  adam
   8  * Fixed bugs in encoders/decoders - Not operator (!) missing.
   9  *
  10  * Revision 1.5  1995/09/29 17:11:53  quinn
  11  * Smallish
  12  *
  13  * Revision 1.4  1995/09/27  15:02:41  quinn
  14  * Modified function heads & prototypes.
  15  *
  16  * Revision 1.3  1995/08/15  11:59:41  quinn
  17  * Updated External
  18  *
  19  * Revision 1.2  1995/06/05  10:52:05  quinn
  20  * Fixed some negligences.
  21  *
  22  * Revision 1.1  1995/06/02  09:49:15  quinn
  23  * Adding access control
  24  *
  25  *
  26  */
  27
  28 #include <proto.h>
  29
  30 int z_Encryption1(ODR o, Z_Encryption1 **p, int opt)
  31 {
  32     if (!odr_sequence_begin(o, p, sizeof(**p)))
  33         return opt && odr_ok(o);
  34     return
  35         odr_implicit(o, odr_octetstring, &(*p)->cryptType, ODR_CONTEXT, 1, 1) &&
  36         odr_implicit(o, odr_octetstring, &(*p)->credential, ODR_CONTEXT, 2,
  37             1) &&
  38         odr_implicit(o, odr_octetstring, &(*p)->data, ODR_CONTEXT, 3, 0) &&
  39         odr_sequence_end(o);
  40 }
  41
  42 int z_EnumeratedPrompt1(ODR o, Z_EnumeratedPrompt1 **p, int opt)
  43 {
  44     if (!odr_sequence_begin(o, p, sizeof(**p)))
  45         return opt && odr_ok(o);
  46     return
  47         odr_implicit(o, odr_integer, &(*p)->type, ODR_CONTEXT, 1, 0) &&
  48         odr_implicit(o, odr_visiblestring, &(*p)->suggestedString, ODR_CONTEXT,
  49             2, 1) &&
  50         odr_sequence_end(o);
  51 }
  52
  53 int z_PromptId1(ODR o, Z_PromptId1 **p, int opt)
  54 {
  55     static Odr_arm arm[] =
  56     {
  57         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_PromptId1_enumeratedPrompt,
  58             z_EnumeratedPrompt1},
  59         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_PromptId1_nonEnumeratedPrompt,
  60             odr_visiblestring},
  61         {-1, -1, -1, -1, 0}
  62     };
  63
  64     if (o->direction == ODR_DECODE)
  65         *p = odr_malloc(o, sizeof(**p));
  66     else if (!*p)
  67         return opt;
  68     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
  69         return 1;
  70     *p = 0;
  71     return opt && odr_ok(o);
  72 }
  73
  74 int z_PromptInfo1(ODR o, Z_PromptInfo1 **p, int opt)
  75 {
  76     static Odr_arm arm[] =
  77     {
  78         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Challenge1_character,
  79             odr_visiblestring},
  80         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Challenge1_encrypted,
  81             z_Encryption1},
  82         {-1, -1, -1, -1, 0}
  83     };
  84
  85     if (o->direction == ODR_DECODE)
  86         *p = odr_malloc(o, sizeof(**p));
  87     else if (!*p)
  88         return opt;
  89     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
  90         return 1;
  91     *p = 0;
  92     return opt && odr_ok(o);
  93 }
  94
  95 int z_ChallengeUnit1(ODR o, Z_ChallengeUnit1 **p, int opt)
  96 {
  97     if (!odr_sequence_begin(o, p, sizeof(**p)))
  98         return opt && odr_ok(o);
  99     return
 100         odr_explicit(o, z_PromptId1, &(*p)->promptId, ODR_CONTEXT, 1, 0) &&
 101         odr_implicit(o, odr_visiblestring, &(*p)->defaultResponse, ODR_CONTEXT,
 102             2, 1) &&
 103         odr_explicit(o, z_PromptInfo1, &(*p)->promptInfo, ODR_CONTEXT, 3, 1) &&
 104         odr_implicit(o, odr_visiblestring, &(*p)->regExpr, ODR_CONTEXT, 4, 1) &&
 105         odr_implicit(o, odr_null, &(*p)->responseRequired, ODR_CONTEXT, 5, 1) &&
 106         odr_implicit_settag(o, ODR_CONTEXT, 6) &&
 107         (odr_sequence_of(o, odr_visiblestring, &(*p)->allowedValues,
 108             &(*p)->num_values) || odr_ok(o)) &&
 109         odr_implicit(o, odr_null, &(*p)->shouldSave, ODR_CONTEXT, 7, 1) &&
 110         odr_implicit(o, odr_integer, &(*p)->dataType, ODR_CONTEXT, 8, 1) &&
 111         odr_implicit(o, z_External, &(*p)->diagnostic, ODR_CONTEXT, 9, 1) &&
 112         odr_sequence_end(o);
 113 }
 114
 115 int z_Challenge1(ODR o, Z_Challenge1 **p, int opt)
 116 {
 117     if (o->direction == ODR_ENCODE)
 118         *p = odr_malloc(o, sizeof(**p));
 119     else if (!*p)
 120         return opt;
 121     if (odr_sequence_of(o, z_ChallengeUnit1, &(*p)->list,
 122         &(*p)->num_challenges))
 123         return 1;
 124     *p = 0;
 125     return opt && odr_ok(o);
 126 }
 127
 128 int z_DiagRec(ODR, Z_DiagRec **, int);
 129
 130 int z_ResponseUnit1(ODR o, Z_ResponseUnit1 **p, int opt)
 131 {
 132     static Odr_arm arm[] =
 133     {
 134         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Response1_string, odr_visiblestring},
 135         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Response1_accept, odr_bool},
 136         {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_Response1_acknowledge, odr_null},
 137         {ODR_EXPLICIT, ODR_CONTEXT, 4, Z_Response1_diagnostic, z_DiagRec},
 138         {ODR_IMPLICIT, ODR_CONTEXT, 5, Z_Response1_encrypted, z_Encryption1},
 139         {-1, -1, -1, -1, 0}
 140     };
 141
 142     if (!odr_sequence_begin(o, p, sizeof(**p)))
 143         return opt && odr_ok(o);
 144     return
 145         odr_explicit(o, z_PromptId1, &(*p)->promptId, ODR_CONTEXT, 1, 0) &&
 146         odr_constructed_begin(o, p, ODR_CONTEXT, 2) &&
 147         odr_choice(o, arm, &(*p)->u, &(*p)->which) &&
 148         odr_constructed_end(o) &&
 149         odr_sequence_end(o);
 150 }
 151
 152 int z_Response1(ODR o, Z_Response1 **p, int opt)
 153 {
 154     if (o->direction == ODR_ENCODE)
 155         *p = odr_malloc(o, sizeof(**p));
 156     else if (!*p)
 157         return opt;
 158     if (odr_sequence_of(o, z_ResponseUnit1, &(*p)->list,
 159         &(*p)->num_responses))
 160         return 1;
 161     *p = 0;
 162     return opt && odr_ok(o);
 163 }
 164
 165 int z_PromptObject1(ODR o, Z_PromptObject1 **p, int opt)
 166 {
 167     static Odr_arm arm[] =
 168     {
 169         {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_PromptObject1_challenge, z_Challenge1},
 170         {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_PromptObject1_response, z_Response1},
 171         {-1, -1, -1, -1, 0}
 172     };
 173
 174     if (o->direction == ODR_DECODE)
 175         *p = odr_malloc(o, sizeof(**p));
 176     else if (!*p)
 177         return opt;
 178     if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
 179         return 1;
 180     *p = 0;
 181     return opt && odr_ok(o);
 182 }