maint: clean up update-b4-copyright code

* build-aux/update-b4-copyright: Do not accept 2-digit
UPDATE_COPYRIGHT_YEAR, which was not handled correctly.
Don't accept a `[' in a b4_copyright argument.
Format code more consistently.
Don't assume b4*copyright never occurs.

diff --git a/ChangeLog b/ChangeLog
index 0f33560d4c6b207e9947599fad7f8c749b7865a3..d558bf0ef5878053f4bf0647342f4b402f266bb1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2009-08-05  Joel E. Denny  <jdenny@clemson.edu>
+
+       maint: clean up update-b4-copyright code
+       * build-aux/update-b4-copyright: Do not accept 2-digit
+       UPDATE_COPYRIGHT_YEAR, which was not handled correctly.
+       Don't accept a `[' in a b4_copyright argument.
+       Format code more consistently.
+       Don't assume b4*copyright never occurs.
+

 2009-08-04  Joel E. Denny  <jdenny@clemson.edu>
 
        maint: automate b4_copyright updates.
 2009-08-04  Joel E. Denny  <jdenny@clemson.edu>
 
        maint: automate b4_copyright updates.

diff --git a/build-aux/update-b4-copyright b/build-aux/update-b4-copyright
index 8cc5bbad82e315e2c049dc71507494de84efec7d..06d3cb76da896cc35aa14f5419c8d1a1241280dd 100755 (executable)
--- a/build-aux/update-b4-copyright
+++ b/build-aux/update-b4-copyright
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -0777 -pi
 #!/usr/bin/perl -0777 -pi

-# Update an b4_copyright invocation to include the current year.
+
+# Update b4_copyright invocations or b4_copyright_years definitions to
+# include the current year.

 
 # Copyright (C) 2009 Free Software Foundation, Inc.
 #
 
 # Copyright (C) 2009 Free Software Foundation, Inc.
 #


@@ -19,20 +21,23 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

+my $margin = 72;
+

 my $this_year = $ENV{UPDATE_COPYRIGHT_YEAR};
 my $this_year = $ENV{UPDATE_COPYRIGHT_YEAR};

-if (!$this_year || $this_year !~ m/^\d\d(\d\d)?$/)
+if (!$this_year || $this_year !~ m/^\d{4}$/)

   {
     my ($sec, $min, $hour, $mday, $month, $year) = localtime (time ());
     $this_year = $year + 1900;
   }
   {
     my ($sec, $min, $hour, $mday, $month, $year) = localtime (time ());
     $this_year = $year + 1900;
   }

-my $margin = 72;

 my $old_re = <<'EOF'
   (
     (?:^|\n)
 my $old_re = <<'EOF'
   (
     (?:^|\n)

+    #BEFORE

     (?:
     (?:

-      b4_copyright\(\[[^]]*]
+      b4_copyright\(\[[^][]*]

       | m4_(?:push|pop)def\(\[b4_copyright_years]
     )
       | m4_(?:push|pop)def\(\[b4_copyright_years]
     )

+    #AFTER

   )
   (?:
     ,\s*
   )
   (?:
     ,\s*


@@ -44,17 +49,15 @@ my $old_re = <<'EOF'
 EOF
   ;
 
 EOF
   ;
 

-while (/$old_re/x)
+while (/($old_re)/gx)

   {
   {

-    my $b4_copyright_line = $1;
-    my $year_lines = $2;
-    my $sep = $3 ? $3 : "";
-    my $final_year = $4;
+    my $start = pos() - length ($1);
+    my $b4_copyright_line = $2;
+    my $year_lines = $3;
+    my $sep = $4 ? $4 : "";
+    my $final_year = $5;

     $year_lines .= ')';
 
     $year_lines .= ')';
 

-    # Mark it completed.
-    $b4_copyright_line =~ s/b4_/b4*/g;
-

     # If there was a second argument, it contains years, so update them.
     if ($final_year)
       {
     # If there was a second argument, it contains years, so update them.
     if ($final_year)
       {


@@ -76,49 +79,67 @@ while (/$old_re/x)
               }
           }
 
               }
           }
 

-          # Normalize all whitespace.
-          $year_lines =~ s/\s+/ /g;
+        # Normalize all whitespace.
+        $year_lines =~ s/\s+/ /g;

 
 

-          # Put spaces after commas.
-          $year_lines =~ s/, ?/, /g;
+        # Put spaces after commas.
+        $year_lines =~ s/, ?/, /g;

 
 

-          # Format within margin.
-          my $year_lines_new;
-          my $indent = index ($b4_copyright_line, '[');
-          --$indent if ($b4_copyright_line =~ m/^\n/);
-          while (length $year_lines)
-            {
-              my $text_margin = $margin - $indent;
-              if (($year_lines =~ s/^(.{1,$text_margin})(?: |$)//)
-                  || ($year_lines =~ s/^([\S]+)(?: |$)//))
-                {
-                  my $line = "\n" . (' 'x$indent) . $1;
-                  ++$indent if (!$year_lines_new);
-                  $year_lines_new .= $line;
-                }
-              else
-                {
-                  # Should be unreachable, but we don't want an infinite
-                  # loop if it can be reached.
-                  die;
-                }
-            }
-          $year_lines = $year_lines_new;
-      }
+        # Format within margin.
+        my $year_lines_new;
+        my $indent = index ($b4_copyright_line, '[');
+        --$indent if ($b4_copyright_line =~ m/^\n/);
+        while (length $year_lines)
+          {
+            my $text_margin = $margin - $indent;
+            if (($year_lines =~ s/^(.{1,$text_margin})(?: |$)//)
+                || ($year_lines =~ s/^([\S]+)(?: |$)//))
+              {
+                my $line = "\n" . (' 'x$indent) . $1;
+                ++$indent if (!$year_lines_new);
+                $year_lines_new .= $line;
+              }
+            else
+              {
+                # Should be unreachable, but we don't want an infinite
+                # loop if it can be reached.
+                die;
+              }
+          }
+
+        # Replace the old invocation.  Should never die.
+        die if (!s/$old_re\G/$b4_copyright_line$year_lines_new/x);

 
 

-    # Replace the old invocation.
-    s/$old_re/$b4_copyright_line$year_lines/x;
+        # Prepare for the next search.
+        pos () = $start + length ("$b4_copyright_line$year_lines_new");
+      }

   }
 
   }
 

-if (/\bb4_copyright\(/)
+while (/(\bb4_copyright\()/g)

   {
   {

-    print STDERR
-      "$ARGV: warning: failed to update a b4_copyright invocation\n";
+    my $pos = pos ();
+    pos () -= length ($1);
+    my $re = $old_re;
+    $re =~ s/\#BEFORE/\\G/;
+    if (!/$re/x)
+      {
+        print STDERR
+          "$ARGV: warning: failed to update a b4_copyright before char"
+          . " $pos\n";
+      }
+    pos () = $pos;

   }
   }

-if (/\[b4_copyright_years]/)
+
+while (/\[b4_copyright_years]/g)

   {
   {

-    print STDERR
-      "$ARGV: warning: failed to update a b4_copyright_years use\n";
+    my $pos = pos ();
+    my $re = $old_re;
+    $re =~ s/\#AFTER/\\G/;
+    if (!/$re/x)
+      {
+        print STDERR
+          "$ARGV: warning: failed to update a b4_copyright_years before"
+          . " char $pos\n";
+      }
+    pos () = $pos;

   }
   }

-
-s/b4\*copyright/b4_copyright/g;