| Index: third_party/freetype2/src/src/tools/update-copyright-year
|
| diff --git a/third_party/freetype2/src/src/tools/update-copyright-year b/third_party/freetype2/src/src/tools/update-copyright-year
|
| new file mode 100755
|
| index 0000000000000000000000000000000000000000..107754183dffe6ec074e391d9d49409048ff6f10
|
| --- /dev/null
|
| +++ b/third_party/freetype2/src/src/tools/update-copyright-year
|
| @@ -0,0 +1,135 @@
|
| +eval '(exit $?0)' && eval 'exec perl -wS -i "$0" ${1+"$@"}'
|
| + & eval 'exec perl -wS -i "$0" $argv:q'
|
| + if 0;
|
| +
|
| +# Copyright 2015 by
|
| +# Werner Lemberg.
|
| +#
|
| +# This file is part of the FreeType project, and may only be used, modified,
|
| +# and distributed under the terms of the FreeType project license,
|
| +# LICENSE.TXT. By continuing to use, modify, or distribute this file you
|
| +# indicate that you have read the license and understand and accept it
|
| +# fully.
|
| +
|
| +# [Note: This script is expected to be called by the shell, which in turn
|
| +# calls perl automatically. The nifty start-up code above is based on
|
| +# gnulib's `update-copyright' script; it is a more portable replacement for
|
| +# the shebang, using the first `perl' program in the shell's path instead.]
|
| +
|
| +# Usage:
|
| +#
|
| +# update-copyright-year file1 [file2 ...]
|
| +
|
| +
|
| +# This script handles copyright entries like
|
| +#
|
| +# Copyright 2000 by
|
| +# foobar
|
| +#
|
| +# or
|
| +#
|
| +# /* Copyright 2000, 2001, 2004-2007 by */
|
| +# /* foobar */
|
| +#
|
| +# and replaces them uniformly with
|
| +#
|
| +# Copyright 2000-2015
|
| +# foobar
|
| +#
|
| +# and
|
| +#
|
| +# /* Copyright 2000-2015 by */
|
| +# /* foobar */
|
| +#
|
| +# (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.
|
| +
|
| +use strict;
|
| +
|
| +
|
| +my (undef, undef, undef,
|
| + undef, undef, $year,
|
| + undef, undef, undef) = localtime(time);
|
| +$year += 1900;
|
| +
|
| +my $replaced = 0;
|
| +
|
| +
|
| +# Loop over all input files; option `-i' (issued at the very beginning of
|
| +# this script) makes perl edit them in-place.
|
| +while (<>)
|
| +{
|
| + # Only handle the first copyright notice in a file.
|
| + if (!$replaced)
|
| + {
|
| + # First try: Search multiple copyright years.
|
| + s {
|
| + (?<begin>.*)
|
| + Copyright
|
| + (?<space1>\ +)
|
| + (?<first>[12][0-9][0-9][0-9])
|
| + (?<middle>.+)
|
| + (?<last>[12][0-9][0-9][0-9])
|
| + (?<space2>\ +)
|
| + by
|
| + (?<space3>\ *)
|
| + (?<end>.*)
|
| + }
|
| + {
|
| + # Fill line to the same length (if appropriate); we skip the middle
|
| + # part but insert two spaces and `-'.
|
| + my $space = length($+{space1}) - 1
|
| + + length($+{middle}) - 1
|
| + + length($+{space2}) - 1
|
| + + length($+{space3});
|
| +
|
| + print "$+{begin}";
|
| + print "Copyright\ $+{first}-$year\ by";
|
| + print ' ' x $space if length($+{end});
|
| + print "$+{end}\n";
|
| + $replaced = 1;
|
| + }ex
|
| + ||
|
| + # Second try: Search a single copyright year.
|
| + s {
|
| + (?<begin>.*)
|
| + Copyright
|
| + (?<space1>\ +)
|
| + (?<first>[12][0-9][0-9][0-9])
|
| + (?<space2>\ +)
|
| + by
|
| + (?<space3>\ *)
|
| + (?<end>.*)
|
| + }
|
| + {
|
| + # Fill line to the same length (if appropriate); we insert two
|
| + # spaces, a `-', and the current year.
|
| + my $space = length($+{space1}) - 1
|
| + + length($+{space2}) - 1
|
| + + length($+{space3})
|
| + - (length($year) + 1);
|
| +
|
| + print "$+{begin}";
|
| + print "Copyright $+{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.
|
| + print;
|
| + }
|
| + else
|
| + {
|
| + print;
|
| + }
|
| +}
|
| +continue
|
| +{
|
| + # Reset $replaced before processing the next file.
|
| + $replaced = 0 if eof;
|
| +}
|
| +
|
| +# EOF
|
|
|