mirror of
https://github.com/taglib/taglib.git
synced 2025-07-18 13:04:18 -04:00
replace external with a copy of the admin dir, as suggested by Jeff Mitchell
git-svn-id: svn://anonsvn.kde.org/home/kde/trunk/kdesupport/taglib@1010858 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
This commit is contained in:
David Faure
256
admin/detect-autoconf.pl
Executable file
256
admin/detect-autoconf.pl
Executable file
@ -0,0 +1,256 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
# Try to locate best version of auto*
|
||||
# By Michael Pyne <michael.pyne@kdemail.net>
|
||||
#
|
||||
# Copyright (c) 2005.
|
||||
# This code is public domain. You may use it however you like (including
|
||||
# relicensing).
|
||||
|
||||
# Emulate the 'which' program.
|
||||
sub which
|
||||
{
|
||||
my $prog = shift;
|
||||
my @paths = split(/:/, $ENV{'PATH'});
|
||||
|
||||
for $path (@paths)
|
||||
{
|
||||
return "$path/$prog" if -x "$path/$prog";
|
||||
}
|
||||
|
||||
return "";
|
||||
}
|
||||
|
||||
# Subroutine to lexicographically compare two version strings, a and b.
|
||||
# If a > b, 1 is returned.
|
||||
# If a == b, 0 is returned.
|
||||
# If a < b, -1 is returned.
|
||||
#
|
||||
# If the strings are of uneven number length then the shorter string is
|
||||
# prepended by enough zeroes to make the two string lengths equal in order to
|
||||
# allow an accurate comparison. Note that the zero-padding only occurs in
|
||||
# between version separators (i.e. 1.6 and 1.10, results in 1.06 vs. 1.10).
|
||||
# Parts of the version ending in -foo (or any other text) are not considered
|
||||
# when doing the compare. (i.e. 2.53a vs 2.53 doesn't end up in 2.53a vs.
|
||||
# 2.053)
|
||||
sub compareVersions
|
||||
{
|
||||
my ($a, $b) = @_;
|
||||
|
||||
# Split the strings up by '.' (version separator) and start comparing digit
|
||||
# length.
|
||||
|
||||
my @aParts = split(/\./, $a);
|
||||
my @bParts = split(/\./, $b);
|
||||
|
||||
# Make the arrays equal in length by adding missing zeroes to the end of the
|
||||
# version.
|
||||
push @aParts, '0' while scalar @aParts < scalar @bParts;
|
||||
push @bParts, '0' while scalar @bParts < scalar @aParts;
|
||||
|
||||
# Now compare each individual portion.
|
||||
for (my $i = 0; $i < scalar @aParts; ++$i)
|
||||
{
|
||||
# Make sure that any portion that has numbers is contiguous. I'm sure
|
||||
# there's a technique for saving stuff like 2.52a2 but I don't feel
|
||||
# like implementing it.
|
||||
if ($aParts[$i] !~ /^[^\d]*\d+[^\d]*$/ or
|
||||
$bParts[$i] !~ /^[^\d]*\d+[^\d]*$/)
|
||||
{
|
||||
die "Not able to compare $a to $b!\n";
|
||||
}
|
||||
|
||||
my ($aDigits) = ($aParts[$i] =~ /(\d+)/);
|
||||
my ($bDigits) = ($bParts[$i] =~ /(\d+)/);
|
||||
|
||||
# Perl is $MODERATELY_INSULTING_TERM, don't remove the parentheses in
|
||||
# the delta calculation below.
|
||||
my $delta = (length $aDigits) - (length $bDigits);
|
||||
if ($delta < 0) # b is longer
|
||||
{
|
||||
my $replacement = ('0' x (-$delta)) . $aDigits;
|
||||
$aParts[$i] =~ s/$aDigits/$replacement/;
|
||||
}
|
||||
elsif ($delta > 0) # a is longer
|
||||
{
|
||||
my $replacement = ('0' x $delta) . $bDigits;
|
||||
$bParts[$i] =~ s/$bDigits/$replacement/;
|
||||
}
|
||||
}
|
||||
|
||||
# Arrays now have standardized version components, let's re-merge them
|
||||
# to strings to do the compare.
|
||||
my $newA = join('.', @aParts);
|
||||
my $newB = join('.', @bParts);
|
||||
|
||||
return 1 if ($newA gt $newB);
|
||||
return -1 if ($newA lt $newB);
|
||||
return 0;
|
||||
}
|
||||
|
||||
# Subroutine to determine the highest installed version of the given program,
|
||||
# searching from the given paths.
|
||||
sub findBest
|
||||
{
|
||||
my ($program, @paths) = @_;
|
||||
my $best_version_found = '0'; # Deliberately a string.
|
||||
my %versions;
|
||||
my %minimumVersions = (
|
||||
'autoconf' => '2.5',
|
||||
'automake' => '1.6',
|
||||
);
|
||||
my $sgn; # Used for compareVersions results.
|
||||
|
||||
# Allow user to use environment variable to override search.
|
||||
return $ENV{uc $program} if $ENV{uc $program};
|
||||
|
||||
for $prefix (@paths)
|
||||
{
|
||||
@files = glob "$prefix/$program*";
|
||||
for $file (@files)
|
||||
{
|
||||
# Don't check non-executable scripts.
|
||||
next unless -x $file;
|
||||
|
||||
($version) = $file =~ /$prefix\/$program-?(.*)$/;
|
||||
|
||||
# Don't check the -wrapper ones (or any other non program one).
|
||||
# The real deal should start with a version number, or have no
|
||||
# suffix at all.
|
||||
next if $version =~ /^[^\d]/;
|
||||
|
||||
# Special case some programs to make sure it has a minimum version.
|
||||
if (not $version and exists $minimumVersions{$program})
|
||||
{
|
||||
my $min_version = $minimumVersions{$program};
|
||||
my $versionOutput = `$program --version 2>/dev/null | head -n 1`;
|
||||
|
||||
# If we can't run the script to get the version it likely won't work later.
|
||||
next unless $versionOutput;
|
||||
|
||||
# Use number.number for version (we don't need the excess in general).
|
||||
($versionOutput) = ($versionOutput =~ /(\d+\.\d+)/);
|
||||
|
||||
# compareVersions returns -1 if the left argument is less than
|
||||
# the right argument. It can also die for invalid input so
|
||||
# wrap with eval.
|
||||
eval {
|
||||
$sgn = compareVersions($versionOutput, $min_version);
|
||||
};
|
||||
|
||||
# $@ would be set if an error was encountered.
|
||||
if ($@ or not $versionOutput or $sgn == -1) {
|
||||
next;
|
||||
}
|
||||
}
|
||||
|
||||
# If no version suffix then use it in favor of a versioned autotool
|
||||
# since the ever-popular WANT_AUTOFOO should then work (in theory).
|
||||
return $file unless $version;
|
||||
|
||||
# Emulate 'which', and abort if we've already seen this version.
|
||||
next if exists $versions{$version};
|
||||
|
||||
# Save filename of program.
|
||||
$versions{$version} = $file;
|
||||
|
||||
# Use string comparison so that e.g. 253a will be > 253 but < 254.
|
||||
# See above about the need for eval.
|
||||
eval {
|
||||
$sgn = compareVersions($version, $best_version_found);
|
||||
};
|
||||
|
||||
if (not $@ and $sgn == 1)
|
||||
{
|
||||
$best_version_found = $version;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return $versions{$best_version_found};
|
||||
}
|
||||
|
||||
# Find an appropriate "which" program for later use by the shell script calling
|
||||
# us.
|
||||
sub findWhich
|
||||
{
|
||||
for $candidate ('type -p', 'which', 'type')
|
||||
{
|
||||
$test = `$candidate sh 2>/dev/null`;
|
||||
chomp $test;
|
||||
|
||||
return $candidate if -x $test;
|
||||
}
|
||||
}
|
||||
|
||||
# Uses which() to find a program unless the user provided its path in the
|
||||
# environment (the upper case program name is searched).
|
||||
sub findProgram
|
||||
{
|
||||
$suffix = ""; # For use if @_ has only one param.
|
||||
my ($program, $suffix) = @_;
|
||||
|
||||
return $ENV{uc $program} if $ENV{uc $program};
|
||||
return which("$program$suffix");
|
||||
}
|
||||
|
||||
# SCRIPT STARTS.
|
||||
|
||||
# Search in path.
|
||||
@paths = split(/:/, $ENV{'PATH'});
|
||||
|
||||
# Make sure at least /usr/bin and /usr/local/bin are in this search.
|
||||
unshift @paths, '/usr/local/bin' unless grep $_ eq '/usr/local/bin', @paths;
|
||||
unshift @paths, '/usr/bin' unless grep $_ eq '/usr/bin', @paths;
|
||||
|
||||
$autoconf = findBest('autoconf', @paths);
|
||||
($autoconf_suffix) = $autoconf =~ /.*autoconf(.*)$/;
|
||||
|
||||
# Find matching autoconf companions.
|
||||
$autoheader = findProgram('autoheader', $autoconf_suffix);
|
||||
$autom4te = findProgram('autom4te', $autoconf_suffix);
|
||||
|
||||
# Get best automake, and look for unsermake to possibly override it.
|
||||
$automake = findBest('automake', @paths);
|
||||
$unsermake = "";
|
||||
# backward compatible: if $UNSERMAKE points to a path, use it
|
||||
$unsermake = findProgram('unsermake') if (defined($ENV{'UNSERMAKE'}) and $ENV{'UNSERMAKE'} =~ /\//);
|
||||
# new compatible: if it says 'yes', use the one from path
|
||||
$unsermake = which('unsermake') if ($ENV{'UNSERMAKE'} ne 'no');
|
||||
|
||||
($automake_suffix) = $automake =~ /.*automake(.*)$/;
|
||||
|
||||
# Find matching automake companions.
|
||||
$aclocal = findProgram('aclocal', $automake_suffix);
|
||||
|
||||
# Use unsermake if we found it.
|
||||
$automake = "$unsermake -c" if ($unsermake and $aclocal);
|
||||
|
||||
$which = findWhich();
|
||||
|
||||
# Make sure we have all of the needed programs.
|
||||
for $i (qw'autoconf autoheader autom4te automake aclocal')
|
||||
{
|
||||
unless(${$i})
|
||||
{
|
||||
print STDERR "# Unable to find $i!!\n";
|
||||
}
|
||||
}
|
||||
|
||||
# Print results in eval-able form.
|
||||
print <<EOF;
|
||||
AUTOCONF="$autoconf"
|
||||
AUTOHEADER="$autoheader"
|
||||
AUTOM4TE="$autom4te"
|
||||
|
||||
AUTOMAKE="$automake"
|
||||
ACLOCAL="$aclocal"
|
||||
|
||||
WHICH="$which"
|
||||
|
||||
export AUTOCONF AUTOHEADER AUTOM4TE AUTOMAKE ACLOCAL WHICH
|
||||
EOF
|
||||
|
||||
exit 0;
|
||||
|
||||
# vim: set noet ts=8 sw=4:
|
||||
Reference in New Issue
Block a user