ccc70af63f87985b63997bac9f01121d6ad519f5
[openssl.git] / util / copyright.pl
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     return $skipit;
35 }
36
37 # Look for leading copyright blocks and process (print/swallow) them.
38 while ( <> ) {
39     if ($. == 1) {
40         my $DATE;
41         # Look for special copyright EAY line at line one.
42         if ( /Copyright.*(199.)-.*Eric Young/ ) {
43             $DATE = $1;
44         } else {
45             # Nope, use when it first existed in git.
46             $DATE=`git log '--pretty=format:%cI' $ARGV | tail -1`;
47             $DATE =~ s/-.*//;
48         }
49         my $YEAR = $DATE ? $DATE : 1995;
50         my $SPAN = $YEAR == 2016 ? "2016" : "${YEAR}-2016";
51         print <<EOF;
52 /*
53  * Copyright ${SPAN} The OpenSSL Project Authors. All Rights Reserved.
54  *
55  * Licensed under the OpenSSL license (the "License").  You may not use
56  * this file except in compliance with the License.  You can obtain a copy
57  * in the file LICENSE in the source distribution or at
58  * https://www.openssl.org/source/license.html
59  */
60
61 EOF
62     }
63     next if m@^$@;
64     last if not m@/\*@;
65     last unless &check_comment($_);
66 }
67
68 if (defined($_)) {
69     print unless m@\*/@;
70
71     # Print rest of file.
72     print while ( <> );
73 }