[groff] 09/14: The -Z flag to pdfmom now produce .Z file with forward references.

[Deri James]

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

commit 3e5d52222ef7c7dafceebbfd1d8107636c53bf1f
Author: Deri James <deri@chuzzlewit.myzen.co.uk>
AuthorDate: Mon May 29 16:04:56 2023 +0100

    The -Z flag to pdfmom now produce .Z file with
    forward references.
---
 src/devices/gropdf/pdfmom.pl | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/src/devices/gropdf/pdfmom.pl b/src/devices/gropdf/pdfmom.pl
index 74591e2bb..a8ad2ea24 100644
--- a/src/devices/gropdf/pdfmom.pl
+++ b/src/devices/gropdf/pdfmom.pl
@@ -30,6 +30,7 @@ my $dev='pdf';
 my $preconv='';
 my $readstdin=1;
 my $mom='-mom';
+my $zflg='';
 if ($0=~m/pdf(\w+)$/)
 {
     my $m=$1;
@@ -81,7 +82,12 @@ while (my $c=shift)
        $preconv=$c;
        next;
     }
-    elsif ($c eq '-z' or $c eq '-Z')
+    elsif ($c eq '-Z')
+    {
+       $zflg=$c;
+       next;
+    }
+    elsif ($c eq '-z')
     {
        $dev=$c;
        next;
@@ -150,11 +156,11 @@ if ($dev eq 'pdf')
 {
     if ($mom)
     {
-        system("groff -Tpdf -dLABEL.REFS=1 $mom -z $cmdstring 2>&1 | LC_ALL=C 
grep '^\\. *ds' | groff -Tpdf -dPDF.EXPORT=1 -dLABEL.REFS=1 $mom -z - 
$cmdstring 2>&1 | LC_ALL=C grep '^\\. *ds' | groff -Tpdf $mom $preconv - 
$cmdstring");
+        system("groff -Tpdf -dLABEL.REFS=1 $mom -z $cmdstring 2>&1 | LC_ALL=C 
grep '^\\. *ds' | groff -Tpdf -dPDF.EXPORT=1 -dLABEL.REFS=1 $mom -z - 
$cmdstring 2>&1 | LC_ALL=C grep '^\\. *ds' | groff -Tpdf $mom $preconv - 
$cmdstring $zflg");
     }
     else
     {
-        system("groff -Tpdf -dPDF.EXPORT=1 -z $cmdstring 2>&1 | LC_ALL=C grep 
'^\\. *ds' | groff -Tpdf $preconv - $cmdstring");
+        system("groff -Tpdf -dPDF.EXPORT=1 -z $cmdstring 2>&1 | LC_ALL=C grep 
'^\\. *ds' | groff -Tpdf $preconv - $cmdstring $zflg");
     }
 }
 elsif ($dev eq 'ps')
@@ -165,10 +171,6 @@ elsif ($dev eq '-z') # pseudo dev - just compile for 
warnings
 {
     system("groff -Tpdf $mom -z $cmdstring");
 }
-elsif ($dev eq '-Z') # pseudo dev - produce troff output
-{
-    system("groff -Tpdf $mom -Z $cmdstring");
-}
 else
 {
     print STDERR "Not compatible with device '-T $dev'\n";