guile18/qt/time/init

   1 #! /bin/awk -f
   2
   3 BEGIN {
   4   purpose = "Report time used to initialize a thread."
   5   nmach = 0;
   6
   7   test_single = "1";
   8   test_v0 = "14";
   9   test_v2 = "15";
  10   test_v4 = "16";
  11   test_v8 = "17";
  12 }
  13
  14 {
  15   mach = $1
  16   test = $2
  17   iter = $3
  18   time = $6 + $8
  19
  20   if (machi[mach] == 0) {
  21     machn[nmach] = mach;
  22     machi[mach] = 1;
  23     ++nmach;
  24   }
  25
  26   us_per_op = time / iter * 1000000
  27   times[mach "_" test] = us_per_op;
  28 }
  29
  30
  31 END {
  32   for (i=0; i<nmach; ++i) {
  33     m = machn[i];
  34
  35     single = times[m "_" test_single];
  36     v0 = times[m "_" test_v0];
  37     v2 = times[m "_" test_v2];
  38     v4 = times[m "_" test_v4];
  39     v8 = times[m "_" test_v8];
  40     printf ("%s|%3.1f|%3.1f|%3.1f|%3.1f|%3.1f\n", m, single, v0, v2, v4, v8);
  41   }
  42 }