[SCM] Debian Qt/KDE packaging tools branch, master, updated. debian/0.5.3-40-g3d6cb8b
Modestas Vainius
modax at alioth.debian.org
Mon Jan 18 00:55:00 UTC 2010
The following commit has been merged in the master branch:
commit 3d6cb8b7b358d812f1555e46067d842029cf9e5f
Author: Modestas Vainius <modestas at vainius.eu>
Date: Mon Jan 18 02:52:57 2010 +0200
Drop Dpkg::Shlibs::Objdump.pm. Original version can be used instead.
---
symbolshelper/Dpkg/Shlibs/Objdump.pm | 388 ----------------------------------
1 files changed, 0 insertions(+), 388 deletions(-)
diff --git a/symbolshelper/Dpkg/Shlibs/Objdump.pm b/symbolshelper/Dpkg/Shlibs/Objdump.pm
deleted file mode 100644
index 03ce938..0000000
--- a/symbolshelper/Dpkg/Shlibs/Objdump.pm
+++ /dev/null
@@ -1,388 +0,0 @@
-# Copyright © 2007 Raphaël Hertzog <hertzog at debian.org>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-use strict;
-use warnings;
-
-package Dpkg::Shlibs::Objdump;
-
-use Dpkg::Gettext;
-use Dpkg::ErrorHandling;
-
-sub new {
- my $this = shift;
- my $class = ref($this) || $this;
- my $self = { 'objects' => {} };
- bless $self, $class;
- return $self;
-}
-
-sub add_object {
- my ($self, $obj) = @_;
- my $id = $obj->get_id;
- if ($id) {
- $self->{objects}{$id} = $obj;
- }
- return $id;
-}
-
-sub parse {
- my ($self, $file) = @_;
- my $obj = Dpkg::Shlibs::Objdump::Object->new($file);
-
- return $self->add_object($obj);
-}
-
-sub locate_symbol {
- my ($self, $name) = @_;
- foreach my $obj (values %{$self->{objects}}) {
- my $sym = $obj->get_symbol($name);
- if (defined($sym) && $sym->{defined}) {
- return $sym;
- }
- }
- return undef;
-}
-
-sub get_object {
- my ($self, $objid) = @_;
- if ($self->has_object($objid)) {
- return $self->{objects}{$objid};
- }
- return undef;
-}
-
-sub has_object {
- my ($self, $objid) = @_;
- return exists $self->{objects}{$objid};
-}
-
-{
- my %format; # Cache of result
- sub get_format {
- my ($file) = @_;
-
- if (exists $format{$file}) {
- return $format{$file};
- } else {
- local $ENV{LC_ALL} = "C";
- open(P, "-|", "objdump", "-a", "--", $file)
- || syserr(_g("cannot fork for %s"), "objdump");
- while (<P>) {
- chomp;
- if (/^\s*\S+:\s*file\s+format\s+(\S+)\s*$/) {
- $format{$file} = $1;
- return $format{$file};
- }
- }
- close(P) or subprocerr(_g("objdump on \`%s'"), $file);
- }
- }
-}
-
-sub is_elf {
- my ($file) = @_;
- open(FILE, "<", $file) || syserr(_g("cannot read %s"), $file);
- my ($header, $result) = ("", 0);
- if (read(FILE, $header, 4) == 4) {
- $result = 1 if ($header =~ /^\177ELF$/);
- }
- close(FILE);
- return $result;
-}
-
-package Dpkg::Shlibs::Objdump::Object;
-
-use Dpkg::Gettext;
-use Dpkg::ErrorHandling;
-
-sub new {
- my $this = shift;
- my $file = shift || '';
- my $class = ref($this) || $this;
- my $self = {};
- bless $self, $class;
-
- $self->reset;
- if ($file) {
- $self->_read($file);
- }
-
- return $self;
-}
-
-sub reset {
- my ($self) = @_;
-
- $self->{file} = '';
- $self->{id} = '';
- $self->{SONAME} = '';
- $self->{HASH} = '';
- $self->{GNU_HASH} = '';
- $self->{SONAME} = '';
- $self->{NEEDED} = [];
- $self->{RPATH} = [];
- $self->{dynsyms} = {};
- $self->{flags} = {};
- $self->{dynrelocs} = {};
-
- return $self;
-}
-
-
-sub _read {
- my ($self, $file) = @_;
-
- $file ||= $self->{file};
- return unless $file;
-
- $self->reset;
- $self->{file} = $file;
-
- local $ENV{LC_ALL} = 'C';
- open(my $objdump, "-|", "objdump", "-w", "-f", "-p", "-T", "-R", $file)
- || syserr(_g("cannot fork for %s"), "objdump");
- my $ret = $self->_parse($objdump);
- close($objdump);
- return $ret;
-}
-
-sub _parse {
- my ($self, $fh) = @_;
-
- my $section = "none";
- while (defined($_ = <$fh>)) {
- chomp;
- next if /^\s*$/;
-
- if (/^DYNAMIC SYMBOL TABLE:/) {
- $section = "dynsym";
- next;
- } elsif (/^DYNAMIC RELOCATION RECORDS/) {
- $section = "dynreloc";
- $_ = <$fh>; # Skip header
- next;
- } elsif (/^Dynamic Section:/) {
- $section = "dyninfo";
- next;
- } elsif (/^Program Header:/) {
- $section = "header";
- next;
- } elsif (/^Version definitions:/) {
- $section = "verdef";
- next;
- } elsif (/^Version References:/) {
- $section = "verref";
- next;
- }
-
- if ($section eq "dynsym") {
- $self->parse_dynamic_symbol($_);
- } elsif ($section eq "dynreloc") {
- if (/^\S+\s+(\S+)\s+(\S+)\s*$/) {
- $self->{dynrelocs}{$2} = $1;
- } else {
- warning(_g("Couldn't parse dynamic relocation record: %s"), $_);
- }
- } elsif ($section eq "dyninfo") {
- if (/^\s*NEEDED\s+(\S+)/) {
- push @{$self->{NEEDED}}, $1;
- } elsif (/^\s*SONAME\s+(\S+)/) {
- $self->{SONAME} = $1;
- } elsif (/^\s*HASH\s+(\S+)/) {
- $self->{HASH} = $1;
- } elsif (/^\s*GNU_HASH\s+(\S+)/) {
- $self->{GNU_HASH} = $1;
- } elsif (/^\s*RUNPATH\s+(\S+)/) {
- # RUNPATH takes precedence over RPATH but is
- # considered after LD_LIBRARY_PATH while RPATH
- # is considered before (if RUNPATH is not set).
- $self->{RPATH} = [ split (/:/, $1) ];
- } elsif (/^\s*RPATH\s+(\S+)/) {
- unless (scalar(@{$self->{RPATH}})) {
- $self->{RPATH} = [ split (/:/, $1) ];
- }
- }
- } elsif ($section eq "none") {
- if (/^\s*\S+:\s*file\s+format\s+(\S+)\s*$/) {
- $self->{format} = $1;
- } elsif (/^architecture:\s*\S+,\s*flags\s*\S+:\s*$/) {
- # Parse 2 lines of "-f"
- # architecture: i386, flags 0x00000112:
- # EXEC_P, HAS_SYMS, D_PAGED
- # start address 0x08049b50
- $_ = <$fh>;
- chomp;
- $self->{flags}{$_} = 1 foreach (split(/,\s*/));
- }
- }
- }
- # Update status of dynamic symbols given the relocations that have
- # been parsed after the symbols...
- $self->apply_relocations();
-
- return $section ne "none";
-}
-
-# Output format of objdump -w -T
-#
-# /lib/libc.so.6: file format elf32-i386
-#
-# DYNAMIC SYMBOL TABLE:
-# 00056ef0 g DF .text 000000db GLIBC_2.2 getwchar
-# 00000000 g DO *ABS* 00000000 GCC_3.0 GCC_3.0
-# 00069960 w DF .text 0000001e GLIBC_2.0 bcmp
-# 00000000 w D *UND* 00000000 _pthread_cleanup_pop_restore
-# 0000b788 g DF .text 0000008e Base .protected xine_close
-# 0000b788 g DF .text 0000008e .hidden IA__g_free
-# | ||||||| | | | |
-# | ||||||| | | Version str (.visibility) + Symbol name
-# | ||||||| | Alignment
-# | ||||||| Section name (or *UND* for an undefined symbol)
-# | ||||||F=Function,f=file,O=object
-# | |||||d=debugging,D=dynamic
-# | ||||I=Indirect
-# | |||W=warning
-# | ||C=constructor
-# | |w=weak
-# | g=global,l=local,!=both global/local
-# Size of the symbol
-#
-# GLIBC_2.2 is the version string associated to the symbol
-# (GLIBC_2.2) is the same but the symbol is hidden, a newer version of the
-# symbol exist
-
-sub parse_dynamic_symbol {
- my ($self, $line) = @_;
- my $vis_re = '(\.protected|\.hidden|\.internal|0x\S+)';
- if ($line =~ /^[0-9a-f]+ (.{7})\s+(\S+)\s+[0-9a-f]+(?:\s+(\S+))?(?:\s+$vis_re)?\s+(\S+)/) {
-
- my ($flags, $sect, $ver, $vis, $name) = ($1, $2, $3, $4, $5);
-
- # Special case if version is missing but extra visibility
- # attribute replaces it in the match
- if (defined($ver) and $ver =~ /^$vis_re$/) {
- $vis = $ver;
- $ver = '';
- }
-
- # Cleanup visibility field
- $vis =~ s/^\.// if defined($vis);
-
- my $symbol = {
- name => $name,
- version => defined($ver) ? $ver : '',
- section => $sect,
- dynamic => substr($flags, 5, 1) eq "D",
- debug => substr($flags, 5, 1) eq "d",
- type => substr($flags, 6, 1),
- weak => substr($flags, 1, 1) eq "w",
- local => substr($flags, 0, 1) eq "l",
- global => substr($flags, 0, 1) eq "g",
- visibility => defined($vis) ? $vis : '',
- hidden => '',
- defined => $sect ne '*UND*'
- };
-
- # Handle hidden symbols
- if (defined($ver) and $ver =~ /^\((.*)\)$/) {
- $ver = $1;
- $symbol->{version} = $1;
- $symbol->{hidden} = 1;
- }
-
- # Register symbol
- $self->add_dynamic_symbol($symbol);
- } elsif ($line =~ /^[0-9a-f]+ (.{7})\s+(\S+)\s+[0-9a-f]+/) {
- # Same start but no version and no symbol ... just ignore
- } elsif ($line =~ /^REG_G\d+\s+/) {
- # Ignore some s390-specific output like
- # REG_G6 g R *UND* 0000000000000000 #scratch
- } else {
- warning(_g("Couldn't parse dynamic symbol definition: %s"), $line);
- }
-}
-
-sub apply_relocations {
- my ($self) = @_;
- foreach my $sym (values %{$self->{dynsyms}}) {
- # We want to mark as undefined symbols those which are currently
- # defined but that depend on a copy relocation
- next if not $sym->{'defined'};
- next if not exists $self->{dynrelocs}{$sym->{name}};
- if ($self->{dynrelocs}{$sym->{name}} =~ /^R_.*_COPY$/) {
- $sym->{'defined'} = 0;
- }
- }
-}
-
-sub add_dynamic_symbol {
- my ($self, $symbol) = @_;
- $symbol->{objid} = $symbol->{soname} = $self->get_id();
- $symbol->{soname} =~ s{^.*/}{} unless $self->{SONAME};
- if ($symbol->{version}) {
- $self->{dynsyms}{$symbol->{name} . '@' . $symbol->{version}} = $symbol;
- } else {
- $self->{dynsyms}{$symbol->{name} . '@Base'} = $symbol;
- }
-}
-
-sub get_id {
- my $self = shift;
- return $self->{SONAME} || $self->{file};
-}
-
-sub get_symbol {
- my ($self, $name) = @_;
- if (exists $self->{dynsyms}{$name}) {
- return $self->{dynsyms}{$name};
- }
- if ($name !~ /@/) {
- if (exists $self->{dynsyms}{$name . '@Base'}) {
- return $self->{dynsyms}{$name . '@Base'};
- }
- }
- return undef;
-}
-
-sub get_exported_dynamic_symbols {
- my ($self) = @_;
- return grep { $_->{defined} && $_->{dynamic} && !$_->{local} }
- values %{$self->{dynsyms}};
-}
-
-sub get_undefined_dynamic_symbols {
- my ($self) = @_;
- return grep { (!$_->{defined}) && $_->{dynamic} }
- values %{$self->{dynsyms}};
-}
-
-sub get_needed_libraries {
- my $self = shift;
- return @{$self->{NEEDED}};
-}
-
-sub is_executable {
- my $self = shift;
- return exists $self->{flags}{EXEC_P} && $self->{flags}{EXEC_P};
-}
-
-sub is_public_library {
- my $self = shift;
- return exists $self->{flags}{DYNAMIC} && $self->{flags}{DYNAMIC}
- && exists $self->{SONAME} && $self->{SONAME};
-}
-
-1;
--
Debian Qt/KDE packaging tools
More information about the pkg-kde-commits
mailing list