ifnames.sh

   1 #! @SHELL@
   2 # ifnames - print the identifiers used in C preprocessor conditionals
   3 # Copyright (C) 1994, 1995 Free Software Foundation, Inc.
   4
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 2, or (at your option)
   8 # any later version.
   9
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program; if not, write to the Free Software
  17 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  18 # 02111-1307, USA.
  19
  20 # Reads from stdin if no files are given.
  21 # Writes to stdout.
  22
  23 # Written by David MacKenzie <djm@gnu.ai.mit.edu>
  24 # and Paul Eggert <eggert@twinsun.com>.
  25
  26 usage="\
  27 Usage: ifnames [-h] [--help] [-m dir] [--macrodir=dir] [--version] [file...]"
  28 show_version=no
  29
  30 : ${AC_MACRODIR=@datadir@}
  31
  32 while test $# -gt 0; do
  33   case "$1" in
  34   -h | --help | --h* )
  35     echo "$usage"; exit 0 ;;
  36   --macrodir=* | --m*=* )
  37     AC_MACRODIR="`echo \"$1\" | sed -e 's/^[^=]*=//'`"
  38     shift ;;
  39   -m | --macrodir | --m* )
  40     shift
  41     test $# -eq 0 && { echo "$usage" 1>&2; exit 1; }
  42     AC_MACRODIR="$1"
  43     shift ;;
  44   --version | --versio | --versi | --vers)
  45     show_version=yes; shift ;;
  46   --)     # Stop option processing.
  47     shift; break ;;
  48   -*) echo "$usage" 1>&2; exit 1 ;;
  49   *) break ;;
  50   esac
  51 done
  52
  53 if test $show_version = yes; then
  54   version=`sed -n 's/define.AC_ACVERSION.[      ]*\([0-9.]*\).*/\1/p' \
  55     $AC_MACRODIR/acgeneral.m4`
  56   echo "Autoconf version $version"
  57   exit 0
  58 fi
  59
  60 @AWK@ '
  61   # Record that sym was found in FILENAME.
  62   function file_sym(sym,  i, fs) {
  63     if (sym ~ /^[A-Za-z_]/) {
  64       if (!found[sym,FILENAME]) {
  65         found[sym,FILENAME] = 1
  66
  67         # Insert FILENAME into files[sym], keeping the list sorted.
  68         i = 1
  69         fs = files[sym]
  70         while (match(substr(fs, i), /^ [^ ]*/) \
  71                && substr(fs, i + 1, RLENGTH - 1) < FILENAME) {
  72           i += RLENGTH
  73         }
  74         files[sym] = substr(fs, 1, i - 1) " " FILENAME substr(fs, i)
  75       }
  76     }
  77   }
  78
  79   /^[\t ]*#/ {
  80     if (sub(/^[\t ]*#[\t ]*ifn?def[\t ]+/, "", $0)) {
  81       sub(/[^A-Za-z_0-9].*/, "", $0)
  82       file_sym($0)
  83     }
  84     if (sub(/^[\t ]*#[\t ]*(el)?if[\t ]+/, "", $0)) {
  85       # Remove comments.  Not perfect, but close enough.
  86       gsub(/\/\*[^\/]*(\*\/)?/, "", $0)
  87
  88       for (i = split($0, field, /[^A-Za-z_0-9]+/);  1 <= i;  i--) {
  89         if (field[i] != "defined") {
  90           file_sym(field[i])
  91         }
  92       }
  93     }
  94   }
  95
  96   END {
  97     for (sym in files) {
  98       print sym files[sym]
  99     }
 100   }
 101 ' ${1+"$@"} | sort