texlive[54926] trunk: fontools (28apr20)
commits+karl at tug.org
commits+karl at tug.org
Tue Apr 28 23:10:54 CEST 2020
Revision: 54926
http://tug.org/svn/texlive?view=revision&revision=54926
Author: karl
Date: 2020-04-28 23:10:54 +0200 (Tue, 28 Apr 2020)
Log Message:
-----------
fontools (28apr20)
Modified Paths:
--------------
trunk/Build/source/texk/texlive/linked_scripts/fontools/afm2afm
trunk/Build/source/texk/texlive/linked_scripts/fontools/autoinst
trunk/Build/source/texk/texlive/linked_scripts/fontools/ot2kpx
trunk/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl
trunk/Master/texmf-dist/doc/man/man1/afm2afm.1
trunk/Master/texmf-dist/doc/man/man1/afm2afm.man1.pdf
trunk/Master/texmf-dist/doc/man/man1/autoinst.1
trunk/Master/texmf-dist/doc/man/man1/autoinst.man1.pdf
trunk/Master/texmf-dist/doc/man/man1/ot2kpx.1
trunk/Master/texmf-dist/doc/man/man1/ot2kpx.man1.pdf
trunk/Master/texmf-dist/doc/support/fontools/splitttc
trunk/Master/texmf-dist/scripts/fontools/afm2afm
trunk/Master/texmf-dist/scripts/fontools/autoinst
trunk/Master/texmf-dist/scripts/fontools/ot2kpx
Modified: trunk/Build/source/texk/texlive/linked_scripts/fontools/afm2afm
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/fontools/afm2afm 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Build/source/texk/texlive/linked_scripts/fontools/afm2afm 2020-04-28 21:10:54 UTC (rev 54926)
@@ -37,7 +37,7 @@
use Getopt::Long;
use Pod::Usage;
-my $VERSION = "20200129";
+my $VERSION = "20200428";
parse_commandline();
@@ -421,7 +421,7 @@
=head1 VERSION
-This document describes B<afm2afm> version 20200129.
+This document describes B<afm2afm> version 20200428.
=head1 RECENT CHANGES
Modified: trunk/Build/source/texk/texlive/linked_scripts/fontools/autoinst
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/fontools/autoinst 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Build/source/texk/texlive/linked_scripts/fontools/autoinst 2020-04-28 21:10:54 UTC (rev 54926)
@@ -40,7 +40,7 @@
use Pod::Usage ();
use POSIX ();
-my $VERSION = '20200129';
+my $VERSION = '20200428';
my ($d, $m, $y) = (localtime time)[3 .. 5];
my $TODAY = sprintf "%04d/%02d/%02d", $y + 1900, $m + 1, $d;
@@ -127,7 +127,7 @@
you want mapped to the "sb" code. Then add the name "hemibold" to
the right hand side of the "sb" entry in the NFSS_WEIGHT table:
- sb => [ qw( semibold demi demibold medium hemibold ) ],
+ sb => [ qw( semibold demibold medium hemibold ) ],
In this case, since it's in last position, it's only mapped to "sb"
if none of the other fonts are present. Put it earlier in the list
@@ -154,7 +154,7 @@
el => [ qw( extralight 200 ) ],
l => [ qw( light 300 ) ],
sl => [ qw( semilight blond ) ],
- '' => [ qw( regular text book 400 ) ],
+ '' => [ qw( regular normal text book 400 ) ],
sb => [ qw( semibold demibold 600 medium 500 ) ],
b => [ qw( bold 700 ) ],
eb => [ qw( extrabold 800 ) ],
@@ -1132,7 +1132,7 @@
Getopt::Long::GetOptions(
'help|?' => sub { print $USAGE; exit },
- 'version' => sub { print "$VERSION\n"; exit },
+ 'version' => sub { exit },
'doc' => sub { Pod::Usage::pod2usage(-verbose => 2) },
'encoding=s' => \$ARGV{encoding},
'ts1!' => \$ARGV{textcomp},
@@ -1203,13 +1203,17 @@
delete $STYLE{Orn} unless $ARGV{ornaments};
delete @STYLE{qw(Numr Dnom)} unless $ARGV{fractions};
$ARGV{inferiors} ||= 'auto';
- if ($ARGV{inferiors} eq 'auto') { $STYLE{Inf}{reqd} = ['auto'] }
+ if ($ARGV{inferiors} eq 'none') { delete $STYLE{Inf} }
+ elsif ($ARGV{inferiors} eq 'auto') { $STYLE{Inf}{reqd} = ['auto'] }
elsif ($ARGV{inferiors} eq 'subs') { $STYLE{Inf}{reqd} = ['subs'] }
elsif ($ARGV{inferiors} eq 'sinf') { $STYLE{Inf}{reqd} = ['sinf'] }
elsif ($ARGV{inferiors} eq 'dnom') { $STYLE{Inf}{reqd} = ['dnom'] }
else {
- $ARGV{inferiors} = 'none';
- delete $STYLE{Inf}
+ # apparently we mistook the first argument (font name) for
+ # an optional argument to -inferiors; let's undo that
+ unshift @ARGV, $ARGV{inferiors};
+ $ARGV{inferiors} = 'auto';
+ $STYLE{Inf}{reqd} = ['auto'];
}
$ARGV{encoding} =~ s/\s+//xmsg;
@@ -1247,6 +1251,9 @@
: 'rm'
;
}
+
+ # return 'Success' to avoid empty warning
+ 1;
} or warn "[WARNING] $@";
# If the user didn't explicitly say anything about ligatures,
@@ -1404,6 +1411,11 @@
$data{family} =~ s/(\d)/$DIGITS[$1]/xmsge;
$data{family} =~ s/[^A-Za-z]+//xmsg;
+ # remove Adobe's SmallText size, to avoid mistaking it for Text weight
+ $data{family} =~ s/(?: SmallText | SmText )\z//xmsi;
+ $data{subfamily} =~ s/(?: SmallText | SmText )\z//xmsi;
+ $data{fullname} =~ s/(?: SmallText | SmText )\z//xmsi;
+
# Sometimes the relevant info is in Fullname, sometimes in Subfamily;
# so we need to test against both
my $fullinfo = lc "$data{subfamily} | $data{fullname}";
@@ -1476,7 +1488,7 @@
$info->{shape} = $UNABBREVIATE{ lc($2) } // lc($2);
}
- $shapes = join '|', mqrs( qw(sc smallcaps) );
+ $shapes = join '|', mqrs( qw(smallcaps sc smcp caps) );
if ( $info->{family} =~ m/(.+?) ( -? ${shapes}) \z/xmsi ) {
$info->{family} = $1;
$info->{is_smallcaps} = 1;
@@ -2840,7 +2852,7 @@
=head1 VERSION
-This document describes B<autoinst> version 20200129.
+This document describes B<autoinst> version 20200428.
=head1 RECENT CHANGES
@@ -2849,6 +2861,11 @@
=over 12
+=item I<2020-04-28>
+
+Fix a bug where the first font argument would be mistaken for
+an argument to I<-inferiors>.
+
=item I<2020-01-29>
Don't create empty subdirectories in the target TEXMF tree.
Modified: trunk/Build/source/texk/texlive/linked_scripts/fontools/ot2kpx
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/fontools/ot2kpx 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Build/source/texk/texlive/linked_scripts/fontools/ot2kpx 2020-04-28 21:10:54 UTC (rev 54926)
@@ -38,7 +38,7 @@
use List::Util @List::Util::EXPORT_OK;
use Pod::Usage;
-my $VERSION = "20200129";
+my $VERSION = "20200428";
our ($NUM_GLYPHS, $UNITS_PER_EM, %kern);
@@ -858,7 +858,7 @@
=head1 VERSION
-This document describes B<ot2kpx> version 20200129.
+This document describes B<ot2kpx> version 20200428.
=head1 RECENT CHANGES
Modified: trunk/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl 2020-04-28 21:10:54 UTC (rev 54926)
@@ -2184,6 +2184,8 @@
.mn.opt add cascade -label [__ "GUI font scaling"] \
-menu .mn.opt.fscale
menu .mn.opt.fscale
+ .mn.opt.fscale add command -label \
+ "[__ "Current"]: [format {%.2f} $::tkfontscale]"
foreach s {0.6 0.8 1 1.2 1.6 2 2.5 3 3.8 5 6 7.5 9} {
.mn.opt.fscale add command -label $s -command "set_fontscale $s"
}
@@ -2407,6 +2409,7 @@
wm protocol . WM_DELETE_WINDOW {cancel_or_destroy .q .}
wm resizable . 1 1
wm state . normal
+ raise .
}
# to be invoked at initialization and after a font scaling change
@@ -2509,7 +2512,6 @@
get_packages_info_local
collect_filtered
get_repos_from_tlmgr
- rebuild_interface
}; # initialize
initialize
Modified: trunk/Master/texmf-dist/doc/man/man1/afm2afm.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/afm2afm.1 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Master/texmf-dist/doc/man/man1/afm2afm.1 2020-04-28 21:10:54 UTC (rev 54926)
@@ -133,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "AFM2AFM 1"
-.TH AFM2AFM 1 "2020-01-29" "fontools" "Marc Penninga"
+.TH AFM2AFM 1 "2020-04-28" "fontools" "Marc Penninga"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -223,7 +223,7 @@
See the \s-1GNU\s0 General Public License for more details.
.SH "VERSION"
.IX Header "VERSION"
-This document describes \fBafm2afm\fR version 20200129.
+This document describes \fBafm2afm\fR version 20200428.
.SH "RECENT CHANGES"
.IX Header "RECENT CHANGES"
(See the source code for the rest of the story.)
Modified: trunk/Master/texmf-dist/doc/man/man1/afm2afm.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/man/man1/autoinst.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/autoinst.1 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Master/texmf-dist/doc/man/man1/autoinst.1 2020-04-28 21:10:54 UTC (rev 54926)
@@ -133,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "AUTOINST 1"
-.TH AUTOINST 1 "2020-01-29" "fontools" "Marc Penninga"
+.TH AUTOINST 1 "2020-04-28" "fontools" "Marc Penninga"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -741,10 +741,14 @@
\&\s-1GNU\s0 General Public License for more details.
.SH "VERSION"
.IX Header "VERSION"
-This document describes \fBautoinst\fR version 20200129.
+This document describes \fBautoinst\fR version 20200428.
.SH "RECENT CHANGES"
.IX Header "RECENT CHANGES"
(See the source for the full story, all the way back to 2005.)
+.IP "\fI2020\-04\-28\fR" 12
+.IX Item "2020-04-28"
+Fix a bug where the first font argument would be mistaken for
+an argument to \fI\-inferiors\fR.
.IP "\fI2020\-01\-29\fR" 12
.IX Item "2020-01-29"
Don't create empty subdirectories in the target \s-1TEXMF\s0 tree.
Modified: trunk/Master/texmf-dist/doc/man/man1/autoinst.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/man/man1/ot2kpx.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/ot2kpx.1 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Master/texmf-dist/doc/man/man1/ot2kpx.1 2020-04-28 21:10:54 UTC (rev 54926)
@@ -133,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "OT2KPX 1"
-.TH OT2KPX 1 "2020-01-29" "fontools" "Marc Penninga"
+.TH OT2KPX 1 "2020-04-28" "fontools" "Marc Penninga"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -228,7 +228,7 @@
See the \s-1GNU\s0 General Public License for more details.
.SH "VERSION"
.IX Header "VERSION"
-This document describes \fBot2kpx\fR version 20200129.
+This document describes \fBot2kpx\fR version 20200428.
.SH "RECENT CHANGES"
.IX Header "RECENT CHANGES"
(See the source code for the rest of the story.)
Modified: trunk/Master/texmf-dist/doc/man/man1/ot2kpx.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/support/fontools/splitttc
===================================================================
--- trunk/Master/texmf-dist/doc/support/fontools/splitttc 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Master/texmf-dist/doc/support/fontools/splitttc 2020-04-28 21:10:54 UTC (rev 54926)
@@ -37,7 +37,7 @@
use Getopt::Long;
use Pod::Usage;
-my $VERSION = "20200129";
+my $VERSION = "20200428";
parse_commandline();
@@ -245,7 +245,7 @@
=head1 VERSION
-This document describes B<splitttc> version 20200129.
+This document describes B<splitttc> version 20200428.
=head1 RECENT CHANGES
Modified: trunk/Master/texmf-dist/scripts/fontools/afm2afm
===================================================================
--- trunk/Master/texmf-dist/scripts/fontools/afm2afm 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Master/texmf-dist/scripts/fontools/afm2afm 2020-04-28 21:10:54 UTC (rev 54926)
@@ -37,7 +37,7 @@
use Getopt::Long;
use Pod::Usage;
-my $VERSION = "20200129";
+my $VERSION = "20200428";
parse_commandline();
@@ -421,7 +421,7 @@
=head1 VERSION
-This document describes B<afm2afm> version 20200129.
+This document describes B<afm2afm> version 20200428.
=head1 RECENT CHANGES
Modified: trunk/Master/texmf-dist/scripts/fontools/autoinst
===================================================================
--- trunk/Master/texmf-dist/scripts/fontools/autoinst 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Master/texmf-dist/scripts/fontools/autoinst 2020-04-28 21:10:54 UTC (rev 54926)
@@ -40,7 +40,7 @@
use Pod::Usage ();
use POSIX ();
-my $VERSION = '20200129';
+my $VERSION = '20200428';
my ($d, $m, $y) = (localtime time)[3 .. 5];
my $TODAY = sprintf "%04d/%02d/%02d", $y + 1900, $m + 1, $d;
@@ -127,7 +127,7 @@
you want mapped to the "sb" code. Then add the name "hemibold" to
the right hand side of the "sb" entry in the NFSS_WEIGHT table:
- sb => [ qw( semibold demi demibold medium hemibold ) ],
+ sb => [ qw( semibold demibold medium hemibold ) ],
In this case, since it's in last position, it's only mapped to "sb"
if none of the other fonts are present. Put it earlier in the list
@@ -154,7 +154,7 @@
el => [ qw( extralight 200 ) ],
l => [ qw( light 300 ) ],
sl => [ qw( semilight blond ) ],
- '' => [ qw( regular text book 400 ) ],
+ '' => [ qw( regular normal text book 400 ) ],
sb => [ qw( semibold demibold 600 medium 500 ) ],
b => [ qw( bold 700 ) ],
eb => [ qw( extrabold 800 ) ],
@@ -1132,7 +1132,7 @@
Getopt::Long::GetOptions(
'help|?' => sub { print $USAGE; exit },
- 'version' => sub { print "$VERSION\n"; exit },
+ 'version' => sub { exit },
'doc' => sub { Pod::Usage::pod2usage(-verbose => 2) },
'encoding=s' => \$ARGV{encoding},
'ts1!' => \$ARGV{textcomp},
@@ -1203,13 +1203,17 @@
delete $STYLE{Orn} unless $ARGV{ornaments};
delete @STYLE{qw(Numr Dnom)} unless $ARGV{fractions};
$ARGV{inferiors} ||= 'auto';
- if ($ARGV{inferiors} eq 'auto') { $STYLE{Inf}{reqd} = ['auto'] }
+ if ($ARGV{inferiors} eq 'none') { delete $STYLE{Inf} }
+ elsif ($ARGV{inferiors} eq 'auto') { $STYLE{Inf}{reqd} = ['auto'] }
elsif ($ARGV{inferiors} eq 'subs') { $STYLE{Inf}{reqd} = ['subs'] }
elsif ($ARGV{inferiors} eq 'sinf') { $STYLE{Inf}{reqd} = ['sinf'] }
elsif ($ARGV{inferiors} eq 'dnom') { $STYLE{Inf}{reqd} = ['dnom'] }
else {
- $ARGV{inferiors} = 'none';
- delete $STYLE{Inf}
+ # apparently we mistook the first argument (font name) for
+ # an optional argument to -inferiors; let's undo that
+ unshift @ARGV, $ARGV{inferiors};
+ $ARGV{inferiors} = 'auto';
+ $STYLE{Inf}{reqd} = ['auto'];
}
$ARGV{encoding} =~ s/\s+//xmsg;
@@ -1247,6 +1251,9 @@
: 'rm'
;
}
+
+ # return 'Success' to avoid empty warning
+ 1;
} or warn "[WARNING] $@";
# If the user didn't explicitly say anything about ligatures,
@@ -1404,6 +1411,11 @@
$data{family} =~ s/(\d)/$DIGITS[$1]/xmsge;
$data{family} =~ s/[^A-Za-z]+//xmsg;
+ # remove Adobe's SmallText size, to avoid mistaking it for Text weight
+ $data{family} =~ s/(?: SmallText | SmText )\z//xmsi;
+ $data{subfamily} =~ s/(?: SmallText | SmText )\z//xmsi;
+ $data{fullname} =~ s/(?: SmallText | SmText )\z//xmsi;
+
# Sometimes the relevant info is in Fullname, sometimes in Subfamily;
# so we need to test against both
my $fullinfo = lc "$data{subfamily} | $data{fullname}";
@@ -1476,7 +1488,7 @@
$info->{shape} = $UNABBREVIATE{ lc($2) } // lc($2);
}
- $shapes = join '|', mqrs( qw(sc smallcaps) );
+ $shapes = join '|', mqrs( qw(smallcaps sc smcp caps) );
if ( $info->{family} =~ m/(.+?) ( -? ${shapes}) \z/xmsi ) {
$info->{family} = $1;
$info->{is_smallcaps} = 1;
@@ -2840,7 +2852,7 @@
=head1 VERSION
-This document describes B<autoinst> version 20200129.
+This document describes B<autoinst> version 20200428.
=head1 RECENT CHANGES
@@ -2849,6 +2861,11 @@
=over 12
+=item I<2020-04-28>
+
+Fix a bug where the first font argument would be mistaken for
+an argument to I<-inferiors>.
+
=item I<2020-01-29>
Don't create empty subdirectories in the target TEXMF tree.
Modified: trunk/Master/texmf-dist/scripts/fontools/ot2kpx
===================================================================
--- trunk/Master/texmf-dist/scripts/fontools/ot2kpx 2020-04-28 12:05:18 UTC (rev 54925)
+++ trunk/Master/texmf-dist/scripts/fontools/ot2kpx 2020-04-28 21:10:54 UTC (rev 54926)
@@ -38,7 +38,7 @@
use List::Util @List::Util::EXPORT_OK;
use Pod::Usage;
-my $VERSION = "20200129";
+my $VERSION = "20200428";
our ($NUM_GLYPHS, $UNITS_PER_EM, %kern);
@@ -858,7 +858,7 @@
=head1 VERSION
-This document describes B<ot2kpx> version 20200129.
+This document describes B<ot2kpx> version 20200428.
=head1 RECENT CHANGES
More information about the tex-live-commits
mailing list.