URL:
<https://savannah.gnu.org/bugs/?55320>
Summary: tmac/an-old.tmac: Add a warning about a missing .RS
or an extra .RE
Project: GNU troff
Submitted by: bjarniig
Submitted on: Sat 29 Dec 2018 02:24:59 AM UTC
Category: Macro - man
Severity: 3 - Normal
Item Group: New feature
Status: None
Privacy: Public
Assigned to: None
Open/Closed: Open
Discussion Lock: Any
Planned Release: None
_______________________________________________________
Details:
>From fc9d7995ce3456f5b568ae72605626320c6c2017 Mon Sep 17 00:00:00 2001
From: Bjarni Ingi Gislason <bjarn...@rhi.hi.is>
Date: Sat, 29 Dec 2018 02:16:09 +0000
Subject: [PATCH] tmac/an-old.tmac: Add a warning about a missing .RS or an
extra .RE
See bug 55319, 'grog.1.man: Fix spelling and remove excess ".RE" lines'.
Signed-off-by: Bjarni Ingi Gislason <bjarn...@rhi.hi.is>
---
tmac/an-old.tmac | 23 +++++++++++++++++------
1 file changed, 17 insertions(+), 6 deletions(-)
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index e01c49b1..090b04b5 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -616,7 +616,10 @@
. ft R
..
.
+.\" To check closure of the macro block (end with .RE)
+.nr an-RS-open 0
.de1 RS
+. nr an-RS-open +1
. nr an-saved-margin\\n[an-level] \\n[an-margin]
. nr an-saved-prevailing-indent\\n[an-level] \\n[an-prevailing-indent]
. ie \\n[.$] .nr an-margin +(n;\\$1)
@@ -627,12 +630,20 @@
..
.
.de1 RE
-. ie \\n[.$] .nr an-level ((;\\$1) <? \\n[an-level])
-. el .nr an-level -1
-. nr an-level (1 >? \\n[an-level])
-. nr an-margin \\n[an-saved-margin\\n[an-level]]
-. nr an-prevailing-indent \\n[an-saved-prevailing-indent\\n[an-level]]
-. in \\n[an-margin]u
+. ie \\n[an-RS-open]<=0 \{\
+. tmc \\*[an-old]: \\n[.F]:\\n[.c] (.\\$0): warning: extra .\\$0 or
+. tm1 " .RS is missing before it; "an-RS-open" is \\n[an-RS-open].
+. tm1 " This macro call is turned into a no-operation call (no op).
+. \}
+. el \{\
+. nr an-RS-open -1
+. ie \\n[.$] .nr an-level ((;\\$1) <? \\n[an-level])
+. el .nr an-level -1
+. nr an-level (1 >? \\n[an-level])
+. nr an-margin \\n[an-saved-margin\\n[an-level]]
+. nr an-prevailing-indent \\n[an-saved-prevailing-indent\\n[an-level]]
+. in \\n[an-margin]u
+. \}
..
.
.\" table support
--
2.19.2
_______________________________________________________
Reply to this item at:
<https://savannah.gnu.org/bugs/?55320>
_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/
_______________________________________________
bug-groff mailing list
bug-groff@gnu.org
https://lists.gnu.org/mailman/listinfo/bug-groff
