[groff] 07/14: Pass paper dimensions to output drivers (pdf, dvi)

[Deri James]

deri pushed a commit to branch deri-gropdf-ng
in repository groff.

commit 4a2cc772df5bc9af9d2eff72ab1d56910531c8a7
Author: Deri James <deri@chuzzlewit.myzen.co.uk>
AuthorDate: Wed May 10 16:10:07 2023 +0100

    Pass paper dimensions to output drivers (pdf, dvi)
    
    pdf only, and can be oerridden by -p and -l
    on cmdline
    
    Comment out change for dvi device
---
 tmac/papersize.tmac | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tmac/papersize.tmac b/tmac/papersize.tmac
index 6d5ad14c2..57d763a9f 100644
--- a/tmac/papersize.tmac
+++ b/tmac/papersize.tmac
@@ -123,14 +123,28 @@
 .  nr paper-w 0
 .
 .  ie d paper-\*[paper-p]-length \{\
+.\" .    if '\*[.T]'dvi' \{\
+.\" .       ds paper-last \*[paper-\*[paper-p]-width]
+.\" .       substring paper-last -1
+.\" .       ie '\*[paper-last]'c' \{\
+.\" .          as paper-\*[paper-p]-width m
+.\" .          as paper-\*[paper-p]-length m
+.\" .       \}
+.\" .       el \{\
+.\" .          as paper-\*[paper-p]-width n
+.\" .          as paper-\*[paper-p]-length n
+.\" .       \}
+.\" .    \}
 .    ie '\*[paper-l]'l' \{\
 .      pl \*[paper-\*[paper-p]-width]
 .      ll (\*[paper-\*[paper-p]-length] - 2i)
+.      if '\*[.T]'pdf' .device 
papersize=\*[paper-\*[paper-p]-length],\*[paper-\*[paper-p]-width] tmac
 .    \}
 .    el \{\
 .      ie '\*[paper-l]'' \{\
 .        pl \*[paper-\*[paper-p]-length]
 .        ll (\*[paper-\*[paper-p]-width] - 2i)
+.        if '\*[.T]'pdf' .device 
papersize=\*[paper-\*[paper-p]-width],\*[paper-\*[paper-p]-length]
 .      \}
 .      el \
 .        nr paper-w 1