155714Skris/* crypto/asn1/a_type.c */
255714Skris/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
355714Skris * All rights reserved.
455714Skris *
555714Skris * This package is an SSL implementation written
655714Skris * by Eric Young (eay@cryptsoft.com).
755714Skris * The implementation was written so as to conform with Netscapes SSL.
8296341Sdelphij *
955714Skris * This library is free for commercial and non-commercial use as long as
1055714Skris * the following conditions are aheared to.  The following conditions
1155714Skris * apply to all code found in this distribution, be it the RC4, RSA,
1255714Skris * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
1355714Skris * included with this distribution is covered by the same copyright terms
1455714Skris * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15296341Sdelphij *
1655714Skris * Copyright remains Eric Young's, and as such any Copyright notices in
1755714Skris * the code are not to be removed.
1855714Skris * If this package is used in a product, Eric Young should be given attribution
1955714Skris * as the author of the parts of the library used.
2055714Skris * This can be in the form of a textual message at program startup or
2155714Skris * in documentation (online or textual) provided with the package.
22296341Sdelphij *
2355714Skris * Redistribution and use in source and binary forms, with or without
2455714Skris * modification, are permitted provided that the following conditions
2555714Skris * are met:
2655714Skris * 1. Redistributions of source code must retain the copyright
2755714Skris *    notice, this list of conditions and the following disclaimer.
2855714Skris * 2. Redistributions in binary form must reproduce the above copyright
2955714Skris *    notice, this list of conditions and the following disclaimer in the
3055714Skris *    documentation and/or other materials provided with the distribution.
3155714Skris * 3. All advertising materials mentioning features or use of this software
3255714Skris *    must display the following acknowledgement:
3355714Skris *    "This product includes cryptographic software written by
3455714Skris *     Eric Young (eay@cryptsoft.com)"
3555714Skris *    The word 'cryptographic' can be left out if the rouines from the library
3655714Skris *    being used are not cryptographic related :-).
37296341Sdelphij * 4. If you include any Windows specific code (or a derivative thereof) from
3855714Skris *    the apps directory (application code) you must include an acknowledgement:
3955714Skris *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40296341Sdelphij *
4155714Skris * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
4255714Skris * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
4355714Skris * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
4455714Skris * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
4555714Skris * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
4655714Skris * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
4755714Skris * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
4855714Skris * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
4955714Skris * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
5055714Skris * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
5155714Skris * SUCH DAMAGE.
52296341Sdelphij *
5355714Skris * The licence and distribution terms for any publically available version or
5455714Skris * derivative of this code cannot be changed.  i.e. this code cannot simply be
5555714Skris * copied and put under another distribution licence
5655714Skris * [including the GNU Public Licence.]
5755714Skris */
5855714Skris
5955714Skris#include <stdio.h>
60160814Ssimon#include "cryptlib.h"
61109998Smarkm#include <openssl/asn1t.h>
62194206Ssimon#include <openssl/objects.h>
6355714Skris
6455714Skrisint ASN1_TYPE_get(ASN1_TYPE *a)
65296341Sdelphij{
66296341Sdelphij    if ((a->value.ptr != NULL) || (a->type == V_ASN1_NULL))
67296341Sdelphij        return (a->type);
68296341Sdelphij    else
69296341Sdelphij        return (0);
70296341Sdelphij}
7155714Skris
7255714Skrisvoid ASN1_TYPE_set(ASN1_TYPE *a, int type, void *value)
73296341Sdelphij{
74296341Sdelphij    if (a->value.ptr != NULL) {
75296341Sdelphij        ASN1_TYPE **tmp_a = &a;
76296341Sdelphij        ASN1_primitive_free((ASN1_VALUE **)tmp_a, NULL);
77296341Sdelphij    }
78296341Sdelphij    a->type = type;
79296341Sdelphij    if (type == V_ASN1_BOOLEAN)
80296341Sdelphij        a->value.boolean = value ? 0xff : 0;
81296341Sdelphij    else
82296341Sdelphij        a->value.ptr = value;
83296341Sdelphij}
8455714Skris
85194206Ssimonint ASN1_TYPE_set1(ASN1_TYPE *a, int type, const void *value)
86296341Sdelphij{
87296341Sdelphij    if (!value || (type == V_ASN1_BOOLEAN)) {
88296341Sdelphij        void *p = (void *)value;
89296341Sdelphij        ASN1_TYPE_set(a, type, p);
90296341Sdelphij    } else if (type == V_ASN1_OBJECT) {
91296341Sdelphij        ASN1_OBJECT *odup;
92296341Sdelphij        odup = OBJ_dup(value);
93296341Sdelphij        if (!odup)
94296341Sdelphij            return 0;
95296341Sdelphij        ASN1_TYPE_set(a, type, odup);
96296341Sdelphij    } else {
97296341Sdelphij        ASN1_STRING *sdup;
98296341Sdelphij        sdup = ASN1_STRING_dup(value);
99296341Sdelphij        if (!sdup)
100296341Sdelphij            return 0;
101296341Sdelphij        ASN1_TYPE_set(a, type, sdup);
102296341Sdelphij    }
103296341Sdelphij    return 1;
104296341Sdelphij}
10555714Skris
10655714SkrisIMPLEMENT_STACK_OF(ASN1_TYPE)
107296341Sdelphij
10855714SkrisIMPLEMENT_ASN1_SET_OF(ASN1_TYPE)
109238405Sjkim
110238405Sjkim/* Returns 0 if they are equal, != 0 otherwise. */
111277195Sdelphijint ASN1_TYPE_cmp(const ASN1_TYPE *a, const ASN1_TYPE *b)
112296341Sdelphij{
113296341Sdelphij    int result = -1;
114238405Sjkim
115296341Sdelphij    if (!a || !b || a->type != b->type)
116296341Sdelphij        return -1;
117238405Sjkim
118296341Sdelphij    switch (a->type) {
119296341Sdelphij    case V_ASN1_OBJECT:
120296341Sdelphij        result = OBJ_cmp(a->value.object, b->value.object);
121296341Sdelphij        break;
122296341Sdelphij    case V_ASN1_BOOLEAN:
123296341Sdelphij        result = a->value.boolean - b->value.boolean;
124296341Sdelphij        break;
125296341Sdelphij    case V_ASN1_NULL:
126296341Sdelphij        result = 0;             /* They do not have content. */
127296341Sdelphij        break;
128296341Sdelphij    case V_ASN1_INTEGER:
129296341Sdelphij    case V_ASN1_ENUMERATED:
130296341Sdelphij    case V_ASN1_BIT_STRING:
131296341Sdelphij    case V_ASN1_OCTET_STRING:
132296341Sdelphij    case V_ASN1_SEQUENCE:
133296341Sdelphij    case V_ASN1_SET:
134296341Sdelphij    case V_ASN1_NUMERICSTRING:
135296341Sdelphij    case V_ASN1_PRINTABLESTRING:
136296341Sdelphij    case V_ASN1_T61STRING:
137296341Sdelphij    case V_ASN1_VIDEOTEXSTRING:
138296341Sdelphij    case V_ASN1_IA5STRING:
139296341Sdelphij    case V_ASN1_UTCTIME:
140296341Sdelphij    case V_ASN1_GENERALIZEDTIME:
141296341Sdelphij    case V_ASN1_GRAPHICSTRING:
142296341Sdelphij    case V_ASN1_VISIBLESTRING:
143296341Sdelphij    case V_ASN1_GENERALSTRING:
144296341Sdelphij    case V_ASN1_UNIVERSALSTRING:
145296341Sdelphij    case V_ASN1_BMPSTRING:
146296341Sdelphij    case V_ASN1_UTF8STRING:
147296341Sdelphij    case V_ASN1_OTHER:
148296341Sdelphij    default:
149296341Sdelphij        result = ASN1_STRING_cmp((ASN1_STRING *)a->value.ptr,
150296341Sdelphij                                 (ASN1_STRING *)b->value.ptr);
151296341Sdelphij        break;
152296341Sdelphij    }
153238405Sjkim
154296341Sdelphij    return result;
155296341Sdelphij}
156