groff-commit
[Top][All Lists]
Advanced

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

[groff] 01/01: Savannah bug # 54812


From: Deri James
Subject: [groff] 01/01: Savannah bug # 54812
Date: Wed, 17 Oct 2018 11:23:55 -0400 (EDT)

deri pushed a commit to branch master
in repository groff.

commit d03f7e74fe7deeb0a6408f8027d5789ad75c555b
Author: Deri James <address@hidden>
Date:   Wed Oct 17 16:18:56 2018 +0100

    Savannah bug # 54812
    
    * font/devpdf/util/BuildFoundries.pl: If a font is not found
    report list of paths searched.
    
    Fix https://savannah.gnu.org/bugs/?54812
---
 ChangeLog                          | 9 +++++++++
 font/devpdf/util/BuildFoundries.pl | 8 +++++++-
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 2f93f70..487b564 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2018-10-04  Deri James  <address@hidden>
+
+       Savannah bug # 54812
+
+       * font/devpdf/util/BuildFoundries.pl: If a font is not found
+       report list of paths searched.
+
+       Fix https://savannah.gnu.org/bugs/?54812
+
 2018-10-10  Bertrand Garrigues <address@hidden>
 
        Update 'gnulib' submodule.
diff --git a/font/devpdf/util/BuildFoundries.pl 
b/font/devpdf/util/BuildFoundries.pl
index fa1a32c..f8af826 100644
--- a/font/devpdf/util/BuildFoundries.pl
+++ b/font/devpdf/util/BuildFoundries.pl
@@ -45,6 +45,7 @@ sub LoadFoundry
 {
     my $fn=shift;
     my $foundrypath='';
+    my $notFoundFont=0;
 
     open(F,"<$fn") or Die("No $fn file found");
 
@@ -69,9 +70,11 @@ sub LoadFoundry
 
        if (lc($r[0]) eq 'foundry')
        {
+           Warn("\nThe path(s) used for searching:\n$foundrypath\n") if 
$notFoundFont;
            $foundry=uc($r[1]);
            $foundrypath=$r[2].' : '.$devps;
            $foundrypath=~s/\(gs\)/$GSpath /;
+           $notFoundFont=0;
        }
        else
        {
@@ -107,7 +110,8 @@ sub LoadFoundry
                        {
                            $gotf=0;
                            my $fns=join(',',split('!',$r[5]));
-                           Warn("Unable to locate font(s) $fns on the given 
path(s)");
+                           Warn("Unable to locate font(s) $fns");
+                           $notFoundFont=1;
                            unlink $gfont;      # Unable to find the postscript 
file for the font just created by afmtodit
                        }
                    }
@@ -138,12 +142,14 @@ sub LoadFoundry
                else
                {
                    Warn("Failed to create groff font '$gfont' by running 
afmtodit");
+                   $notFoundFont=1;
                }
            }
        }
     }
 
     close();
+    Warn("\nThe path(s) used for searching:\n$foundrypath\n") if $notFoundFont;
 }
 
 sub RunAfmtodit



reply via email to

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