File Coverage

blib/lib/auto/share/dist/Alien-autoconf/bin/ifnames

Criterion	Covered	Total	%
statement	46	62	74.1
branch	2	8	25.0
condition	9	29	31.0
subroutine	12	13	92.3
pod			n/a
total	69	112	61.6

#! /usr/local/bin/perl
BEGIN {
  use strict;
  use warnings;
  use File::Spec;
  my($v,$d) = File::Spec->splitpath(File::Spec->rel2abs(__FILE__));
  my @d = File::Spec->splitdir($d);
  pop @d for 1..2;
  my $dist_dir = File::Spec->catpath($v,File::Spec->catdir(@d), '');
  $ENV{AUTOM4TE}            ||= File::Spec->catfile($dist_dir, 'bin/autom4te');
  $ENV{autom4te_perllibdir} ||= File::Spec->catdir($dist_dir, 'share/autoconf');
  $ENV{AC_MACRODIR}         ||= File::Spec->catdir($dist_dir, 'share/autoconf');
  $ENV{AUTOCONF}            ||= File::Spec->catfile($dist_dir, 'bin/autoconf');
  $ENV{AUTOHEADER}          ||= File::Spec->catfile($dist_dir, 'bin/autoheader');
  $ENV{AUTOM4TE_CFG}        ||= File::Spec->catfile($dist_dir, 'share/autoconf/autom4te.blib.cfg')
    if $d[-5] eq 'lib' && $d[-6] eq 'blib';
  $ENV{trailer_m4}          ||= File::Spec->catdir($dist_dir, 'share/autoconf/autoconf/trailer.m4');
}
# -*- perl -*-
# Generated from bin/ifnames.in; do not edit by hand.

eval 'case $# in 0) exec /usr/local/bin/perl -S "$0";; *) exec /usr/local/bin/perl -S "$0" "$@";; esac'
    if 0;

# ifnames - print the identifiers used in C preprocessor conditionals

# Copyright (C) 1994-1995, 1999-2003, 2005-2017, 2020-2023 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 .

# Reads from stdin if no files are given.
# Writes to stdout.

# Written by David MacKenzie
# and Paul Eggert .

use 5.006;
use strict;
use warnings FATAL => 'all';

BEGIN
{
  my $pkgdatadir = $ENV{'autom4te_perllibdir'} || '/usr/local/lib/perl5/site_perl/5.42.0/x86_64-linux/auto/share/dist/Alien-autoconf/share/autoconf';
  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'} = '/bin/bash' if ($^O eq 'dos');
}

use Autom4te::General;
use Autom4te::XFile;
use Autom4te::FileUtils;

# $HELP
# -----
$help = "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

Report bugs to .

The full documentation for Autoconf can be read via 'info autoconf',
or on the Web at .
";


# $VERSION
# --------
$version = "ifnames (GNU Autoconf) 2.72
Copyright (C) 2023 Free Software Foundation, Inc.
License GPLv3+/Autoconf: GNU GPL version 3 or later
,
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

Written by David J. MacKenzie and Paul Eggert.
";


# &parse_args ()
# --------------
# Process any command line arguments.
sub parse_args ()
{
  getopt ();
}


# %OCCURRENCE
# -----------
my %occurrence;


# &scan_file ($FILE-NAME)
# -----------------------
sub scan_file ($)
{
  my ($file_name) = @_;
  my $file = new Autom4te::XFile ($file_name, "<");
  while ($_ = $file->getline)
    {
      # Continuation lines.
      $_ .= $file->getline
	while (s/\\$//);

      # Preprocessor directives.
      if (s/^\s*\#\s*(if|ifdef|ifndef|elif)\s+//)
	{
	  # Remove comments.  Not perfect, but close enough.
	  s(/\*.*?\*/)();
	  s(/\*.*)();
	  s(//.*)();
	  foreach my $word (split (/\W+/))
	    {
	      next
		if $word eq 'defined' || $word !~ /^[a-zA-Z_]/;
	      $occurrence{$word}{$file_name} = 1;
	    }
	}
    }
}


## ------ ##
## Main.  ##
## ------ ##

parse_args();
foreach (@ARGV)
  {
    scan_file ($_);
  }
foreach (sort keys %occurrence)
  {
    print "$_ ", join (' ', sort keys %{$occurrence{$_}}), "\n";
  }

### 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: