Hi Peter,
On Mon, Mar 06 2017 at 11:07:38 PM, Bertrand Garrigues
<[email protected]> wrote:
> For some reasons on my environment, there are lots of font files
> missing in font/devpdf; particularly there are no font from the N
> family (previously in typesetting.mom you would use another font
> family and thus this problem would be unnoticed). I'll check what is
> happening on the font generation.
I was a bit busy these last weeks but now I have a bit of time to check
this problem. On my environment only the fonts that are marked as 'Y'
in font/devpdf/Foundry.in will be generated (in fact, copied from
devps). Other fonts (for example 'AB') are missing. As you have a
working environment, could you please help me to understand what is
going on by applying the following patch, rebuilding the devpdf fonts
('make clean' and 'make font/devpdf/build_font_files' is sufficient).
and send me the logs?
Thanks a lot,
Bertrand Garrigues
Here is the patch to apply:
diff --git a/font/devpdf/util/BuildFoundries.pl
b/font/devpdf/util/BuildFoundries.pl
index 39f2f0d2..1af85ae0 100644
--- a/font/devpdf/util/BuildFoundries.pl
+++ b/font/devpdf/util/BuildFoundries.pl
@@ -96,10 +96,11 @@ sub LoadFoundry
my $gotf=1;
my $gropsfnt=LocateFile($devps,$r[0],0);
-
+ print STDERR "[LoadFoundry]:gropsfnt:$gropsfnt\n";
if ($gropsfnt ne '' and -r "$gropsfnt")
{
my $psfont=UseGropsVersion($gropsfnt);
+ print STDERR "[LoadFoundry]:psfont:$psfont, font
file:$r[5], is base:$r[1]\n";
if
(!PutDownload($psfont,LocatePF($foundrypath,$r[5]),uc($r[1])))
{
if (uc($r[1]) ne 'Y')
@@ -210,8 +211,9 @@ sub LocatePF
{
my $path=shift;
my $file=shift;
-
- return(LocateFile($path,$file,0));
+ my $ret=LocateFile($path,$file,0);
+ print STDERR "[LocatePF]:$ret:\n";
+ return("$ret");
}
sub LocateFile
