Constify version strings and some structures.
[openssl.git] / crypto / x509v3 / v3_crld.c
index c0b63ee23cdf1dc60d7e83f53604e6987ff77f82..26a26d18547a7361d5bee09a0b9b32d04b1e4763 100644 (file)
@@ -3,7 +3,7 @@
  * project 1999.
  */
 /* ====================================================================
- * Copyright (c) 1999 The OpenSSL Project.  All rights reserved.
+ * Copyright (c) 1999, 2005 The OpenSSL Project.  All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
 
 #include <stdio.h>
 #include "cryptlib.h"
-#include "conf.h"
-#include "asn1.h"
-#include "asn1_mac.h"
-#include "x509v3.h"
-
-static STACK *i2v_crld(X509V3_EXT_METHOD *method, STACK_OF(DIST_POINT) *crld,
-                                                        STACK *extlist);
-static STACK_OF(DIST_POINT) *v2i_crld(X509V3_EXT_METHOD *method,
-                                                X509V3_CTX *ctx, STACK *nval);
-
-X509V3_EXT_METHOD v3_crld = {
-NID_crl_distribution_points, X509V3_EXT_MULTILINE,
-(X509V3_EXT_NEW)CRL_DIST_POINTS_new,
-CRL_DIST_POINTS_free,
-(X509V3_EXT_D2I)d2i_CRL_DIST_POINTS,
-i2d_CRL_DIST_POINTS,
-NULL, NULL,
-(X509V3_EXT_I2V)i2v_crld,
-(X509V3_EXT_V2I)v2i_crld,
-NULL, NULL, NULL
+#include <openssl/conf.h>
+#include <openssl/asn1.h>
+#include <openssl/asn1t.h>
+#include <openssl/x509v3.h>
+
+static void *v2i_crld(X509V3_EXT_METHOD *method,
+                               X509V3_CTX *ctx, STACK_OF(CONF_VALUE) *nval);
+static int i2r_crldp(X509V3_EXT_METHOD *method, void *pcrldp, BIO *out,
+                                                               int indent);
+
+const X509V3_EXT_METHOD v3_crld =
+       {
+       NID_crl_distribution_points, 0, ASN1_ITEM_ref(CRL_DIST_POINTS),
+       0,0,0,0,
+       0,0,
+       0,
+       v2i_crld,
+       i2r_crldp,0,
+       NULL
+       };
+
+static STACK_OF(GENERAL_NAME) *gnames_from_sectname(X509V3_CTX *ctx, char *sect)
+       {
+       STACK_OF(CONF_VALUE) *gnsect;
+       STACK_OF(GENERAL_NAME) *gens;
+       if (*sect == '@')
+               gnsect = X509V3_get_section(ctx, sect + 1);
+       else
+               gnsect = X509V3_parse_list(sect);
+       if (!gnsect)
+               {
+               X509V3err(X509V3_F_GNAMES_FROM_SECTNAME,
+                                               X509V3_R_SECTION_NOT_FOUND);
+               return NULL;
+               }
+       gens = v2i_GENERAL_NAMES(NULL, ctx, gnsect);
+       if (*sect == '@')
+               X509V3_section_free(ctx, gnsect);
+       else
+               sk_CONF_VALUE_pop_free(gnsect, X509V3_conf_free);
+       return gens;
+       }
+
+static int set_dist_point_name(DIST_POINT_NAME **pdp, X509V3_CTX *ctx,
+                                                       CONF_VALUE *cnf)
+       {
+       STACK_OF(GENERAL_NAME) *fnm = NULL;
+       STACK_OF(X509_NAME_ENTRY) *rnm = NULL;
+       if (!strncmp(cnf->name, "fullname", 9))
+               {
+               fnm = gnames_from_sectname(ctx, cnf->value);
+               if (!fnm)
+                       goto err;
+               }
+       else if (!strcmp(cnf->name, "relativename"))
+               {
+               int ret;
+               STACK_OF(CONF_VALUE) *dnsect;
+               X509_NAME *nm;
+               nm = X509_NAME_new();
+               if (!nm)
+                       return -1;
+               dnsect = X509V3_get_section(ctx, cnf->value);
+               if (!dnsect)
+                       {
+                       X509V3err(X509V3_F_SET_DIST_POINT_NAME,
+                                               X509V3_R_SECTION_NOT_FOUND);
+                       return -1;
+                       }
+               ret = X509V3_NAME_from_section(nm, dnsect, MBSTRING_ASC);
+               X509V3_section_free(ctx, dnsect);
+               rnm = nm->entries;
+               nm->entries = NULL;
+               X509_NAME_free(nm);
+               if (!ret || sk_X509_NAME_ENTRY_num(rnm) <= 0)
+                       goto err;
+               /* Since its a name fragment can't have more than one
+                * RDNSequence
+                */
+               if (sk_X509_NAME_ENTRY_value(rnm,
+                               sk_X509_NAME_ENTRY_num(rnm) - 1)->set)
+                       {
+                       X509V3err(X509V3_F_SET_DIST_POINT_NAME,
+                                               X509V3_R_INVAID_MULTIPLE_RDNS);
+                       goto err;
+                       }
+               }
+       else
+               return 0;
+
+       if (*pdp)
+               {
+               X509V3err(X509V3_F_SET_DIST_POINT_NAME,
+                                               X509V3_R_DISTPOINT_ALREADY_SET);
+               goto err;
+               }
+
+       *pdp = DIST_POINT_NAME_new();
+       if (!*pdp)
+               goto err;
+       if (fnm)
+               {
+               (*pdp)->type = 0;
+               (*pdp)->name.fullname = fnm;
+               }
+       else
+               {
+               (*pdp)->type = 1;
+               (*pdp)->name.relativename = rnm;
+               }
+
+       return 1;
+               
+       err:
+       if (fnm)
+               sk_GENERAL_NAME_pop_free(fnm, GENERAL_NAME_free);
+       if (rnm)
+               sk_X509_NAME_ENTRY_pop_free(rnm, X509_NAME_ENTRY_free);
+       return -1;
+       }
+
+static const BIT_STRING_BITNAME reason_flags[] = {
+{1, "Key Compromise", "keyCompromise"},
+{2, "CA Compromise", "CACompromise"},
+{3, "Affiliation Changed", "affiliationChanged"},
+{4, "Superseded", "superseded"},
+{5, "Cessation Of Operation", "cessationOfOperation"},
+{6, "Certificate Hold", "certificateHold"},
+{7, "Privilege Withdrawn", "privilegeWithdrawn"},
+{8, "AA Compromise", "AACompromise"},
+{-1, NULL, NULL}
 };
 
-/*
- * ASN1err(ASN1_F_DIST_POINT_NEW,ERR_R_MALLOC_FAILURE);
- * ASN1err(ASN1_F_D2I_DIST_POINT,ERR_R_MALLOC_FAILURE);
- * ASN1err(ASN1_F_DIST_POINT_NAME_NEW,ERR_R_MALLOC_FAILURE);
- * ASN1err(ASN1_F_D2I_DIST_POINT_NAME,ERR_R_MALLOC_FAILURE);
- */
+static int set_reasons(ASN1_BIT_STRING **preas, char *value)
+       {
+       STACK_OF(CONF_VALUE) *rsk = NULL;
+       const BIT_STRING_BITNAME *pbn;
+       const char *bnam;
+       int i, ret = 0;
+       rsk = X509V3_parse_list(value);
+       if (!rsk)
+               return 0;
+       if (*preas)
+               return 0;
+       for (i = 0; i < sk_CONF_VALUE_num(rsk); i++)
+               {
+               bnam = sk_CONF_VALUE_value(rsk, i)->name;
+               if (!*preas)
+                       {
+                       *preas = ASN1_BIT_STRING_new();
+                       if (!*preas)
+                               goto err;
+                       }
+               for (pbn = reason_flags; pbn->lname; pbn++)
+                       {
+                       if (!strcmp(pbn->sname, bnam))
+                               {
+                               if (!ASN1_BIT_STRING_set_bit(*preas,
+                                                       pbn->bitnum, 1))
+                                       goto err;
+                               break;
+                               }
+                       }
+               if (!pbn->lname)
+                       goto err;
+               }
+       ret = 1;
 
-static STACK *i2v_crld(X509V3_EXT_METHOD *method, STACK_OF(DIST_POINT) *crld,
-                                                                STACK *exts)
-{
-       DIST_POINT *point;
+       err:
+       sk_CONF_VALUE_pop_free(rsk, X509V3_conf_free);
+       return ret;
+       }
+
+static int print_reasons(BIO *out, const char *rname,
+                       ASN1_BIT_STRING *rflags, int indent)
+       {
+       int first = 1;
+       const BIT_STRING_BITNAME *pbn;
+       BIO_printf(out, "%*s%s:\n%*s", indent, "", rname, indent + 2, "");
+       for (pbn = reason_flags; pbn->lname; pbn++)
+               {
+               if (ASN1_BIT_STRING_get_bit(rflags, pbn->bitnum))
+                       {
+                       if (first)
+                               first = 0;
+                       else
+                               BIO_puts(out, ", ");
+                       BIO_puts(out, pbn->lname);
+                       }
+               }
+       if (first)
+               BIO_puts(out, "<EMPTY>\n");
+       else
+               BIO_puts(out, "\n");
+       return 1;
+       }
+
+static DIST_POINT *crldp_from_section(X509V3_CTX *ctx,
+                                               STACK_OF(CONF_VALUE) *nval)
+       {
        int i;
-       for(i = 0; i < sk_DIST_POINT_num(crld); i++) {
-               point = sk_DIST_POINT_value(crld, i);
-               if(point->distpoint->fullname) {
-                       exts = i2v_GENERAL_NAMES(NULL,
-                                        point->distpoint->fullname, exts);
+       CONF_VALUE *cnf;
+       DIST_POINT *point = NULL;
+       point = DIST_POINT_new();
+       if (!point)
+               goto err;
+       for(i = 0; i < sk_CONF_VALUE_num(nval); i++)
+               {
+               int ret;
+               cnf = sk_CONF_VALUE_value(nval, i);
+               ret = set_dist_point_name(&point->distpoint, ctx, cnf);
+               if (ret > 0)
+                       continue;
+               if (ret < 0)
+                       goto err;
+               if (!strcmp(cnf->name, "reasons"))
+                       {
+                       if (!set_reasons(&point->reasons, cnf->value))
+                               goto err;
+                       }
+               else if (!strcmp(cnf->name, "CRLissuer"))
+                       {
+                       point->CRLissuer =
+                               gnames_from_sectname(ctx, cnf->value);
+                       if (!point->CRLissuer)
+                               goto err;
+                       }
                }
-               if(point->reasons) 
-                       X509V3_add_value("reasons","<UNSUPPORTED>", &exts);
-               if(point->CRLissuer)
-                       X509V3_add_value("CRLissuer","<UNSUPPORTED>", &exts);
-               if(point->distpoint->relativename)
-                       X509V3_add_value("RelativeName","<UNSUPPORTED>", &exts);
+
+       return point;
+                       
+
+       err:
+       if (point)
+               DIST_POINT_free(point);
+       return NULL;
        }
-       return exts;
-}
 
-static STACK_OF(DIST_POINT) *v2i_crld(X509V3_EXT_METHOD *method,
-                                                X509V3_CTX *ctx, STACK *nval)
-{
+static void *v2i_crld(X509V3_EXT_METHOD *method,
+                               X509V3_CTX *ctx, STACK_OF(CONF_VALUE) *nval)
+       {
        STACK_OF(DIST_POINT) *crld = NULL;
-       STACK_OF(GENERAL_NAME) *gens = NULL;
+       GENERAL_NAMES *gens = NULL;
        GENERAL_NAME *gen = NULL;
        CONF_VALUE *cnf;
        int i;
-       if(!(crld = sk_DIST_POINT_new(NULL))) goto merr;
-       for(i = 0; i < sk_num(nval); i++) {
+       if(!(crld = sk_DIST_POINT_new_null())) goto merr;
+       for(i = 0; i < sk_CONF_VALUE_num(nval); i++) {
                DIST_POINT *point;
-               cnf = (CONF_VALUE *)sk_value(nval, i);
-               if(!(gen = v2i_GENERAL_NAME(method, ctx, cnf))) goto err; 
-               if(!(gens = GENERAL_NAMES_new())) goto merr;
-               if(!sk_GENERAL_NAME_push(gens, gen)) goto merr;
-               gen = NULL;
-               if(!(point = DIST_POINT_new())) goto merr;
-               if(!sk_DIST_POINT_push(crld, point)) {
-                       DIST_POINT_free(point);
-                       goto merr;
-               }
-               if(!(point->distpoint = DIST_POINT_NAME_new())) goto merr;
-               point->distpoint->fullname = gens;
-               gens = NULL;
+               cnf = sk_CONF_VALUE_value(nval, i);
+               if (!cnf->value)
+                       {
+                       STACK_OF(CONF_VALUE) *dpsect;
+                       dpsect = X509V3_get_section(ctx, cnf->name);
+                       if (!dpsect)
+                               goto err;
+                       point = crldp_from_section(ctx, dpsect);
+                       X509V3_section_free(ctx, dpsect);
+                       if (!point)
+                               goto err;
+                       if(!sk_DIST_POINT_push(crld, point))
+                               {
+                               DIST_POINT_free(point);
+                               goto merr;
+                               }
+                       }
+               else
+                       {
+                       if(!(gen = v2i_GENERAL_NAME(method, ctx, cnf)))
+                               goto err; 
+                       if(!(gens = GENERAL_NAMES_new()))
+                               goto merr;
+                       if(!sk_GENERAL_NAME_push(gens, gen))
+                               goto merr;
+                       gen = NULL;
+                       if(!(point = DIST_POINT_new()))
+                               goto merr;
+                       if(!sk_DIST_POINT_push(crld, point))
+                               {
+                               DIST_POINT_free(point);
+                               goto merr;
+                               }
+                       if(!(point->distpoint = DIST_POINT_NAME_new()))
+                               goto merr;
+                       point->distpoint->name.fullname = gens;
+                       point->distpoint->type = 0;
+                       gens = NULL;
+                       }
        }
        return crld;
 
@@ -144,147 +358,195 @@ static STACK_OF(DIST_POINT) *v2i_crld(X509V3_EXT_METHOD *method,
        return NULL;
 }
 
-int i2d_CRL_DIST_POINTS(STACK_OF(DIST_POINT) *a, unsigned char **pp)
-{
+IMPLEMENT_STACK_OF(DIST_POINT)
+IMPLEMENT_ASN1_SET_OF(DIST_POINT)
 
-return i2d_ASN1_SET_OF_DIST_POINT(a, pp, i2d_DIST_POINT, V_ASN1_SEQUENCE,
-                                                 V_ASN1_UNIVERSAL, IS_SEQUENCE);}
 
-STACK_OF(DIST_POINT) *CRL_DIST_POINTS_new(void)
-{
-       return sk_DIST_POINT_new_null();
-}
+ASN1_CHOICE(DIST_POINT_NAME) = {
+       ASN1_IMP_SEQUENCE_OF(DIST_POINT_NAME, name.fullname, GENERAL_NAME, 0),
+       ASN1_IMP_SET_OF(DIST_POINT_NAME, name.relativename, X509_NAME_ENTRY, 1)
+} ASN1_CHOICE_END(DIST_POINT_NAME)
 
-void CRL_DIST_POINTS_free(STACK_OF(DIST_POINT) *a)
-{
-       sk_DIST_POINT_pop_free(a, DIST_POINT_free);
-}
+IMPLEMENT_ASN1_FUNCTIONS(DIST_POINT_NAME)
 
-STACK_OF(DIST_POINT) *d2i_CRL_DIST_POINTS(STACK_OF(DIST_POINT) **a,
-               unsigned char **pp,long length)
-{
-return d2i_ASN1_SET_OF_DIST_POINT(a, pp, length, d2i_DIST_POINT,
-                         DIST_POINT_free, V_ASN1_SEQUENCE, V_ASN1_UNIVERSAL);
+ASN1_SEQUENCE(DIST_POINT) = {
+       ASN1_EXP_OPT(DIST_POINT, distpoint, DIST_POINT_NAME, 0),
+       ASN1_IMP_OPT(DIST_POINT, reasons, ASN1_BIT_STRING, 1),
+       ASN1_IMP_SEQUENCE_OF_OPT(DIST_POINT, CRLissuer, GENERAL_NAME, 2)
+} ASN1_SEQUENCE_END(DIST_POINT)
 
-}
+IMPLEMENT_ASN1_FUNCTIONS(DIST_POINT)
 
-IMPLEMENT_STACK_OF(DIST_POINT)
-IMPLEMENT_ASN1_SET_OF(DIST_POINT)
+ASN1_ITEM_TEMPLATE(CRL_DIST_POINTS) = 
+       ASN1_EX_TEMPLATE_TYPE(ASN1_TFLG_SEQUENCE_OF, 0, CRLDistributionPoints, DIST_POINT)
+ASN1_ITEM_TEMPLATE_END(CRL_DIST_POINTS)
 
-int i2d_DIST_POINT(DIST_POINT *a, unsigned char **pp)
-{
-       int v = 0;
-       M_ASN1_I2D_vars(a);
-       /* NB: underlying type is a CHOICE so need EXPLICIT tagging */
-       M_ASN1_I2D_len_EXP_opt (a->distpoint, i2d_DIST_POINT_NAME, 0, v);
-       M_ASN1_I2D_len_IMP_opt (a->reasons, i2d_ASN1_BIT_STRING);
-       M_ASN1_I2D_len_IMP_opt (a->CRLissuer, i2d_GENERAL_NAMES);
+IMPLEMENT_ASN1_FUNCTIONS(CRL_DIST_POINTS)
 
-       M_ASN1_I2D_seq_total();
+ASN1_SEQUENCE(ISSUING_DIST_POINT) = {
+       ASN1_EXP_OPT(ISSUING_DIST_POINT, distpoint, DIST_POINT_NAME, 0),
+       ASN1_IMP_OPT(ISSUING_DIST_POINT, onlyuser, ASN1_FBOOLEAN, 1),
+       ASN1_IMP_OPT(ISSUING_DIST_POINT, onlyCA, ASN1_FBOOLEAN, 2),
+       ASN1_IMP_OPT(ISSUING_DIST_POINT, onlysomereasons, ASN1_BIT_STRING, 3),
+       ASN1_IMP_OPT(ISSUING_DIST_POINT, indirectCRL, ASN1_FBOOLEAN, 4),
+       ASN1_IMP_OPT(ISSUING_DIST_POINT, onlyattr, ASN1_FBOOLEAN, 5)
+} ASN1_SEQUENCE_END(ISSUING_DIST_POINT)
 
-       M_ASN1_I2D_put_EXP_opt (a->distpoint, i2d_DIST_POINT_NAME, 0, v);
-       M_ASN1_I2D_put_IMP_opt (a->reasons, i2d_ASN1_BIT_STRING, 1);
-       M_ASN1_I2D_put_IMP_opt (a->CRLissuer, i2d_GENERAL_NAMES, 2);
+IMPLEMENT_ASN1_FUNCTIONS(ISSUING_DIST_POINT)
 
-       M_ASN1_I2D_finish();
-}
+static int i2r_idp(X509V3_EXT_METHOD *method,
+            void *pidp, BIO *out, int indent);
+static void *v2i_idp(X509V3_EXT_METHOD *method,
+                               X509V3_CTX *ctx, STACK_OF(CONF_VALUE) *nval);
 
-DIST_POINT *DIST_POINT_new(void)
-{
-       DIST_POINT *ret=NULL;
-       ASN1_CTX c;
-       M_ASN1_New_Malloc(ret, DIST_POINT);
-       ret->distpoint = NULL;
-       ret->reasons = NULL;
-       ret->CRLissuer = NULL;
-       return (ret);
-       M_ASN1_New_Error(ASN1_F_DIST_POINT_NEW);
-}
+const X509V3_EXT_METHOD v3_idp =
+       {
+       NID_issuing_distribution_point, X509V3_EXT_MULTILINE,
+       ASN1_ITEM_ref(ISSUING_DIST_POINT),
+       0,0,0,0,
+       0,0,
+       0,
+       v2i_idp,
+       i2r_idp,0,
+       NULL
+       };
 
-DIST_POINT *d2i_DIST_POINT(DIST_POINT **a, unsigned char **pp, long length)
-{
-       M_ASN1_D2I_vars(a,DIST_POINT *,DIST_POINT_new);
-       M_ASN1_D2I_Init();
-       M_ASN1_D2I_start_sequence();
-       M_ASN1_D2I_get_EXP_opt (ret->distpoint, d2i_DIST_POINT_NAME, 0);
-       M_ASN1_D2I_get_IMP_opt (ret->reasons, d2i_ASN1_BIT_STRING, 1,
-                                                       V_ASN1_BIT_STRING);
-       M_ASN1_D2I_get_IMP_opt (ret->CRLissuer, d2i_GENERAL_NAMES, 2,
-                                                       V_ASN1_SEQUENCE);
-       M_ASN1_D2I_Finish(a, DIST_POINT_free, ASN1_F_D2I_DIST_POINT);
-}
-
-void DIST_POINT_free(DIST_POINT *a)
-{
-       if (a == NULL) return;
-       DIST_POINT_NAME_free(a->distpoint);
-       ASN1_BIT_STRING_free(a->reasons);
-       sk_GENERAL_NAME_pop_free(a->CRLissuer, GENERAL_NAME_free);
-       Free ((char *)a);
-}
-
-int i2d_DIST_POINT_NAME(DIST_POINT_NAME *a, unsigned char **pp)
-{
-       int v = 0;
-       M_ASN1_I2D_vars(a);
+static void *v2i_idp(X509V3_EXT_METHOD *method,
+                               X509V3_CTX *ctx, STACK_OF(CONF_VALUE) *nval)
+       {
+       ISSUING_DIST_POINT *idp = NULL;
+       CONF_VALUE *cnf;
+       char *name, *val;
+       int i, ret;
+       idp = ISSUING_DIST_POINT_new();
+       if (!idp)
+               goto merr;
+       for(i = 0; i < sk_CONF_VALUE_num(nval); i++)
+               {
+               cnf = sk_CONF_VALUE_value(nval, i);
+               name = cnf->name;
+               val = cnf->value;
+               ret = set_dist_point_name(&idp->distpoint, ctx, cnf);
+               if (ret > 0)
+                       continue;
+               if (ret < 0)
+                       goto err;
+               if (!strcmp(name, "onlyuser"))
+                       {
+                       if (!X509V3_get_value_bool(cnf, &idp->onlyuser))
+                               goto err;
+                       }
+               else if (!strcmp(name, "onlyCA"))
+                       {
+                       if (!X509V3_get_value_bool(cnf, &idp->onlyCA))
+                               goto err;
+                       }
+               else if (!strcmp(name, "onlyAA"))
+                       {
+                       if (!X509V3_get_value_bool(cnf, &idp->onlyattr))
+                               goto err;
+                       }
+               else if (!strcmp(name, "indirectCRL"))
+                       {
+                       if (!X509V3_get_value_bool(cnf, &idp->indirectCRL))
+                               goto err;
+                       }
+               else if (!strcmp(name, "onlysomereasons"))
+                       {
+                       if (!set_reasons(&idp->onlysomereasons, val))
+                               goto err;
+                       }
+               else
+                       {
+                        X509V3err(X509V3_F_V2I_IDP, X509V3_R_INVALID_NAME);
+                        X509V3_conf_err(cnf);
+                        goto err;
+                       }
+               }
+       return idp;
 
-       if(a->fullname) {
-               M_ASN1_I2D_len_IMP_opt (a->fullname, i2d_GENERAL_NAMES);
-       } else {
-               M_ASN1_I2D_len_EXP_opt (a->relativename, i2d_X509_NAME, 1, v);
+       merr:
+       X509V3err(X509V3_F_V2I_IDP,ERR_R_MALLOC_FAILURE);
+       err:
+       ISSUING_DIST_POINT_free(idp);
+       return NULL;
        }
 
-       /* Don't want a SEQUENCE so... */
-       if(pp == NULL) return ret;
-       p = *pp;
-
-       if(a->fullname) {
-               M_ASN1_I2D_put_IMP_opt (a->fullname, i2d_GENERAL_NAMES, 0);
-       } else {
-               M_ASN1_I2D_put_EXP_opt (a->relativename, i2d_X509_NAME, 1, v);
+static int print_gens(BIO *out, STACK_OF(GENERAL_NAME) *gens, int indent)
+       {
+       int i;
+       for (i = 0; i < sk_GENERAL_NAME_num(gens); i++)
+               {
+               BIO_printf(out, "%*s", indent + 2, "");
+               GENERAL_NAME_print(out, sk_GENERAL_NAME_value(gens, i));
+               BIO_puts(out, "\n");
+               }
+       return 1;
        }
-       M_ASN1_I2D_finish();
-}
-
-DIST_POINT_NAME *DIST_POINT_NAME_new(void)
-{
-       DIST_POINT_NAME *ret=NULL;
-       ASN1_CTX c;
-       M_ASN1_New_Malloc(ret, DIST_POINT_NAME);
-       ret->fullname = NULL;
-       ret->relativename = NULL;
-       return (ret);
-       M_ASN1_New_Error(ASN1_F_DIST_POINT_NAME_NEW);
-}
 
-void DIST_POINT_NAME_free(DIST_POINT_NAME *a)
-{
-       if (a == NULL) return;
-       X509_NAME_free(a->relativename);
-       sk_GENERAL_NAME_pop_free(a->fullname, GENERAL_NAME_free);
-       Free ((char *)a);
-}
+static int print_distpoint(BIO *out, DIST_POINT_NAME *dpn, int indent)
+       {
+       if (dpn->type == 0)
+               {
+               BIO_printf(out, "%*sFull Name:\n", indent, "");
+               print_gens(out, dpn->name.fullname, indent);
+               }
+       else
+               {
+               X509_NAME ntmp;
+               ntmp.entries = dpn->name.relativename;
+               BIO_printf(out, "%*sRelative Name:\n%*s",
+                                               indent, "", indent + 2, "");
+               X509_NAME_print_ex(out, &ntmp, 0, XN_FLAG_ONELINE);
+               BIO_puts(out, "\n");
+               }
+       return 1;
+       }
 
-DIST_POINT_NAME *d2i_DIST_POINT_NAME(DIST_POINT_NAME **a, unsigned char **pp,
-            long length)
-{
-        unsigned char _tmp, tag;
-        M_ASN1_D2I_vars(a,DIST_POINT_NAME *,DIST_POINT_NAME_new);
-        M_ASN1_D2I_Init();
-        c.slen = length;
-
-        _tmp = M_ASN1_next;
-        tag = _tmp & ~V_ASN1_CONSTRUCTED;
-       
-       if(tag == (0|V_ASN1_CONTEXT_SPECIFIC)) {
-               M_ASN1_D2I_get_imp(ret->fullname, d2i_GENERAL_NAMES,
-                                                       V_ASN1_SEQUENCE);
-       } else if (tag == (1|V_ASN1_CONTEXT_SPECIFIC)) {
-               M_ASN1_D2I_get_EXP_opt (ret->relativename, d2i_X509_NAME, 1);
-       } else {
-               c.error = ASN1_R_BAD_TAG;
-               goto err;
+static int i2r_idp(X509V3_EXT_METHOD *method, void *pidp, BIO *out, int indent)
+       {
+       ISSUING_DIST_POINT *idp = pidp;
+       if (idp->distpoint)
+               print_distpoint(out, idp->distpoint, indent);
+       if (idp->onlyuser > 0)
+               BIO_printf(out, "%*sOnly User Certificates\n", indent, "");
+       if (idp->onlyCA > 0)
+               BIO_printf(out, "%*sOnly CA Certificates\n", indent, "");
+       if (idp->indirectCRL > 0)
+               BIO_printf(out, "%*sIndirect CRL\n", indent, "");
+       if (idp->onlysomereasons)
+               print_reasons(out, "Only Some Reasons", 
+                               idp->onlysomereasons, indent);
+       if (idp->onlyattr > 0)
+               BIO_printf(out, "%*sOnly Attribute Certificates\n", indent, "");
+       if (!idp->distpoint && (idp->onlyuser <= 0) && (idp->onlyCA <= 0)
+               && (idp->indirectCRL <= 0) && !idp->onlysomereasons
+               && (idp->onlyattr <= 0))
+               BIO_printf(out, "%*s<EMPTY>\n", indent, "");
+               
+       return 1;
        }
 
-       M_ASN1_D2I_Finish(a, DIST_POINT_NAME_free, ASN1_F_D2I_DIST_POINT_NAME);
-}
+static int i2r_crldp(X509V3_EXT_METHOD *method, void *pcrldp, BIO *out,
+                                                               int indent)
+       {
+       STACK_OF(DIST_POINT) *crld = pcrldp;
+       DIST_POINT *point;
+       int i;
+       for(i = 0; i < sk_DIST_POINT_num(crld); i++)
+               {
+               BIO_puts(out, "\n");
+               point = sk_DIST_POINT_value(crld, i);
+               if(point->distpoint)
+                       print_distpoint(out, point->distpoint, indent);
+               if(point->reasons) 
+                       print_reasons(out, "Reasons", point->reasons,
+                                                               indent);
+               if(point->CRLissuer)
+                       {
+                       BIO_printf(out, "%*sCRL Issuer:\n", indent, "");
+                       print_gens(out, point->CRLissuer, indent);
+                       }
+               }
+       return 1;
+       }