#!/usr/bin/sed -f
#where-simp < /tmp/pct/<prog>/where|dblog2hist 2,6,10,14 2,6,10,14|sort -n|pct-%
/^[^^]/d
s/^\^done//
#
# Ugh.  Some genious made gdb mi output harder to parse with regexs.
#
s/{{/[{/g
s/}}/}]/g
#
s/,frame={level="\([0-9 ]*\)",addr="\([xX0-9a-fA-F]*\)",func="\([^"]*\)",args=\[[^]]*\],file="\([^"]*\)",line="\([^"]*\)"}/\1	\2	\3	\4:\5		/g
s/,frame={level="\([0-9 ]*\)",func="\([^"]*\)",args=\[[^]]*\],file="\([^"]*\)",line="\([^"]*\)"}/\1	0x0	\2	\3:\4		/g
s/,frame={level="\([0-9 ]*\)",addr="\([xX0-9a-fA-F]*\)",func="\([^"]*\)",args=\[[^]]*\]}/\1	\2	\3		/g
s/,frame.*//
s/		$//
