From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from ffbox0-bg.mplayerhq.hu (ffbox0-bg.ffmpeg.org [79.124.17.100]) by master.gitmailbox.com (Postfix) with ESMTP id 3B95447C7E for ; Wed, 15 Nov 2023 10:20:39 +0000 (UTC) Received: from [127.0.1.1] (localhost [127.0.0.1]) by ffbox0-bg.mplayerhq.hu (Postfix) with ESMTP id 4FED768CC95; Wed, 15 Nov 2023 12:20:36 +0200 (EET) Received: from mail1.khirnov.net (quelana.khirnov.net [94.230.150.81]) by ffbox0-bg.mplayerhq.hu (Postfix) with ESMTPS id 4760868CB56 for ; Wed, 15 Nov 2023 12:20:29 +0200 (EET) Received: from localhost (mail1.khirnov.net [IPv6:::1]) by mail1.khirnov.net (Postfix) with ESMTP id 9E21413D4 for ; Wed, 15 Nov 2023 11:20:28 +0100 (CET) Received: from mail1.khirnov.net ([IPv6:::1]) by localhost (mail1.khirnov.net [IPv6:::1]) (amavis, port 10024) with ESMTP id pmpDp0WzjGx7 for ; Wed, 15 Nov 2023 11:20:26 +0100 (CET) Received: from libav.khirnov.net (libav.khirnov.net [IPv6:2a00:c500:561:201::7]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256 client-signature RSA-PSS (2048 bits) client-digest SHA256) (Client CN "libav.khirnov.net", Issuer "smtp.khirnov.net SMTP CA" (verified OK)) by mail1.khirnov.net (Postfix) with ESMTPS id 4A1351102 for ; Wed, 15 Nov 2023 11:20:26 +0100 (CET) Received: from libav.khirnov.net (libav.khirnov.net [IPv6:::1]) by libav.khirnov.net (Postfix) with ESMTP id 3369A3A1E9B for ; Wed, 15 Nov 2023 11:20:26 +0100 (CET) From: Anton Khirnov To: ffmpeg-devel@ffmpeg.org Date: Wed, 15 Nov 2023 11:19:41 +0100 Message-ID: <20231115101941.22528-2-anton@khirnov.net> X-Mailer: git-send-email 2.42.0 In-Reply-To: <20231115101941.22528-1-anton@khirnov.net> References: <20231115101941.22528-1-anton@khirnov.net> MIME-Version: 1.0 Subject: [FFmpeg-devel] [PATCH 2/2] tools/general_assembly: update to conform to new rules X-BeenThere: ffmpeg-devel@ffmpeg.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: FFmpeg development discussions and patches List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: FFmpeg development discussions and patches Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Errors-To: ffmpeg-devel-bounces@ffmpeg.org Sender: "ffmpeg-devel" Archived-At: List-Archive: List-Post: --- tools/general_assembly.pl | 64 ++++++++++++++++++++++++++++++++++----- 1 file changed, 57 insertions(+), 7 deletions(-) diff --git a/tools/general_assembly.pl b/tools/general_assembly.pl index e59ce0f350..4c3208ccac 100755 --- a/tools/general_assembly.pl +++ b/tools/general_assembly.pl @@ -7,8 +7,11 @@ use POSIX qw(strftime); use Encode qw(decode); use Data::Dumper; use Getopt::Long; +use Digest::SHA; +use utf8; -binmode(STDOUT, ":utf8"); +use DateTime; +use DateTime::Format::ISO8601; sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s }; @@ -18,6 +21,7 @@ sub print_help { print " --names Print only the names\n"; print " --emails Print only the email addresses\n"; print " --full Print both names and email addresses (default)\n"; + print " --date YY-MM-DD Generate the GA for a given date, defaults to current system time\n"; print " -h, --help Show this help message\n"; exit; } @@ -25,6 +29,7 @@ sub print_help { my $print_full = 1; my $print_names = 0; my $print_emails = 0; +my $date = DateTime->now()->iso8601; my $help = 0; GetOptions( @@ -32,6 +37,7 @@ GetOptions( "names" => \$print_names, "emails" => \$print_emails, "help" => \$help, + "date=s" => \$date, "h" => \$help, ); @@ -41,7 +47,40 @@ if ($print_names || $print_emails) { $print_full = 0; } -my @shortlog = split /\n/, decode('UTF-8', `git log --pretty=format:"%aN <%aE>" --since="last 36 months" | sort | uniq -c | sort -r`, Encode::FB_CROAK); +sub get_date_range { + my ($now) = @_; + + # date on which the GA update rule was established, and the voter list + # was extraordinarily updated; cf.: + # * http://lists.ffmpeg.org/pipermail/ffmpeg-devel/2023-October/316054.html + # Message-Id <169818211998.11195.16532637803201641594@lain.khirnov.net> + # * http://lists.ffmpeg.org/pipermail/ffmpeg-devel/2023-November/316618.html + # Message-Id <5efcab06-8510-4226-bf18-68820c7c69ba@betaapp.fastmail.com> + my $date_ga_rule = DateTime->new(year => 2023, month => 11, day => 06); + # date when the regular update rule is first applied + my $date_first_regular = DateTime->new(year => 2024); + + if ($now->is_between($date_ga_rule, $date_first_regular)) { + return ($date_ga_rule->clone()->set_year($date_ga_rule->year - 3), $date_ga_rule); + } + + if ($now < $date_ga_rule) { + print STDERR "GA before $date_ga_rule is not well-defined, be very careful with the output\n"; + } + + my $cur_year_jan = $now->clone()->truncate(to => "year"); + my $cur_year_jul = $cur_year_jan->clone()->set_month(7); + my $date_until = $now > $cur_year_jul ? $cur_year_jul : $cur_year_jan; + my $date_since = $date_until->clone()->set_year($date_until->year - 3); + + return ($date_since, $date_until); +} + +my ($since, $until) = get_date_range(DateTime::Format::ISO8601->parse_datetime($date)); + +my @shortlog = split /\n/, decode('UTF-8', + `git log --pretty=format:"%aN <%aE>" --since="$since" --until="$until" | sort | uniq -c | sort -r`, + Encode::FB_CROAK); my %assembly = (); foreach my $line (@shortlog) { @@ -53,7 +92,10 @@ foreach my $line (@shortlog) { $name = trim $name; if ($count < 50) { my $true = 0; - my @commits = split /(^|\n)commit [a-z0-9]{40}(\n|$)/, decode('UTF-8', `git log --name-only --use-mailmap --author="$email" --since="last 36 months"`, Encode::FB_CROAK); + my @commits = split /(^|\n)commit [a-z0-9]{40}(\n|$)/, + decode('UTF-8', + `git log --name-only --use-mailmap --author="$email" --since="$since" --until="$until"`, + Encode::FB_CROAK); foreach my $commit (@commits) { $true++; # if ($commit =~ /\n[\w\/]+\.(c|h|S|asm|texi)/); } @@ -66,14 +108,22 @@ foreach my $line (@shortlog) { $assembly{$name} = $email; } -printf("# %s %s", strftime("%Y-%m-%d", localtime), decode('UTF-8', `git rev-parse HEAD`, Encode::FB_CROAK)); +# generate the output string +my @out_lines; foreach my $name (sort keys %assembly) { my $email = $assembly{$name}; + my $val; if ($print_full) { - printf("%s <%s>\n", $name, $email); + $val = sprintf("%s <%s>", $name, $email); } elsif ($print_names) { - printf("%s\n", $name); + $val = $name; } elsif ($print_emails) { - printf("%s\n", $email); + $val = $email; } + push(@out_lines, ($val)); } +my $out_str = join("\n", @out_lines) . "\n"; +utf8::encode($out_str); + +printf("# GA for $since/$until; %d people; SHA256:%s\n%s", + scalar @out_lines, Digest::SHA::sha256_hex($out_str), $out_str); -- 2.42.0 _______________________________________________ ffmpeg-devel mailing list ffmpeg-devel@ffmpeg.org https://ffmpeg.org/mailman/listinfo/ffmpeg-devel To unsubscribe, visit link above, or email ffmpeg-devel-request@ffmpeg.org with subject "unsubscribe".