]> git.saurik.com Git - bison.git/blame - build-aux/update-b4-copyright
maint: run "make update-copyright".
[bison.git] / build-aux / update-b4-copyright
CommitLineData
269e222e 1#!/usr/bin/perl -0777 -pi
0b61a8ec
JD
2
3# Update b4_copyright invocations or b4_copyright_years definitions to
4# include the current year.
269e222e 5
575619af 6# Copyright (C) 2009-2011 Free Software Foundation, Inc.
7d424de1 7
269e222e
JD
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
0b61a8ec
JD
24my $margin = 72;
25
269e222e 26my $this_year = $ENV{UPDATE_COPYRIGHT_YEAR};
0b61a8ec 27if (!$this_year || $this_year !~ m/^\d{4}$/)
269e222e
JD
28 {
29 my ($sec, $min, $hour, $mday, $month, $year) = localtime (time ());
30 $this_year = $year + 1900;
31 }
269e222e
JD
32my $old_re = <<'EOF'
33 (
34 (?:^|\n)
0b61a8ec 35 #BEFORE
269e222e 36 (?:
0b61a8ec 37 b4_copyright\(\[[^][]*]
269e222e
JD
38 | m4_(?:push|pop)def\(\[b4_copyright_years]
39 )
0b61a8ec 40 #AFTER
269e222e
JD
41 )
42 (?:
43 ,\s*
44 (
585935e8 45 \[\s* (?:\d{4}(?:,\s*|-))* (\d{4}) \s*]
269e222e
JD
46 )
47 )?
48 \)
49EOF
50 ;
51
0b61a8ec 52while (/($old_re)/gx)
269e222e 53 {
0b61a8ec
JD
54 my $start = pos() - length ($1);
55 my $b4_copyright_line = $2;
56 my $year_lines = $3;
585935e8 57 my $final_year = $4;
269e222e
JD
58 $year_lines .= ')';
59
269e222e
JD
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.
585935e8 67 $year_lines =~ s/$final_year/$final_year, $this_year/;
269e222e
JD
68 }
69
0b61a8ec
JD
70 # Normalize all whitespace.
71 $year_lines =~ s/\s+/ /g;
269e222e 72
0b61a8ec
JD
73 # Put spaces after commas.
74 $year_lines =~ s/, ?/, /g;
269e222e 75
cb3f7f33
JD
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;
585935e8 89
0b61a8ec
JD
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);
269e222e 114
0b61a8ec
JD
115 # Prepare for the next search.
116 pos () = $start + length ("$b4_copyright_line$year_lines_new");
117 }
269e222e
JD
118 }
119
0b61a8ec 120while (/(\bb4_copyright\()/g)
269e222e 121 {
a1a9422d
JD
122 my $start = pos () - length ($1);
123 my $end = pos ();
0b61a8ec 124 my $re = $old_re;
a1a9422d 125 pos () = $start;
0b61a8ec
JD
126 $re =~ s/\#BEFORE/\\G/;
127 if (!/$re/x)
128 {
a1a9422d 129 my $line = (substr ($_, 0, $start) =~ s/\n/\n/g) + 1;
0b61a8ec 130 print STDERR
a1a9422d 131 "$ARGV:$line: warning: failed to update a b4_copyright\n";
0b61a8ec 132 }
a1a9422d 133 pos () = $end;
269e222e 134 }
0b61a8ec 135
a1a9422d 136while (/(\[b4_copyright_years])/g)
269e222e 137 {
a1a9422d
JD
138 my $start = pos () - length ($1);
139 my $end = pos ();
0b61a8ec
JD
140 my $re = $old_re;
141 $re =~ s/\#AFTER/\\G/;
142 if (!/$re/x)
143 {
a1a9422d
JD
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;
0b61a8ec 147 print STDERR
a1a9422d
JD
148 "$ARGV:$line: warning: failed to update a"
149 . " b4_copyright_years\n";
0b61a8ec 150 }
a1a9422d 151 pos () = $end;
269e222e 152 }