1#!/usr/bin/perl -0777 -pi
2
3# Update b4_copyright invocations or b4_copyright_years definitions to
4# include the current year.
5
6# Copyright (C) 2009-2012 Free Software Foundation, Inc.
7
8# This program is free software; you can redistribute it and/or modify
9# it under the terms of the GNU General Public License as published by
10# the Free Software Foundation; either version 3, or (at your option)
11# any later version.
12#
13# This program is distributed in the hope that it will be useful,
14# but WITHOUT ANY WARRANTY; without even the implied warranty of
15# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16# GNU General Public License for more details.
17#
18# You should have received a copy of the GNU General Public License
19# along with this program.  If not, see <http://www.gnu.org/licenses/>.
20
21use strict;
22use warnings;
23
24my $margin = 72;
25
26my $this_year = $ENV{UPDATE_COPYRIGHT_YEAR};
27if (!$this_year || $this_year !~ m/^\d{4}$/)
28  {
29    my ($sec, $min, $hour, $mday, $month, $year) = localtime (time ());
30    $this_year = $year + 1900;
31  }
32my $old_re = <<'EOF'
33  (
34    (?:^|\n)
35    #BEFORE
36    (?:
37      b4_copyright\(\[[^][]*]
38      | m4_(?:push|pop)def\(\[b4_copyright_years]
39    )
40    #AFTER
41  )
42  (?:
43    ,\s*
44    (
45      \[\s* (?:\d{4}(?:,\s*|-))* (\d{4}) \s*]
46    )
47  )?
48  \)
49EOF
50  ;
51
52while (/($old_re)/gx)
53  {
54    my $start = pos() - length ($1);
55    my $b4_copyright_line = $2;
56    my $year_lines = $3;
57    my $final_year = $4;
58    $year_lines .= ')';
59
60    # If there was a second argument, it contains years, so update them.
61    if ($final_year)
62      {
63        $b4_copyright_line .= ',';
64        if ($final_year != $this_year)
65          {
66            # Update the year.
67            $year_lines =~ s/$final_year/$final_year, $this_year/;
68          }
69
70        # Normalize all whitespace.
71        $year_lines =~ s/\s+/ /g;
72
73        # Put spaces after commas.
74        $year_lines =~ s/, ?/, /g;
75
76        # Compress to intervals.
77        $year_lines =~
78          s/
79            (\d{4})
80            (?:
81              (,\ |-)
82              ((??{
83                if    ($2 eq '-') { '\d{4}'; }
84                elsif (!$3)       { $1 + 1;  }
85                else              { $3 + 1;  }
86              }))
87            )+
88          /$1-$3/gx;
89
90        # Format within margin.
91        my $year_lines_new;
92        my $indent = index ($b4_copyright_line, '[');
93        --$indent if ($b4_copyright_line =~ m/^\n/);
94        while (length $year_lines)
95          {
96            my $text_margin = $margin - $indent;
97            if (($year_lines =~ s/^(.{1,$text_margin})(?: |$)//)
98                || ($year_lines =~ s/^([\S]+)(?: |$)//))
99              {
100                my $line = "\n" . (' 'x$indent) . $1;
101                ++$indent if (!$year_lines_new);
102                $year_lines_new .= $line;
103              }
104            else
105              {
106                # Should be unreachable, but we don't want an infinite
107                # loop if it can be reached.
108                die;
109              }
110          }
111
112        # Replace the old invocation.  Should never die.
113        die if (!s/$old_re\G/$b4_copyright_line$year_lines_new/x);
114
115        # Prepare for the next search.
116        pos () = $start + length ("$b4_copyright_line$year_lines_new");
117      }
118  }
119
120while (/(\bb4_copyright\()/g)
121  {
122    my $start = pos () - length ($1);
123    my $end = pos ();
124    my $re = $old_re;
125    pos () = $start;
126    $re =~ s/\#BEFORE/\\G/;
127    if (!/$re/x)
128      {
129        my $line = (substr ($_, 0, $start) =~ s/\n/\n/g) + 1;
130        print STDERR
131          "$ARGV:$line: warning: failed to update a b4_copyright\n";
132      }
133    pos () = $end;
134  }
135
136while (/(\[b4_copyright_years])/g)
137  {
138    my $start = pos () - length ($1);
139    my $end = pos ();
140    my $re = $old_re;
141    $re =~ s/\#AFTER/\\G/;
142    if (!/$re/x)
143      {
144        # The substr operation blows away pos (), so restoring pos ()
145        # at the end is necessary.
146        my $line = (substr ($_, 0, $start) =~ s/\n/\n/g) + 1;
147        print STDERR
148          "$ARGV:$line: warning: failed to update a"
149          . " b4_copyright_years\n";
150      }
151    pos () = $end;
152  }
153