1999-04-21 05:11:55 +04:00
|
|
|
#! /usr/bin/env perl
|
|
|
|
#
|
|
|
|
# The contents of this file are subject to the Netscape Public License
|
|
|
|
# Version 1.0 (the "NPL"); you may not use this file except in
|
|
|
|
# compliance with the NPL. You may obtain a copy of the NPL at
|
|
|
|
# http://www.mozilla.org/NPL/
|
|
|
|
#
|
|
|
|
# Software distributed under the NPL is distributed on an "AS IS" basis,
|
|
|
|
# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
|
|
|
|
# for the specific language governing rights and limitations under the
|
|
|
|
# NPL.
|
|
|
|
#
|
|
|
|
# The Initial Developer of this code under the NPL is Netscape
|
|
|
|
# Communications Corporation. Portions created by Netscape are
|
|
|
|
# Copyright (C) 1999 Netscape Communications Corporation. All Rights
|
|
|
|
# Reserved.
|
|
|
|
#
|
|
|
|
|
|
|
|
# acoutput-fast.pl - Quickly create makefiles that are in a common format.
|
|
|
|
#
|
|
|
|
# Most of the makefiles in mozilla only refer to two configure variables:
|
|
|
|
# @srcdir@
|
|
|
|
# @top_srcdir@
|
|
|
|
# However, configure does not know any better and it runs sed on each file
|
|
|
|
# with over 150 replacement rules (slow as molasses).
|
|
|
|
#
|
|
|
|
# This script takes a list of makefiles as input. For example,
|
|
|
|
#
|
|
|
|
# echo $MAKEFILES | acoutput-fast.pl
|
|
|
|
#
|
|
|
|
# The script creates each Makefile that only references @srcdir@ and
|
|
|
|
# @top_srcdir@. For other files, it lists them in a shell command that is
|
|
|
|
# printed to stdout:
|
|
|
|
#
|
|
|
|
# CONFIG_FILES="unhandled_files..."; export CONFIG_FILES
|
|
|
|
#
|
|
|
|
# This command can be used to have config.status create the unhandled
|
|
|
|
# files. For example,
|
|
|
|
#
|
|
|
|
# eval "echo $MAKEFILES | acoutput-fast.pl"
|
|
|
|
# AC_OUTPUT($MAKEFILES)
|
|
|
|
#
|
|
|
|
# Send comments, improvements, bugs to Steve Lamm (slamm@netscape.com).
|
|
|
|
|
|
|
|
#use File::Basename;
|
|
|
|
sub dirname {
|
|
|
|
my $dir = $_[0];
|
|
|
|
return '.' if not $dir =~ m%/%;
|
|
|
|
$dir =~ s%/[^/][^/]*$%%;
|
|
|
|
return $dir;
|
|
|
|
}
|
|
|
|
|
|
|
|
$ac_given_srcdir = $0;
|
|
|
|
$ac_given_srcdir =~ s|/?build/autoconf/.*$||;
|
|
|
|
$ac_given_srcdir = '.' if $ac_given_srcdir eq '';
|
|
|
|
|
|
|
|
# Read list of makefiles from the stdin or,
|
|
|
|
# from files listed on the command-line.
|
|
|
|
#
|
|
|
|
@makefiles=();
|
|
|
|
push @makefiles, split while (<>);
|
|
|
|
|
|
|
|
# Create all the directories at once.
|
|
|
|
# This can be much faster than calling mkdir() for each one.
|
|
|
|
@dirs_to_create = ();
|
|
|
|
%have_seen = ();
|
|
|
|
foreach $ac_file (@makefiles) {
|
|
|
|
next if $ac_file =~ /:/;
|
|
|
|
$ac_dir = dirname($ac_file);
|
|
|
|
next if defined($have_seen{$ac_dir});
|
|
|
|
push @dirs_to_create, $ac_dir if not -d $ac_dir;
|
|
|
|
$have_seen{$ac_dir} = 1;
|
|
|
|
}
|
|
|
|
system "mkdir ".join(' ',@dirs_to_create) if $#dirs_to_create >= 0;
|
|
|
|
|
|
|
|
# Output the makefiles.
|
|
|
|
#
|
|
|
|
@unhandled=();
|
|
|
|
foreach $ac_file (@makefiles) {
|
|
|
|
if (not $ac_file =~ /Makefile$/ or $ac_file =~ /:/) {
|
|
|
|
push @unhandled, $ac_file;
|
|
|
|
next;
|
|
|
|
}
|
|
|
|
$ac_file_in = "$ac_given_srcdir/$ac_file.in";
|
|
|
|
$ac_dir = dirname($ac_file);
|
|
|
|
if ($ac_dir eq '.') {
|
|
|
|
$ac_dir_suffix = '';
|
|
|
|
$ac_dots = '';
|
|
|
|
} else {
|
|
|
|
$ac_dir_suffix = "/$ac_dir";
|
|
|
|
$ac_dir_suffix =~ s%^/\./%/%;
|
|
|
|
$ac_dots = $ac_dir_suffix;
|
|
|
|
$ac_dots =~ s%/[^/]*%../%g;
|
|
|
|
}
|
|
|
|
if ($ac_given_srcdir eq '.') {
|
|
|
|
$srcdir = '.';
|
|
|
|
if ($ac_dots eq '') {
|
|
|
|
$top_srcdir = '.'
|
|
|
|
} else {
|
|
|
|
$top_srcdir = $ac_dots;
|
|
|
|
$top_srcdir =~ s%/$%%;
|
|
|
|
}
|
|
|
|
} 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";
|
|
|
|
}
|
|
|
|
|
|
|
|
# mkdir $subdir, 0777 if not -d $subdir;
|
|
|
|
|
1999-04-26 22:08:50 +04:00
|
|
|
print STDERR "creating $ac_file\n";
|
|
|
|
|
1999-04-21 05:11:55 +04:00
|
|
|
open (INFILE, "<$ac_file_in")
|
1999-04-26 22:08:50 +04:00
|
|
|
or ( warn "can't read $ac_file_in: No such file or directory\n" and next);
|
1999-04-21 05:11:55 +04:00
|
|
|
open (OUTFILE, ">$ac_file")
|
1999-04-26 22:08:50 +04:00
|
|
|
or ( warn "Unable to create $ac_file\n" and next);
|
1999-04-21 05:11:55 +04:00
|
|
|
|
|
|
|
while (<INFILE>) {
|
|
|
|
if (/\@[_a-zA-Z]*\@.*\@[_a-zA-Z]*\@/) {
|
|
|
|
#warn "Two defines on a line:$ac_file:$.:$_";
|
|
|
|
push @unhandled, $ac_file;
|
|
|
|
last;
|
|
|
|
}
|
|
|
|
|
|
|
|
s/\@srcdir\@/$srcdir/;
|
|
|
|
s/\@top_srcdir\@/$top_srcdir/;
|
|
|
|
|
|
|
|
if (/\@[_a-zA-Z]*\@/) {
|
|
|
|
#warn "Unknown variable:$ac_file:$.:$_";
|
|
|
|
push @unhandled, $ac_file;
|
|
|
|
last;
|
|
|
|
}
|
|
|
|
print OUTFILE;
|
|
|
|
}
|
|
|
|
close INFILE;
|
|
|
|
close OUTFILE;
|
|
|
|
}
|
|
|
|
|
|
|
|
# Print the shell command to be evaluated by configure.
|
|
|
|
#
|
|
|
|
print "CONFIG_FILES=\"".join(' ', @unhandled)."\"; export CONFIG_FILES\n";
|
|
|
|
|