[groff] 11/14: New gropdf is PDF1.7 compatible.

[Deri James]

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

commit bbf5b0009ad1610e1da390ee6b17c22da373f4c7
Author: Deri James <d...@chuzzlewit.myzen.co.uk>
AuthorDate: Mon May 29 16:20:05 2023 +0100

    New gropdf is PDF1.7 compatible.
---
 src/devices/gropdf/gropdf.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index e3078f8f1..b2eee2b4d 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -452,7 +452,7 @@ my $version=0;
 my $stats=0;
 my $unicodemap;
 my $options=7;
-my $PDFver=1.5;
+my $PDFver=1.7;
 my @idirs;
 
 my $alloc=-1;
@@ -507,10 +507,10 @@ if (defined($unicodemap))
     }
 }
 
-if ($PDFver != 1.4 and $PDFver != 1.5)
+if ($PDFver != 1.4 and $PDFver != 1.7)
 {
-    Warn("Only pdf versions 1.4 or 1.5 are supported, not '$PDFver'");
-    $PDFver=1.5;
+    Warn("Only pdf versions 1.4 or 1.7 are supported, not '$PDFver'");
+    $PDFver=1.7;
 }
 
 $PDFver=int($PDFver*10)-10;
@@ -881,7 +881,7 @@ foreach my $o (3..$objct)
 {
     if (!exists($obj[$o]->{XREF}))
     {
-       if ($PDFver==5 and !exists($obj[$o]->{STREAM}) and 
ref($obj[$o]->{DATA}) eq 'HASH')
+       if ($PDFver!=4 and !exists($obj[$o]->{STREAM}) and 
ref($obj[$o]->{DATA}) eq 'HASH')
        {
            # This can be put into an ObjStm
            my $maj=int(++$objidx/128);

_______________________________________________
Groff-commit mailing list
Groff-commit@gnu.org
https://lists.gnu.org/mailman/listinfo/groff-commit