gbranden pushed a commit to branch master
in repository groff.
commit 504b360d12643f09188c0f898ac01e59d0f7d6c1
Author: G. Branden Robinson <[email protected]>
AuthorDate: Fri Jul 4 12:07:49 2025 -0500
[gropdf]: Trivially refactor.
* src/devices/gropdf/gropdf.pl: Trivially refactor. Rename global list
`idirs` to `includeDirs` so its purpose is clearer. Update
dereference sites.
---
ChangeLog | 6 ++++++
src/devices/gropdf/gropdf.pl | 17 +++++++++--------
2 files changed, 15 insertions(+), 8 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 31443e75a..fc5f69e87 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2025-07-04 G. Branden Robinson <[email protected]>
+
+ * src/devices/gropdf/gropdf.pl: Trivially refactor. Rename
+ global list `idirs` to `includeDirs` so its purpose is clearer.
+ Update dereference sites.
+
2025-07-04 G. Branden Robinson <[email protected]>
* src/devices/gropdf/gropdf.pl (OpenFontFile): Refactor. This
diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index 8625fd381..3a76def36 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -474,7 +474,7 @@ my $stats=0;
my $unicodemap;
my $options=7;
my $PDFver=1.7;
-my @idirs;
+my @includeDirs;
my $alloc=-1;
my $cftmajor=0;
@@ -491,16 +491,17 @@ my $parcln=qr/\[[^\]]*?\]|(.)((?!\1).)*\1/;
my $parclntyp=qr/(?:[\d\w]|\([+-]?[\S]{2}|$parcln)/;
my $makeWarningsFatal=0;
-if (!GetOptions('F=s' => \@fdlist, 'I=s' => \@idirs, 'l' => \$frot,
- 'p=s' => \$fpsz, 'd!' => \$debug, 'help' => \$want_help, 'pdfver=f' =>
\$PDFver,
- 'v' => \$version, 'version' => \$version, 'opt=s' => \$options,
- 'e' => \$embedall, 'y=s' => \$Foundry, 's' => \$stats,
- 'u:s' => \$unicodemap, 'W' => \$makeWarningsFatal))
+if (!GetOptions('F=s' => \@fdlist, 'I=s' => \@includeDirs,
+ 'l' => \$frot, 'p=s' => \$fpsz, 'd!' => \$debug,
+ 'help' => \$want_help, 'pdfver=f' => \$PDFver, 'v' => \$version,
+ 'version' => \$version, 'opt=s' => \$options, 'e' => \$embedall,
+ 'y=s' => \$Foundry, 's' => \$stats, 'u:s' => \$unicodemap,
+ 'W' => \$makeWarningsFatal))
{
&usage(1);
}
-unshift(@idirs,'.');
+unshift(@includeDirs,'.');
$fd=join('@RT_SEP@',@fdlist) if $#fdlist > -1;
&usage(0) if ($want_help);
@@ -2475,7 +2476,7 @@ sub OpenIncludedFile
}
else
{
- foreach my $dir (@idirs)
+ foreach my $dir (@includeDirs)
{
$fileName="$dir/$arg";
_______________________________________________
groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
