From: Sven Eden <yamakuzure@gmx.net>
Date: Thu, 17 May 2018 06:08:37 +0000 (+0200)
Subject: check_tree.pl: Remember mask starts and elses in hunks, so the
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=01cac2ea18bec7583c8d0e34bec197782842f887;p=elogind.git

check_tree.pl: Remember mask starts and elses in hunks, so the
resulting patches can be reworked without ignoring changes in useless
hunks.
---

diff --git a/pwx/check_tree.pl b/pwx/check_tree.pl
index 93e2b481e..35173aeb3 100755
--- a/pwx/check_tree.pl
+++ b/pwx/check_tree.pl
@@ -22,6 +22,8 @@
 #                                      Add new option --stay to to not reset back from --commit.
 # 0.9.0    2018-05-15  sed, PrydeWorX  Do not prefix mask block content in XML file patch hunks with a '# '.
 # 0.9.1    2018-05-17  sed, PrydeWorX  Replace the source in creation patches with /dev/null.
+#                                        Remember mask starts and elses in hunks, so the resulting patches
+#                                        can be reworked without ignoring changes in useless hunks.
 #
 # ========================
 # === Little TODO list ===
@@ -118,6 +120,9 @@ my $hHunk = {}; ## Secondary data structure to describe one diff hunk.
                 ## { count      : Number of lines in {lines}
                 ##   lines      : list of the lines themselves,
                 ##   idx        : Index of this hunk in %hFile{hunks}
+                ##   is_else    : Set to 1 if the hunk exits in an else after a mask start
+                ##   is_endif   : Set to 1 if the hunk exists after ending a mask block
+                ##   is_mask    : Set to 1 if the hunk exists within an elogind mask block
                 ##   src_start  : line number this hunk starts in the source file.
                 ##   tgt_start  : line number this hunk becomes in the target file.
                 ##   useful     : 1 if the hunk is transported, 0 if it is to be omitted.
@@ -270,6 +275,10 @@ for my $file_part (@source_files) {
 	for (my $pos = 0; $pos < $hFile{count}; ++$pos) {
 		$hHunk = $hFile{hunks}[$pos]; ## Global shortcut
 
+		# The state of what the hunk did must be known:
+		$in_mask_block = $hHunk->{is_mask} && (!$hHunk->{is_endif}) ? 1 : 0;
+		$in_else_block = $hHunk->{is_else} && (!$hHunk->{is_endif}) ? 1 : 0;
+
 		# (pre -> early out)
 		hunk_is_useful or next;
 
@@ -430,6 +439,9 @@ sub build_hHunk {
 		%{$hFile{hunks}[$pos]} = (
 			count      => 0,
 			idx        => $pos,
+			is_else    => 0,
+			is_endif   => 0,
+			is_mask    => 0,
 			offset     => 0,
 			src_start  => $1,
 			tgt_start  => $2,
@@ -461,7 +473,16 @@ sub build_output {
 
 	for (my $pos = 0; $pos < $hFile{count}; ++$pos) {
 		$hHunk = $hFile{hunks}[$pos]; ## Global shortcut
-		$hHunk->{useful} or next;     ## And the skip of the useless.
+
+		# The state of what the hunk did must be known:
+		$in_mask_block = $hHunk->{is_mask} && (!$hHunk->{is_endif}) ? 1 : 0;
+		$in_else_block = $hHunk->{is_else} && (!$hHunk->{is_endif}) ? 1 : 0;
+
+		# The useless are to be skipped
+		$hHunk->{useful} or next;
+
+		# --- Add a comment line for later processing of .pwx files
+		$hFile{pwxfile} and push(@{$hFile{output}}, "# emi ${in_mask_block} ${in_else_block}");
 
 		# --- Add the header line -----------------
 		# -----------------------------------------
@@ -921,6 +942,7 @@ sub check_masks {
 				and return hunk_failed("check_masks: Mask start found while being in an insert block!");
 			substr($$line, 0, 1) = " "; ## Remove '-'
 			$in_mask_block = 1;
+			$hHunk->{is_mask} = 1;
 
 			# While we are here we can check the previous line.
 			# All masks shall be preceded by an empty line to enhance readability.
@@ -962,7 +984,8 @@ sub check_masks {
 		    || ( $$line =~ m/else\s+-->\s*$/ ) 
 		    || ( $$line =~ m,\*\s+else\s+\*\*/\s*$, ) ) ) {
 			substr($$line, 0, 1) = " "; ## Remove '-'
-			$in_else_block = 1;
+			$in_else_block    = 1;
+			$hHunk->{is_else} = 1;
 			next;
 		}
 
@@ -976,8 +999,11 @@ sub check_masks {
 				(!$in_mask_block)
 					and return hunk_failed("check_masks: #endif // 0 found outside any mask block");
 				substr($$line, 0, 1) = " "; ## Remove '-'
-				$in_mask_block = 0;
-				$in_else_block = 0;
+				$in_mask_block     = 0;
+				$in_else_block     = 0;
+				$hHunk->{is_else}  = 0;
+				$hHunk->{is_endif} = 1;
+				$hHunk->{is_mask}  = 0;
 				next;
 			}
 
@@ -1887,6 +1913,12 @@ sub unprepare_shell {
 	$is_else  = 0;
 	@lIn = splice(@{$hFile{output}});
 	for my $line (@lIn) {
+		if ( $line =~ /^# emi (\d) (\d)$/ ) {
+			$is_block = $1;
+			$is_else  = $2;
+			# This does not need to be transported.
+			next;
+		}
 		$line =~ m,^[ ]+#endif /* 0, and $is_block = 0;
 		$is_block or $is_else = 0;
 		$line =~ m,^[ ]+#if 0 /* .*elogind.*, and $is_block = 1;
@@ -1974,6 +2006,12 @@ sub unprepare_xml {
 	$is_else  = 0;
 	@lIn = splice(@{$hFile{output}});
 	for my $line (@lIn) {
+		if ( $line =~ /^# emi (\d) (\d)$/ ) {
+			$is_block = $1;
+			$is_else  = $2;
+			# This does not need to be transported.
+			next;
+		}
 		$line =~ m,//\s+0\s+-->\s*$, and $is_block = 0;
 		$is_block or $is_else = 0;
 		$line =~ m/<!--\s+0.+elogind/ and (! $line =~ m/-->\s*$/) and $is_block = 1;
diff --git a/pwx/last_mutual_commits.csv b/pwx/last_mutual_commits.csv
index 92788d9f7..c671aac23 100644
--- a/pwx/last_mutual_commits.csv
+++ b/pwx/last_mutual_commits.csv
@@ -11,4 +11,4 @@
 ../systemd-upstream master      265710c20 src-efaa3176a x
 ../systemd-upstream v234        d6d0473dc src-782c925f7 x
 ../systemd-upstream v236        83fefc888 src-f78a88bec x
-../systemd-upstream v237        7629744a3 src-6d8c71eb8 tgt-b7e108921
+../systemd-upstream v237        bce40de9d src-6d8c71eb8 tgt-a4c1d1d54