crypto/lhash/lh_stats.c

   1 /*
   2  * Copyright 1995-2022 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the Apache License 2.0 (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 #define OPENSSL_SUPPRESS_DEPRECATED
  11
  12 #include <stdio.h>
  13 #include <string.h>
  14 #include <stdlib.h>
  15 /*
  16  * If you wish to build this outside of OpenSSL, remove the following lines
  17  * and things should work as expected
  18  */
  19 #include "internal/cryptlib.h"
  20
  21 #include <openssl/bio.h>
  22 #include <openssl/lhash.h>
  23 #include "lhash_local.h"
  24
  25 # ifndef OPENSSL_NO_STDIO
  26 #  ifndef OPENSSL_NO_DEPRECATED_3_1
  27 void OPENSSL_LH_stats(const OPENSSL_LHASH *lh, FILE *fp)
  28 {
  29     BIO *bp;
  30
  31     bp = BIO_new(BIO_s_file());
  32     if (bp == NULL)
  33         return;
  34     BIO_set_fp(bp, fp, BIO_NOCLOSE);
  35     OPENSSL_LH_stats_bio(lh, bp);
  36     BIO_free(bp);
  37 }
  38
  39 void OPENSSL_LH_node_stats(const OPENSSL_LHASH *lh, FILE *fp)
  40 {
  41     BIO *bp;
  42
  43     bp = BIO_new(BIO_s_file());
  44     if (bp == NULL)
  45         return;
  46     BIO_set_fp(bp, fp, BIO_NOCLOSE);
  47     OPENSSL_LH_node_stats_bio(lh, bp);
  48     BIO_free(bp);
  49 }
  50
  51 void OPENSSL_LH_node_usage_stats(const OPENSSL_LHASH *lh, FILE *fp)
  52 {
  53     BIO *bp;
  54
  55     bp = BIO_new(BIO_s_file());
  56     if (bp == NULL)
  57         return;
  58     BIO_set_fp(bp, fp, BIO_NOCLOSE);
  59     OPENSSL_LH_node_usage_stats_bio(lh, bp);
  60     BIO_free(bp);
  61 }
  62 #  endif
  63 # endif
  64
  65 # ifndef OPENSSL_NO_DEPRECATED_3_1
  66 /*
  67  * These functions are implemented as separate static functions as they are
  68  * called from the stdio functions above and calling deprecated functions will
  69  * generate a warning.
  70  */
  71 void OPENSSL_LH_stats_bio(const OPENSSL_LHASH *lh, BIO *out)
  72 {
  73     BIO_printf(out, "num_items             = %lu\n", lh->num_items);
  74     BIO_printf(out, "num_nodes             = %u\n",  lh->num_nodes);
  75     BIO_printf(out, "num_alloc_nodes       = %u\n",  lh->num_alloc_nodes);
  76     BIO_printf(out, "num_expands           = 0\n");
  77     BIO_printf(out, "num_expand_reallocs   = 0\n");
  78     BIO_printf(out, "num_contracts         = 0\n");
  79     BIO_printf(out, "num_contract_reallocs = 0\n");
  80     BIO_printf(out, "num_hash_calls        = 0\n");
  81     BIO_printf(out, "num_comp_calls        = 0\n");
  82     BIO_printf(out, "num_insert            = 0\n");
  83     BIO_printf(out, "num_replace           = 0\n");
  84     BIO_printf(out, "num_delete            = 0\n");
  85     BIO_printf(out, "num_no_delete         = 0\n");
  86     BIO_printf(out, "num_retrieve          = 0\n");
  87     BIO_printf(out, "num_retrieve_miss     = 0\n");
  88     BIO_printf(out, "num_hash_comps        = 0\n");
  89 }
  90
  91 void OPENSSL_LH_node_stats_bio(const OPENSSL_LHASH *lh, BIO *out)
  92 {
  93     OPENSSL_LH_NODE *n;
  94     unsigned int i, num;
  95
  96     for (i = 0; i < lh->num_nodes; i++) {
  97         for (n = lh->b[i], num = 0; n != NULL; n = n->next)
  98             num++;
  99         BIO_printf(out, "node %6u -> %3u\n", i, num);
 100     }
 101 }
 102
 103 void OPENSSL_LH_node_usage_stats_bio(const OPENSSL_LHASH *lh, BIO *out)
 104 {
 105     OPENSSL_LH_NODE *n;
 106     unsigned long num;
 107     unsigned int i;
 108     unsigned long total = 0, n_used = 0;
 109
 110     for (i = 0; i < lh->num_nodes; i++) {
 111         for (n = lh->b[i], num = 0; n != NULL; n = n->next)
 112             num++;
 113         if (num != 0) {
 114             n_used++;
 115             total += num;
 116         }
 117     }
 118     BIO_printf(out, "%lu nodes used out of %u\n", n_used, lh->num_nodes);
 119     BIO_printf(out, "%lu items\n", total);
 120     if (n_used == 0)
 121         return;
 122     BIO_printf(out, "load %d.%02d  actual load %d.%02d\n",
 123                (int)(total / lh->num_nodes),
 124                (int)((total % lh->num_nodes) * 100 / lh->num_nodes),
 125                (int)(total / n_used), (int)((total % n_used) * 100 / n_used));
 126 }
 127 # endif