From: Akim Demaille <akim@epita.fr>
Date: Wed, 21 Feb 2001 08:27:41 +0000 (+0000)
Subject: * automake.in (&dist_cmp): New.
X-Git-Tag: handle-languages~285
X-Git-Url: https://sourceware.org/git/?a=commitdiff_plain;h=94789a2b1ae2e4c75166a5639149e03e2bff5d2e;p=automake.git

* automake.in (&dist_cmp): New.
(&handle_dist): Use it.
Promote `my' over `local'.
---

diff --git a/ChangeLog b/ChangeLog
index 87373cda..99add2ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-02-21  Akim Demaille  <akim@epita.fr>
+
+	* automake.in (&dist_cmp): New.
+	(&handle_dist): Use it.
+	Promote `my' over `local'.
+
 2001-02-21  Akim Demaille  <akim@epita.fr>
 
 	* dist.am: Remove, merge into...
diff --git a/automake.in b/automake.in
index a17b4c04..b3ff1ecc 100755
--- a/automake.in
+++ b/automake.in
@@ -2584,17 +2584,34 @@ sub handle_multilib
     $output_rules .= &file_contents ('multilib');
 }
 
-# Worker for handle_dist.
-sub handle_dist_worker
-{
-    my ($makefile) = @_;
 
+# $BOOLEAN
+# &dist_cmp ($A, $B)
+# --------------------
+# Subroutine for &handle_dist: sort files to dist.
+#
+# We put README first because it then becomes easier to make a
+# Usenet-compliant shar file (in these, README must be first).
+#
+# FIXME: do more ordering of files here.
+sub dist_cmp ($$)
+{
+    return
+        if $a eq $b;
+    return -1
+        if $a eq 'README';
+    return 1
+        if $b eq 'README';
+    return $a cmp $b;
 }
 
+
+# handle_dist ($MAKEFILE)
+# -----------------------
 # Handle 'dist' target.
 sub handle_dist
 {
-    local ($makefile) = @_;
+    my ($makefile) = @_;
 
     # Set up maint_charset.
     $local_maint_charset = &variable_value ('MAINT_CHARSET')
@@ -2619,8 +2636,7 @@ sub handle_dist
     }
 
     # Look for common files that should be included in distribution.
-    local ($cfile);
-    foreach $cfile (@common_files)
+    foreach my $cfile (@common_files)
     {
 	if (-f ($relative_dir . "/" . $cfile))
 	{
@@ -2642,8 +2658,7 @@ sub handle_dist
     # we want to distribute it here if we are doing `.'.  Ugly!
     if ($relative_dir eq '.')
     {
-	local ($iter);
-	foreach $iter (keys %configure_dist_common)
+	foreach my $iter (keys %configure_dist_common)
 	{
 	    if (! &is_make_dir (&dirname ($iter)))
 	    {
@@ -2652,25 +2667,15 @@ sub handle_dist
 	}
     }
 
-    # Keys of %dist_common are names of files to distributed.  We put
-    # README first because it then becomes easier to make a
-    # Usenet-compliant shar file (in these, README must be first).
-    # FIXME: do more ordering of files here.
-    local (@coms);
-    if (defined $dist_common{'README'})
-    {
-	push (@coms, 'README');
-	delete $dist_common{'README'};
-    }
-    push (@coms, sort keys %dist_common);
+    # Keys of %dist_common are names of files to distributed.
+    &define_pretty_variable ("DIST_COMMON", '',
+			     sort dist_cmp keys %dist_common);
+    $output_vars .= "\n";
 
     # Now that we've processed %dist_common, disallow further attempts
     # to set it.
     $handle_dist_run = 1;
 
-    &define_pretty_variable ("DIST_COMMON", '', @coms);
-    $output_vars .= "\n";
-
     # Some boilerplate.
     $output_vars .= &file_contents ('dist-vars') . "\n";