#!/bin/sh
#
# Print a summary of how often each named object appears in a talloc report.
#
# usage:
#    talloc_count.sh my_talloc_report.txt
# or:
#    osmo_interact_vty.py -p 4242 -c 'show talloc-context application full'  |  talloc_count.sh
#
# produces output like:
#         1 struct foo
#         1 struct log_info
#         1 struct log_info_cat
#        21 msgb
#      1391 SCCP-SCOC(N)[N]
#      1402 struct osmo_fsm_inst
#    [...]

f="$1"

tmpdir="$(mktemp -d)"
trap "rm -rf \"$tmpdir\"" EXIT

# without input file, read stdin
if [ "x$f" = "x" ]; then
	f="$tmpdir/input"
	cat > $f
fi

mangled="$tmpdir/mangled"
grep contains "$f" \
	| sed 's/[ \t]*contains.*//' \
	| sed 's/^[ \t]*//' \
	| sed 's/[ \t][ \t]*/ /g' \
	| grep -v '^$' \
	| grep -v '^[0-9]\+$' \
	| sed 's/0x[0-9a-fA-F]\+/N/g' \
	| sed 's/\<[0-9a-fA-F]\+\>/N/g' \
	| sed 's/[0-9]\+/N/g' \
	| sort \
	> "$mangled"

count() {
	name="$1"
	nr="$(grep -Fx "$name" "$mangled" | wc -l)"
	printf "%6d $name\\n" $nr
}

{
	cat "$mangled" | uniq | while read type; do
		count "$type"
	done
} | sort -h