| #! /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; |