Tools(listFontWithLang.pl): Discard use of deprecated perl-module Getopt::Mixed

According to CTAN, this module is effectively obsolete.
Using Getopt::Long instead now, since it is also part
of the standard Perl distribution.
This commit is contained in:
Kornel Benko 2022-02-05 20:04:06 +01:00
parent 28dd7b7de3
commit 0370cc428c

View File

@ -10,7 +10,7 @@
# Full author contact details are available in the file CREDITS
# or at https://www.lyx.org/Credits
#
# Used as wrapper for Getopt::Mixed
# Used as wrapper for Getopt::Long
# as
# use GetOptions;
# ...
@ -33,9 +33,9 @@ BEGIN {
}
use warnings;
use Getopt::Mixed;
use Getopt::Long;
sub makeOpts(); # Create option spec for Getopt::Mixed::init()
sub makeLongOpts(); # Create option spec for Getopt::Long::GetOptions();
sub makeHelp(); # Create help-string to describe options
# Following fields for a parameter can be defined:
@ -69,11 +69,20 @@ sub handleOptions($)
$optionsDef{v}->{comment} = "Display recognized params";
$optionsDef{v}->{Sort} = 1;
my %options = ("help" => 0);
my $opts = &makeOpts();
use vars qw(%options);
%options = ("help" => 0);
Getopt::Mixed::init($opts);
while( my( $option, $value, $pretty ) = Getopt::Mixed::nextOption()) {
{
my $roptr = &makeLongOpts();
my $p = Getopt::Long::Parser->new;
$p->configure("bundling");
$p->getoptions(%{$roptr});
}
# Callback routine called by $p->getoptions().
sub handleopts($$$)
{
my ($option, $value, $unknown) = @_;
if (defined($optionsDef{$option})) {
my $fieldname = $optionsDef{$option}->{fieldname};
if (exists($options{$fieldname}) && ($option ne "h")) {
@ -111,7 +120,6 @@ sub handleOptions($)
}
}
Getopt::Mixed::cleanup();
if (exists($options{verbose})) {
printf("Found following options:\n %-16soptvalue\n", "option");
print " " . "-" x 32 . "\n";
@ -139,29 +147,25 @@ sub handleOptions($)
#############################################################
# Create option spec for Getopt::Mixed::init()
sub makeOpts()
# Create option spec for Getopt::Long::GetOptions()
sub makeLongOpts()
{
my $first = 1;
my $opts = "";
my %opts = ();
for my $ex (sort keys %optionsDef) {
my $e = $optionsDef{$ex};
if (! $first) {
$opts .= " ";
}
$first = 0;
$opts .= $ex;
my $type = "";
if (defined($e->{type})) {
my $tp = $e->{type};
$opts .= $tp;
$type = $e->{type};
}
my $optx = $ex;
if (defined($e->{alias})) {
for my $a (@{$e->{alias}}) {
$opts .= " $a>$ex";
$optx .= "|$a";
}
}
$opts{"$optx$type"} = \&handleopts;
}
return($opts);
return \%opts; # to be used by Getopt::Long();
}
sub sortHelp