Fixes to pgcvslog for last narrive entry.

bmomjian · bmomjian · commit 9e66243c357b · 2003-01-13T01:57:47.000Z
diff --git a/src/tools/pgcvslog b/src/tools/pgcvslog
@@ -147,9 +147,40 @@ awk '   BEGIN   { slot = 0; oldslot=0; save_working = ""; html="'"$HTML"'"}
 		}
 	}
 	END	{
-			# dump out the last filename
+			# If there are a different number of narrative
+			# lines, they can not possibly be the same.
+			if (slot != oldslot)
+				same = "N";
+			else
+			{
+				same = "Y";
+				for (i=1; i <= slot; i++)
+				{
+					if (oldnarr[i] != narr[i])
+					{
+						same = "N";
+						break;
+					}
+				}
+			}
 
+			# dump out the old narrative if it is new
+			if (same == "N")
+			{
+				if (oldslot)
+					for (i=1; i <= oldslot; i++)
+					{
+						print oldnarr[i];
+						if (html == "Y" && 
+						    oldnarr[i] != "<HR>" &&
+						    oldnarr[i] !~ "^<DIV ")
+							print "<BR>";
+					}
+			}
+
+			# dump out the last filename
 			print save_working;
+
 			if (html == "Y")
 				print "<BR>";
 
@@ -158,8 +189,8 @@ awk '   BEGIN   { slot = 0; oldslot=0; save_working = ""; html="'"$HTML"'"}
 			{
 				print narr[i];
 				if (html == "Y" && 
-				    oldnarr[i] != "<HR>" &&
-				    oldnarr[i] !~ "^<DIV ")
+				    narr[i] != "<HR>" &&
+				    narr[i] !~ "^<DIV ")
 					print "<BR>";
 			}
 		}' |
