mirror of
git://git.sv.gnu.org/autoconf
synced 2024-12-15 02:20:10 +08:00
1b6f086514
`yo-man-i-am-the-all-mighty-AVt0c0nF-eh-eh'. But when `yo-man-i-am-the-all-mighty-AVt0h3Ad3R-eh-eh' and the other tools want to trace, they might stupidly invoke the program named `autoconf' instead. Pfff, stupid scripts :) * Makefile.am (editsh): Transfer the names of the install `autoconf' and `autoheader'. * autoconf.sh: Add a missing period at the end of the comment # Parse command line Make sure to have a ChangeLog much longer than the patch. * autoheader.sh: Use the right `autoconf'. * autoupdate.sh: Likewise. * autoreconf.sh: Likewise, and for `autoheader' too. Simplify the handling of localdir and AC_MACRODIR. * ifnames.sh: Formatting changes.
125 lines
3.3 KiB
Bash
125 lines
3.3 KiB
Bash
#! @SHELL@
|
|
# ifnames - print the identifiers used in C preprocessor conditionals
|
|
# Copyright (C) 1994, 95, 99, 2000 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 2, 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, write to the Free Software
|
|
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
# 02111-1307, USA.
|
|
|
|
# Reads from stdin if no files are given.
|
|
# Writes to stdout.
|
|
|
|
# Written by David MacKenzie <djm@gnu.ai.mit.edu>
|
|
# and Paul Eggert <eggert@twinsun.com>.
|
|
|
|
me=`echo "$0" | sed -e 's,.*/,,'`
|
|
|
|
usage="\
|
|
Usage: $0 [OPTION] ... [FILE] ...
|
|
|
|
Scan all of the C source FILES (or the standard input, if none are
|
|
given) and write to the standard output a sorted list of all the
|
|
identifiers that appear in those files in \`#if', \`#elif', \`#ifdef', or
|
|
\`#ifndef' directives. Print each identifier on a line, followed by a
|
|
space-separated list of the files in which that identifier occurs.
|
|
|
|
-h, --help print this help, then exit
|
|
-V, --version print version number, then exit
|
|
-v, --verbose verbosely report processing
|
|
|
|
Report bugs to <bug-autoconf@gnu.org>."
|
|
|
|
version="\
|
|
ifnames (GNU @PACKAGE@) @VERSION@
|
|
Written by David J. MacKenzie and Paul Eggert.
|
|
|
|
Copyright (C) 1994, 95, 99, 2000 Free Software Foundation, Inc.
|
|
This is free software; see the source for copying conditions. There is NO
|
|
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
|
|
|
|
help="\
|
|
Try \`$me --help' for more information."
|
|
|
|
while test $# -gt 0; do
|
|
case "$1" in
|
|
--h* | -h )
|
|
echo "$usage"; exit 0 ;;
|
|
--v* | -V )
|
|
echo "$version"; exit 0 ;;
|
|
--) # Stop option processing.
|
|
shift; break ;;
|
|
-*)
|
|
exec >&2
|
|
echo "$me: invalid option $1"
|
|
echo "$help"
|
|
exit 1 ;;
|
|
*) break ;;
|
|
esac
|
|
done
|
|
|
|
# Variables.
|
|
: ${AWK=@AWK@}
|
|
|
|
$AWK '
|
|
# Record that sym was found in FILENAME.
|
|
function file_sym(sym, i, fs) {
|
|
if (sym ~ /^[A-Za-z_]/) {
|
|
if (!found[sym,FILENAME]) {
|
|
found[sym,FILENAME] = 1
|
|
|
|
# Insert FILENAME into files[sym], keeping the list sorted.
|
|
i = 1
|
|
fs = files[sym]
|
|
while (match(substr(fs, i), /^ [^ ]*/) \
|
|
&& substr(fs, i + 1, RLENGTH - 1) < FILENAME) {
|
|
i += RLENGTH
|
|
}
|
|
files[sym] = substr(fs, 1, i - 1) " " FILENAME substr(fs, i)
|
|
}
|
|
}
|
|
}
|
|
|
|
{
|
|
while (sub(/\\$/, "", $0) > 0) {
|
|
if ((getline tmp) > 0)
|
|
$0 = $0 tmp
|
|
else
|
|
break
|
|
}
|
|
}
|
|
|
|
/^[\t ]*#/ {
|
|
if (sub(/^[\t ]*#[\t ]*ifn?def[\t ]+/, "", $0)) {
|
|
sub(/[^A-Za-z_0-9].*/, "", $0)
|
|
file_sym($0)
|
|
}
|
|
if (sub(/^[\t ]*#[\t ]*(el)?if[\t ]+/, "", $0)) {
|
|
# Remove comments. Not perfect, but close enough.
|
|
gsub(/\/\*[^\/]*(\*\/)?/, "", $0)
|
|
|
|
for (i = split($0, field, /[^A-Za-z_0-9]+/); 1 <= i; i--) {
|
|
if (field[i] != "defined") {
|
|
file_sym(field[i])
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
END {
|
|
for (sym in files) {
|
|
print sym files[sym]
|
|
}
|
|
}
|
|
' ${1+"$@"} | sort
|