1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
#!/usr/local/bin/perl
use strict;
my @dateStrings = ( "???", "JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC" );
my %dateStrings;
$dateStrings{"Jan"} = "01";
$dateStrings{"Feb"} = "02";
$dateStrings{"Mar"} = "03";
$dateStrings{"Apr"} = "04";
$dateStrings{"May"} = "05";
$dateStrings{"Jun"} = "06";
$dateStrings{"Jul"} = "07";
$dateStrings{"Aug"} = "08";
$dateStrings{"Sep"} = "09";
$dateStrings{"Oct"} = "10";
$dateStrings{"Nov"} = "11";
$dateStrings{"Dec"} = "12";
if (! -e "logs") {
system("git log --name-status > logs");
}
# Update this after each copyright update commit, please. Best method is to commit
# the copyright changes -- none of the addCopyrights files, -- update this file and
# Then commit the addCopyrights files.
my %stoppingCommits;
$stoppingCommits{"6950cb74e302a97673a5ba482b3b8992eea72c37"} = 1; # 20 AUG 2015 - Initial copyright addition.
$stoppingCommits{"72c27c95d61cb8f37e859c4039456eb2acc5c55b"} = 1; # 19 NOV 2015 - Second copyright addition.
$stoppingCommits{"b2df5790f77d38cc31fe77a7f65360e02389f92e"} = 1; # 04 MAR 2016
$stoppingCommits{"1ef335952342ef06ad1651a888f09c312f54dab8"} = 1; # 18 MAY 2016
$stoppingCommits{"bbbdcd063560e5f86006ee6b8b96d2d7b80bb750"} = 1; # 21 NOV 2016
$stoppingCommits{"64459fe33f97f6d23fe036ba1395743d0cdd03e4"} = 1; # 17 APR 2017
$stoppingCommits{"9e9bd674b705f89817b07ff30067210c2d180f42"} = 1; # 14 AUG 2017
$stoppingCommits{"0fff8a511fd7d74081d94ff9e0f6c0351650ae2e"} = 1; # 27 FEB 2018 - v1.7
$stoppingCommits{"fcc3fe19eb635abd735486d215fbf65c56bcf4ee"} = 1; # 22 OCT 2018 - v1.8
# # in branch - v1.9
$stoppingCommits{"d5fd693702629c676eed37d027c82f98b9351b38"} = 1; # 24 FEB 2020 - v2.0
open(F, "< logs") or die "Failed to open 'logs': $!\n";
$_ = <F>; chomp;
my $author;
my $date;
while (!eof(F)) {
my $commit;
if (m/^commit\s+(\w+)$/) {
$commit = $1;
} else {
die "Expected commit line, got '$_'\n";
}
last if (exists($stoppingCommits{$commit}));
$_ = <F>; chomp;
if (m/^Merge/) {
# Merge commits include an extra line here: "Merge: a75ed40 717c0b1"
# No files change, and we can just process the rest of the entry as normal.
$_ = <F>; chomp;
}
if (m/walenz/i) {
$author = "Brian P. Walenz";
} elsif (m/koren/i) {
$author = "Sergey Koren";
} elsif (m/sergey.*nurk/i) {
$author = "Sergey Nurk";
} else {
print STDERR "Skipping commit from '$_'\n";
$author = undef;
}
$_ = <F>; chomp;
if (m/Date:\s+\w+\s+(\w+)\s+(\d+)\s+\d+:\d+:\d+\s+(\d+)/) {
my $day = substr("00$2", -2);
my $mo = $dateStrings{$1};
my $year = $3;
die "Invalid month '$3'\n" if (! defined($mo));
$date = "$year$mo$day"
} else {
die "Failed to match date in '$date'\n";
}
#print STDERR "$commit -- $date -- $author\n";
$_ = <F>; chomp;
while (! m/^commit/) {
next if (m/^$/); # Blank line
next if (m/^\s+/); # Comment line
if ($_ =~ m/M\s+(\S+)$/) {
print "A $1 nihh$date$author\n" if (defined($author));
} elsif ($_ =~ m/A\s+(\S+)$/) {
# New file, treat as normal.
print "A $1 nihh$date$author\n" if (defined($author));
} elsif ($_ =~ m/D\s+(\S+)$/) {
# Deleted file, do nothing,.
} else {
print STDERR "$_\n";
}
} continue {
$_ = <F>; chomp;
}
}
close(F);
|
