gbranden pushed a commit to branch master
in repository groff.
commit d5832598ec8bb3968269a88eed80930365e764d4
Author: G. Branden Robinson <g.branden.robin...@gmail.com>
AuthorDate: Fri Jul 4 09:28:19 2025 -0500
[devpdf]: Add debugging diags to BuildFoundries.
* font/devpdf/util/BuildFoundries.pl: Throw more `Notice` (debugging)
diagnostic messages...
(RunAfmtodit): ...when running `afmtodit`...
(UseGropsVersion): ...when trying to open a font description file for
writing...
(LoadDownload): ...and when the download file cannot be opened.
Continues fixing Savannah #67268.
---
ChangeLog | 11 +++++++++++
font/devpdf/util/BuildFoundries.pl | 9 +++++++--
2 files changed, 18 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 339a7d42d..ca86892a2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2025-07-04 G. Branden Robinson <g.branden.robin...@gmail.com>
+
+ * font/devpdf/util/BuildFoundries.pl: Throw more
+ `Notice` (debugging) diagnostic messages...
+ (RunAfmtodit): ...when running `afmtodit`...
+ (UseGropsVersion): ...when trying to open a font description
+ file for writing...
+ (LoadDownload): ...and when the download file cannot be opened.
+
+ Continues fixing Savannah #67268.
+
2025-07-04 G. Branden Robinson <g.branden.robin...@gmail.com>
* src/devices/gropdf/gropdf.pl (LoadDownload): Skip lines that
diff --git a/font/devpdf/util/BuildFoundries.pl
b/font/devpdf/util/BuildFoundries.pl
index 2815c379e..7277f49ed 100644
--- a/font/devpdf/util/BuildFoundries.pl
+++ b/font/devpdf/util/BuildFoundries.pl
@@ -3,7 +3,7 @@
# BuildFoundries: Given a Foundry file, generate groff font description
# files and a "download" file so gropdf can embed fonts in PDF output.
#
-# Copyright (C) 2011-2020 Free Software Foundation, Inc.
+# Copyright (C) 2011-2025 Free Software Foundation, Inc.
# Written by Deri James <d...@chuzzlewit.myzen.co.uk>
#
# This file is part of groff.
@@ -210,6 +210,7 @@ sub RunAfmtodit
$cmd.=" $flg{$f}";
}
+ Notice("running \"$cmd $enc '$afmfile' $map $gfont\"");
system("$cmd $enc '$afmfile' $map $gfont");
if ($?)
@@ -387,6 +388,7 @@ sub UseGropsVersion
if ($psfont)
{
+ Notice("trying to open '$gfontbase' for writing");
if (open(GF,">$gfontbase"))
{
local $"='';
@@ -433,7 +435,10 @@ sub LoadDownload
{
my $fn=shift;
- return if !open(F,"<$fn");
+ if (!open(F,"<$fn")) {
+ Notice("cannot open '$fn': $!");
+ return;
+ }
while (<F>)
{
_______________________________________________
groff-commit mailing list
groff-commit@gnu.org
https://lists.gnu.org/mailman/listinfo/groff-commit
