[groff] 18/41: [gropdf]: Trivially refactor.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 504b360d12643f09188c0f898ac01e59d0f7d6c1
Author: G. Branden Robinson <g.branden.robin...@gmail.com>
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 <g.branden.robin...@gmail.com>
+
+       * 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 <g.branden.robin...@gmail.com>
 
        * 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
groff-commit@gnu.org
https://lists.gnu.org/mailman/listinfo/groff-commit