- Added script reviewer-stats.

3 files changed, 129 insertions, 0 deletions

diff --git a/script/clean-up-dir.sh b/script/clean-up-dir.sh
new file mode 100755
index 0000000000..1f1fc2d67c
--- /dev/null
+++ b/script/clean-up-dir.sh
@@ -0,0 +1,86 @@
+find . -name "*.c" -delete
+find . -name "*.d" -delete
+find . -name "*.dart" -delete
+find . -name "*.vb" -delete
+find . -name "*.nim" -delete
+find . -name "*.julia" -delete
+find . -name "*.p" -delete
+find . -name "*.t" -delete
+find . -name "*.bc" -delete
+find . -name "*.pl" -delete
+find . -name "*.st" -delete
+find . -name "*.m4" -delete
+find . -name "*.pm" -delete
+find . -name "*.r" -delete
+find . -name "*.scm" -delete
+find . -name "*.dml" -delete
+find . -name "*.dot" -delete
+find . -name "*.rexx" -delete
+find . -name "*.sed" -delete
+find . -name "*.bqn" -delete
+find . -name "*.adk" -delete
+find . -name "*.erl" -delete
+find . -name "*.bash" -delete
+find . -name "*.yaml" -delete
+find . -name "*.d" -delete
+find . -name "*.dart" -delete
+find . -name "*.f95" -delete
+find . -name "*.java" -delete
+find . -name "*.jl" -delete
+find . -name "*.kt" -delete
+find . -name "*.lisp" -delete
+find . -name "*.pas" -delete
+find . -name "*.csv" -delete
+find . -name "*.bf93" -delete
+find . -name "*.bf" -delete
+find . -name "*.chef" -delete
+find . -name "*.csh" -delete
+find . -name "*.fs" -delete
+find . -name "*.f90" -delete
+find . -name "*.mps" -delete
+find . -name "*.ook" -delete
+find . -name "*.cb" -delete
+find . -name "*.cs" -delete
+find . -name "*.bas" -delete
+find . -name "*.ml" -delete
+find . -name "*.p6" -delete
+find . -name "*.py" -delete
+find . -name "*.js" -delete
+find . -name "*.hs" -delete
+find . -name "*.go" -delete
+find . -name "*.rs" -delete
+find . -name "*.rb" -delete
+find . -name "*.sh" -delete
+find . -name "*.awk" -delete
+find . -name "*.gawk" -delete
+find . -name "*.php" -delete
+find . -name "*.adb" -delete
+find . -name "*.kts" -delete
+find . -name "*.exp" -delete
+find . -name "*.elm" -delete
+find . -name "*.lsp" -delete
+find . -name "*.txt" -delete
+find . -name "*.cpp" -delete
+find . -name "*.clj" -delete
+find . -name "*.lua" -delete
+find . -name "*.tcl" -delete
+find . -name "*.ini" -delete
+find . -name "*.raku" -delete
+find . -name "*.fish" -delete
+find . -name "*.swift" -delete
+find . -name "*.janet" -delete
+find . -name "*.aplf" -delete
+find . -name "*.lock" -delete
+find . -name "*.toml" -delete
+find . -name "*.json" -delete
+find . -name "*.scala" -delete
+find . -name "*.sql" -delete
+find . -name "*.table" -delete
+find . -name "*.rakumod" -delete
+rm -rf abigail/Part1
+rm -rf abigail/Part2
+rm -rf abigail/t/input-*
+rm -rf arne-sommer/perl/*
+rm -rf arne-sommer/raku/*
+rm -rf tyler-wardhaugh/clojure/src/tw/weekly/*
+rm -rf tyler-wardhaugh/clojure/resources/*
diff --git a/script/refresh-stats.sh b/script/refresh-stats.sh
index c34ccc0bb0..c34ccc0bb0 100644..100755
--- a/script/refresh-stats.sh
+++ b/script/refresh-stats.sh
diff --git a/script/reviewer-stats b/script/reviewer-stats
new file mode 100755
index 0000000000..0a18739e51
--- /dev/null
+++ b/script/reviewer-stats
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+our $DEBUG = 0;
+
+my $F = $ARGV[0];
+
+my $reviewers = get_reviewer_stats($F);
+show_count($reviewers);
+
+#
+#
+# METHODS
+
+sub get_reviewer_stats {
+    my ($file) = @_;
+
+    my $reviewers = {};
+    open(my $I, '<', $file) or die "$!\n";
+    while(my $r = <$I>) {
+        chomp $r;
+        my($x, $y, $z) = split /\:/, $r, 3;
+
+        $z =~ s/^\s+//g;
+        $x =~ /\-(\d+)\./;
+
+        push @{$reviewers->{$z}}, $1;
+        print "$x: $y: $1: $z\n" if $DEBUG;
+    }
+    close($I);
+
+    return $reviewers;
+}
+
+sub show_count {
+    my ($reviewers) = @_;
+
+    foreach my $auth (sort keys %$reviewers) {
+        print "$auth: ", scalar(@{$reviewers->{$auth}}), "\n";
+    }
+}