summaryrefslogtreecommitdiff
path: root/kde/admin/config.pl
diff options
context:
space:
mode:
Diffstat (limited to 'kde/admin/config.pl')
-rw-r--r--kde/admin/config.pl238
1 files changed, 0 insertions, 238 deletions
diff --git a/kde/admin/config.pl b/kde/admin/config.pl
deleted file mode 100644
index c2b0517..0000000
--- a/kde/admin/config.pl
+++ /dev/null
@@ -1,238 +0,0 @@
-#!/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 kdelibs 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;
-}