Add a simple perl script to display info about what is allocating skin buffer.

To use it enable DEBUG_SKIN_ALLOCATIONS in skin_buffer.h and pipe the rockboxui output to the script

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@30597 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 31 insertions, 0 deletions

diff --git a/lib/skin_parser/skin_buffer_debug.pl b/lib/skin_parser/skin_buffer_debug.pl
new file mode 100755
index 0000000..6d0d1ba
--- /dev/null
+++ b/lib/skin_parser/skin_buffer_debug.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+#             __________               __   ___.
+#   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+#   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+#   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+#   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+#                     \/            \/     \/    \/            \/
+# $Id$
+#
+
+%allocs = ();
+
+while (<>) {
+    if (/([0-9]*) (.*)$/) {
+        $key = $2;
+        $value = $1;
+        if (exists $allocs{$key}) {
+            $val = $allocs{$key}[0];
+            $count = $allocs{$key}[1];
+            $allocs{$key} = [$value + $val, $count+1]
+        } else {
+            $allocs{$key} = [$value, 1]
+        }
+    }
+}
+print "Count\tTotal cost\tLine\n";
+for my $key ( keys %allocs ) {
+            $val = $allocs{$key}[0];
+            $count = $allocs{$key}[1];
+        print "$count\t$val\t$key\n";
+}