1/*
2 * Copyright 1998-2020 The OpenSSL Project Authors. All Rights Reserved.
3 *
4 * Licensed under the OpenSSL license (the "License").  You may not use
5 * this file except in compliance with the License.  You can obtain a copy
6 * in the file LICENSE in the source distribution or at
7 * https://www.openssl.org/source/license.html
8 */
9
10#include <stddef.h>
11#include <openssl/x509.h>
12#include <openssl/asn1.h>
13#include <openssl/asn1t.h>
14#include "crypto/evp.h"
15
16ASN1_SEQUENCE(X509_ALGOR) = {
17        ASN1_SIMPLE(X509_ALGOR, algorithm, ASN1_OBJECT),
18        ASN1_OPT(X509_ALGOR, parameter, ASN1_ANY)
19} ASN1_SEQUENCE_END(X509_ALGOR)
20
21ASN1_ITEM_TEMPLATE(X509_ALGORS) =
22        ASN1_EX_TEMPLATE_TYPE(ASN1_TFLG_SEQUENCE_OF, 0, algorithms, X509_ALGOR)
23ASN1_ITEM_TEMPLATE_END(X509_ALGORS)
24
25IMPLEMENT_ASN1_FUNCTIONS(X509_ALGOR)
26IMPLEMENT_ASN1_ENCODE_FUNCTIONS_fname(X509_ALGORS, X509_ALGORS, X509_ALGORS)
27IMPLEMENT_ASN1_DUP_FUNCTION(X509_ALGOR)
28
29int X509_ALGOR_set0(X509_ALGOR *alg, ASN1_OBJECT *aobj, int ptype, void *pval)
30{
31    if (alg == NULL)
32        return 0;
33
34    if (ptype != V_ASN1_UNDEF) {
35        if (alg->parameter == NULL)
36            alg->parameter = ASN1_TYPE_new();
37        if (alg->parameter == NULL)
38            return 0;
39    }
40
41    ASN1_OBJECT_free(alg->algorithm);
42    alg->algorithm = aobj;
43
44    if (ptype == 0)
45        return 1;
46    if (ptype == V_ASN1_UNDEF) {
47        ASN1_TYPE_free(alg->parameter);
48        alg->parameter = NULL;
49    } else
50        ASN1_TYPE_set(alg->parameter, ptype, pval);
51    return 1;
52}
53
54void X509_ALGOR_get0(const ASN1_OBJECT **paobj, int *pptype,
55                     const void **ppval, const X509_ALGOR *algor)
56{
57    if (paobj)
58        *paobj = algor->algorithm;
59    if (pptype) {
60        if (algor->parameter == NULL) {
61            *pptype = V_ASN1_UNDEF;
62            return;
63        } else
64            *pptype = algor->parameter->type;
65        if (ppval)
66            *ppval = algor->parameter->value.ptr;
67    }
68}
69
70/* Set up an X509_ALGOR DigestAlgorithmIdentifier from an EVP_MD */
71
72void X509_ALGOR_set_md(X509_ALGOR *alg, const EVP_MD *md)
73{
74    int param_type;
75
76    if (md->flags & EVP_MD_FLAG_DIGALGID_ABSENT)
77        param_type = V_ASN1_UNDEF;
78    else
79        param_type = V_ASN1_NULL;
80
81    X509_ALGOR_set0(alg, OBJ_nid2obj(EVP_MD_type(md)), param_type, NULL);
82
83}
84
85int X509_ALGOR_cmp(const X509_ALGOR *a, const X509_ALGOR *b)
86{
87    int rv;
88    rv = OBJ_cmp(a->algorithm, b->algorithm);
89    if (rv)
90        return rv;
91    if (!a->parameter && !b->parameter)
92        return 0;
93    return ASN1_TYPE_cmp(a->parameter, b->parameter);
94}
95
96int X509_ALGOR_copy(X509_ALGOR *dest, const X509_ALGOR *src)
97{
98    if (src == NULL || dest == NULL)
99	return 0;
100
101    if (dest->algorithm)
102         ASN1_OBJECT_free(dest->algorithm);
103    dest->algorithm = NULL;
104
105    if (dest->parameter)
106        ASN1_TYPE_free(dest->parameter);
107    dest->parameter = NULL;
108
109    if (src->algorithm)
110        if ((dest->algorithm = OBJ_dup(src->algorithm)) == NULL)
111	    return 0;
112
113    if (src->parameter) {
114        dest->parameter = ASN1_TYPE_new();
115        if (dest->parameter == NULL)
116            return 0;
117
118        /* Assuming this is also correct for a BOOL.
119         * set does copy as a side effect.
120         */
121        if (ASN1_TYPE_set1(dest->parameter,
122                src->parameter->type, src->parameter->value.ptr) == 0)
123            return 0;
124    }
125    return 1;
126}
127