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

Amend 3dccce14: Tools(listFontWithLang.pl): Ignore white space while checking font name

Browse Source 
Do not manipulate search strings which already contain regex elements.
This commit is contained in:
Kornel Benko 2020-08-23 08:21:53 +02:00
parent 7112c8b67e
commit be4f5c8084
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
development/tools/listFontWithLang.pl
View File

@ -244,17 +244,18 @@ for my $fn ("FontName", "NFontName") {
# split each entry and make a compiled regex
# Allow space between all characters
for my $e (@{$options{$fn}}) {
my $u = decode('utf-8', $e);
my $fill = decode('utf-8', "\\s?");
my @u = split(//, $u);
my @ud = ();
for my $c (@u) {
push(@ud, $c, $fill);
if ($e =~ /(\^|\\|\||\[|\]|\(|\)|\*|\+|\?)/) {
# already regex, don't manipulate
$e = qr/$e/i;
}
else {
my $u = decode('utf-8', $e);
my $fill = decode('utf-8', "\\s?");
my @u = split(//, $u);
my $ud = join($fill, @u);
my $e1 = encode('utf-8', $ud);
$e = qr/$e1/i;
}
my $ud = join('', @ud);
my $e1 = encode('utf-8', $ud);
$e1 =~ s/\\s\?$//;
$e = qr/$e1/i;
}
}
}