contrib/benchmark/collect.awk

   1 # This file is part of GNUnet
   2 # Copyright (C) 2018 GNUnet e.V.
   3 #
   4 # GNUnet is free software: you can redistribute it and/or modify it
   5 # under the terms of the GNU Affero General Public License as published
   6 # by the Free Software Foundation, either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # GNUnet is distributed in the hope that it will be useful, but
  10 # WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 # Affero General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU Affero General Public License
  15 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17
  18 # Aggregate benchmarking data from multiple threads/processes
  19 # generated by util/benchmark.c.
  20 #
  21 # Can be used as
  22 # awk -f collect.awk gnunet-benchmark-{ops,urls}-*.txt
  23
  24
  25 # records are of the following forms:
  26 # op <op> count <count> time_us <time_us>
  27 # url <url> status <status> count <count> time_us <time_us> time_us_max <time_us_max>
  28
  29
  30 function abs(v) {
  31   return v < 0 ? -v : v
  32 }
  33
  34 {
  35   if ($1 == "op") {
  36     n = $4;
  37     t = $6;
  38     op[$2]["count"] += n;
  39     op[$2]["time_us"] += t;
  40     if (n > 0) {
  41       op[$2]["time_us_sq"] += n * (t/n) * (t/n);
  42     }
  43   } else if ($1 == "url") {
  44     n = $6;
  45     t = $8;
  46     url[$2][$4]["count"] += n;
  47     url[$2][$4]["time_us"] += t;
  48     if (n > 0) {
  49       url[$2][$4]["time_us_sq"] += n * (t/n) * (t/n);
  50     }
  51     max = url[$2][$4]["time_us_max];
  52     url[$2][$4]["time_us_max] = (t > max ? t : max)
  53   }
  54 }
  55
  56 function avg(sum, n) {
  57   if (n == 0) {
  58     return 0;
  59   } else {
  60     return sum / n;
  61   }
  62 }
  63
  64 function stdev(sum, sum_sq, n) {
  65   if (n == 0) {
  66     return 0;
  67   } else {
  68     return sqrt(abs((sum_sq / n) - ((sum / n) * (sum / n))));
  69   }
  70 }
  71
  72 END {
  73   for (x in op) {
  74     print "op", x, "count", op[x]["count"], "time_us", op[x]["time_us"], \
  75           "time_avg_us", avg(op[x]["time_us"], op[x]["count"]), \
  76           "stdev", stdev(op[x]["time_us"], op[x]["time_us_sq"], op[x]["count"]);
  77   }
  78   for (x in url) {
  79     for (y in url[x]) {
  80       print "url", x, "status", y, \
  81             "count", url[x][y]["count"], "time_us", url[x][y]["time_us"], \
  82             "time_avg_us", avg(url[x][y]["time_us"], url[x][y]["count"]), \
  83             "stdev", stdev(url[x][y]["time_us"], url[x][y]["time_us_sq"], url[x][y]["count"]), \
  84             "time_us_max", url[x][y]["time_us_max"];
  85     }
  86   }
  87 }