diff options
Diffstat (limited to 'devel/kdevelop/files/patch-admin-detect-autoconf.pl')
| -rw-r--r-- | devel/kdevelop/files/patch-admin-detect-autoconf.pl | 246 |
1 files changed, 0 insertions, 246 deletions
diff --git a/devel/kdevelop/files/patch-admin-detect-autoconf.pl b/devel/kdevelop/files/patch-admin-detect-autoconf.pl deleted file mode 100644 index 6ee621816523..000000000000 --- a/devel/kdevelop/files/patch-admin-detect-autoconf.pl +++ /dev/null @@ -1,246 +0,0 @@ ---- admin/detect-autoconf.pl.orig 2008-02-13 14:19:34.000000000 +0100 -+++ admin/detect-autoconf.pl 2008-02-27 15:46:54.000000000 +0100 -@@ -3,6 +3,9 @@ - # Try to locate best version of auto* - # By Michael Pyne <michael.pyne@kdemail.net> - # -+# Stripped down for new FreeBSD autotools environment -+# Ade Lovett <ade@FreeBSD.org> 2007-09-10 -+# - # Copyright (c) 2005. - # This code is public domain. You may use it however you like (including - # relicensing). -@@ -21,155 +24,6 @@ - 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 -@@ -183,17 +37,6 @@ - } - } - --# 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. -@@ -203,48 +46,16 @@ - 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" -+AUTOCONF="autoconf" -+AUTOHEADER="autoheader" -+AUTOM4TE="autom4te" - --AUTOMAKE="$automake" --ACLOCAL="$aclocal" -+AUTOMAKE="automake" -+ACLOCAL="aclocal" - - WHICH="$which" - -@@ -252,5 +63,3 @@ - EOF - - exit 0; -- --# vim: set noet ts=8 sw=4: |