summaryrefslogtreecommitdiffstats
path: root/tools/codecscan.pl
blob: 4f0cbc73af3bfda69ec87d3b26e0400539cb07b8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#!/usr/bin/perl

$codecs="lib/rbcodec/codecs";

opendir(DIR, $codecs) || die "can't opendir $some_dir: $!";
my @maps = sort grep { /\.map/ && -f "$codecs/$_" } readdir(DIR);
closedir DIR;

print "Codec             IRAM IBSS    BSS    Text \n";


for my $m (@maps) {
    my ($iram, $ibss, $bss, $text)=scanmap($m);    
    printf("%-15s: %5d %5d %6d %6d\n",
           $m, $iram, $ibss, $bss, $text);
}

sub scanmap {
    my ($file)=@_;

    open(F, "<$codecs/$file");

    while(<F>) {
        if(/[ \t]*0x([0-9a-f]+) *_plugin_start_addr/) {
            #print "CODEC START: $1\n";
            $codec = hex($1);
        }
        elsif(/[ \t]*0x([0-9a-f]+) *plugin_bss_start/) {
            #print "CODEC BSS START: $1\n";
            $codecbss = hex($1);
        }
        elsif(/[ \t]*0x([0-9a-f]+) *_plugin_end_addr/) {
            #print "CODEC END: $1\n";
            $bss = (hex($1) - $codecbss);
            $codec = (hex($1) - $codec - $bss);
        }
        elsif(/[ \t]*0x([0-9a-f]+) *iramstart/) {
            #print "IRAM START: $1\n";
            $iram = hex($1);
        }
        elsif(/[ \t]*0x([0-9a-f]+) *iramend/) {
            #print "IRAM END: $1\n";
            $iram = (hex($1) - $iram);
        }
        elsif(/[ \t]*0x([0-9a-f]+) *iedata/) {
            #print "IBSS START: $1\n";
            $ibss = hex($1);
        }
        elsif(/[ \t]*0x([0-9a-f]+) *iend/) {
            #print "IBSS END: $1\n";
            $ibss = (hex($1) - $ibss);
        }
    }

    close(F);

    return ($iram, $ibss, $bss, $codec);
}