diff options
author | Rich Salz <rsalz@openssl.org> | 2016-05-17 17:38:18 -0400 |
---|---|---|
committer | Rich Salz <rsalz@openssl.org> | 2016-05-17 17:38:18 -0400 |
commit | b6cff313cbb1d0381b329fe4f6a8f009cdb270e4 (patch) | |
tree | bf494fcee710691147bb78502f16d73526d35e53 /util | |
parent | 6ddbb4cd92ad8c9ebf874e5d9920c122696b7477 (diff) | |
download | openssl-b6cff313cbb1d0381b329fe4f6a8f009cdb270e4.tar.gz |
Manual fixes after copyright consolidation
Reviewed-by: Richard Levitte <levitte@openssl.org>
Diffstat (limited to 'util')
-rw-r--r-- | util/copyright.pl | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/util/copyright.pl b/util/copyright.pl deleted file mode 100644 index 4367f152a6..0000000000 --- a/util/copyright.pl +++ /dev/null @@ -1,79 +0,0 @@ -#! /usr/bin/env perl -# Copyright 2016 The OpenSSL Project Authors. All Rights Reserved. -# -# Licensed under the OpenSSL license (the "License"). You may not use -# this file except in compliance with the License. You can obtain a copy -# in the file LICENSE in the source distribution or at -# https://www.openssl.org/source/license.html - -# Add new copyright and delete old ones. Used as -# find . -name '*.[ch]' -type f -exec perl -i.bak util/copyright.pl '{}' ';' -# This does not do everything that's needed for the consolidation. - -use strict; -use warnings; - -# Read a multi-line comments. If it matches a "fingerprint" of a legacy -# copyright block, then just delete it. -sub check_comment() -{ - my @lines = ( @_ ); - my $skipit = 0; - - if ($lines[$#lines] !~ m@\*/@) { - while ( <> ) { - push @lines, $_; - last if m@\*/@; - $skipit = 1 if /Copyright remains Eric Young's/i; - $skipit = 1 if /Copyright.*The OpenSSL Project/i; - $skipit = 1 if /Written by.*for the OpenSSL Project/i; - } - } - - # Look for a multi-line "written by" comment. - if ( ! $skipit ) { - my $text = join('', @lines); - $skipit = 1 if $text =~ m/Written by.*for the OpenSSL Project/is; - } - - print @lines unless $skipit; - return $skipit; -} - -# Look for leading copyright blocks and process (print/swallow) them. -while ( <> ) { - if ($. == 1) { - my $DATE; - # Look for special copyright EAY line at line one. - if ( /Copyright.*(199.)-.*Eric Young/ ) { - $DATE = $1; - } else { - # Nope, use when it first existed in git. - $DATE=`git log '--pretty=format:%cI' $ARGV | tail -1`; - $DATE =~ s/-.*//; - } - my $YEAR = $DATE ? $DATE : 1995; - my $SPAN = $YEAR == 2016 ? "2016" : "${YEAR}-2016"; - print <<EOF; -/* - * Copyright ${SPAN} The OpenSSL Project Authors. All Rights Reserved. - * - * Licensed under the OpenSSL license (the "License"). You may not use - * this file except in compliance with the License. You can obtain a copy - * in the file LICENSE in the source distribution or at - * https://www.openssl.org/source/license.html - */ - -EOF - } - next if m@^$@; - last if not m@/\*@; - last unless &check_comment($_); -} - -if (defined($_)) { - print unless m@\*/@; - - # Print rest of file. - print while ( <> ); -} |