shithub: neatroff

Download patch

ref: 8b5fcf6aa4de48b8d5f2e75da580a4556277c1cf
parent: 688bc8b668b371a8fa5d4b0415900f1607caccd3
author: Ali Gholami Rudi <[email protected]>
date: Sat Jul 6 14:56:05 EDT 2013

ren: honour .bp requests in end macro

It is not completely compatible but I think it is acceptable.

--- a/ren.c
+++ b/ren.c
@@ -35,7 +35,7 @@
 static int bp_next = 1;		/* next page number */
 static int bp_count;		/* number of pages so far */
 static int bp_ejected;		/* current ejected page */
-static int bp_final;		/* 1: the final page, 2: the 2nd final page */
+static int bp_final;		/* 1: executing em, 2: the final page, 3: the 2nd final page */
 
 static int c_fa;		/* field delimiter */
 static char c_fb[GNLEN];	/* field padding */
@@ -112,7 +112,7 @@
 
 static void ren_page(int pg, int force)
 {
-	if (!force && bp_final)
+	if (!force && bp_final >= 2)
 		return;
 	n_nl = 0;
 	n_d = 0;
@@ -358,7 +358,7 @@
 
 static void ren_eject(int id)
 {
-	if (id == bp_ejected && !cdiv) {
+	if (id == bp_ejected && id == bp_count && !cdiv) {
 		if (detect_traps(n_d, n_p)) {
 			push_eject();
 			ren_traps(n_d, n_p, 1);
@@ -796,13 +796,16 @@
 	c = ren_next();
 	while (1) {
 		if (c < 0) {
-			if (bp_final)
+			if (bp_final >= 2)
 				break;
-			bp_final = 1;
-			push_eject();
-			push_br();
-			if (trap_em >= 0)
+			if (bp_final == 0 && trap_em >= 0) {
 				trap_exec(trap_em);
+				bp_final = 1;
+			} else {
+				bp_final = 2;
+				push_eject();
+				push_br();
+			}
 			c = ren_next();
 			continue;
 		}
@@ -838,7 +841,7 @@
 		ren_nl = c == '\n';
 		c = ren_next();
 	}
-	bp_final = 2;
+	bp_final = 3;
 	if (!adj_empty(cadj, 0))
 		ren_page(bp_next, 1);
 	ren_br(1);
@@ -936,7 +939,7 @@
 static int trap_pos(int pos)
 {
 	int ret = trap_first(pos);
-	if (bp_final > 1)
+	if (bp_final >= 3)
 		return -1;
 	if (cdiv)
 		return cdiv->treg && cdiv->tpos > pos ? cdiv->tpos : -1;