Summaries

[vinegar-ip.git] / mdiff-summarise.pl

diff --git a/mdiff-summarise.pl b/mdiff-summarise.pl
new file mode 100755 (executable)
index 0000000..8b09d16
--- /dev/null
+++ b/mdiff-summarise.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -n
+next if m/^\+/;
+if (m/^[- ](\d+)$/) {
+    $nlno= $1;
+    next;
+} elsif (defined $nlno) {
+    m/^[- ]     *\S/ or die;
+    s/^([- ])    / $1. sprintf "%-6d ", $nlno /e;
+    undef $nlno;
+}
+die if defined $lno;
+next if m/^[- ]    \s\s/;
+next if m/^\-\-\-|^\@\@/;
+next if m/^ /;
+die unless m/^\-/;
+print or die $!;