Sweden-Number/tools/examine-relay

#!/usr/bin/perl -w
# -----------------------------------------------------------------------------

my $srcfile = $ARGV[0];
my @callstack = ();

open (IN, "<$srcfile") || die "Cannot open $srcfile for reading: $!\n";
LINE:
while (<IN>) {
    if (/^Call ([A-Za-z0-9]+\.[0-9]+): .*\)/) {
	my $func = $1;
	if (/ ret=(........)$/ ||
	    / ret=(....:....) ds=....$/) {
	    my $retaddr = $1;
	    push @callstack, [$func,$retaddr];
	    next;
	} else {
	    # Assume a line got cut by a line feed in a string.
	    $_ .= scalar (<IN>);
	    print "[$_]";
	    redo;
	}
    }


    if (/^Ret  ([A-Za-z0-9]+\.[0-9]+): .* ret=(........)$/ ||
	/^Ret  ([A-Za-z0-9]+\.[0-9]+): .* ret=(....:....) ds=....$/) {
	my $func = $1;
	my $retaddr = $2;
	my ($topfunc,$topaddr);

      POP:
	while (1) {
	    if ($#callstack == -1) {
		print "Error: Return from $func to $retaddr with empty stack.\n";
		next LINE;
	    }

	    ($topfunc,$topaddr) = @{pop @callstack};

	    if ($topfunc ne $func) {
		print "Error: Return from $topfunc, but call from $func.\n";
		next POP 
	    }
	    last POP;
	}

	if ($topaddr eq $retaddr) {
	    print "OK: $func from $retaddr.\n";
	} else {
	    print "Error: Return from $func is to $retaddr, not $topaddr.\n";
	}    
    }
}

while ($#callstack != -1) {
    my ($topfunc,$topaddr) = @{pop @callstack};
    print "Error: leftover call to $topfunc from $topaddr.\n";
}

close (IN);