From 683f52e9090aa0ab3dd3c4ec8506b38ddfd3f630 Mon Sep 17 00:00:00 2001
From: Akim Demaille <akim@epita.fr>
Date: Sun, 21 Oct 2001 18:12:07 +0000
Subject: [PATCH] * automake.in (&require_file_with_macro): Use &require_file.
 (&read_am_file): Move the definition of $here at its proper place.

---
 ChangeLog   |  6 ++++++
 automake.in | 33 +++++++++++++++++----------------
 2 files changed, 23 insertions(+), 16 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0c2b5923..124924bd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-21  Akim Demaille  <akim@epita.fr>
+
+	* automake.in (&require_file_with_macro): Use &require_file.
+	(&read_am_file): Move the definition of $here at its proper place.
+
+	
 2001-10-21  Akim Demaille  <akim@epita.fr>
 
 	* automake.in ($libtool_line, $seen_pythondir): Replace with...
diff --git a/automake.in b/automake.in
index 6effd0e3..5452f844 100755
--- a/automake.in
+++ b/automake.in
@@ -2965,8 +2965,8 @@ sub scan_texinfo_file
         $outfile = $1;
         if ($outfile =~ /\.(.+)$/ && $1 ne 'info')
           {
-            &am_file_error ($filename, "$.: ",
-                            "output `$outfile' has unrecognized extension");
+            am_file_error ("$filename:$.",
+			   "output `$outfile' has unrecognized extension");
             return;
           }
       }
@@ -5638,7 +5638,7 @@ sub cond_stack_if ($$$)
 {
   my ($negate, $cond, $where) = @_;
 
-  &am_file_error ($where, "$cond does not appear in AM_CONDITIONAL")
+  am_file_error ($where, "$cond does not appear in AM_CONDITIONAL")
     if ! $configure_cond{$cond} && $cond !~ /^TRUE|FALSE$/;
 
   $cond = "${cond}_TRUE"
@@ -5661,7 +5661,7 @@ sub cond_stack_else ($$$)
 
   if (! @cond_stack)
     {
-      &am_file_error ($where, "else without if");
+      am_file_error ($where, "else without if");
       return;
     }
 
@@ -5675,9 +5675,9 @@ sub cond_stack_else ($$$)
       $cond = condition_negate ($cond)
 	if $negate;
 
-      &am_file_error ($where,
-		      "else reminder ($negate$cond) incompatible with "
-		      . "current conditional: $cond_stack[$#cond_stack]")
+      am_file_error ($where,
+		     "else reminder ($negate$cond) incompatible with "
+		     . "current conditional: $cond_stack[$#cond_stack]")
 	if $cond_stack[$#cond_stack] ne $cond;
     }
 
@@ -5695,7 +5695,7 @@ sub cond_stack_endif ($$$)
 
   if (! @cond_stack)
     {
-      &am_file_error ($where, "endif without if: $negate$cond");
+      am_file_error ($where, "endif without if: $negate$cond");
       return;
     }
 
@@ -5708,9 +5708,9 @@ sub cond_stack_endif ($$$)
       $cond = condition_negate ($cond)
 	if $negate;
 
-      &am_file_error ($where,
-		      "endif reminder ($negate$cond) incompatible with "
-		      . "current conditional: $cond_stack[$#cond_stack]")
+      am_file_error ($where,
+		     "endif reminder ($negate$cond) incompatible with "
+		     . "current conditional: $cond_stack[$#cond_stack]")
 	if $cond_stack[$#cond_stack] ne $cond;
     }
 
@@ -6743,10 +6743,11 @@ sub read_am_file ($)
     my $last_var_name = '';
     my $last_var_type = '';
     my $last_var_value = '';
-    my $here = "$amfile:$.";
     # FIXME: shouldn't use $_ in this loop; it is too big.
     while ($_)
     {
+        my $here = "$amfile:$.";
+
 	$_ .= "\n"
 	    unless substr ($_, -1, 1) eq "\n";
 
@@ -7118,9 +7119,9 @@ sub file_contents_internal ($$%)
     foreach (make_paragraphs ($file, %transform))
     {
         # Sanity checks.
-	&am_file_error ($file, "blank line following trailing backslash:\n$_")
+	am_file_error ($file, "blank line following trailing backslash:\n$_")
 	  if /\\$/;
-	&am_file_error ($file, "comment following trailing backslash:\n$_")
+	am_file_error ($file, "comment following trailing backslash:\n$_")
 	  if /\\#/;
 
  	if (/^$/)
@@ -7243,7 +7244,7 @@ sub file_contents_internal ($$%)
  	elsif (/$ASSIGNMENT_PATTERN/mso)
  	{
 	    my ($var, $type, $val) = ($1, $2, $3);
- 	    &am_file_error ($file, "macro `$var' with trailing backslash")
+ 	    am_file_error ($file, "macro `$var' with trailing backslash")
 	      if /\\$/;
 
 	    # Accumulating variables must not be output.
@@ -8066,7 +8067,7 @@ sub am_error
 
 # am_file_error ($FILE, @ARGS)
 # ----------------------------
-sub am_file_error
+sub am_file_error ($@)
 {
     my ($file, @args) = @_;
 
-- 
2.43.5