a_type.c revision 280268
1275696Sdelphij/* crypto/asn1/a_type.c */ 2275696Sdelphij/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 3275696Sdelphij * All rights reserved. 4275696Sdelphij * 5275696Sdelphij * This package is an SSL implementation written 6275696Sdelphij * by Eric Young (eay@cryptsoft.com). 7275696Sdelphij * The implementation was written so as to conform with Netscapes SSL. 8275696Sdelphij * 9275696Sdelphij * This library is free for commercial and non-commercial use as long as 10275696Sdelphij * the following conditions are aheared to. The following conditions 11275696Sdelphij * apply to all code found in this distribution, be it the RC4, RSA, 12275696Sdelphij * lhash, DES, etc., code; not just the SSL code. The SSL documentation 13275696Sdelphij * included with this distribution is covered by the same copyright terms 14275696Sdelphij * except that the holder is Tim Hudson (tjh@cryptsoft.com). 15275696Sdelphij * 16275696Sdelphij * Copyright remains Eric Young's, and as such any Copyright notices in 17275696Sdelphij * the code are not to be removed. 18275696Sdelphij * If this package is used in a product, Eric Young should be given attribution 19275696Sdelphij * as the author of the parts of the library used. 20275696Sdelphij * This can be in the form of a textual message at program startup or 21275696Sdelphij * in documentation (online or textual) provided with the package. 22275696Sdelphij * 23275696Sdelphij * Redistribution and use in source and binary forms, with or without 24275696Sdelphij * modification, are permitted provided that the following conditions 25275696Sdelphij * are met: 26275696Sdelphij * 1. Redistributions of source code must retain the copyright 27275696Sdelphij * notice, this list of conditions and the following disclaimer. 28275696Sdelphij * 2. Redistributions in binary form must reproduce the above copyright 29275696Sdelphij * notice, this list of conditions and the following disclaimer in the 30275696Sdelphij * documentation and/or other materials provided with the distribution. 31275696Sdelphij * 3. All advertising materials mentioning features or use of this software 32275696Sdelphij * must display the following acknowledgement: 33275696Sdelphij * "This product includes cryptographic software written by 34275696Sdelphij * Eric Young (eay@cryptsoft.com)" 35275696Sdelphij * The word 'cryptographic' can be left out if the rouines from the library 36275696Sdelphij * being used are not cryptographic related :-). 37275696Sdelphij * 4. If you include any Windows specific code (or a derivative thereof) from 38275696Sdelphij * the apps directory (application code) you must include an acknowledgement: 39275696Sdelphij * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 40275696Sdelphij * 41275696Sdelphij * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 42275696Sdelphij * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 43275696Sdelphij * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 44275696Sdelphij * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 45275696Sdelphij * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 51 * SUCH DAMAGE. 52 * 53 * The licence and distribution terms for any publically available version or 54 * derivative of this code cannot be changed. i.e. this code cannot simply be 55 * copied and put under another distribution licence 56 * [including the GNU Public Licence.] 57 */ 58 59#include <stdio.h> 60#include "cryptlib.h" 61#include <openssl/asn1t.h> 62#include <openssl/objects.h> 63 64int ASN1_TYPE_get(ASN1_TYPE *a) 65 { 66 if ((a->value.ptr != NULL) || (a->type == V_ASN1_NULL)) 67 return(a->type); 68 else 69 return(0); 70 } 71 72void ASN1_TYPE_set(ASN1_TYPE *a, int type, void *value) 73 { 74 if (a->value.ptr != NULL) 75 { 76 ASN1_TYPE **tmp_a = &a; 77 ASN1_primitive_free((ASN1_VALUE **)tmp_a, NULL); 78 } 79 a->type=type; 80 a->value.ptr=value; 81 } 82 83int ASN1_TYPE_set1(ASN1_TYPE *a, int type, const void *value) 84 { 85 if (!value || (type == V_ASN1_BOOLEAN)) 86 { 87 void *p = (void *)value; 88 ASN1_TYPE_set(a, type, p); 89 } 90 else if (type == V_ASN1_OBJECT) 91 { 92 ASN1_OBJECT *odup; 93 odup = OBJ_dup(value); 94 if (!odup) 95 return 0; 96 ASN1_TYPE_set(a, type, odup); 97 } 98 else 99 { 100 ASN1_STRING *sdup; 101 sdup = ASN1_STRING_dup((ASN1_STRING *)value); 102 if (!sdup) 103 return 0; 104 ASN1_TYPE_set(a, type, sdup); 105 } 106 return 1; 107 } 108 109IMPLEMENT_STACK_OF(ASN1_TYPE) 110IMPLEMENT_ASN1_SET_OF(ASN1_TYPE) 111 112/* Returns 0 if they are equal, != 0 otherwise. */ 113int ASN1_TYPE_cmp(const ASN1_TYPE *a, const ASN1_TYPE *b) 114 { 115 int result = -1; 116 117 if (!a || !b || a->type != b->type) return -1; 118 119 switch (a->type) 120 { 121 case V_ASN1_OBJECT: 122 result = OBJ_cmp(a->value.object, b->value.object); 123 break; 124 case V_ASN1_BOOLEAN: 125 result = a->value.boolean - b->value.boolean; 126 break; 127 case V_ASN1_NULL: 128 result = 0; /* They do not have content. */ 129 break; 130 case V_ASN1_INTEGER: 131 case V_ASN1_NEG_INTEGER: 132 case V_ASN1_ENUMERATED: 133 case V_ASN1_NEG_ENUMERATED: 134 case V_ASN1_BIT_STRING: 135 case V_ASN1_OCTET_STRING: 136 case V_ASN1_SEQUENCE: 137 case V_ASN1_SET: 138 case V_ASN1_NUMERICSTRING: 139 case V_ASN1_PRINTABLESTRING: 140 case V_ASN1_T61STRING: 141 case V_ASN1_VIDEOTEXSTRING: 142 case V_ASN1_IA5STRING: 143 case V_ASN1_UTCTIME: 144 case V_ASN1_GENERALIZEDTIME: 145 case V_ASN1_GRAPHICSTRING: 146 case V_ASN1_VISIBLESTRING: 147 case V_ASN1_GENERALSTRING: 148 case V_ASN1_UNIVERSALSTRING: 149 case V_ASN1_BMPSTRING: 150 case V_ASN1_UTF8STRING: 151 case V_ASN1_OTHER: 152 default: 153 result = ASN1_STRING_cmp((ASN1_STRING *) a->value.ptr, 154 (ASN1_STRING *) b->value.ptr); 155 break; 156 } 157 158 return result; 159 } 160