#! /usr/bin/perl

# Usage: errbacktrace2line EXE_FILE <backtrace-lines

use strict;
use warnings;

my $bin = shift;
my $addr_obj;
my @addr;

sub flush_addr {
    system qw(eu-addr2line --inlines --basename --functions --pretty-print --exe), $addr_obj, @addr;
    undef @addr;
}

sub conditional_flush_addr {
    my($obj) = @_;
    flush_addr if defined $addr_obj && $addr_obj ne $obj;
    $addr_obj = $obj;
}

my $last2_fields = qr/\(([^+)]*(?:\+0x[a-f0-9]*)?)\) \[(0x[a-f0-9]*)\]/;
while (<>) {
    if (/^[[:space:]]*(\/.*\.so)$last2_fields/) {
	my($obj, $offset, $return_addr) = ($1, $2, $3);
	conditional_flush_addr $obj;
	push @addr, ($offset || $return_addr);
    } elsif (/$last2_fields/) {
	my($offset, $return_addr) = ($1, $2);
	conditional_flush_addr $bin;
	push @addr, ($offset || $return_addr);
    }
}

flush_addr;