asn/prt-acc.c

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