groff
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Groff] [groff] 01/01: Version 2.2 updates.


From: Bertrand Garrigues
Subject: Re: [Groff] [groff] 01/01: Version 2.2 updates.
Date: Tue, 11 Apr 2017 01:04:30 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux)

Hi Peter,

On Mon, Mar 06 2017 at 11:07:38 PM, Bertrand Garrigues <address@hidden> 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]