5 eval 'case $# in 0) exec @PERL@ -S "$0";; *) exec @PERL@ -S "$0" "$@";; esac'
8 # autoheader -- create `config.h.in' from `configure.ac'
10 # Copyright (C) 1992, 1993, 1994, 1996, 1998, 1999, 2000, 2001, 2002,
11 # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software
14 # This program is free software: you can redistribute it and/or modify
15 # it under the terms of the GNU General Public License as published by
16 # the Free Software Foundation, either version 3 of the License, or
17 # (at your option) any later version.
19 # This program is distributed in the hope that it will be useful,
20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 # GNU General Public License for more details.
24 # You should have received a copy of the GNU General Public License
25 # along with this program. If not, see <http://www.gnu.org/licenses/>.
27 # Written by Roland McGrath.
28 # Rewritten in Perl by Akim Demaille.
32 my $pkgdatadir = $ENV{'autom4te_perllibdir'} || '@pkgdatadir@';
33 unshift @INC, "$pkgdatadir";
35 # Override SHELL. On DJGPP SHELL may not be set to a shell
36 # that can handle redirection and quote arguments correctly,
37 # e.g.: COMMAND.COM. For DJGPP always use the shell that configure
39 $ENV{'SHELL'} = '@SHELL@' if ($^O eq 'dos');
42 use Autom4te::ChannelDefs;
43 use Autom4te::Channels;
44 use Autom4te::Configure_ac;
45 use Autom4te::FileUtils;
46 use Autom4te::General;
50 # Using `do FILE', we need `local' vars.
51 use vars qw ($config_h %verbatim %symbol);
54 my $autom4te = $ENV{'AUTOM4TE'} || '@bindir@/@autom4te-name@';
63 $help = "Usage: $0 [OPTION]... [TEMPLATE-FILE]
65 Create a template file of C \`\#define\' statements for \`configure\' to
66 use. To this end, scan TEMPLATE-FILE, or \`configure.ac\' if present,
67 or else \`configure.in\'.
69 -h, --help print this help, then exit
70 -V, --version print version number, then exit
71 -v, --verbose verbosely report processing
72 -d, --debug don\'t remove temporary files
73 -f, --force consider all files obsolete
74 -W, --warnings=CATEGORY report the warnings falling in CATEGORY
76 " . Autom4te::ChannelDefs::usage () . "
79 -B, --prepend-include=DIR prepend directory DIR to search path
80 -I, --include=DIR append directory DIR to search path
82 Report bugs to <bug-autoconf\@gnu.org>.
83 GNU Autoconf home page: <http://www.gnu.org/software/autoconf/>.
84 General help using GNU software: <http://www.gnu.org/gethelp/>.
90 $version = "autoheader (@PACKAGE_NAME@) @VERSION@
91 Copyright (C) @RELEASE_YEAR@ Free Software Foundation, Inc.
92 License GPLv3+/Autoconf: GNU GPL version 3 or later
93 <http://gnu.org/licenses/gpl.html>, <http://gnu.org/licenses/exceptions.html>
94 This is free software: you are free to change and redistribute it.
95 There is NO WARRANTY, to the extent permitted by law.
97 Written by Roland McGrath and Akim Demaille.
108 # Process any command line arguments.
114 getopt ('I|include=s' => \@include,
115 'B|prepend-include=s' => \@prepend_include,
116 'W|warnings=s' => \&parse_warnings);
120 my $configure_ac = require_configure_ac;
121 push @ARGV, $configure_ac;
131 switch_warning 'obsolete';
135 my $config_h_top = find_file ("config.h.top?",
136 reverse (@prepend_include), @include);
137 my $config_h_bot = find_file ("config.h.bot?",
138 reverse (@prepend_include), @include);
139 my $acconfig_h = find_file ("acconfig.h?",
140 reverse (@prepend_include), @include);
141 if ($config_h_top || $config_h_bot || $acconfig_h)
144 Using auxiliary files such as \`acconfig.h\', \`config.h.bot\'
145 and \`config.h.top\', to define templates for \`config.h.in\'
146 is deprecated and discouraged.
148 Using the third argument of \`AC_DEFINE\' and
149 \`AC_DEFINE_UNQUOTED\' allows one to define a template without
152 AC_DEFINE([NEED_FUNC_MAIN], 1,
153 [Define if a function \`main\' is needed.])
155 More sophisticated templates can also be produced, see the
158 $msg =~ s/^ /WARNING: /gm;
159 msg 'obsolete', $msg;
163 my $autoconf = "'$autom4te' --language=autoconf ";
164 $autoconf .= join (' --include=', '', map { shell_quote ($_) } @include);
165 $autoconf .= join (' --prepend-include=', '', map { shell_quote ($_) } @prepend_include);
166 $autoconf .= ' --debug' if $debug;
167 $autoconf .= ' --force' if $force;
168 $autoconf .= ' --verbose' if $verbose;
170 # ----------------------- #
171 # Real work starts here. #
172 # ----------------------- #
174 # Source what the traces are trying to tell us.
175 verb "$me: running $autoconf to trace from $ARGV[0]";
176 my $quoted_tmp = shell_quote ($tmp);
178 # If you change this list, update the
179 # `Autoheader-preselections' section of autom4te.in.
180 . ' --trace AC_CONFIG_HEADERS:\'$$config_h ||= \'"\'"\'$1\'"\'"\';\''
181 . ' --trace AH_OUTPUT:\'$$verbatim{\'"\'"\'$1\'"\'"\'} = \'"\'"\'$2\'"\'"\';\''
182 . ' --trace AC_DEFINE_TRACE_LITERAL:\'$$symbol{\'"\'"\'$1\'"\'"\'} = 1;\''
183 . " " . shell_quote ($ARGV[0]) . " >$quoted_tmp/traces.pl");
185 local (%verbatim, %symbol);
186 debug "$me: \`do'ing $tmp/traces.pl:\n" . `sed 's/^/| /' $quoted_tmp/traces.pl`;
188 warn "couldn't parse $tmp/traces.pl: $@" if $@;
191 error "error: AC_CONFIG_HEADERS not found in $ARGV[0]";
195 # We template only the first CONFIG_HEADER.
196 $config_h =~ s/ .*//;
197 # Support "outfile[:infile]", defaulting infile="outfile.in".
198 ($config_h, $config_h_in) = split (':', $config_h, 2);
199 $config_h_in ||= "$config_h.in";
201 # %SYMBOL might contain things like `F77_FUNC(name,NAME)', but we keep
202 # only the name of the macro.
203 %symbol = map { s/\(.*//; $_ => 1 } keys %symbol;
205 my $out = new Autom4te::XFile ("> " . open_quote ("$tmp/config.hin"));
207 # Don't write "do not edit" -- it will get copied into the
208 # config.h, which it's ok to edit.
209 print $out "/* $config_h_in. Generated from $ARGV[0] by autoheader. */\n";
214 my $in = new Autom4te::XFile ("< " . open_quote ($config_h_top));
215 while ($_ = $in->getline)
221 # Dump `acconfig.h', except for its bottom portion.
224 my $in = new Autom4te::XFile ("< " . open_quote ($acconfig_h));
225 while ($_ = $in->getline)
227 last if /\@BOTTOM\@/;
233 # Dump the templates from `configure.ac'.
234 foreach (sort keys %verbatim)
236 print $out "\n$verbatim{$_}\n";
239 # Dump bottom portion of `acconfig.h'.
242 my $in = new Autom4te::XFile ("< " . open_quote ($acconfig_h));
244 while ($_ = $in->getline)
246 print $out $_ if $dump;
247 $dump = 1 if /\@BOTTOM\@/;
254 my $in = new Autom4te::XFile ("< " . open_quote ($config_h_bot));
255 while ($_ = $in->getline)
263 # Check that all the symbols have a template.
265 my $in = new Autom4te::XFile ("< " . open_quote ("$tmp/config.hin"));
266 my $suggest_ac_define = 1;
267 while ($_ = $in->getline)
269 my ($symbol) = /^\#\s*\w+\s+(\w+)/
271 delete $symbol{$symbol};
273 foreach (sort keys %symbol)
275 msg 'syntax', "warning: missing template: $_";
276 if ($suggest_ac_define)
278 msg 'syntax', "Use AC_DEFINE([$_], [], [Description])";
279 $suggest_ac_define = 0;
287 update_file ("$tmp/config.hin", "$config_h_in", $force);
289 ### Setup "GNU" style for perl-mode and cperl-mode.
291 ## perl-indent-level: 2
292 ## perl-continued-statement-offset: 2
293 ## perl-continued-brace-offset: 0
294 ## perl-brace-offset: 0
295 ## perl-brace-imaginary-offset: 0
296 ## perl-label-offset: -2
297 ## cperl-indent-level: 2
298 ## cperl-brace-offset: 0
299 ## cperl-continued-brace-offset: 0
300 ## cperl-label-offset: -2
301 ## cperl-extra-newline-before-brace: t
302 ## cperl-merge-trailing-else: nil
303 ## cperl-continued-statement-offset: 2