source: mainline/boot/grub/ia32-pc/i386-pc/gmodule.pl

###
### Generate GDB commands, that load symbols for specified module,
### with proper section relocations. See .gdbinit
###
### $Id: gmodule.pl,v 1.2 2006/05/14 11:38:42 lkundrak Exp lkundrak $
### Lubomir Kundrak <lkudrak@skosi.org>
###

use strict;

while (<>) {
        my ($name, %sections) = split;

        print "add-symbol-file $name.module";

        open (READELF, "readelf -S $name.mod |") or die;
        while (<READELF>) {
                /\[\s*(\d+)\]\s+(\.\S+)/ or next;

                if ($2 eq '.text') {
                        print " $sections{$1}";
                        next;
                }

                print " -s $2 $sections{$1}"
                        if ($sections{$1} ne '0x0' and $sections{$1} ne '');
        };
        close (READELF);
        print "\n";
}