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.