crypto/property/defn_cache.c

   1 /*
   2  * Copyright 2019-2020 The OpenSSL Project Authors. All Rights Reserved.
   3  * Copyright (c) 2019, Oracle and/or its affiliates.  All rights reserved.
   4  *
   5  * Licensed under the Apache License 2.0 (the "License").  You may not use
   6  * this file except in compliance with the License.  You can obtain a copy
   7  * in the file LICENSE in the source distribution or at
   8  * https://www.openssl.org/source/license.html
   9  */
  10
  11 #include <string.h>
  12 #include <openssl/err.h>
  13 #include <openssl/lhash.h>
  14 #include "internal/propertyerr.h"
  15 #include "internal/property.h"
  16 #include "internal/core.h"
  17 #include "property_local.h"
  18
  19 /*
  20  * Implement a property definition cache.
  21  * These functions assume that they are called under a write lock.
  22  * No attempt is made to clean out the cache, except when it is shut down.
  23  */
  24
  25 typedef struct {
  26     const char *prop;
  27     OSSL_PROPERTY_LIST *defn;
  28     char body[1];
  29 } PROPERTY_DEFN_ELEM;
  30
  31 DEFINE_LHASH_OF(PROPERTY_DEFN_ELEM);
  32
  33 static unsigned long property_defn_hash(const PROPERTY_DEFN_ELEM *a)
  34 {
  35     return OPENSSL_LH_strhash(a->prop);
  36 }
  37
  38 static int property_defn_cmp(const PROPERTY_DEFN_ELEM *a,
  39                              const PROPERTY_DEFN_ELEM *b)
  40 {
  41     return strcmp(a->prop, b->prop);
  42 }
  43
  44 static void property_defn_free(PROPERTY_DEFN_ELEM *elem)
  45 {
  46     ossl_property_free(elem->defn);
  47     OPENSSL_free(elem);
  48 }
  49
  50 static void property_defns_free(void *vproperty_defns)
  51 {
  52     LHASH_OF(PROPERTY_DEFN_ELEM) *property_defns = vproperty_defns;
  53
  54     if (property_defns != NULL) {
  55         lh_PROPERTY_DEFN_ELEM_doall(property_defns,
  56                                     &property_defn_free);
  57         lh_PROPERTY_DEFN_ELEM_free(property_defns);
  58     }
  59 }
  60
  61 static void *property_defns_new(OSSL_LIB_CTX *ctx) {
  62     return lh_PROPERTY_DEFN_ELEM_new(&property_defn_hash, &property_defn_cmp);
  63 }
  64
  65 static const OSSL_LIB_CTX_METHOD property_defns_method = {
  66     property_defns_new,
  67     property_defns_free,
  68 };
  69
  70 OSSL_PROPERTY_LIST *ossl_prop_defn_get(OSSL_LIB_CTX *ctx, const char *prop)
  71 {
  72     PROPERTY_DEFN_ELEM elem, *r;
  73     LHASH_OF(PROPERTY_DEFN_ELEM) *property_defns;
  74
  75     property_defns = ossl_lib_ctx_get_data(ctx,
  76                                            OSSL_LIB_CTX_PROPERTY_DEFN_INDEX,
  77                                            &property_defns_method);
  78     if (property_defns == NULL || !ossl_lib_ctx_read_lock(ctx))
  79         return NULL;
  80
  81     elem.prop = prop;
  82     r = lh_PROPERTY_DEFN_ELEM_retrieve(property_defns, &elem);
  83     ossl_lib_ctx_unlock(ctx);
  84     return r != NULL ? r->defn : NULL;
  85 }
  86
  87 int ossl_prop_defn_set(OSSL_LIB_CTX *ctx, const char *prop,
  88                        OSSL_PROPERTY_LIST *pl)
  89 {
  90     PROPERTY_DEFN_ELEM elem, *old, *p = NULL;
  91     size_t len;
  92     LHASH_OF(PROPERTY_DEFN_ELEM) *property_defns;
  93     int res = 1;
  94
  95     property_defns = ossl_lib_ctx_get_data(ctx,
  96                                            OSSL_LIB_CTX_PROPERTY_DEFN_INDEX,
  97                                            &property_defns_method);
  98     if (property_defns == NULL)
  99         return 0;
 100
 101     if (prop == NULL)
 102         return 1;
 103
 104     if (!ossl_lib_ctx_write_lock(ctx))
 105         return 0;
 106     if (pl == NULL) {
 107         elem.prop = prop;
 108         lh_PROPERTY_DEFN_ELEM_delete(property_defns, &elem);
 109         goto end;
 110     }
 111     len = strlen(prop);
 112     p = OPENSSL_malloc(sizeof(*p) + len);
 113     if (p != NULL) {
 114         p->prop = p->body;
 115         p->defn = pl;
 116         memcpy(p->body, prop, len + 1);
 117         old = lh_PROPERTY_DEFN_ELEM_insert(property_defns, p);
 118         if (old != NULL) {
 119             property_defn_free(old);
 120             goto end;
 121         }
 122         if (!lh_PROPERTY_DEFN_ELEM_error(property_defns))
 123             goto end;
 124     }
 125     OPENSSL_free(p);
 126     res = 0;
 127  end:
 128     ossl_lib_ctx_unlock(ctx);
 129     return res;
 130 }