Utils: Add yet more methods to this module

Move ̀is_make_dir', ̀push_dist_common' and `canonicalize' to this module.

1 files changed, 0 insertions, 49 deletions

diff --git a/bin/automake.in b/bin/automake.in
index dfcab7a98..4b5eee448 100755
--- a/bin/automake.in
+++ b/bin/automake.in
@@ -1868,14 +1868,6 @@ sub handle_ALLOCA
   saw_extension ('.c');
 }
 
-# Canonicalize the input parameter.
-sub canonicalize
-{
-    my ($string) = @_;
-    $string =~ tr/A-Za-z0-9_\@/_/c;
-    return $string;
-}
-
 # Canonicalize a name, and check to make sure the non-canonical name
 # is never used.  Returns canonical name.  Arguments are name and a
 # list of suffixes to check for.
@@ -6248,37 +6240,6 @@ sub am_install_var
 
 ################################################################
 
-# Each key in this hash is the name of a directory holding a
-# Makefile.in.  These variables are local to 'is_make_dir'.
-my %make_dirs = ();
-my $make_dirs_set = 0;
-
-# is_make_dir ($DIRECTORY)
-# ------------------------
-sub is_make_dir
-{
-    my ($dir) = @_;
-    if (! $make_dirs_set)
-    {
-	foreach my $iter (@configure_input_files)
-	{
-	    $make_dirs{dirname ($iter)} = 1;
-	}
-	# We also want to notice Makefile.in's.
-	foreach my $iter (@other_input_files)
-	{
-	    if ($iter =~ /Makefile\.in$/)
-	    {
-		$make_dirs{dirname ($iter)} = 1;
-	    }
-	}
-	$make_dirs_set = 1;
-    }
-    return defined $make_dirs{$dir};
-}
-
-################################################################
-
 # push_required_file ($DIR, $FILE, $FULLFILE)
 # -------------------------------------------
 # Push the given file onto DIST_COMMON.
@@ -6674,16 +6635,6 @@ sub require_build_directory_maybe
     }
 }
 
-################################################################
-
-# Push a list of files onto '@dist_common'.
-sub push_dist_common
-{
-  prog_error "push_dist_common run after handle_dist"
-    if $handle_dist_run;
-  push @dist_common, @_;
-}
-
 
 ################################################################