summaryrefslogtreecommitdiff
path: root/Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year')
-rwxr-xr-xBuild/source/libs/freetype2/freetype-src/src/tools/update-copyright-year138
1 files changed, 0 insertions, 138 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
deleted file mode 100755
index c659bbafb89..00000000000
--- a/Build/source/libs/freetype2/freetype-src/src/tools/update-copyright-year
+++ /dev/null
@@ -1,138 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -wS -i "$0" ${1+"$@"}'
- & eval 'exec perl -wS -i "$0" $argv:q'
- if 0;
-
-# Copyright (C) 2015-2020 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>(\ +
- | \ +\(C\)\ +))
- (?<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 `(C)', three spaces, and `-'.
- my $space = length($+{space1}) - 1
- + length($+{middle}) - 1
- + length($+{space2}) - 1
- + length($+{space3})
- - (length("(C)") + 1);
-
- print "$+{begin}";
- print "Copyright\ (C)\ $+{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>(\ +
- | \ +\(C\)\ +))
- (?<first>[12][0-9][0-9][0-9])
- (?<space2>\ +)
- by
- (?<space3>\ *)
- (?<end>.*)
- }
- {
- # 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}-$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