ACIL FM

Nama	Ukuran	Aksi
ChannelDefs.pm	10.51 MB	View DL Edit
Channels.pm	19.99 MB	View DL Edit
Condition.pm	14.82 MB	View DL Edit
Config.pm	1.46 MB	View DL Edit
Configure_ac.pm	2.91 MB	View DL Edit
DisjConditions.pm	13.97 MB	View DL Edit
FileUtils.pm	8.89 MB	View DL Edit
General.pm	1.98 MB	View DL Edit
Getopt.pm	2.24 MB	View DL Edit
Item.pm	4.03 MB	View DL Edit
ItemDef.pm	1.93 MB	View DL Edit
Language.pm	2.75 MB	View DL Edit
Location.pm	5.37 MB	View DL Edit
Options.pm	11.21 MB	View DL Edit
Rule.pm	23.61 MB	View DL Edit
RuleDef.pm	2.23 MB	View DL Edit
VarDef.pm	8.36 MB	View DL Edit
Variable.pm	44.9 MB	View DL Edit
Version.pm	3.78 MB	View DL Edit
Wrap.pm	3.65 MB	View DL Edit
XFile.pm	7.29 MB	View DL Edit

Edit file: /usr/share/automake-1.16/Automake/Configure_ac.pm

# 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, see <https://www.gnu.org/licenses/>.

###############################################################
# The main copy of this file is in Automake's git repository. #
# Updates should be sent to automake-patches@gnu.org.         #
###############################################################

package Automake::Configure_ac;

use 5.006;
use strict;
use Exporter;
use Automake::Channels;
use Automake::ChannelDefs;

use vars qw (@ISA @EXPORT);

@ISA = qw (Exporter);
@EXPORT = qw (&find_configure_ac &require_configure_ac);

=head1 NAME

Automake::Configure_ac - Locate configure.ac or configure.in.

=head1 SYNOPSIS

use Automake::Configure_ac;

# Try to locate configure.in or configure.ac in the current
  # directory.  It may be absent.  Complain if both files exist.
  my $file_name = find_configure_ac;

# Likewise, but bomb out if the file does not exist.
  my $file_name = require_configure_ac;

# Likewise, but in $dir.
  my $file_name = find_configure_ac ($dir);
  my $file_name = require_configure_ac ($dir);

=over 4

=back

=head2 Functions

=over 4

=item C<$configure_ac = find_configure_ac ([$directory])>

Find a F<configure.ac> or F<configure.in> file in C<$directory>,
defaulting to the current directory.  Complain if both files are present.
Return the name of the file found, or the former if neither is present.

=cut

sub find_configure_ac (;@)
{
  my ($directory) = @_;
  $directory ||= '.';
  my $configure_ac =
    File::Spec->canonpath (File::Spec->catfile ($directory, 'configure.ac'));
  my $configure_in =
    File::Spec->canonpath (File::Spec->catfile ($directory, 'configure.in'));

if (-f $configure_in)
    {
      msg ('obsolete', "autoconf input should be named 'configure.ac'," .
                       " not 'configure.in'");
      if (-f $configure_ac)
	{
	  msg ('unsupported',
	       "'$configure_ac' and '$configure_in' both present.\n"
	       . "proceeding with '$configure_ac'");
          return $configure_ac
	}
      else
        {
          return $configure_in;
        }
    }
  return $configure_ac;
}

=item C<$configure_ac = require_configure_ac ([$directory])>

Like C<find_configure_ac>, but fail if neither is present.

=cut

sub require_configure_ac (;$)
{
  my $res = find_configure_ac (@_);
  fatal "'configure.ac' is required" unless -f $res;
  return $res
}

Batal