update-copyright-year (4272B)
1 eval '(exit $?0)' && eval 'exec perl -wS -i "$0" ${1+"$@"}' 2 & eval 'exec perl -wS -i "$0" $argv:q' 3 if 0; 4 5 # Copyright (C) 2015-2025 by 6 # Werner Lemberg. 7 # 8 # This file is part of the FreeType project, and may only be used, modified, 9 # and distributed under the terms of the FreeType project license, 10 # LICENSE.TXT. By continuing to use, modify, or distribute this file you 11 # indicate that you have read the license and understand and accept it 12 # fully. 13 14 # [Note: This script is expected to be called by the shell, which in turn 15 # calls perl automatically. The nifty start-up code above is based on 16 # gnulib's `update-copyright' script; it is a more portable replacement for 17 # the shebang, using the first `perl' program in the shell's path instead.] 18 19 # Usage: 20 # 21 # update-copyright-year file1 [file2 ...] 22 23 24 # This script handles copyright entries like 25 # 26 # Copyright 2000 by 27 # foobar 28 # 29 # or 30 # 31 # /* Copyright (c) 2000, 2001, 2004-2007 by */ 32 # /* foobar */ 33 # 34 # and replaces them uniformly with 35 # 36 # Copyright (C) 2000-2021 37 # foobar 38 # 39 # and 40 # 41 # /* Copyright (C) 2000-2021 by */ 42 # /* foobar */ 43 # 44 # (assuming that the current year is 2021). As can be seen, the line length 45 # is retained if there is non-whitespace after the word `by' on the same 46 # line. 47 48 use strict; 49 50 51 my (undef, undef, undef, 52 undef, undef, $year, 53 undef, undef, undef) = localtime(time); 54 $year += 1900; 55 56 my $replaced = 0; 57 58 59 # Loop over all input files; option `-i' (issued at the very beginning of 60 # this script) makes perl edit them in-place. 61 while (<>) 62 { 63 # Only handle the first copyright notice in a file. 64 if (!$replaced) 65 { 66 # First try: Search multiple copyright years. 67 s { 68 (?<begin>.*) 69 Copyright 70 (?<space1>(\ + 71 | \ +\(C\)\ +)) 72 (?<first>[12][0-9][0-9][0-9]) 73 (?<middle>.+) 74 (?<last>[12][0-9][0-9][0-9]) 75 (?<space2>\ +) 76 by 77 (?<space3>\ *) 78 (?<end>.*) 79 } 80 { 81 # Fill line to the same length (if appropriate); we skip the middle 82 # part but insert `(C)', three spaces, and `-'. 83 my $space = length($+{space1}) 84 + length($+{middle}) 85 + length($+{space2}) 86 + length($+{space3}) 87 - (length("(C)") + 3 + 1); 88 89 print "$+{begin}"; 90 print "Copyright\ (C)\ $+{first}-$year\ by"; 91 print ' ' x $space if length($+{end}); 92 print "$+{end}\n"; 93 $replaced = 1; 94 }ex 95 || 96 # Second try: Search a single copyright year. 97 s { 98 (?<begin>.*) 99 Copyright 100 (?<space1>(\ + 101 | \ +\(C\)\ +)) 102 (?<first>[12][0-9][0-9][0-9]) 103 (?<space2>\ +) 104 by 105 (?<space3>\ *) 106 (?<end>.*) 107 } 108 { 109 if ($+{first} < $year) 110 { 111 # Fill line to the same length (if appropriate); we insert three 112 # spaces, the string `(C)', a `-', and the current year. 113 my $space = length($+{space1}) 114 + length($+{space2}) 115 + length($+{space3}) 116 - (length($year) + length("(C)") + 3 + 1); 117 118 print "$+{begin}"; 119 print "Copyright\ (C)\ $+{first}-$year\ by"; 120 # If $space is negative this inserts nothing. 121 print ' ' x $space if length($+{end}); 122 print "$+{end}\n"; 123 $replaced = 1; 124 } 125 else 126 { 127 # Fill line to the same length (if appropriate); we insert three 128 # spaces and the string `(C)'. 129 my $space = length($+{space1}) 130 + length($+{space2}) 131 + length($+{space3}) 132 - (length("(C)") + 3); 133 134 print "$+{begin}"; 135 print "Copyright\ (C)\ $+{first}\ by"; 136 # If $space is negative this inserts nothing. 137 print ' ' x $space if length($+{end}); 138 print "$+{end}\n"; 139 $replaced = 1; 140 } 141 }ex 142 || 143 # Otherwise print line unaltered. 144 print; 145 } 146 else 147 { 148 print; 149 } 150 } 151 continue 152 { 153 # Reset $replaced before processing the next file. 154 $replaced = 0 if eof; 155 } 156 157 # EOF