[groff] 02/49: tmac/an-old.tmac: Relocate material.

[G. Branden Robinson]

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