Rev 3728 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
599 | cbradney | 1 | #!/usr/bin/env perl |
3 | paul | 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 |
||
3875 | mrdocs | 28 | # the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
29 | # Boston, MA 02110-1301, USA. |
||
3 | paul | 30 | |
599 | cbradney | 31 | use strict; |
32 | |||
33 | use File::Path; |
||
34 | |||
3 | paul | 35 | my $ac_subs=$ARGV[0]; |
36 | my $ac_sacfiles = $ARGV[1]; |
||
37 | my $ac_given_srcdir=$ARGV[2]; |
||
38 | my $ac_given_INSTALL=$ARGV[3]; |
||
39 | |||
599 | cbradney | 40 | my @comp_match; |
41 | my @comp_subs; |
||
42 | |||
3 | paul | 43 | #print "ac_subs=$ac_subs\n"; |
44 | #print "ac_sacfiles=$ac_sacfiles\n"; |
||
45 | #print "ac_given_srcdir=$ac_given_srcdir\n"; |
||
46 | #print "ac_given_INSTALL=$ac_given_INSTALL\n"; |
||
47 | |||
599 | cbradney | 48 | my $configure_input; |
3 | paul | 49 | my ($srcdir, $top_srcdir); |
50 | my $INSTALL; |
||
51 | my $bad_perl = ($] < 5.005); |
||
599 | cbradney | 52 | my $created_file_count = 0; |
3 | paul | 53 | |
54 | open(CF, "< $ac_subs") || die "can't open $ac_subs: $!"; |
||
55 | my @subs = <CF>; |
||
3875 | mrdocs | 56 | my $pat; |
3 | paul | 57 | close(CF); |
58 | chomp @subs; |
||
59 | @comp_match=(); |
||
60 | @comp_subs=(); |
||
61 | |||
62 | if ($bad_perl) { |
||
63 | print "Using perl older than version 5.005\n"; |
||
3875 | mrdocs | 64 | foreach $pat (@subs) { |
599 | cbradney | 65 | if ( ($pat =~ m/s%([^%]*)%([^%]*)%g/ ) |
66 | || ($pat =~ m/s%([^%]*)%([^%]*)%;t/ ) |
||
67 | || ($pat =~ m/s,([^,]*),(.*),;t/) |
||
68 | || ($pat =~ m%s/([^/]*)/([^/]*)/g% ) |
||
69 | || ($pat =~ m%s/([^/]*)/([^/]*)/;t% ) |
||
3 | paul | 70 | ) { |
71 | # form : s%bla%blubb%g |
||
72 | # or s%bla%blubb%;t t (autoconf > 2.13 and < 2.52 ?) |
||
73 | # or s,bla,blubb,;t t (autoconf 2.52) |
||
74 | my $srch = $1; |
||
75 | my $repl = $2; |
||
76 | $repl =~ s/\\(.)/$1/g; |
||
77 | push @comp_subs, make_closure($srch, $repl); |
||
78 | |||
79 | } elsif ( ($pat =~ /%([^%]*)%d/ ) |
||
80 | || ($pat =~ m%/([^/]*)/d% ) |
||
81 | ) { |
||
82 | push @comp_subs, make_closure($1, ""); |
||
83 | } else { |
||
84 | die "Uhh. Malformed pattern in $ac_subs ($pat)" |
||
85 | unless ( $pat =~ /^\s*$/ ); # ignore white lines |
||
86 | } |
||
87 | } |
||
88 | } else { |
||
3875 | mrdocs | 89 | foreach $pat (@subs) { |
3 | paul | 90 | if ( ($pat =~ /s%([^%]*)%([^%]*)%g/ ) || |
91 | ($pat =~ /s%([^%]*)%([^%]*)%;t/ ) || |
||
92 | ($pat =~ /s,([^,]*),(.*),;t/) ) { |
||
93 | # form : s%bla%blubb%g |
||
94 | # or s%bla%blubb%;t t (autoconf > 2.13 and < 2.52 ?) |
||
95 | # or s,bla,blubb,;t t (autoconf 2.52) |
||
96 | my $srch = $1; |
||
97 | my $repl = $2; |
||
98 | push @comp_match, eval "qr/\Q$srch\E/"; # compile match pattern |
||
99 | $repl =~ s/\\(.)/$1/g; |
||
100 | push @comp_subs, $repl; |
||
101 | } elsif ( ($pat =~ /%([^%]*)%d/ ) |
||
102 | || ($pat =~ m%/([^/]*)/d% ) |
||
103 | ) { |
||
104 | push @comp_match, eval "qr/\Q$1\E/"; |
||
105 | push @comp_subs, ""; |
||
106 | } else { |
||
599 | cbradney | 107 | die "Uhh. Malformed pattern in $ac_subs ($pat)" |
3 | paul | 108 | unless ( $pat =~ /^\s*$/ ); # ignore white lines |
109 | } |
||
110 | } |
||
111 | } |
||
112 | undef @subs; |
||
113 | |||
114 | # read the list of files to be patched, form: |
||
115 | # ./Makefile arts/Makefile arts/examples/Makefile arts/flow/Makefile |
||
116 | |||
117 | open(CF, "< $ac_sacfiles") || die "can't open $ac_sacfiles: $!"; |
||
118 | my @ac_files = <CF>; |
||
119 | close(CF); |
||
120 | chomp @ac_files; |
||
121 | |||
122 | |||
123 | my $ac_file; |
||
124 | foreach $ac_file (@ac_files) { |
||
125 | next if $ac_file =~ /\.\./; |
||
126 | next if $ac_file =~ /^\s*$/; |
||
127 | my $ac_file_in; |
||
128 | my ($ac_dir, $ac_dots, $ac_dir_suffix); |
||
129 | |||
130 | if ($ac_file =~ /.*:.*/ ) { |
||
131 | ($ac_file_in = $ac_file) =~ s%[^:]*:%%; |
||
132 | $ac_file =~ s%:.*%%; |
||
133 | } else { |
||
134 | $ac_file_in = $ac_file.".in"; |
||
135 | } |
||
136 | |||
137 | # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. |
||
138 | |||
139 | # Remove last slash and all that follows it. Not all systems have dirname. |
||
140 | ($ac_dir = $ac_file) =~ s%/[^/][^/]*$%%; |
||
141 | if ( ($ac_dir ne $ac_file) && ($ac_dir ne ".")) { |
||
142 | # The file is in a subdirectory. |
||
599 | cbradney | 143 | if (! -d "$ac_dir") { mkpath "$ac_dir", 0, 0777; } |
3 | paul | 144 | ($ac_dir_suffix = $ac_dir) =~ s%^./%%; |
145 | $ac_dir_suffix="/".$ac_dir_suffix; |
||
146 | # A "../" for each directory in $ac_dir_suffix. |
||
147 | ($ac_dots = $ac_dir_suffix) =~ s%/[^/]*%../%g; |
||
148 | } else { |
||
149 | $ac_dir_suffix=""; |
||
150 | $ac_dots=""; |
||
151 | } |
||
152 | |||
153 | if ($ac_given_srcdir eq ".") { |
||
154 | $srcdir="."; |
||
155 | if ($ac_dots) { |
||
156 | ( $top_srcdir = $ac_dots) =~ s%/$%%; |
||
157 | } else { $top_srcdir="."; } |
||
158 | } elsif ($ac_given_srcdir =~ m%^/%) { |
||
159 | $srcdir=$ac_given_srcdir.$ac_dir_suffix; |
||
160 | $top_srcdir = $ac_given_srcdir; |
||
161 | } else { |
||
162 | $srcdir = $ac_dots.$ac_given_srcdir.$ac_dir_suffix; |
||
163 | $top_srcdir = $ac_dots.$ac_given_srcdir; |
||
164 | } |
||
165 | |||
166 | if ($ac_given_INSTALL) { |
||
167 | if ($ac_given_INSTALL =~ m%^/% ) { |
||
168 | $INSTALL = $ac_given_INSTALL; |
||
169 | } else { |
||
170 | $INSTALL = $ac_dots.$ac_given_INSTALL; |
||
171 | } |
||
172 | } |
||
173 | |||
174 | print "fast creating $ac_file\n"; |
||
175 | unlink $ac_file; |
||
176 | my $ac_comsub=""; |
||
177 | my $fname=$ac_file_in; |
||
178 | $fname =~ s%.*/%%; |
||
599 | cbradney | 179 | $configure_input="$ac_file. Generated from $fname by config.pl."; |
3 | paul | 180 | |
181 | my $ac_file_inputs; |
||
182 | ($ac_file_inputs = $ac_file_in) =~ s%^%$ac_given_srcdir/%; |
||
183 | $ac_file_inputs =~ s%:% $ac_given_srcdir/%g; |
||
184 | |||
599 | cbradney | 185 | patch_file($ac_file, $ac_file_inputs); |
186 | ++$created_file_count; |
||
3 | paul | 187 | } |
188 | |||
599 | cbradney | 189 | print "config.pl: fast created $created_file_count file(s).\n"; |
190 | |||
3 | paul | 191 | sub patch_file { |
599 | cbradney | 192 | my ($outf, $infiles) = @_; |
3 | paul | 193 | my $filedata; |
194 | my @infiles=split(' ', $infiles); |
||
195 | my $i=0; |
||
3875 | mrdocs | 196 | my $name; |
3 | paul | 197 | |
3875 | mrdocs | 198 | foreach $name (@infiles) { |
3 | paul | 199 | if (open(CF, "< $name")) { |
200 | while (<CF>) { |
||
201 | $filedata .= $_; |
||
202 | } |
||
203 | close(CF); |
||
204 | } else { |
||
205 | print STDERR "can't open $name: $!"."\n"; |
||
206 | } |
||
207 | } |
||
208 | |||
209 | $filedata =~ s%\@configure_input\@%$configure_input%g; |
||
210 | $filedata =~ s%\@srcdir\@%$srcdir%g; |
||
211 | $filedata =~ s%\@top_srcdir\@%$top_srcdir%g; |
||
212 | $filedata =~ s%\@INSTALL\@%$INSTALL%g; |
||
213 | |||
214 | if ($bad_perl) { |
||
215 | while ($i <= $#comp_subs) { |
||
216 | my $ref = $comp_subs[$i]; |
||
217 | &$ref(\$filedata); |
||
218 | $i++; |
||
219 | } |
||
220 | } else { |
||
221 | while ($i <= $#comp_match) { |
||
222 | $filedata =~ s/$comp_match[$i]/$comp_subs[$i]/g; |
||
223 | $i++; |
||
224 | } |
||
225 | } |
||
226 | open(CF, "> $outf") || die "can't create $outf: $!"; |
||
227 | print CF $filedata; |
||
228 | close(CF); |
||
229 | } |
||
230 | |||
231 | sub make_closure { |
||
232 | my ($pat, $sub) = @_; |
||
599 | cbradney | 233 | my $ret = eval "return sub { my \$ref=shift; \$\$ref =~ s%\Q$pat\E%\Q$sub\E%g; }"; |
3 | paul | 234 | if ($@) { |
235 | print "can't create CODE: $@\n"; |
||
236 | } |
||
237 | return $ret; |
||
238 | } |