tests/filter_libc

#! /usr/bin/perl -w

use strict;

my @libc_symbols = qw(__libc_start_main accept execve fcntl
                      getsockname poll readv recvmsg
                      socket socketpair syscall writev);

my $libc_symbols = join("|", @libc_symbols);

while (<>)
{
    s/ __getsockname / getsockname /;
    s/ __sigaction / sigaction /;
    s/ __GI___/ __/;
    s/ __([a-z]*)_nocancel / $1 /;

    s/\(in \/.*libc.*\)$/(in \/...libc...)/;
    s/\(within \/.*libc.*\)$/(within \/...libc...)/;

    s/\(below main\) \(.+\.[cS]:\d+\)$/(below main) (in \/...libc...)/;

    s/($libc_symbols) \(.+\.[cS]:\d+\)$/$1 (in \/...libc...)/;

    print;
}

exit 0;