Subversion Repositories Scribus

Rev

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
}