From 1be7153efcd1ccbfd4e10a1a4e4a7e1bc05ee2d5 Mon Sep 17 00:00:00 2001
From: wl <wl>
Date: Thu, 20 Sep 2012 07:48:28 +0000
Subject: [gropdf] Various minor fixes.

* font/devpdf/Foundry.in: Add font path to debian `gsfonts' package.

* font/devpdf/util/BuildFoundries.pl: Handle missing fonts in a more
sane way, do NOT abort the complete make run!

* src/devices/gropdf/gropdf: Accept papersize names (i.e. A4) as
either upper or lower case.
The -p (papersize) option should be length,width (currently reversed
- width,length)

* src/devices/gropdf/pdfmom.pl: Support use of GROFF_BIN_PATH.
---
 src/devices/gropdf/gropdf.pl | 4 ++--
 src/devices/gropdf/pdfmom.pl | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index d8a21e25..0ed81a4a 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -207,7 +207,7 @@ LoadDesc();
 
 my $unitwidth=$desc{unitwidth};
 my $papersz=$desc{papersize};
-$papersz=$fpsz if $fpsz;
+$papersz=lc($fpsz) if $fpsz;
 
 $env{FontHT}=0;
 $env{FontSlant}=0;
@@ -232,7 +232,7 @@ if (substr($papersz,0,1) eq '/' and -r $papersz)
 
 if ($papersz=~m/([\d.]+)([cipP]),([\d.]+)([cipP])/)
 {
-    @defaultmb=@mediabox=(0,0,ToPoints($1,$2),ToPoints($3,$4));
+    @defaultmb=@mediabox=(0,0,ToPoints($3,$4),ToPoints($1,$2));
 }
 elsif (exists($ppsz{$papersz}))
 {
diff --git a/src/devices/gropdf/pdfmom.pl b/src/devices/gropdf/pdfmom.pl
index a03bc83d..8ba3c614 100644
--- a/src/devices/gropdf/pdfmom.pl
+++ b/src/devices/gropdf/pdfmom.pl
@@ -26,6 +26,8 @@ use strict;
 my @cmd;
 my $dev='pdf';
 
+$ENV{PATH}=$ENV{GROFF_BIN_PATH}.':'.$ENV{PATH} if exists($ENV{GROFF_BIN_PATH});
+
 while (my $c=shift)
 {
     if (substr($c,0,2) eq '-T')
-- 
cgit v1.2.1