GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

compiler_vm: improved abormal signal handling

This commit is contained in:
Pragmatic Software 2012-02-02 18:28:24 +00:00
parent fd1f18850a
commit e2e54079ae
2 changed files with 29 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PBot/VERSION.pm
View File

@ -13,8 +13,8 @@ use warnings;
# These are set automatically by the build/commit script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 354,
BUILD_DATE => "2012-02-01",
BUILD_REVISION => 355,
BUILD_DATE => "2012-02-02",
};
1;

49
modules/compiler_vm/compiler_watchdog.pl
View File

@ -115,20 +115,12 @@ sub execute {
$vars =~ s/\(gdb\)\s*//g;
$local_vars = "<no output: $vars>" if length $vars;
print $in "cont\n";
next;
} else {
print $in "cont\n";
next;
}
} else {
print $in "cont\n";
next;
}
}
print $in "cont\n";
next;
}
if($line =~ m/Breakpoint \d+, gdb/) {
print $in "up\n";
$line = <$out>;
@ -281,38 +273,51 @@ sub execute {
$got_output = 1;
print "$line ";
print $in "up\nup\nup\nup\nup\nup\nup\ninfo locals\nquit\ny\n";
while(my $line = <$out>) {
chomp $line;
#print "got: [$line]\n";
if($line =~ s/^0x[0-9A-Fa-f]+\s//) {
next if $line =~ /in main\s*\(/;
$line =~ s/^\(gdb\)\s+//;
$line =~ s/main \(.*?\)/main ()/;
print "signal got: [$line]\n" if $debug >= 5;
if($line =~ s/^(#\d+\s+)?0x[0-9A-Fa-f]+\s//) {
$line =~ s/\s+at .*:\d+//;
$line =~ s/\s+from \/lib.*//;
if($line !~ m/^\s*in\s+/) {
$result = "in $line from ";
if($line =~ s/^\s*in\s+//) {
if(not length $result) {
$result .= "in $line ";
} else {
$result .= "called by $line ";
}
print $in "info locals\n";
} else {
$result .= "$line at ";
$result = "in $line from ";
print $in "info locals\n";
}
}
elsif($line =~ m/^No symbol table info available/) {
print $in "up\n";
}
elsif($line =~ s/^\d+\s+//) {
next if $line =~ /No such file/;
$result .= "at " if not length $result;
$result .= "statement: $line";
$result .= "at statement: $line ";
print $in "up\n";
}
elsif($line =~ m/([^=]+)=\s+(.*)/) {
$vars .= "$varsep$1= $2";
$varsep = "; ";
}
elsif($line =~ m/^Initial frame selected; you cannot go up/) {
last;
}
}
$result =~ s/^\s+//;
$result =~ s/\s+$//;
$result =~ s/in main \(\) //;
$vars =~ s/\(gdb\)\s*//g;
$vars = " <local variables: $vars>" if length $vars;
print "$result$vars\n";