mirror of
https://github.com/cookiengineer/audacity
synced 2026-01-23 17:25:54 +01:00
Generate AppImage on GitHub Actions
Fixes #695. Supersedes #172. See https://appimage.org/.
This commit is contained in:
Peter Jonas
205
linux/ldd_recursive.pl
Executable file
205
linux/ldd_recursive.pl
Executable file
@@ -0,0 +1,205 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
###############################################################################
|
||||
#
|
||||
# Written by Igor Ljubuncic (igor.ljubuncic@intel.com)
|
||||
# Yuval Nissan (yuval.nissan@intel.com)
|
||||
#
|
||||
# Version 1.0 on Mar 29, 2011
|
||||
#
|
||||
# This program performs recursive ldd checks for binaries and libraries
|
||||
# It recurses through entire ldd tree for every listed binary and library
|
||||
# It completes when no matches found in the current branch
|
||||
# Same limitations to standard ldd apply
|
||||
# ldd cannot check libraries with no permissions
|
||||
#
|
||||
###############################################################################
|
||||
|
||||
# /*
|
||||
#
|
||||
# This file is provided under a dual BSD/GPLv2 license. When using or
|
||||
# redistributing this file, you may do so under either license.
|
||||
#
|
||||
# GPL LICENSE SUMMARY
|
||||
#
|
||||
# Copyright(c) 2011 Intel Corporation. All rights reserved.
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of version 2 of the GNU General Public License as
|
||||
# published by the Free Software Foundation.
|
||||
#
|
||||
# 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, write to the Free Software
|
||||
# Foundation, Inc., 51 Franklin St - Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
# The full GNU General Public License is included in this distribution
|
||||
# in the file called LICENSE.GPL.
|
||||
#
|
||||
# Contact Information:
|
||||
# Igor Ljubuncic, igor.ljubuncic@intel.com
|
||||
# P.O.B 1659, MATAM, 31015 Haifa, Israel
|
||||
#
|
||||
# BSD LICENSE
|
||||
#
|
||||
# Copyright(c) 2011 Intel Corporation. All rights reserved.
|
||||
# All rights reserved.
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
# modification, are permitted provided that the following conditions
|
||||
# are met:
|
||||
#
|
||||
# * Redistributions of source code must retain the above copyright
|
||||
# notice, this list of conditions and the following disclaimer.
|
||||
# * Redistributions in binary form must reproduce the above copyright
|
||||
# notice, this list of conditions and the following disclaimer in
|
||||
# the documentation and/or other materials provided with the
|
||||
# distribution.
|
||||
# * Neither the name of Intel Corporation nor the names of its
|
||||
# contributors may be used to endorse or promote products derived
|
||||
# from this software without specific prior written permission.
|
||||
#
|
||||
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
||||
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
||||
# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
#
|
||||
# */
|
||||
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
use Getopt::Long;
|
||||
|
||||
# global variables
|
||||
# ----------------
|
||||
|
||||
my $result;
|
||||
my @inputs = ();
|
||||
my $helpoption=0;
|
||||
my $debug=0;
|
||||
my $verbose=0;
|
||||
my $sep;
|
||||
my $print_vars;
|
||||
my $uniq;
|
||||
my %uniq;
|
||||
|
||||
#############################################
|
||||
#############################################
|
||||
### ###
|
||||
### FUNCTION MAIN ###
|
||||
### ###
|
||||
#############################################
|
||||
#############################################
|
||||
|
||||
|
||||
GetOptions(
|
||||
'h|help+' => \$helpoption,
|
||||
'debug+' => \$verbose,
|
||||
't=s' => \$sep,
|
||||
'l' => \$print_vars,
|
||||
'uniq' => \$uniq
|
||||
);
|
||||
|
||||
if ($verbose==1) {
|
||||
# Print messages for debug purposes
|
||||
$debug = 1;
|
||||
}
|
||||
|
||||
if (($helpoption==1) || ($ARGV[0] eq "")) {
|
||||
print "\nRecursive ldd v1.00\n";
|
||||
print "Written by Igor Ljubuncic (igor.ljubuncic\@intel.com)\n";
|
||||
print "Written by Yuval Nissan (yuval.nissan\@intel.com)\n\n";
|
||||
print "Usage mode:\n\n";
|
||||
print "-d\t\tverbose output\n";
|
||||
print "-h|help\t\tprint help\n";
|
||||
print "-t\t\tdelimiter\n";
|
||||
print "-l\t\tprint env. variables\n";
|
||||
print "-uniq\t\tprint unique values only\n\n";
|
||||
exit 0;
|
||||
}
|
||||
|
||||
$sep ||= "\t";
|
||||
|
||||
push @inputs, @ARGV;
|
||||
|
||||
if($print_vars) {
|
||||
print "ldd output can be affected by:\n";
|
||||
print "\$LD_LIBRARY_PATH = '".$ENV{LD_LIBRARY_PATH}."'\n";
|
||||
print "\$LD_PRELOAD = '".$ENV{LD_PRELOAD}."'\n\n";
|
||||
}
|
||||
|
||||
&recurseLibs($inputs[0], 0);
|
||||
delete $uniq{$inputs[0]};
|
||||
print join("\n", keys(%uniq))."\n" if $uniq;
|
||||
|
||||
exit 0;
|
||||
|
||||
##############################
|
||||
##############################
|
||||
## ##
|
||||
## FUNCTIONS ##
|
||||
## ##
|
||||
##############################
|
||||
##############################
|
||||
|
||||
sub recurseLibs
|
||||
{
|
||||
my $filename=shift;
|
||||
my $depth = shift;
|
||||
print "Working on file: $filename\n" if $debug;
|
||||
print "$sep"x$depth if not $uniq;
|
||||
++$depth;
|
||||
return if $uniq{$filename} and $uniq;
|
||||
$uniq{$filename} = 1;
|
||||
print "$filename\n" if not $uniq;
|
||||
chomp(my @libraries = `/usr/bin/ldd $filename`);
|
||||
print "Libraries:\n@libraries\n" if $debug;
|
||||
|
||||
foreach my $line (@libraries) {
|
||||
next if not $line;
|
||||
$line =~ s/^\s+//g;
|
||||
$line =~ s/\s+$//g;
|
||||
# If static or else
|
||||
if (($line =~ /statically linked/) or ($line =~ /not a dynamic executable/)) {
|
||||
return;
|
||||
}
|
||||
elsif($line =~ /not found/) {
|
||||
print "$sep"x$depth if not $uniq;
|
||||
print "$line\n" if not $uniq;
|
||||
$uniq{$line} = 1;
|
||||
next;
|
||||
}
|
||||
|
||||
|
||||
# Split and recurse on libraries (third value is the lib path):
|
||||
my @newlibs = split(/\s+/,$line);
|
||||
print Dumper(\@newlibs) if $debug;
|
||||
|
||||
# Skip if no mapped or directly linked
|
||||
# Sane output comes with four elements
|
||||
if (scalar(@newlibs) < 4) {
|
||||
print "$sep"x$depth if not $uniq;
|
||||
print $newlibs[0]."\n" if not $uniq;
|
||||
$uniq{$newlibs[0]} = 1;
|
||||
next;
|
||||
}
|
||||
|
||||
print "\nI'm gonna enter recursion with $newlibs[2].\n\n" if $debug;
|
||||
&recurseLibs($newlibs[2], $depth);
|
||||
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
__END__
|
||||
Reference in New Issue
Block a user