anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-11-22 10:00:33 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Tools(listFontWithLang.pl): Prohibit inserting multiple entries of same command line option

Browse Source
This commit is contained in:
Kornel Benko 2020-05-21 16:09:21 +02:00
parent 544e5859d3
commit e3ffbc53cb
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
development/tools/GetOptions.pm
View File

@ -75,6 +75,18 @@ sub handleOptions($)
while( my( $option, $value, $pretty ) = Getopt::Mixed::nextOption()) { while( my( $option, $value, $pretty ) = Getopt::Mixed::nextOption()) {
if (defined($optionsDef{$option})) { if (defined($optionsDef{$option})) {
my $fieldname = $optionsDef{$option}->{fieldname}; my $fieldname = $optionsDef{$option}->{fieldname};
if (exists($options{$fieldname})) {
print "Option $option already set\n";
print "Value \"$value\" would overwrite ";
if (ref($options{$fieldname}) eq "ARRAY") {
print "\"" . join(',', @{$options{$fieldname}}) . "\"\n";
}
else {
print "\"$options{$fieldname}\"\n";
}
$option = "h";
$fieldname = "help";
}
if ($option eq "h") { if ($option eq "h") {
print "Syntax: $0 options xxxx ...\n"; print "Syntax: $0 options xxxx ...\n";
print "Available options:\n"; print "Available options:\n";