[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[groff] 12/15: font/devpdf/util/BuildFoundries.pl: Refactor.
From: |
G. Branden Robinson |
Subject: |
[groff] 12/15: font/devpdf/util/BuildFoundries.pl: Refactor. |
Date: |
Fri, 3 Jun 2022 05:04:52 -0400 (EDT) |
gbranden pushed a commit to branch master
in repository groff.
commit 468f7c8fd0570890282a664db5a0f59f90fea670
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu Jun 2 21:36:54 2022 -0500
font/devpdf/util/BuildFoundries.pl: Refactor.
* font/devpdf/util/BuildFoundries.pl: Trivially refactor. Drop unused
hash `foundry`. Drop scalar `warn` that was set and updated but never
tested.
---
ChangeLog | 6 ++++++
font/devpdf/util/BuildFoundries.pl | 10 ++++------
2 files changed, 10 insertions(+), 6 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 08753363..7439a9b1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-06-02 G. Branden Robinson <g.branden.robinson@gmail.com>
+
+ * font/devpdf/util/BuildFoundries.pl: Trivially refactor. Drop
+ unused hash `foundry`. Drop scalar `warn` that was set and
+ updated but never tested.
+
2022-06-02 G. Branden Robinson <g.branden.robinson@gmail.com>
* font/devpdf/util/BuildFoundries.pl: Alter script to write to
diff --git a/font/devpdf/util/BuildFoundries.pl
b/font/devpdf/util/BuildFoundries.pl
index 9c9080e9..d1df440b 100644
--- a/font/devpdf/util/BuildFoundries.pl
+++ b/font/devpdf/util/BuildFoundries.pl
@@ -1,8 +1,8 @@
#!/usr/bin/perl -w
#
-# BuildFoundries : Given a Foundry file generate groff and download files
-# Deri James : Monday 07 Feb 2011
-
+# 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.
# Written by Deri James <deri@chuzzlewit.myzen.co.uk>
#
@@ -33,9 +33,8 @@ GetOptions("check" => \$check, "dirURW=s" => \$dirURW);
my $where=shift||'';
my $devps=shift||'../devps';
chdir $where if $where ne '';
-my (%foundry,%flg,@downloadpreamble,%download);
+my (%flg,@downloadpreamble,%download);
my $GSpath=FindGSpath();
-my $warn=0;
my $lct=0;
my $foundry=''; # the default foundry
my $notFoundFont=0;
@@ -454,7 +453,6 @@ sub Notice {
sub Warn {
my $msg=shift;
Msg("warning: line $lct: $msg");
- $warn=1;
}
sub Die {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [groff] 12/15: font/devpdf/util/BuildFoundries.pl: Refactor.,
G. Branden Robinson <=