summaryrefslogtreecommitdiff
path: root/bin/autoheader.in
diff options
context:
space:
mode:
Diffstat (limited to 'bin/autoheader.in')
-rw-r--r--bin/autoheader.in303
1 files changed, 303 insertions, 0 deletions
diff --git a/bin/autoheader.in b/bin/autoheader.in
new file mode 100644
index 0000000..d81a313
--- /dev/null
+++ b/bin/autoheader.in
@@ -0,0 +1,303 @@
+#! @PERL@
+# -*- Perl -*-
+# @configure_input@
+
+eval 'case $# in 0) exec @PERL@ -S "$0";; *) exec @PERL@ -S "$0" "$@";; esac'
+ if 0;
+
+# autoheader -- create `config.h.in' from `configure.ac'
+
+# Copyright (C) 1992-1994, 1996, 1998-2012 Free Software Foundation,
+# Inc.
+
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# This program 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 General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# Written by Roland McGrath.
+# Rewritten in Perl by Akim Demaille.
+
+BEGIN
+{
+ my $pkgdatadir = $ENV{'autom4te_perllibdir'} || '@pkgdatadir@';
+ unshift @INC, "$pkgdatadir";
+
+ # Override SHELL. On DJGPP SHELL may not be set to a shell
+ # that can handle redirection and quote arguments correctly,
+ # e.g.: COMMAND.COM. For DJGPP always use the shell that configure
+ # has detected.
+ $ENV{'SHELL'} = '@SHELL@' if ($^O eq 'dos');
+}
+
+use Autom4te::ChannelDefs;
+use Autom4te::Channels;
+use Autom4te::Configure_ac;
+use Autom4te::FileUtils;
+use Autom4te::General;
+use Autom4te::XFile;
+use strict;
+
+# Using `do FILE', we need `local' vars.
+use vars qw ($config_h %verbatim %symbol);
+
+# Lib files.
+my $autom4te = $ENV{'AUTOM4TE'} || '@bindir@/@autom4te-name@';
+local $config_h;
+my $config_h_in;
+my @prepend_include;
+my @include;
+
+
+# $HELP
+# -----
+$help = "Usage: $0 [OPTION]... [TEMPLATE-FILE]
+
+Create a template file of C \`\#define\' statements for \`configure\' to
+use. To this end, scan TEMPLATE-FILE, or \`configure.ac\' if present,
+or else \`configure.in\'.
+
+ -h, --help print this help, then exit
+ -V, --version print version number, then exit
+ -v, --verbose verbosely report processing
+ -d, --debug don\'t remove temporary files
+ -f, --force consider all files obsolete
+ -W, --warnings=CATEGORY report the warnings falling in CATEGORY
+
+" . Autom4te::ChannelDefs::usage () . "
+
+Library directories:
+ -B, --prepend-include=DIR prepend directory DIR to search path
+ -I, --include=DIR append directory DIR to search path
+
+Report bugs to <bug-autoconf\@gnu.org>.
+GNU Autoconf home page: <http://www.gnu.org/software/autoconf/>.
+General help using GNU software: <http://www.gnu.org/gethelp/>.
+";
+
+
+# $VERSION
+# --------
+$version = "autoheader (@PACKAGE_NAME@) @VERSION@
+Copyright (C) @RELEASE_YEAR@ Free Software Foundation, Inc.
+License GPLv3+/Autoconf: GNU GPL version 3 or later
+<http://gnu.org/licenses/gpl.html>, <http://gnu.org/licenses/exceptions.html>
+This is free software: you are free to change and redistribute it.
+There is NO WARRANTY, to the extent permitted by law.
+
+Written by Roland McGrath and Akim Demaille.
+";
+
+
+## ---------- ##
+## Routines. ##
+## ---------- ##
+
+
+# parse_args ()
+# -------------
+# Process any command line arguments.
+sub parse_args ()
+{
+ my $srcdir;
+
+ parse_WARNINGS;
+ getopt ('I|include=s' => \@include,
+ 'B|prepend-include=s' => \@prepend_include,
+ 'W|warnings=s' => \&parse_warnings);
+
+ if (! @ARGV)
+ {
+ my $configure_ac = require_configure_ac;
+ push @ARGV, $configure_ac;
+ }
+}
+
+
+## -------------- ##
+## Main program. ##
+## -------------- ##
+
+mktmpdir ('ah');
+switch_warning 'obsolete';
+parse_args;
+
+# Preach.
+my $config_h_top = find_file ("config.h.top?",
+ reverse (@prepend_include), @include);
+my $config_h_bot = find_file ("config.h.bot?",
+ reverse (@prepend_include), @include);
+my $acconfig_h = find_file ("acconfig.h?",
+ reverse (@prepend_include), @include);
+if ($config_h_top || $config_h_bot || $acconfig_h)
+ {
+ my $msg = << "END";
+ Using auxiliary files such as \`acconfig.h\', \`config.h.bot\'
+ and \`config.h.top\', to define templates for \`config.h.in\'
+ is deprecated and discouraged.
+
+ Using the third argument of \`AC_DEFINE\' and
+ \`AC_DEFINE_UNQUOTED\' allows one to define a template without
+ \`acconfig.h\':
+
+ AC_DEFINE([NEED_FUNC_MAIN], 1,
+ [Define if a function \`main\' is needed.])
+
+ More sophisticated templates can also be produced, see the
+ documentation.
+END
+ $msg =~ s/^ /WARNING: /gm;
+ msg 'obsolete', $msg;
+ }
+
+# Set up autoconf.
+my $autoconf = "'$autom4te' --language=autoconf ";
+$autoconf .= join (' --include=', '', map { shell_quote ($_) } @include);
+$autoconf .= join (' --prepend-include=', '', map { shell_quote ($_) } @prepend_include);
+$autoconf .= ' --debug' if $debug;
+$autoconf .= ' --force' if $force;
+$autoconf .= ' --verbose' if $verbose;
+
+# ----------------------- #
+# Real work starts here. #
+# ----------------------- #
+
+# Source what the traces are trying to tell us.
+verb "$me: running $autoconf to trace from $ARGV[0]";
+my $quoted_tmp = shell_quote ($tmp);
+xsystem ("$autoconf"
+ # If you change this list, update the
+ # `Autoheader-preselections' section of autom4te.in.
+ . ' --trace AC_CONFIG_HEADERS:\'$$config_h ||= \'"\'"\'$1\'"\'"\';\''
+ . ' --trace AH_OUTPUT:\'$$verbatim{\'"\'"\'$1\'"\'"\'} = \'"\'"\'$2\'"\'"\';\''
+ . ' --trace AC_DEFINE_TRACE_LITERAL:\'$$symbol{\'"\'"\'$1\'"\'"\'} = 1;\''
+ . " " . shell_quote ($ARGV[0]) . " >$quoted_tmp/traces.pl");
+
+local (%verbatim, %symbol);
+debug "$me: \`do'ing $tmp/traces.pl:\n" . `sed 's/^/| /' $quoted_tmp/traces.pl`;
+do "$tmp/traces.pl";
+warn "couldn't parse $tmp/traces.pl: $@" if $@;
+unless ($config_h)
+ {
+ error "error: AC_CONFIG_HEADERS not found in $ARGV[0]";
+ exit 1;
+ }
+
+# We template only the first CONFIG_HEADER.
+$config_h =~ s/ .*//;
+# Support "outfile[:infile]", defaulting infile="outfile.in".
+($config_h, $config_h_in) = split (':', $config_h, 2);
+$config_h_in ||= "$config_h.in";
+
+# %SYMBOL might contain things like `F77_FUNC(name,NAME)', but we keep
+# only the name of the macro.
+%symbol = map { s/\(.*//; $_ => 1 } keys %symbol;
+
+my $out = new Autom4te::XFile ("> " . open_quote ("$tmp/config.hin"));
+
+# Don't write "do not edit" -- it will get copied into the
+# config.h, which it's ok to edit.
+print $out "/* $config_h_in. Generated from $ARGV[0] by autoheader. */\n";
+
+# Dump the top.
+if ($config_h_top)
+ {
+ my $in = new Autom4te::XFile ("< " . open_quote ($config_h_top));
+ while ($_ = $in->getline)
+ {
+ print $out $_;
+ }
+ }
+
+# Dump `acconfig.h', except for its bottom portion.
+if ($acconfig_h)
+ {
+ my $in = new Autom4te::XFile ("< " . open_quote ($acconfig_h));
+ while ($_ = $in->getline)
+ {
+ last if /\@BOTTOM\@/;
+ next if /\@TOP\@/;
+ print $out $_;
+ }
+ }
+
+# Dump the templates from `configure.ac'.
+foreach (sort keys %verbatim)
+ {
+ print $out "\n$verbatim{$_}\n";
+ }
+
+# Dump bottom portion of `acconfig.h'.
+if ($acconfig_h)
+ {
+ my $in = new Autom4te::XFile ("< " . open_quote ($acconfig_h));
+ my $dump = 0;
+ while ($_ = $in->getline)
+ {
+ print $out $_ if $dump;
+ $dump = 1 if /\@BOTTOM\@/;
+ }
+ }
+
+# Dump the bottom.
+if ($config_h_bot)
+ {
+ my $in = new Autom4te::XFile ("< " . open_quote ($config_h_bot));
+ while ($_ = $in->getline)
+ {
+ print $out $_;
+ }
+ }
+
+$out->close;
+
+# Check that all the symbols have a template.
+{
+ my $in = new Autom4te::XFile ("< " . open_quote ("$tmp/config.hin"));
+ my $suggest_ac_define = 1;
+ while ($_ = $in->getline)
+ {
+ my ($symbol) = /^\#\s*\w+\s+(\w+)/
+ or next;
+ delete $symbol{$symbol};
+ }
+ foreach (sort keys %symbol)
+ {
+ msg 'syntax', "warning: missing template: $_";
+ if ($suggest_ac_define)
+ {
+ msg 'syntax', "Use AC_DEFINE([$_], [], [Description])";
+ $suggest_ac_define = 0;
+ }
+
+ }
+ exit 1
+ if keys %symbol;
+}
+
+update_file ("$tmp/config.hin", "$config_h_in", $force);
+
+### Setup "GNU" style for perl-mode and cperl-mode.
+## Local Variables:
+## perl-indent-level: 2
+## perl-continued-statement-offset: 2
+## perl-continued-brace-offset: 0
+## perl-brace-offset: 0
+## perl-brace-imaginary-offset: 0
+## perl-label-offset: -2
+## cperl-indent-level: 2
+## cperl-brace-offset: 0
+## cperl-continued-brace-offset: 0
+## cperl-label-offset: -2
+## cperl-extra-newline-before-brace: t
+## cperl-merge-trailing-else: nil
+## cperl-continued-statement-offset: 2
+## End:
View Lorry Controller Status