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