diff options
| author | wl <wl> | 2012-09-20 07:48:28 +0000 |
|---|---|---|
| committer | wl <wl> | 2012-09-20 07:48:28 +0000 |
| commit | 1be7153efcd1ccbfd4e10a1a4e4a7e1bc05ee2d5 (patch) | |
| tree | 0340d5c8d90522c9f368cff8ef55aa91ec14ae13 /src | |
| parent | e550448b35d01423af2060554b8684d70c14be43 (diff) | |
| download | groff-1be7153efcd1ccbfd4e10a1a4e4a7e1bc05ee2d5.tar.gz | |
[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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/devices/gropdf/gropdf.pl | 4 | ||||
| -rw-r--r-- | src/devices/gropdf/pdfmom.pl | 2 |
2 files changed, 4 insertions, 2 deletions
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') |