[efi-boot-shim.git] / Cryptlib / OpenSSL / crypto / asn1 / tasn_new.c

/* tasn_new.c */
/*
 * Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL project
 * 2000.
 */
/* ====================================================================
 * Copyright (c) 2000-2004 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
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * 3. All advertising materials mentioning features or use of this
 *    software must display the following acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
 *
 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
 *    endorse or promote products derived from this software without
 *    prior written permission. For written permission, please contact
 *    licensing@OpenSSL.org.
 *
 * 5. Products derived from this software may not be called "OpenSSL"
 *    nor may "OpenSSL" appear in their names without prior written
 *    permission of the OpenSSL Project.
 *
 * 6. Redistributions of any form whatsoever must retain the following
 *    acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
 *
 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 * ====================================================================
 *
 * This product includes cryptographic software written by Eric Young
 * (eay@cryptsoft.com).  This product includes software written by Tim
 * Hudson (tjh@cryptsoft.com).
 *
 */

#include <stddef.h>
#include <openssl/asn1.h>
#include <openssl/objects.h>
#include <openssl/err.h>
#include <openssl/asn1t.h>
#include <string.h>

static int asn1_item_ex_combine_new(ASN1_VALUE **pval, const ASN1_ITEM *it,
                                    int combine);
static void asn1_item_clear(ASN1_VALUE **pval, const ASN1_ITEM *it);
static void asn1_template_clear(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt);
static void asn1_primitive_clear(ASN1_VALUE **pval, const ASN1_ITEM *it);

ASN1_VALUE *ASN1_item_new(const ASN1_ITEM *it)
{
    ASN1_VALUE *ret = NULL;
    if (ASN1_item_ex_new(&ret, it) > 0)
        return ret;
    return NULL;
}

/* Allocate an ASN1 structure */

int ASN1_item_ex_new(ASN1_VALUE **pval, const ASN1_ITEM *it)
{
    return asn1_item_ex_combine_new(pval, it, 0);
}

static int asn1_item_ex_combine_new(ASN1_VALUE **pval, const ASN1_ITEM *it,
                                    int combine)
{
    const ASN1_TEMPLATE *tt = NULL;
    const ASN1_COMPAT_FUNCS *cf;
    const ASN1_EXTERN_FUNCS *ef;
    const ASN1_AUX *aux = it->funcs;
    ASN1_aux_cb *asn1_cb;
    ASN1_VALUE **pseqval;
    int i;
    if (aux && aux->asn1_cb)
        asn1_cb = aux->asn1_cb;
    else
        asn1_cb = 0;

#ifdef CRYPTO_MDEBUG
    if (it->sname)
        CRYPTO_push_info(it->sname);
#endif

    switch (it->itype) {

    case ASN1_ITYPE_EXTERN:
        ef = it->funcs;
        if (ef && ef->asn1_ex_new) {
            if (!ef->asn1_ex_new(pval, it))
                goto memerr;
        }
        break;

    case ASN1_ITYPE_COMPAT:
        cf = it->funcs;
        if (cf && cf->asn1_new) {
            *pval = cf->asn1_new();
            if (!*pval)
                goto memerr;
        }
        break;

    case ASN1_ITYPE_PRIMITIVE:
        if (it->templates) {
            if (!ASN1_template_new(pval, it->templates))
                goto memerr;
        } else if (!ASN1_primitive_new(pval, it))
            goto memerr;
        break;

    case ASN1_ITYPE_MSTRING:
        if (!ASN1_primitive_new(pval, it))
            goto memerr;
        break;

    case ASN1_ITYPE_CHOICE:
        if (asn1_cb) {
            i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
            if (!i)
                goto auxerr;
            if (i == 2) {
#ifdef CRYPTO_MDEBUG
                if (it->sname)
                    CRYPTO_pop_info();
#endif
                return 1;
            }
        }
        if (!combine) {
            *pval = OPENSSL_malloc(it->size);
            if (!*pval)
                goto memerr;
            memset(*pval, 0, it->size);
        }
        asn1_set_choice_selector(pval, -1, it);
        if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
            goto auxerr;
        break;

    case ASN1_ITYPE_NDEF_SEQUENCE:
    case ASN1_ITYPE_SEQUENCE:
        if (asn1_cb) {
            i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
            if (!i)
                goto auxerr;
            if (i == 2) {
#ifdef CRYPTO_MDEBUG
                if (it->sname)
                    CRYPTO_pop_info();
#endif
                return 1;
            }
        }
        if (!combine) {
            *pval = OPENSSL_malloc(it->size);
            if (!*pval)
                goto memerr;
            memset(*pval, 0, it->size);
            asn1_do_lock(pval, 0, it);
            asn1_enc_init(pval, it);
        }
        for (i = 0, tt = it->templates; i < it->tcount; tt++, i++) {
            pseqval = asn1_get_field_ptr(pval, tt);
            if (!ASN1_template_new(pseqval, tt))
                goto memerr;
        }
        if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
            goto auxerr;
        break;
    }
#ifdef CRYPTO_MDEBUG
    if (it->sname)
        CRYPTO_pop_info();
#endif
    return 1;

 memerr:
    ASN1err(ASN1_F_ASN1_ITEM_EX_COMBINE_NEW, ERR_R_MALLOC_FAILURE);
#ifdef CRYPTO_MDEBUG
    if (it->sname)
        CRYPTO_pop_info();
#endif
    return 0;

 auxerr:
    ASN1err(ASN1_F_ASN1_ITEM_EX_COMBINE_NEW, ASN1_R_AUX_ERROR);
    ASN1_item_ex_free(pval, it);
#ifdef CRYPTO_MDEBUG
    if (it->sname)
        CRYPTO_pop_info();
#endif
    return 0;

}

static void asn1_item_clear(ASN1_VALUE **pval, const ASN1_ITEM *it)
{
    const ASN1_EXTERN_FUNCS *ef;

    switch (it->itype) {

    case ASN1_ITYPE_EXTERN:
        ef = it->funcs;
        if (ef && ef->asn1_ex_clear)
            ef->asn1_ex_clear(pval, it);
        else
            *pval = NULL;
        break;

    case ASN1_ITYPE_PRIMITIVE:
        if (it->templates)
            asn1_template_clear(pval, it->templates);
        else
            asn1_primitive_clear(pval, it);
        break;

    case ASN1_ITYPE_MSTRING:
        asn1_primitive_clear(pval, it);
        break;

    case ASN1_ITYPE_COMPAT:
    case ASN1_ITYPE_CHOICE:
    case ASN1_ITYPE_SEQUENCE:
    case ASN1_ITYPE_NDEF_SEQUENCE:
        *pval = NULL;
        break;
    }
}

int ASN1_template_new(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt)
{
    const ASN1_ITEM *it = ASN1_ITEM_ptr(tt->item);
    int ret;
    if (tt->flags & ASN1_TFLG_OPTIONAL) {
        asn1_template_clear(pval, tt);
        return 1;
    }
    /* If ANY DEFINED BY nothing to do */

    if (tt->flags & ASN1_TFLG_ADB_MASK) {
        *pval = NULL;
        return 1;
    }
#ifdef CRYPTO_MDEBUG
    if (tt->field_name)
        CRYPTO_push_info(tt->field_name);
#endif
    /* If SET OF or SEQUENCE OF, its a STACK */
    if (tt->flags & ASN1_TFLG_SK_MASK) {
        STACK_OF(ASN1_VALUE) *skval;
        skval = sk_ASN1_VALUE_new_null();
        if (!skval) {
            ASN1err(ASN1_F_ASN1_TEMPLATE_NEW, ERR_R_MALLOC_FAILURE);
            ret = 0;
            goto done;
        }
        *pval = (ASN1_VALUE *)skval;
        ret = 1;
        goto done;
    }
    /* Otherwise pass it back to the item routine */
    ret = asn1_item_ex_combine_new(pval, it, tt->flags & ASN1_TFLG_COMBINE);
 done:
#ifdef CRYPTO_MDEBUG
    if (it->sname)
        CRYPTO_pop_info();
#endif
    return ret;
}

static void asn1_template_clear(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt)
{
    /* If ADB or STACK just NULL the field */
    if (tt->flags & (ASN1_TFLG_ADB_MASK | ASN1_TFLG_SK_MASK))
        *pval = NULL;
    else
        asn1_item_clear(pval, ASN1_ITEM_ptr(tt->item));
}

/*
 * NB: could probably combine most of the real XXX_new() behaviour and junk
 * all the old functions.
 */

int ASN1_primitive_new(ASN1_VALUE **pval, const ASN1_ITEM *it)
{
    ASN1_TYPE *typ;
    ASN1_STRING *str;
    int utype;

    if (!it)
        return 0;

    if (it->funcs) {
        const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
        if (pf->prim_new)
            return pf->prim_new(pval, it);
    }

    if (it->itype == ASN1_ITYPE_MSTRING)
        utype = -1;
    else
        utype = it->utype;
    switch (utype) {
    case V_ASN1_OBJECT:
        *pval = (ASN1_VALUE *)OBJ_nid2obj(NID_undef);
        return 1;

    case V_ASN1_BOOLEAN:
        *(ASN1_BOOLEAN *)pval = it->size;
        return 1;

    case V_ASN1_NULL:
        *pval = (ASN1_VALUE *)1;
        return 1;

    case V_ASN1_ANY:
        typ = OPENSSL_malloc(sizeof(ASN1_TYPE));
        if (!typ)
            return 0;
        typ->value.ptr = NULL;
        typ->type = -1;
        *pval = (ASN1_VALUE *)typ;
        break;

    default:
        str = ASN1_STRING_type_new(utype);
        if (it->itype == ASN1_ITYPE_MSTRING && str)
            str->flags |= ASN1_STRING_FLAG_MSTRING;
        *pval = (ASN1_VALUE *)str;
        break;
    }
    if (*pval)
        return 1;
    return 0;
}

static void asn1_primitive_clear(ASN1_VALUE **pval, const ASN1_ITEM *it)
{
    int utype;
    if (it && it->funcs) {
        const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
        if (pf->prim_clear)
            pf->prim_clear(pval, it);
        else
            *pval = NULL;
        return;
    }
    if (!it || (it->itype == ASN1_ITYPE_MSTRING))
        utype = -1;
    else
        utype = it->utype;
    if (utype == V_ASN1_BOOLEAN)
        *(ASN1_BOOLEAN *)pval = it->size;
    else
        *pval = NULL;
}
Commit	Line	Data
1d39ada8	1	/* tasn_new.c */
3285f539	2	/*
1d39ada8 PJ	3	* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL project
	4	* 2000.
	5	*/
	6	/* ====================================================================
	7	* Copyright (c) 2000-2004 The OpenSSL Project. All rights reserved.
	8	*
	9	* Redistribution and use in source and binary forms, with or without
	10	* modification, are permitted provided that the following conditions
	11	* are met:
	12	*
	13	* 1. Redistributions of source code must retain the above copyright
	14	* notice, this list of conditions and the following disclaimer.
	15	*
	16	* 2. Redistributions in binary form must reproduce the above copyright
	17	* notice, this list of conditions and the following disclaimer in
	18	* the documentation and/or other materials provided with the
	19	* distribution.
	20	*
	21	* 3. All advertising materials mentioning features or use of this
	22	* software must display the following acknowledgment:
	23	* "This product includes software developed by the OpenSSL Project
	24	* for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
	25	*
	26	* 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
	27	* endorse or promote products derived from this software without
	28	* prior written permission. For written permission, please contact
	29	* licensing@OpenSSL.org.
	30	*
	31	* 5. Products derived from this software may not be called "OpenSSL"
	32	* nor may "OpenSSL" appear in their names without prior written
	33	* permission of the OpenSSL Project.
	34	*
	35	* 6. Redistributions of any form whatsoever must retain the following
	36	* acknowledgment:
	37	* "This product includes software developed by the OpenSSL Project
	38	* for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
	39	*
	40	* THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
	41	* EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	42	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
	43	* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
	44	* ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
	45	* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
	46	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
	47	* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	48	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
	49	* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
	50	* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
	51	* OF THE POSSIBILITY OF SUCH DAMAGE.
	52	* ====================================================================
	53	*
	54	* This product includes cryptographic software written by Eric Young
	55	* (eay@cryptsoft.com). This product includes software written by Tim
	56	* Hudson (tjh@cryptsoft.com).
9579a363 MG	57	*
	58	*/
	59
9579a363 MG	60	#include <stddef.h>
	61	#include <openssl/asn1.h>
	62	#include <openssl/objects.h>
	63	#include <openssl/err.h>
	64	#include <openssl/asn1t.h>
	65	#include <string.h>
	66
1d39ada8 PJ	67	static int asn1_item_ex_combine_new(ASN1_VALUE *pval, const ASN1_ITEM it,
1d39ada8 PJ	68	int combine);
9579a363 MG	69	static void asn1_item_clear(ASN1_VALUE *pval, const ASN1_ITEM it);
9579a363 MG	70	static void asn1_template_clear(ASN1_VALUE *pval, const ASN1_TEMPLATE tt);
4ac84f86	71	static void asn1_primitive_clear(ASN1_VALUE *pval, const ASN1_ITEM it);
9579a363 MG	72
9579a363 MG	73	ASN1_VALUE ASN1_item_new(const ASN1_ITEM it)
3285f539 GCPL	74	{
	75	ASN1_VALUE *ret = NULL;
	76	if (ASN1_item_ex_new(&ret, it) > 0)
	77	return ret;
	78	return NULL;
	79	}
9579a363 MG	80
	81	/* Allocate an ASN1 structure */
	82
	83	int ASN1_item_ex_new(ASN1_VALUE *pval, const ASN1_ITEM it)
3285f539	84	{
1d39ada8	85	return asn1_item_ex_combine_new(pval, it, 0);
3285f539	86	}
9579a363	87
1d39ada8 PJ	88	static int asn1_item_ex_combine_new(ASN1_VALUE *pval, const ASN1_ITEM it,
1d39ada8 PJ	89	int combine)
3285f539 GCPL	90	{
3285f539 GCPL	91	const ASN1_TEMPLATE *tt = NULL;
1d39ada8	92	const ASN1_COMPAT_FUNCS *cf;
3285f539 GCPL	93	const ASN1_EXTERN_FUNCS *ef;
	94	const ASN1_AUX *aux = it->funcs;
	95	ASN1_aux_cb *asn1_cb;
	96	ASN1_VALUE **pseqval;
	97	int i;
	98	if (aux && aux->asn1_cb)
	99	asn1_cb = aux->asn1_cb;
	100	else
	101	asn1_cb = 0;
	102
1d39ada8 PJ	103	#ifdef CRYPTO_MDEBUG
	104	if (it->sname)
	105	CRYPTO_push_info(it->sname);
9579a363 MG	106	#endif
9579a363 MG	107
3285f539 GCPL	108	switch (it->itype) {
	109
	110	case ASN1_ITYPE_EXTERN:
	111	ef = it->funcs;
	112	if (ef && ef->asn1_ex_new) {
	113	if (!ef->asn1_ex_new(pval, it))
	114	goto memerr;
	115	}
	116	break;
	117
1d39ada8 PJ	118	case ASN1_ITYPE_COMPAT:
	119	cf = it->funcs;
	120	if (cf && cf->asn1_new) {
	121	*pval = cf->asn1_new();
	122	if (!*pval)
	123	goto memerr;
	124	}
	125	break;
	126
3285f539 GCPL	127	case ASN1_ITYPE_PRIMITIVE:
3285f539 GCPL	128	if (it->templates) {
1d39ada8	129	if (!ASN1_template_new(pval, it->templates))
3285f539	130	goto memerr;
1d39ada8	131	} else if (!ASN1_primitive_new(pval, it))
3285f539 GCPL	132	goto memerr;
	133	break;
	134
	135	case ASN1_ITYPE_MSTRING:
1d39ada8	136	if (!ASN1_primitive_new(pval, it))
3285f539 GCPL	137	goto memerr;
	138	break;
	139
	140	case ASN1_ITYPE_CHOICE:
	141	if (asn1_cb) {
4ac84f86	142	i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
3285f539 GCPL	143	if (!i)
	144	goto auxerr;
	145	if (i == 2) {
1d39ada8 PJ	146	#ifdef CRYPTO_MDEBUG
	147	if (it->sname)
	148	CRYPTO_pop_info();
9579a363	149	#endif
3285f539 GCPL	150	return 1;
	151	}
	152	}
1d39ada8 PJ	153	if (!combine) {
	154	*pval = OPENSSL_malloc(it->size);
	155	if (!*pval)
0f3dfc01	156	goto memerr;
1d39ada8	157	memset(*pval, 0, it->size);
3285f539 GCPL	158	}
3285f539 GCPL	159	asn1_set_choice_selector(pval, -1, it);
4ac84f86	160	if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
1d39ada8	161	goto auxerr;
3285f539 GCPL	162	break;
	163
	164	case ASN1_ITYPE_NDEF_SEQUENCE:
	165	case ASN1_ITYPE_SEQUENCE:
	166	if (asn1_cb) {
4ac84f86	167	i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
3285f539 GCPL	168	if (!i)
	169	goto auxerr;
	170	if (i == 2) {
1d39ada8 PJ	171	#ifdef CRYPTO_MDEBUG
	172	if (it->sname)
	173	CRYPTO_pop_info();
9579a363	174	#endif
3285f539 GCPL	175	return 1;
	176	}
	177	}
1d39ada8 PJ	178	if (!combine) {
	179	*pval = OPENSSL_malloc(it->size);
	180	if (!*pval)
0f3dfc01	181	goto memerr;
1d39ada8 PJ	182	memset(*pval, 0, it->size);
	183	asn1_do_lock(pval, 0, it);
	184	asn1_enc_init(pval, it);
3285f539 GCPL	185	}
	186	for (i = 0, tt = it->templates; i < it->tcount; tt++, i++) {
	187	pseqval = asn1_get_field_ptr(pval, tt);
1d39ada8 PJ	188	if (!ASN1_template_new(pseqval, tt))
1d39ada8 PJ	189	goto memerr;
3285f539	190	}
4ac84f86	191	if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
1d39ada8	192	goto auxerr;
3285f539 GCPL	193	break;
3285f539 GCPL	194	}
1d39ada8 PJ	195	#ifdef CRYPTO_MDEBUG
	196	if (it->sname)
	197	CRYPTO_pop_info();
9579a363	198	#endif
3285f539	199	return 1;
9579a363	200
3285f539	201	memerr:
1d39ada8 PJ	202	ASN1err(ASN1_F_ASN1_ITEM_EX_COMBINE_NEW, ERR_R_MALLOC_FAILURE);
	203	#ifdef CRYPTO_MDEBUG
	204	if (it->sname)
	205	CRYPTO_pop_info();
9579a363	206	#endif
3285f539	207	return 0;
9579a363	208
0f3dfc01	209	auxerr:
1d39ada8 PJ	210	ASN1err(ASN1_F_ASN1_ITEM_EX_COMBINE_NEW, ASN1_R_AUX_ERROR);
	211	ASN1_item_ex_free(pval, it);
	212	#ifdef CRYPTO_MDEBUG
	213	if (it->sname)
	214	CRYPTO_pop_info();
9579a363	215	#endif
3285f539	216	return 0;
9579a363	217
3285f539	218	}
9579a363 MG	219
9579a363 MG	220	static void asn1_item_clear(ASN1_VALUE *pval, const ASN1_ITEM it)
3285f539 GCPL	221	{
	222	const ASN1_EXTERN_FUNCS *ef;
	223
	224	switch (it->itype) {
	225
	226	case ASN1_ITYPE_EXTERN:
	227	ef = it->funcs;
	228	if (ef && ef->asn1_ex_clear)
	229	ef->asn1_ex_clear(pval, it);
	230	else
	231	*pval = NULL;
	232	break;
	233
	234	case ASN1_ITYPE_PRIMITIVE:
	235	if (it->templates)
	236	asn1_template_clear(pval, it->templates);
	237	else
	238	asn1_primitive_clear(pval, it);
	239	break;
	240
	241	case ASN1_ITYPE_MSTRING:
	242	asn1_primitive_clear(pval, it);
	243	break;
	244
1d39ada8	245	case ASN1_ITYPE_COMPAT:
3285f539 GCPL	246	case ASN1_ITYPE_CHOICE:
	247	case ASN1_ITYPE_SEQUENCE:
	248	case ASN1_ITYPE_NDEF_SEQUENCE:
	249	*pval = NULL;
	250	break;
	251	}
	252	}
9579a363	253
1d39ada8	254	int ASN1_template_new(ASN1_VALUE *pval, const ASN1_TEMPLATE tt)
3285f539 GCPL	255	{
	256	const ASN1_ITEM *it = ASN1_ITEM_ptr(tt->item);
	257	int ret;
	258	if (tt->flags & ASN1_TFLG_OPTIONAL) {
	259	asn1_template_clear(pval, tt);
	260	return 1;
	261	}
	262	/* If ANY DEFINED BY nothing to do */
	263
	264	if (tt->flags & ASN1_TFLG_ADB_MASK) {
	265	*pval = NULL;
	266	return 1;
	267	}
1d39ada8 PJ	268	#ifdef CRYPTO_MDEBUG
	269	if (tt->field_name)
	270	CRYPTO_push_info(tt->field_name);
9579a363	271	#endif
3285f539 GCPL	272	/* If SET OF or SEQUENCE OF, its a STACK */
	273	if (tt->flags & ASN1_TFLG_SK_MASK) {
	274	STACK_OF(ASN1_VALUE) *skval;
	275	skval = sk_ASN1_VALUE_new_null();
	276	if (!skval) {
	277	ASN1err(ASN1_F_ASN1_TEMPLATE_NEW, ERR_R_MALLOC_FAILURE);
	278	ret = 0;
	279	goto done;
	280	}
	281	pval = (ASN1_VALUE )skval;
	282	ret = 1;
	283	goto done;
	284	}
	285	/* Otherwise pass it back to the item routine */
1d39ada8	286	ret = asn1_item_ex_combine_new(pval, it, tt->flags & ASN1_TFLG_COMBINE);
3285f539	287	done:
1d39ada8 PJ	288	#ifdef CRYPTO_MDEBUG
	289	if (it->sname)
	290	CRYPTO_pop_info();
9579a363	291	#endif
3285f539 GCPL	292	return ret;
3285f539 GCPL	293	}
9579a363 MG	294
9579a363 MG	295	static void asn1_template_clear(ASN1_VALUE *pval, const ASN1_TEMPLATE tt)
3285f539 GCPL	296	{
	297	/* If ADB or STACK just NULL the field */
	298	if (tt->flags & (ASN1_TFLG_ADB_MASK \| ASN1_TFLG_SK_MASK))
	299	*pval = NULL;
	300	else
	301	asn1_item_clear(pval, ASN1_ITEM_ptr(tt->item));
	302	}
	303
	304	/*
	305	* NB: could probably combine most of the real XXX_new() behaviour and junk
9579a363 MG	306	* all the old functions.
	307	*/
	308
1d39ada8	309	int ASN1_primitive_new(ASN1_VALUE *pval, const ASN1_ITEM it)
3285f539 GCPL	310	{
3285f539 GCPL	311	ASN1_TYPE *typ;
4ac84f86	312	ASN1_STRING *str;
3285f539 GCPL	313	int utype;
3285f539 GCPL	314
4ac84f86 GCPL	315	if (!it)
	316	return 0;
	317
	318	if (it->funcs) {
3285f539 GCPL	319	const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
	320	if (pf->prim_new)
	321	return pf->prim_new(pval, it);
	322	}
	323
4ac84f86	324	if (it->itype == ASN1_ITYPE_MSTRING)
3285f539 GCPL	325	utype = -1;
	326	else
	327	utype = it->utype;
	328	switch (utype) {
	329	case V_ASN1_OBJECT:
	330	pval = (ASN1_VALUE )OBJ_nid2obj(NID_undef);
	331	return 1;
	332
	333	case V_ASN1_BOOLEAN:
4ac84f86	334	(ASN1_BOOLEAN )pval = it->size;
3285f539 GCPL	335	return 1;
	336
	337	case V_ASN1_NULL:
	338	pval = (ASN1_VALUE )1;
	339	return 1;
	340
	341	case V_ASN1_ANY:
1d39ada8 PJ	342	typ = OPENSSL_malloc(sizeof(ASN1_TYPE));
1d39ada8 PJ	343	if (!typ)
3285f539 GCPL	344	return 0;
	345	typ->value.ptr = NULL;
	346	typ->type = -1;
	347	pval = (ASN1_VALUE )typ;
	348	break;
	349
	350	default:
1d39ada8	351	str = ASN1_STRING_type_new(utype);
4ac84f86 GCPL	352	if (it->itype == ASN1_ITYPE_MSTRING && str)
4ac84f86 GCPL	353	str->flags \|= ASN1_STRING_FLAG_MSTRING;
1d39ada8	354	pval = (ASN1_VALUE )str;
3285f539 GCPL	355	break;
	356	}
	357	if (*pval)
	358	return 1;
	359	return 0;
	360	}
9579a363	361
4ac84f86	362	static void asn1_primitive_clear(ASN1_VALUE *pval, const ASN1_ITEM it)
3285f539 GCPL	363	{
	364	int utype;
	365	if (it && it->funcs) {
	366	const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
	367	if (pf->prim_clear)
	368	pf->prim_clear(pval, it);
	369	else
	370	*pval = NULL;
	371	return;
	372	}
	373	if (!it \|\| (it->itype == ASN1_ITYPE_MSTRING))
	374	utype = -1;
	375	else
	376	utype = it->utype;
	377	if (utype == V_ASN1_BOOLEAN)
	378	(ASN1_BOOLEAN )pval = it->size;
	379	else
	380	*pval = NULL;
	381	}