developer.intra2net.com Git - libftdi/blob - admin/config.pl

   1 #!/usr/bin/perl
   2 # a script for use by autoconf to make the Makefiles
   3 # from the Makefile.in's
   4 #
   5 # the original autoconf mechanism first splits all substitutions into groups
   6 # of ca. 90, and than invokes sed for _every_ Makefile.in and every group
   7 # (so around 2-3 times per Makefile.in). So this takes forever, as sed
   8 # has to recompile the regexps every time.
   9 #
  10 # this script does better. It changes all Makefile.ins in one process.
  11 # in kdelibs the time for building Makefile went down from 2:59 min to 13 sec!
  12 #
  13 # written by Michael Matz <matz@kde.org>
  14 # adapted by Dirk Mueller <mueller@kde.org>
  15
  16 #   This file is free software; you can redistribute it and/or
  17 #   modify it under the terms of the GNU Library General Public
  18 #   License as published by the Free Software Foundation; either
  19 #   version 2 of the License, or (at your option) any later version.
  20
  21 #   This library is distributed in the hope that it will be useful,
  22 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  24 #   Library General Public License for more details.
  25
  26 #   You should have received a copy of the GNU Library General Public License
  27 #   along with this library; see the file COPYING.LIB.  If not, write to
  28 #   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  29 #   Boston, MA 02111-1307, USA.
  30
  31 my $ac_subs=$ARGV[0];
  32 my $ac_sacfiles = $ARGV[1];
  33 my $ac_given_srcdir=$ARGV[2];
  34 my $ac_given_INSTALL=$ARGV[3];
  35
  36 #print "ac_subs=$ac_subs\n";
  37 #print "ac_sacfiles=$ac_sacfiles\n";
  38 #print "ac_given_srcdir=$ac_given_srcdir\n";
  39 #print "ac_given_INSTALL=$ac_given_INSTALL\n";
  40
  41 my ($srcdir, $top_srcdir);
  42 my $INSTALL;
  43 my $bad_perl = ($] < 5.005);
  44
  45 open(CF, "< $ac_subs") || die "can't open $ac_subs: $!";
  46 my @subs = <CF>;
  47 close(CF);
  48 chomp @subs;
  49 @comp_match=();
  50 @comp_subs=();
  51
  52 if ($bad_perl) {
  53     print "Using perl older than version 5.005\n";
  54     foreach my $pat (@subs) {
  55         if (  ($pat =~ m/s%([^%]*)%([^%]*)%g/ )
  56            || ($pat =~ m/s%([^%]*)%([^%]*)%;t/ )
  57            || ($pat =~ m/s,([^,]*),(.*),;t/)
  58            || ($pat =~ m%s/([^/]*)/([^/]*)/g% )
  59            || ($pat =~ m%s/([^/]*)/([^/]*)/;t% )
  60            ) {
  61             # form : s%bla%blubb%g
  62             # or     s%bla%blubb%;t t   (autoconf > 2.13 and < 2.52 ?)
  63             # or     s,bla,blubb,;t t   (autoconf 2.52)
  64             my $srch = $1;
  65             my $repl = $2;
  66             $repl =~ s/\\(.)/$1/g;
  67             push @comp_subs, make_closure($srch, $repl);
  68
  69         } elsif ( ($pat =~ /%([^%]*)%d/ )
  70            || ($pat =~ m%/([^/]*)/d% )
  71            ) {
  72             push @comp_subs, make_closure($1, "");
  73         } else {
  74             die "Uhh. Malformed pattern in $ac_subs ($pat)"
  75                 unless ( $pat =~ /^\s*$/ );   # ignore white lines
  76         }
  77     }
  78 } else {
  79     foreach my $pat (@subs) {
  80        if ( ($pat =~ /s%([^%]*)%([^%]*)%g/ ) ||
  81             ($pat =~ /s%([^%]*)%([^%]*)%;t/ ) ||
  82             ($pat =~ /s,([^,]*),(.*),;t/) ) {
  83          # form : s%bla%blubb%g
  84          # or     s%bla%blubb%;t t   (autoconf > 2.13 and < 2.52 ?)
  85          # or     s,bla,blubb,;t t   (autoconf 2.52)
  86          my $srch = $1;
  87          my $repl = $2;
  88          push @comp_match, eval "qr/\Q$srch\E/";  # compile match pattern
  89          $repl =~ s/\\(.)/$1/g;
  90          push @comp_subs, $repl;
  91       } elsif ( ($pat =~ /%([^%]*)%d/ )
  92                 || ($pat =~ m%/([^/]*)/d% )
  93               ) {
  94         push @comp_match, eval "qr/\Q$1\E/";
  95         push @comp_subs, "";
  96       } else {
  97           die "Uhh. Malformed pattern in $ac_cs_root.subs ($pat)"
  98           unless ( $pat =~ /^\s*$/ );   # ignore white lines
  99       }
 100     }
 101 }
 102 undef @subs;
 103
 104 # read the list of files to be patched, form:
 105 # ./Makefile arts/Makefile arts/examples/Makefile arts/flow/Makefile
 106
 107 open(CF, "< $ac_sacfiles") || die "can't open $ac_sacfiles: $!";
 108 my @ac_files = <CF>;
 109 close(CF);
 110 chomp @ac_files;
 111
 112
 113 my $ac_file;
 114 foreach $ac_file (@ac_files) {
 115     next if $ac_file =~ /\.\./;
 116     next if $ac_file =~ /^\s*$/;
 117     my $ac_file_in;
 118     my ($ac_dir, $ac_dots, $ac_dir_suffix);
 119
 120     if ($ac_file =~ /.*:.*/ ) {
 121         ($ac_file_in = $ac_file) =~ s%[^:]*:%%;
 122         $ac_file =~ s%:.*%%;
 123     } else {
 124         $ac_file_in = $ac_file.".in";
 125     }
 126
 127 # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories.
 128
 129 # Remove last slash and all that follows it.  Not all systems have dirname.
 130     ($ac_dir = $ac_file) =~ s%/[^/][^/]*$%%;
 131     if ( ($ac_dir ne $ac_file) && ($ac_dir ne ".")) {
 132 # The file is in a subdirectory.
 133         if (! -d "$ac_dir") { mkdir "$ac_dir", 0777; }
 134         ($ac_dir_suffix = $ac_dir) =~ s%^./%%;
 135         $ac_dir_suffix="/".$ac_dir_suffix;
 136 # A "../" for each directory in $ac_dir_suffix.
 137         ($ac_dots = $ac_dir_suffix) =~ s%/[^/]*%../%g;
 138     } else {
 139         $ac_dir_suffix="";
 140         $ac_dots="";
 141     }
 142
 143     if ($ac_given_srcdir eq ".") {
 144         $srcdir=".";
 145         if ($ac_dots) {
 146             ( $top_srcdir = $ac_dots) =~ s%/$%%;
 147         } else { $top_srcdir="."; }
 148     } elsif ($ac_given_srcdir =~ m%^/%) {
 149         $srcdir=$ac_given_srcdir.$ac_dir_suffix;
 150         $top_srcdir = $ac_given_srcdir;
 151     } else {
 152         $srcdir = $ac_dots.$ac_given_srcdir.$ac_dir_suffix;
 153         $top_srcdir = $ac_dots.$ac_given_srcdir;
 154     }
 155
 156     if ($ac_given_INSTALL) {
 157         if ($ac_given_INSTALL =~ m%^/% ) {
 158             $INSTALL = $ac_given_INSTALL;
 159         } else {
 160             $INSTALL = $ac_dots.$ac_given_INSTALL;
 161         }
 162     }
 163
 164     print "fast creating $ac_file\n";
 165     unlink $ac_file;
 166     my $ac_comsub="";
 167     my $fname=$ac_file_in;
 168     $fname =~ s%.*/%%;
 169     my $configure_input="Generated automatically from $fname by config.pl.";
 170     if ($ac_file =~ /.*[Mm]akefile.*/) {
 171         $ac_comsub="# ".$configure_input."\n";  # for the first line in $ac_file
 172     }
 173
 174     my $ac_file_inputs;
 175     ($ac_file_inputs = $ac_file_in) =~ s%^%$ac_given_srcdir/%;
 176     $ac_file_inputs =~ s%:% $ac_given_srcdir/%g;
 177
 178     patch_file($ac_file, $ac_file_inputs, $ac_comsub);
 179 }
 180
 181 sub patch_file {
 182     my ($outf, $infiles, $identline) = @_;
 183     my $filedata;
 184     my @infiles=split(' ', $infiles);
 185     my $i=0;
 186
 187     foreach my $name (@infiles) {
 188         if (open(CF, "< $name")) {
 189             while (<CF>) {
 190                 $filedata .= $_;
 191             }
 192             close(CF);
 193         } else {
 194             print STDERR "can't open $name: $!"."\n";
 195         }
 196     }
 197     if ($identline) {
 198         # Put the ident in the second line.  For shitty automake 1.6x.
 199         $filedata =~ s%\n%\n$identline%;
 200     }
 201
 202     $filedata =~ s%\@configure_input\@%$configure_input%g;
 203     $filedata =~ s%\@srcdir\@%$srcdir%g;
 204     $filedata =~ s%\@top_srcdir\@%$top_srcdir%g;
 205     $filedata =~ s%\@INSTALL\@%$INSTALL%g;
 206
 207     if ($bad_perl) {
 208         while ($i <= $#comp_subs) {
 209             my $ref = $comp_subs[$i];
 210             &$ref(\$filedata);
 211             $i++;
 212         }
 213     } else {
 214         while ($i <= $#comp_match) {
 215             $filedata =~ s/$comp_match[$i]/$comp_subs[$i]/g;
 216             $i++;
 217         }
 218     }
 219     open(CF, "> $outf") || die "can't create $outf: $!";
 220     print CF $filedata;
 221     close(CF);
 222 }
 223
 224 sub make_closure {
 225     my ($pat, $sub) = @_;
 226     $pat =~ s/\@/\\@/g;   # @bla@ -> \@bla\@
 227     $pat =~ s/\$/\\\$/g;  # $bla -> \$bla
 228     $sub =~ s/\@/\\@/g;
 229     $sub =~ s/\$/\\\$/g;
 230     my $ret = eval "return sub { my \$ref=shift; \$\$ref =~ s%$pat%$sub%g; }";
 231     if ($@) {
 232         print "can't create CODE: $@\n";
 233     }
 234     return $ret;
 235 }