1b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov#!/bin/bash
2b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
3b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov########################
4b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov# Function definitions #
5b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov########################
6b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
7b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov## Print the logarithm base 2 of $1 on stdout.
8b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanovfunction log2 {
9b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  local i
10b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
11b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  for ((i=0;i<64;i++))
12b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  do
13b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    if [ $((2**i)) = "$1" ]; then
14b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov      echo $i
15b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov      return 0
16b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    fi
17b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  done
18b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  echo error
19b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  return 1
20b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov}
21b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
22b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov## Print the size of the level 2 cache in bytes on stdout.
23b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanovfunction get_cache_size {
24b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  local s
25b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  if [ -e /sys/devices/system/cpu/cpu0/cache/index2/size ]; then
26b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    s="$(</sys/devices/system/cpu/cpu0/cache/index2/size)"
27b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  else
28b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    s="$(cat /proc/cpuinfo|while read a b c d e ; do if [ "$a" = cache -a "$b" = size ]; then echo $d $e; break; fi; done)"
29b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    s="${s%B}"
30b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  fi
31b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  if [ "${s%M}" != "$s" ]; then
32b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo $((${s%M}*1024*1024))
33b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  elif [ "${s%K}" != "$s" ]; then
34b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo $((${s%K}*1024))
35b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  else
36b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo $s
37b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  fi
38b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov}
39b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
40b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov## Read zero or more lines from stdin, and print the average and standard
41b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov#  deviation per column. n is the number of lines, m the number of columns.
42b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov#  Each line must have the same number of columns.
43b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanovfunction avgstddev {
44b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  awk '{n++;m=NF;for(i=1;i<=NF;i++){sum[i]+=$i;sumsq[i]+=$i*$i}}END{for(i=1;i<=m;i++){d=sumsq[i]/n-sum[i]*sum[i]/n/n;printf "%.2f %.2f ",sum[i]/n,(d>=0.0001?sqrt(d):0.01)}}'
45b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov}
46b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
47b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov## Query the virtual memory size for the last invocation of command $1 from
48b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov#  the information logged by the kernel (BSD process accounting).
49b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanovfunction query_cmd_vsz {
50b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  local pacct
51b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
52b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  if [ ! -e /usr/sbin/dump-acct ]; then
53b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo "Error: userspace tools for BSD process accounting have not been" >&2
54b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo "installed. Please install the acct package (Debian systems)."    >&2
55b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    return 1
56b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  fi
57b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
58b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  if ! { dump-acct -h 2>&1 | grep -q -w format; }; then
59b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo "Error: the installed version of dump-acct is not recent enough." >&2
60b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    return 1
61b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  fi
62b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
63b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  if [ -e /var/log/account/pacct ]; then
64b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    pacct=/var/log/account/pacct
65b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  elif [ -e /var/account/pacct ]; then
66b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    pacct=/var/account/pacct
67b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  else
68b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo "Where is the pacct file ?" >&2
69b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    return 1
70b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  fi
71b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  /usr/sbin/dump-acct "${pacct}" | \
72b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    grep -- "^$(basename "$1").*|v3|" | \
73b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    cut -f8 -d'|' | \
74b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    tail -n 1 | \
75b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    { read vsz; echo ${vsz:-0}; }
76b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov}
77b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
78b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov## Query the virtual memory size for the last invocation of command $1 from
79b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov#  the information logged by the kernel (BSD process accounting).
80b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanovfunction query_vsz {
81b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  local cmd tool
82b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
83b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  cmd="$(basename "$1")"
84b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  if [ "${cmd}" = "vg-in-place" ]; then
85b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    tool="tool-not-found"
86b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    for arg in "${@}"
87b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    do
88b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov      if [ "${arg#--tool=}" != "${arg}" ]; then
89b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov        tool="${arg#--tool=}"
90b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov	break
91b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov      fi
92b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    done
93b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    vsz_tool="$(query_cmd_vsz "${tool}")"
94b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    awk "END{print $(query_cmd_vsz ${cmd}) + ${vsz_tool:-0}}" \
95b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov      </dev/null
96b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  else
97b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    query_cmd_vsz "${cmd}"
98b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  fi
99b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov}
100b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
101b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov## Echo all arguments on stderr, run the command passed in $1 .. ${$#} three
102b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov#  times, pass the output of ${test_input} -p${p} to the command, write the
103b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov#  command output to the file specified in ${test_output}, and print the
104b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov#  runtime of the command on stdout.
105b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanovfunction measure_runtime {
106b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  local i
107b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
108b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  echo "$@" >&2
109b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  if [ "${test_output}" != "" ]; then
110b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo "$@" >"${test_output}"
111b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  fi
112b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  for ((i=0;i<3;i++))
113b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  do
114b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo -n "$("${test_input:-true}" $p | \
115b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov      /usr/bin/time --format="%e" "$@" 2>&1 | \
116b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov      tee -a "${test_output:-/dev/null}" | \
117b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov      tail -n 1) "
118b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    query_vsz "$@"
119b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  done
120b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov}
121b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
122b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov## Print the average runtime of the command passed in $5 .. ${$#}, the ratio
123b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov#  of the runtime to $1 +/- $2 and the ratio of the VSZ to $3 +/- $4.
124b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanovfunction print_runtime_ratio {
125b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  local tmp avg1="$1" stddev1="$2" vsz1="$3" vszdev1="$4"
126b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  local avg2 stddev2 vsz2 vszdev2
127b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
128b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  if [ "${avg1}" = "" -o "${stddev1}" = "" -o "${vsz1}" = "" -o "${vszdev1}" = "" ]; then
129b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    echo "Error: invalid arguments ($@)."
130b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov    exit 1
131b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  fi
132b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
133b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  shift
134b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  shift
135b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  shift
136b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  shift
137b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
138b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  tmp="/tmp/test-timing.$$"
139b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  rm -f "${tmp}"
140b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
141b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  measure_runtime "$@" | avgstddev > "$tmp"
142b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  read avg2 stddev2 vsz2 vszdev2 < "$tmp"
143b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  echo "Average time: ${avg2} +/- ${stddev2} seconds / VSZ ${vsz2} +/- ${vszdev2} KB"
144b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov  awk "END{printf "'"'"Ratio = %.2f +/- %.2f; VSZ ratio: %.2f +/- %.2f\n"'"'", ${avg2}/${avg1}, ${avg2}/${avg1}*(${stddev1}/${avg1}+${stddev2}/${avg2}), ${vsz2}/${vsz1}, ${vsz2}/${vsz1}*(${vszdev1}/${vsz1}+${vszdev2}/${vsz2})}" </dev/null
145b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov}
146b32f58018498ea2225959b0ba11c18f0c433deefEvgeniy Stepanov
147