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

Tools: optimize recognition of some font features in listFontWithLang.pl

Browse Source 
Added (de)selecting fonts through its capability (latn, math, arab, etc)
Recognize also trebuchet in font name as sans-serif font
Recognize also fixed in font name as monospaced font
This commit is contained in:
Kornel Benko 2020-05-08 14:17:19 +02:00
parent ce85562c7b
commit 8918d5287b
1 changed files with 41 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
development/tools/listFontWithLang.pl
View File

@ -58,12 +58,8 @@ my %optionsDef = (
"nn" => {fieldname => "NFontName",
type => "=s", listsep => ',',
comment => "Select font-names NOT matching these (comma separated) regexes"},
"ps" => {fieldname => "Scripts", alias => ["printscripts"],
comment => "Print supported scripts"},
"pl" => {fieldname => "PrintLangs", alias => ["printlangs"],
comment => "Print supported languages"},
"pp" => {fieldname => "PrintProperties", alias => ["printproperties"],
comment => "Print properties from weight, slant and width"},
"pf" => {fieldname => "PrintFiles", alias => ["printfiles"],
comment => "Print font file names"},
"p" => {fieldname => "Property",
@ -72,6 +68,16 @@ my %optionsDef = (
"np" => {fieldname => "NProperty",
type => "=s", listsep => ',',
comment => "Select fonts with properties NOT matching these (comma separated) regexes"},
"pp" => {fieldname => "PrintProperties", alias => ["printproperties"],
comment => "Print properties from weight, slant and width"},
"s" => {fieldname => "Scripts",
type => "=s", listsep => ',',
comment => "Select fonts with scripts matching these (comma separated) regexes"},
"ns" => {fieldname => "NScripts",
type => "=s", listsep => ',',
comment => "Select fonts with scripts NOT matching these (comma separated) regexes"},
"ps" => {fieldname => "PrintScripts", alias => ["printscripts"],
comment => "Print supported scripts"},
"pw" => {fieldname => "PrintWarnings",
comment => "Print warnings about discarded/overwritten fonts, conflicting styles"},
);
@ -93,7 +99,7 @@ if (defined($langs[0])) {
my $format = "foundry=\"%{foundry}\" postscriptname=\"%{postscriptname}\" fn=\"%{fullname}\" fnl=\"%{fullnamelang}\" family=\"%{family}\" flang=\"%{familylang}\" style=\"%{style}\" stylelang=\"%{stylelang}\"";
if (exists($options{Scripts})) {
if (exists($options{PrintScripts}) || defined($options{Scripts}) || defined($options{NSpripts})) {
$format .= " script=\"%{capability}\"";
}
if (exists($options{PrintLangs}) || defined($langs[0])) {
@ -262,21 +268,42 @@ if (open(FI, "$cmd |")) {
}
}
if (exists($options{PrintProperties})) {
$props .= "($properties)";
$props .= " ($properties)";
}
}
if (exists($options{PrintLangs})) {
$props .= '(' . join(',', sort keys %usedlangs) . ')';
}
if (exists($options{Scripts})) {
if (exists($options{PrintScripts}) || defined($options{Scripts}) || defined($options{NScripts})) {
my @scripts = ();
my $scripts = "";
if ($l =~ / script=\"([^\"]+)\"/) {
my @scripts = split(/\s+/, $1);
@scripts = split(/\s+/, $1);
for my $ent (@scripts) {
$ent =~ s/^\s*otlayout://;
$ent = lc($ent);
}
$props .= '(' . join(',', @scripts) . ')';
$scripts = join(',', @scripts);
}
if (exists($options{PrintScripts})) {
$props .= "($scripts)";
}
if (!defined($scripts[0])) {
# No script defined in font, so check only $options{Scripts}
next NXTLINE if (defined($options{Scripts}));
}
else {
if (defined($options{Scripts})) {
for my $s (@{$options{Scripts}}) {
next NXTLINE if ($scripts !~ /$s/i);
}
}
if (defined($options{NScripts})) {
for my $s (@{$options{NScripts}}) {
next NXTLINE if ($scripts =~ /$s/i);
}
}
}
}
my $foundry = "";
@ -321,10 +348,11 @@ for my $fontname (sort keys %collectedfonts) {
print "$err\n";
}
}
print "Font : $fontname";
my $fn = "Font : $fontname";
if ($printfoundries && ($foundry ne "")) {
print " \[$foundry\]";
$fn .= " \[$foundry\]";
}
print $fn;
print $collectedfonts{$fontname}->{$foundry}->{props};
if (exists($options{PrintFiles})) {
print ": " . $collectedfonts{$fontname}->{$foundry}->{file} . "\n";
@ -439,7 +467,7 @@ sub addTxt($$)
sub getftype($$)
{
my ($family, $style) = @_;
if ("$family" =~ /arial|helvet/i) {
if ("$family" =~ /arial|helvet|trebuchet/i) {
return($ftypes{100}); # Sans Serif
}
elsif ($family =~ /(sans)[-_ ]?(serif)?/i) {
@ -515,7 +543,7 @@ sub getspacing($$)
return($spacings{$key});
}
}
if ("$family $style" =~ /[-_ ](mono|typewriter|cursor)\b/i) {
if ("$family $style" =~ /(mono|typewriter|cursor|fixed)\b/i) {
return($spacings{100}); # Mono
}
else {