autogdb.pl

USb in User space, a kernel module that use usb layer

#
# autogdb.pl
#
# Author : Lionetti Salvatore <[e-mail]>
# License: GPL
#
# Let to debug usu module simply typing 'make autogdb'
#!/usr/bin/perl -W 
# Return .text .data .bss for a given module
sub tbd() {
	my ($modulo_name)=@_;
	my @uscita;

	# Discard final .ko
	$modulo_name =~ s/\.ko//;

	# For each section parse addr & memo.
	foreach ('.text', '.bss', '.data') {	
		my $sezione=$_;
		my $baseadd;
		my $fileName="/sys/module/$modulo_name/sections/$sezione";
		(`cat $fileName` =~ /^(0x[0-9a-fA-F]*)/) && ($baseadd=oct($1)); 
		push @uscita,$baseadd;
	}
	@uscita;
}

#print "($ARGV[0])";
die "Usage: prog module_name." if (!defined $ARGV[0]);
my ($text_badd, $bss_badd, $data_badd)=&tbd("$ARGV[0]");

my $FILEGDB;
#unlink "cmd.gdb";
open FILEGDB,">cmd.gdb" or die 'Non riesco a create il file cmd.gdb';
printf FILEGDB "\nfile /usr/src/linux-source-2.6.15/vmlinux\n";
printf FILEGDB "core-file /proc/kcore\n";
printf FILEGDB "add-symbol-file $ARGV[0] 0x%x -s .bss 0x%x -s .data 0x%x\n",$text_badd,$bss_badd,$data_badd; 
close FILEGDB;