[dpkg] / scripts / t / Dpkg_Shlibs / spacesyms-o-map.pl

#!/usr/bin/perl
#
# spacesyms-o-map.pl INPUT OUTPUT
#
# Copy the object file INPUT to OUTPUT, redefining any symbol in INPUT that
# contains "SPACE" in its name to contain "SPA CE" instead.

use strict;
use warnings;

my ($input, $output) = @ARGV;
my @cmds = ('objcopy');

open my $nm, '-|', 'nm', $input or die "cannot run nm: $!";
while (<$nm>) {
    next if not m/SPACE/;
    chomp;
    my $x = (split / /, $_, 3)[2];
    my $y = $x =~ s/SPACE/SPA CE/r;
    push @cmds, "--redefine-sym=$x=$y";
}
close $nm;

push @cmds, $input, $output;
exec @cmds;
Commit	Line	Data
1479465f GJ	1	#!/usr/bin/perl
	2	#
	3	# spacesyms-o-map.pl INPUT OUTPUT
	4	#
	5	# Copy the object file INPUT to OUTPUT, redefining any symbol in INPUT that
	6	# contains "SPACE" in its name to contain "SPA CE" instead.
	7
	8	use strict;
	9	use warnings;
	10
	11	my ($input, $output) = @ARGV;
	12	my @cmds = ('objcopy');
	13
	14	open my $nm, '-\|', 'nm', $input or die "cannot run nm: $!";
	15	while (<$nm>) {
	16	next if not m/SPACE/;
	17	chomp;
	18	my $x = (split / /, $_, 3)[2];
	19	my $y = $x =~ s/SPACE/SPA CE/r;
	20	push @cmds, "--redefine-sym=$x=$y";
	21	}
	22	close $nm;
	23
	24	push @cmds, $input, $output;
	25	exec @cmds;