From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 30 Sep 2018 15:31:48 +0000 (+0100)
Subject: auditor wip output
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit-junk.git;a=commitdiff_plain;h=25738c9da54e3abe9afcc6b25dc1a39c32eda314

auditor wip output
---

diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index b9bd4e5..36f3da3 100755
--- a/i18n-diff-auditor
+++ b/i18n-diff-auditor
@@ -91,7 +91,9 @@ sub prep_perlop () {
 
 prep_perlop();
 
-our ($ifilehead, $ihunkhead, $ichunkstart, $ichunkend);
+our ($ifilehead, $ifirsthunkhead);
+our ($ihunkhead, $ihunkend);
+our ($ichunkstart, $ichunkend);
 our ($before, $after);
 
 sub semiparse ($) {
@@ -264,10 +266,53 @@ sub analyse_chunk () {
     }
 }
 
+our @report;
+our $last_filehead = -1;
+
+sub report_on_hunk () {
+    return unless @report;
+    if ($last_filehead != $ifilehead) {
+	foreach (my $i=$ifilehead; $i<$ifirsthunkhead; $i++) {
+	    print $d[$i];
+	}
+	$last_filehead = $ifilehead;
+    }
+    my $dummy_r = { S => (scalar @d)+1, E => (scalar @d)+1 };
+    my $r;
+    for (my $i=$ihunkhead; ; $i++) {
+	for (;;) {
+	    $r //= shift @report;
+	    $r //= $dummy_r;
+	    last if $i < $r->{E};
+	    confess unless $r->{Done} == 03;
+	    $r = undef;
+	}
+
+	last unless $i<$ihunkend;
+
+	if ($i == $r->{S}) {
+	    print "!! $r->{M}";
+	    $r->{Done} |= 01;
+	}
+	if ($i >= $r->{S}) {
+	    print "!";
+	    $r->{Done} |= 02;
+	} else {
+	    print " ";
+	}
+	print $d[$i];
+    }
+    confess unless $r = $dummy_r;
+}
+
 for ($ifilehead = 0; l_ok $ifilehead; $ifilehead++) {
     m{^diff} or next;
-    while (l_ok $ifilehead and m{^diff|^index|^---|^\Q+++\E}) { $ifilehead++ }
-    $ihunkhead = $ifilehead;
+    $ifirsthunkhead = $ifilehead;
+    while (l_ok $ifirsthunkhead and
+	   m{^diff|^index|^---|^\Q+++\E}) {
+	$ifirsthunkhead++
+    }
+    $ihunkhead = $ifirsthunkhead;
     while (l_ok $ihunkhead) {
 	m{^\@\@} or confess "$ihunkhead $_ ?";
 	my $i = $ihunkhead + 1;
@@ -277,10 +322,9 @@ for ($ifilehead = 0; l_ok $ifilehead; $ifilehead++) {
 		    $ichunkend = $i;
 		    eval { analyse_chunk(); 1; };
 		    if (length $@) {
-			print Dumper('REPORT',
-				     $ichunkstart, $ichunkend,
-				     $before, $after,
-				     $@);
+			push @report, { M => $@,
+					S => $ichunkstart,
+					E => $ichunkend };
 		    }
 		    $ichunkstart = $ichunkend = $before = $after = undef;
 		}
@@ -295,6 +339,8 @@ for ($ifilehead = 0; l_ok $ifilehead; $ifilehead++) {
 		confess "$i $_ ?";
 	    }
 	}
+	$ihunkend = $i;
+	report_on_hunk();
 	$ichunkend = $i;
 	$ihunkhead = $i;
     }