You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
239 lines
6.7 KiB
239 lines
6.7 KiB
#!/usr/bin/env perl
|
|
# a script for use by autoconf to make the Makefiles
|
|
# from the Makefile.in's
|
|
#
|
|
# the original autoconf mechanism first splits all substitutions into groups
|
|
# of ca. 90, and than invokes sed for _every_ Makefile.in and every group
|
|
# (so around 2-3 times per Makefile.in). So this takes forever, as sed
|
|
# has to recompile the regexps every time.
|
|
#
|
|
# this script does better. It changes all Makefile.ins in one process.
|
|
# in tdelibs the time for building Makefile went down from 2:59 min to 13 sec!
|
|
#
|
|
# written by Michael Matz <matz@kde.org>
|
|
# adapted by Dirk Mueller <mueller@kde.org>
|
|
|
|
# This file is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU Library General Public
|
|
# License as published by the Free Software Foundation; either
|
|
# version 2 of the License, or (at your option) any later version.
|
|
|
|
# This library 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
|
|
# Library General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU Library General Public License
|
|
# along with this library; see the file COPYING.LIB. If not, write to
|
|
# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
# Boston, MA 02110-1301, USA.
|
|
|
|
use strict;
|
|
|
|
use File::Path;
|
|
|
|
my $ac_subs=$ARGV[0];
|
|
my $ac_sacfiles = $ARGV[1];
|
|
my $ac_given_srcdir=$ARGV[2];
|
|
my $ac_given_INSTALL=$ARGV[3];
|
|
|
|
my @comp_match;
|
|
my @comp_subs;
|
|
|
|
#print "ac_subs=$ac_subs\n";
|
|
#print "ac_sacfiles=$ac_sacfiles\n";
|
|
#print "ac_given_srcdir=$ac_given_srcdir\n";
|
|
#print "ac_given_INSTALL=$ac_given_INSTALL\n";
|
|
|
|
my $configure_input;
|
|
my ($srcdir, $top_srcdir);
|
|
my $INSTALL;
|
|
my $bad_perl = ($] < 5.005);
|
|
my $created_file_count = 0;
|
|
|
|
open(CF, "< $ac_subs") || die "can't open $ac_subs: $!";
|
|
my @subs = <CF>;
|
|
my $pat;
|
|
close(CF);
|
|
chomp @subs;
|
|
@comp_match=();
|
|
@comp_subs=();
|
|
|
|
if ($bad_perl) {
|
|
print "Using perl older than version 5.005\n";
|
|
foreach $pat (@subs) {
|
|
if ( ($pat =~ m/s%([^%]*)%([^%]*)%g/ )
|
|
|| ($pat =~ m/s%([^%]*)%([^%]*)%;t/ )
|
|
|| ($pat =~ m/s,([^,]*),(.*),;t/)
|
|
|| ($pat =~ m%s/([^/]*)/([^/]*)/g% )
|
|
|| ($pat =~ m%s/([^/]*)/([^/]*)/;t% )
|
|
) {
|
|
# form : s%bla%blubb%g
|
|
# or s%bla%blubb%;t t (autoconf > 2.13 and < 2.52 ?)
|
|
# or s,bla,blubb,;t t (autoconf 2.52)
|
|
my $srch = $1;
|
|
my $repl = $2;
|
|
$repl =~ s/\\(.)/$1/g;
|
|
push @comp_subs, make_closure($srch, $repl);
|
|
|
|
} elsif ( ($pat =~ /%([^%]*)%d/ )
|
|
|| ($pat =~ m%/([^/]*)/d% )
|
|
) {
|
|
push @comp_subs, make_closure($1, "");
|
|
} else {
|
|
die "Uhh. Malformed pattern in $ac_subs ($pat)"
|
|
unless ( $pat =~ /^\s*$/ ); # ignore white lines
|
|
}
|
|
}
|
|
} else {
|
|
foreach $pat (@subs) {
|
|
if ( ($pat =~ /s%([^%]*)%([^%]*)%g/ ) ||
|
|
($pat =~ /s%([^%]*)%([^%]*)%;t/ ) ||
|
|
($pat =~ /s,([^,]*),(.*),;t/) ) {
|
|
# form : s%bla%blubb%g
|
|
# or s%bla%blubb%;t t (autoconf > 2.13 and < 2.52 ?)
|
|
# or s,bla,blubb,;t t (autoconf 2.52)
|
|
my $srch = $1;
|
|
my $repl = $2;
|
|
push @comp_match, eval "qr/\Q$srch\E/"; # compile match pattern
|
|
$repl =~ s/\\(.)/$1/g;
|
|
push @comp_subs, $repl;
|
|
} elsif ( ($pat =~ /%([^%]*)%d/ )
|
|
|| ($pat =~ m%/([^/]*)/d% )
|
|
) {
|
|
push @comp_match, eval "qr/\Q$1\E/";
|
|
push @comp_subs, "";
|
|
} else {
|
|
die "Uhh. Malformed pattern in $ac_subs ($pat)"
|
|
unless ( $pat =~ /^\s*$/ ); # ignore white lines
|
|
}
|
|
}
|
|
}
|
|
undef @subs;
|
|
|
|
# read the list of files to be patched, form:
|
|
# ./Makefile arts/Makefile arts/examples/Makefile arts/flow/Makefile
|
|
|
|
open(CF, "< $ac_sacfiles") || die "can't open $ac_sacfiles: $!";
|
|
my @ac_files = <CF>;
|
|
close(CF);
|
|
chomp @ac_files;
|
|
|
|
|
|
my $ac_file;
|
|
foreach $ac_file (@ac_files) {
|
|
next if $ac_file =~ /\.\./;
|
|
next if $ac_file =~ /^\s*$/;
|
|
my $ac_file_in;
|
|
my ($ac_dir, $ac_dots, $ac_dir_suffix);
|
|
|
|
if ($ac_file =~ /.*:.*/ ) {
|
|
($ac_file_in = $ac_file) =~ s%[^:]*:%%;
|
|
$ac_file =~ s%:.*%%;
|
|
} else {
|
|
$ac_file_in = $ac_file.".in";
|
|
}
|
|
|
|
# Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories.
|
|
|
|
# Remove last slash and all that follows it. Not all systems have dirname.
|
|
($ac_dir = $ac_file) =~ s%/[^/][^/]*$%%;
|
|
if ( ($ac_dir ne $ac_file) && ($ac_dir ne ".")) {
|
|
# The file is in a subdirectory.
|
|
if (! -d "$ac_dir") { mkpath "$ac_dir", 0, 0777; }
|
|
($ac_dir_suffix = $ac_dir) =~ s%^./%%;
|
|
$ac_dir_suffix="/".$ac_dir_suffix;
|
|
# A "../" for each directory in $ac_dir_suffix.
|
|
($ac_dots = $ac_dir_suffix) =~ s%/[^/]*%../%g;
|
|
} else {
|
|
$ac_dir_suffix="";
|
|
$ac_dots="";
|
|
}
|
|
|
|
if ($ac_given_srcdir eq ".") {
|
|
$srcdir=".";
|
|
if ($ac_dots) {
|
|
( $top_srcdir = $ac_dots) =~ s%/$%%;
|
|
} else { $top_srcdir="."; }
|
|
} elsif ($ac_given_srcdir =~ m%^/%) {
|
|
$srcdir=$ac_given_srcdir.$ac_dir_suffix;
|
|
$top_srcdir = $ac_given_srcdir;
|
|
} else {
|
|
$srcdir = $ac_dots.$ac_given_srcdir.$ac_dir_suffix;
|
|
$top_srcdir = $ac_dots.$ac_given_srcdir;
|
|
}
|
|
|
|
if ($ac_given_INSTALL) {
|
|
if ($ac_given_INSTALL =~ m%^/% ) {
|
|
$INSTALL = $ac_given_INSTALL;
|
|
} else {
|
|
$INSTALL = $ac_dots.$ac_given_INSTALL;
|
|
}
|
|
}
|
|
|
|
print "fast creating $ac_file\n";
|
|
unlink $ac_file;
|
|
my $ac_comsub="";
|
|
my $fname=$ac_file_in;
|
|
$fname =~ s%.*/%%;
|
|
$configure_input="$ac_file. Generated from $fname by config.pl.";
|
|
|
|
my $ac_file_inputs;
|
|
($ac_file_inputs = $ac_file_in) =~ s%^%$ac_given_srcdir/%;
|
|
$ac_file_inputs =~ s%:% $ac_given_srcdir/%g;
|
|
|
|
patch_file($ac_file, $ac_file_inputs);
|
|
++$created_file_count;
|
|
}
|
|
|
|
print "config.pl: fast created $created_file_count file(s).\n";
|
|
|
|
sub patch_file {
|
|
my ($outf, $infiles) = @_;
|
|
my $filedata;
|
|
my @infiles=split(' ', $infiles);
|
|
my $i=0;
|
|
my $name;
|
|
|
|
foreach $name (@infiles) {
|
|
if (open(CF, "< $name")) {
|
|
while (<CF>) {
|
|
$filedata .= $_;
|
|
}
|
|
close(CF);
|
|
} else {
|
|
print STDERR "can't open $name: $!"."\n";
|
|
}
|
|
}
|
|
|
|
$filedata =~ s%\@configure_input\@%$configure_input%g;
|
|
$filedata =~ s%\@srcdir\@%$srcdir%g;
|
|
$filedata =~ s%\@top_srcdir\@%$top_srcdir%g;
|
|
$filedata =~ s%\@INSTALL\@%$INSTALL%g;
|
|
|
|
if ($bad_perl) {
|
|
while ($i <= $#comp_subs) {
|
|
my $ref = $comp_subs[$i];
|
|
&$ref(\$filedata);
|
|
$i++;
|
|
}
|
|
} else {
|
|
while ($i <= $#comp_match) {
|
|
$filedata =~ s/$comp_match[$i]/$comp_subs[$i]/g;
|
|
$i++;
|
|
}
|
|
}
|
|
open(CF, "> $outf") || die "can't create $outf: $!";
|
|
print CF $filedata;
|
|
close(CF);
|
|
}
|
|
|
|
sub make_closure {
|
|
my ($pat, $sub) = @_;
|
|
my $ret = eval "return sub { my \$ref=shift; \$\$ref =~ s%\Q$pat\E%\Q$sub\E%g; }";
|
|
if ($@) {
|
|
print "can't create CODE: $@\n";
|
|
}
|
|
return $ret;
|
|
}
|