#!/usr/bin/env bash

# http://poormansprofiler.org/

nsamples=${1}
sleeptime=1s
pid=$(pidof yapall)

for x in $(seq 1 "${nsamples}")
  do
    gdb -ex "set pagination 0" -ex "thread apply all bt" -batch -p "${pid}"
    sleep $sleeptime
  done | \
awk '
  BEGIN { s = ""; }
  /^Thread/ { print s; s = ""; }
  /^\#/ { if (s != "" ) { s = s "," $4} else { s = $4 } }
  END { print s }' | \
sort | uniq -c | sort -r -n -k 1,1