[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[groff] 02/49: tmac/an-old.tmac: Relocate material.
From: |
G. Branden Robinson |
Subject: |
[groff] 02/49: tmac/an-old.tmac: Relocate material. |
Date: |
Wed, 16 Jun 2021 19:53:13 -0400 (EDT) |
gbranden pushed a commit to branch master
in repository groff.
commit dbc8aaf5df6428352c3724bf3c830d6f0c5bfd9f
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Tue Jun 15 21:52:49 2021 +1000
tmac/an-old.tmac: Relocate material.
Move an-write-paragraph-tag and an-input-trap to avoid forward
references.
---
tmac/an-old.tmac | 100 +++++++++++++++++++++++++++----------------------------
1 file changed, 50 insertions(+), 50 deletions(-)
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index b26b775..42943ea 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -418,6 +418,56 @@
. ev
..
.
+.de an-write-paragraph-tag
+. br
+. di
+. nr an-is-in-diversion 0
+. ll
+. \" We must emit the diversion in a separate environment to assure
+. \" that a possible margin character is printed correctly.
+. ev an-env-paragraph-tag
+. evc 0
+. mc
+. nf
+. in \\n[an-margin]u
+. ne (2v + 1u)
+. ie (\\n[dl] + \\n[an-tag-separation] > \\n[an-prevailing-indent]) \{\
+. an-div
+. ev
+. in (\\n[an-margin]u + \\n[an-prevailing-indent]u)
+. \}
+. el \{\
+. \" In nroff mode, the indentation value should be an integer
+. \" multiple of the character cell, to avoid different results
+. \" compared to the .ie part above.
+. DEVTAG-COL 1
+. an-div
+. sp -1
+. ev
+. in (\\n[an-margin]u + \\n[an-prevailing-indent]u)
+. DEVTAG-COL-NEXT 2
+. \}
+..
+.
+.de1 an-input-trap
+. if \\n[need_eo_h]>0 .DEVTAG-EO-H
+. nr need_eo_h 0
+. if \\n[need_col2]>0 .DEVTAG-COL 2
+. nr need_col2 0
+. ft R
+. ps \\n[PS]u
+. vs \\n[VS]u
+. if \\n[an-need-break] \{\
+. br
+. nr an-need-break 0
+. \}
+. if \\n[an-need-no-space-mode] \{\
+. ns
+. nr an-need-no-space-mode 0
+. \}
+. if \\n[an-is-in-diversion] .an-write-paragraph-tag
+..
+.
.de1 SH
. sp \\n[PD]u
. an-reset-margin-and-inset-level
@@ -497,56 +547,6 @@
. nr an-is-in-diversion 1
..
.
-.de1 an-input-trap
-. if \\n[need_eo_h]>0 .DEVTAG-EO-H
-. nr need_eo_h 0
-. if \\n[need_col2]>0 .DEVTAG-COL 2
-. nr need_col2 0
-. ft R
-. ps \\n[PS]u
-. vs \\n[VS]u
-. if \\n[an-need-break] \{\
-. br
-. nr an-need-break 0
-. \}
-. if \\n[an-need-no-space-mode] \{\
-. ns
-. nr an-need-no-space-mode 0
-. \}
-. if \\n[an-is-in-diversion] .an-write-paragraph-tag
-..
-.
-.de an-write-paragraph-tag
-. br
-. di
-. nr an-is-in-diversion 0
-. ll
-. \" We must emit the diversion in a separate environment to assure
-. \" that a possible margin character is printed correctly.
-. ev an-env-paragraph-tag
-. evc 0
-. mc
-. nf
-. in \\n[an-margin]u
-. ne (2v + 1u)
-. ie (\\n[dl] + \\n[an-tag-separation] > \\n[an-prevailing-indent]) \{\
-. an-div
-. ev
-. in (\\n[an-margin]u + \\n[an-prevailing-indent]u)
-. \}
-. el \{\
-. \" In nroff mode, the indentation value should be an integer
-. \" multiple of the character cell, to avoid different results
-. \" compared to the .ie part above.
-. DEVTAG-COL 1
-. an-div
-. sp -1
-. ev
-. in (\\n[an-margin]u + \\n[an-prevailing-indent]u)
-. DEVTAG-COL-NEXT 2
-. \}
-..
-.
.de1 LP
. sp \\n[PD]u
. ps \\n[PS]u
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [groff] 02/49: tmac/an-old.tmac: Relocate material.,
G. Branden Robinson <=