diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2021-08-29 06:19:44 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2021-08-29 06:19:44 +0000 |
commit | 0de5be92a3a0fe27e8521fc4de67e19b1057842e (patch) | |
tree | e93a390fe965486cca19498840cb8d7904252fec /Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year | |
parent | 27ce96eea3f1190bd744448cfa149e8d767af95a (diff) |
revert freetype to 2.10.4
git-svn-id: svn://tug.org/texlive/trunk@60360 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year')
-rwxr-xr-x | Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year | 65 |
1 files changed, 23 insertions, 42 deletions
diff --git a/Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year b/Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year index 69d63b60aba..c659bbafb89 100755 --- a/Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year +++ b/Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year @@ -2,7 +2,7 @@ eval '(exit $?0)' && eval 'exec perl -wS -i "$0" ${1+"$@"}' & eval 'exec perl -wS -i "$0" $argv:q' if 0; -# Copyright (C) 2015-2021 by +# Copyright (C) 2015-2020 by # Werner Lemberg. # # This file is part of the FreeType project, and may only be used, modified, @@ -28,20 +28,20 @@ eval '(exit $?0)' && eval 'exec perl -wS -i "$0" ${1+"$@"}' # # or # -# /* Copyright (c) 2000, 2001, 2004-2007 by */ -# /* foobar */ +# /* Copyright 2000, 2001, 2004-2007 by */ +# /* foobar */ # # and replaces them uniformly with # -# Copyright (C) 2000-2021 +# Copyright 2000-2015 # foobar # # and # -# /* Copyright (C) 2000-2021 by */ -# /* foobar */ +# /* Copyright 2000-2015 by */ +# /* foobar */ # -# (assuming that the current year is 2021). As can be seen, the line length +# (assuming that the current year is 2015). As can be seen, the line length # is retained if there is non-whitespace after the word `by' on the same # line. @@ -80,11 +80,11 @@ while (<>) { # Fill line to the same length (if appropriate); we skip the middle # part but insert `(C)', three spaces, and `-'. - my $space = length($+{space1}) - + length($+{middle}) - + length($+{space2}) + my $space = length($+{space1}) - 1 + + length($+{middle}) - 1 + + length($+{space2}) - 1 + length($+{space3}) - - (length("(C)") + 3 + 1); + - (length("(C)") + 1); print "$+{begin}"; print "Copyright\ (C)\ $+{first}-$year\ by"; @@ -106,38 +106,19 @@ while (<>) (?<end>.*) } { - if ($+{first} < $year) - { - # Fill line to the same length (if appropriate); we insert three - # spaces, the string `(C)', a `-', and the current year. - my $space = length($+{space1}) - + length($+{space2}) - + length($+{space3}) - - (length($year) + length("(C)") + 3 + 1); - - print "$+{begin}"; - print "Copyright\ (C)\ $+{first}-$year\ by"; - # If $space is negative this inserts nothing. - print ' ' x $space if length($+{end}); - print "$+{end}\n"; - $replaced = 1; - } - else - { - # Fill line to the same length (if appropriate); we insert three - # spaces and the string `(C)'. - my $space = length($+{space1}) - + length($+{space2}) - + length($+{space3}) - - (length("(C)") + 3); + # 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 + + length($+{space3}) + - (length($year) + 1); - print "$+{begin}"; - print "Copyright\ (C)\ $+{first}\ by"; - # If $space is negative this inserts nothing. - print ' ' x $space if length($+{end}); - print "$+{end}\n"; - $replaced = 1; - } + print "$+{begin}"; + print "Copyright\ (C)\ $+{first}-$year\ by"; + # If $space is negative this inserts nothing. + print ' ' x $space if length($+{end}); + print "$+{end}\n"; + $replaced = 1; }ex || # Otherwise print line unaltered. |