|
| 1 | +#! /usr/bin/env perl |
| 2 | +# Copyright 2016 The OpenSSL Project Authors. All Rights Reserved. |
| 3 | +# |
| 4 | +# Licensed under the OpenSSL license (the "License"). You may not use |
| 5 | +# this file except in compliance with the License. You can obtain a copy |
| 6 | +# in the file LICENSE in the source distribution or at |
| 7 | +# https://www.openssl.org/source/license.html |
| 8 | + |
| 9 | +# Add new copyright and delete old ones. Used as |
| 10 | +# find . -name '*.[ch]' -type f -exec perl -i.bak util/copyright.pl '{}' ';' |
| 11 | +# This does not do everything that's needed for the consolidation. |
| 12 | + |
| 13 | +use strict; |
| 14 | +use warnings; |
| 15 | + |
| 16 | +# Read a multi-line comments. If it matches a "fingerprint" of a legacy |
| 17 | +# copyright block, then just delete it. |
| 18 | +sub check_comment() |
| 19 | +{ |
| 20 | + my @lines = ( @_ ); |
| 21 | + my $skipit = 0; |
| 22 | + |
| 23 | + if ($lines[$#lines] !~ m@\*/@) { |
| 24 | + while ( <> ) { |
| 25 | + push @lines, $_; |
| 26 | + last if m@\*/@; |
| 27 | + $skipit = 1 if /Copyright remains Eric Young's/i; |
| 28 | + $skipit = 1 if /Copyright.*The OpenSSL Project/i; |
| 29 | + $skipit = 1 if /Written by.*for the OpenSSL Project/i; |
| 30 | + } |
| 31 | + } |
| 32 | + |
| 33 | + print @lines unless $skipit; |
| 34 | +} |
| 35 | + |
| 36 | +# Look for leading copyright blocks and process (print/swallow) them. |
| 37 | +while ( <> ) { |
| 38 | + if ($. == 1) { |
| 39 | + my $DATE; |
| 40 | + # Look for special copyright EAY line at line one. |
| 41 | + if ( /Copyright.*(199.)-.*Eric Young/ ) { |
| 42 | + $DATE = $1; |
| 43 | + } else { |
| 44 | + # Nope, use when it first existed in git. |
| 45 | + $DATE=`git log '--pretty=format:%cI' $ARGV | tail -1`; |
| 46 | + $DATE =~ s/-.*//; |
| 47 | + } |
| 48 | + my $YEAR = $DATE ? $DATE : 1995; |
| 49 | + my $SPAN = $YEAR == 2016 ? "2016" : "${YEAR}-2016"; |
| 50 | + print <<EOF; |
| 51 | +/* |
| 52 | + * Copyright ${SPAN} The OpenSSL Project Authors. All Rights Reserved. |
| 53 | + * |
| 54 | + * Licensed under the OpenSSL license (the "License"). You may not use |
| 55 | + * this file except in compliance with the License. You can obtain a copy |
| 56 | + * in the file LICENSE in the source distribution or at |
| 57 | + * https://www.openssl.org/source/license.html |
| 58 | + */ |
| 59 | +
|
| 60 | +EOF |
| 61 | + } |
| 62 | + next if m@^$@; |
| 63 | + last if not m@/\*@; |
| 64 | + &check_comment($_); |
| 65 | +} |
| 66 | + |
| 67 | +if (defined($_)) { |
| 68 | + print unless m@\*/@; |
| 69 | + |
| 70 | + # Print rest of file. |
| 71 | + print while ( <> ); |
| 72 | +} |
0 commit comments