ref: fd8fc64efb9b355a73192dc4d01d5daa8ecd31cd
parent: b77826e139dee90d2f1f6f804971e9a355a2f8a3
author: Werner Lemberg <[email protected]>
date: Sat Feb 23 05:05:37 EST 2019
* src/tools/update-copyright-year: Insert `(C)'.
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2019-02-23 Werner Lemberg <[email protected]>
+
+ * src/tools/update-copyright-year: Insert `(C)'.
+
2019-02-21 Armin Hasitzka <[email protected]>
[truetype] Mask numeric overflows.
--- a/src/tools/update-copyright-year
+++ b/src/tools/update-copyright-year
@@ -67,7 +67,8 @@
s {(?<begin>.*)
Copyright
- (?<space1>\ +)
+ (?<space1>(\ +
+ | \ +\(C\)\ +))
(?<first>[12][0-9][0-9][0-9])
(?<middle>.+)
(?<last>[12][0-9][0-9][0-9])
@@ -78,14 +79,15 @@
}
{# Fill line to the same length (if appropriate); we skip the middle
- # part but insert two spaces and `-'.
+ # part but insert `(C)', three spaces, and `-'.
my $space = length($+{space1}) - 1 + length($+{middle}) - 1 + length($+{space2}) - 1- + length($+{space3});+ + length($+{space3})+ - (length("(C)") + 1); print "$+{begin}";- print "Copyright\ $+{first}-$year\ by";+ print "Copyright\ (C)\ $+{first}-$year\ by"; print ' ' x $space if length($+{end}); print "$+{end}\n";$replaced = 1;
@@ -95,7 +97,8 @@
s {(?<begin>.*)
Copyright
- (?<space1>\ +)
+ (?<space1>(\ +
+ | \ +\(C\)\ +))
(?<first>[12][0-9][0-9][0-9])
(?<space2>\ +)
by
@@ -103,7 +106,7 @@
(?<end>.*)
}
{- # Fill line to the same length (if appropriate); we insert two
+ # Fill line to the same length (if appropriate); we insert three
# spaces, a `-', and the current year.
my $space = length($+{space1}) - 1 + length($+{space2}) - 1@@ -111,7 +114,7 @@
- (length($year) + 1);
print "$+{begin}";- print "Copyright $+{first}-$year by";+ print "Copyright\ (C)\ $+{first}-$year\ by";# If $space is negative this inserts nothing.
print ' ' x $space if length($+{end}); print "$+{end}\n";