#!/bin/bash
nsamples=200
sleeptime=0

for x in $(seq 1 $nsamples)
  do
    i386-elf-gdb geekos/kernel.exe -ex "set pagination 0" -ex "thread apply all bt" -batch 
    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
       
