From 2d83a76b7d0fa40bf7b1c90280ee3388258a73f3 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 12 Jul 2019 20:43:47 +0000 Subject: fontools (12jul19) git-svn-id: svn://tug.org/texlive/trunk@51625 c570f23f-e606-0410-a88d-b1316a301751 --- .../texk/texlive/linked_scripts/fontools/afm2afm | 4 +- .../texk/texlive/linked_scripts/fontools/autoinst | 98 ++++++++++++--------- .../texk/texlive/linked_scripts/fontools/ot2kpx | 4 +- Master/texmf-dist/doc/man/man1/afm2afm.1 | 6 +- Master/texmf-dist/doc/man/man1/afm2afm.man1.pdf | Bin 27061 -> 26994 bytes Master/texmf-dist/doc/man/man1/autoinst.1 | 10 ++- Master/texmf-dist/doc/man/man1/autoinst.man1.pdf | Bin 69567 -> 69699 bytes Master/texmf-dist/doc/man/man1/ot2kpx.1 | 6 +- Master/texmf-dist/doc/man/man1/ot2kpx.man1.pdf | Bin 27363 -> 27303 bytes Master/texmf-dist/doc/support/fontools/splitttc | 4 +- Master/texmf-dist/scripts/fontools/afm2afm | 4 +- Master/texmf-dist/scripts/fontools/autoinst | 98 ++++++++++++--------- Master/texmf-dist/scripts/fontools/ot2kpx | 4 +- 13 files changed, 139 insertions(+), 99 deletions(-) diff --git a/Build/source/texk/texlive/linked_scripts/fontools/afm2afm b/Build/source/texk/texlive/linked_scripts/fontools/afm2afm index 55474b8a2da..8f5eec2ed36 100755 --- a/Build/source/texk/texlive/linked_scripts/fontools/afm2afm +++ b/Build/source/texk/texlive/linked_scripts/fontools/afm2afm @@ -37,7 +37,7 @@ use File::Basename; use Getopt::Long; use Pod::Usage; -my $VERSION = "20190625"; +my $VERSION = "20190712"; parse_commandline(); @@ -421,7 +421,7 @@ See the GNU General Public License for more details. =head1 VERSION -This document describes B version 20190625. +This document describes B version 20190712. =head1 RECENT CHANGES diff --git a/Build/source/texk/texlive/linked_scripts/fontools/autoinst b/Build/source/texk/texlive/linked_scripts/fontools/autoinst index dbf87e90bbf..fb295700f9c 100755 --- a/Build/source/texk/texlive/linked_scripts/fontools/autoinst +++ b/Build/source/texk/texlive/linked_scripts/fontools/autoinst @@ -40,7 +40,7 @@ use Getopt::Long (); use Pod::Usage (); use POSIX (); -my $VERSION = '20190625'; +my $VERSION = '20190712'; my ($d, $m, $y) = (localtime time)[3 .. 5]; my $TODAY = sprintf "%04d/%02d/%02d", $y + 1900, $m + 1, $d; @@ -782,8 +782,8 @@ I'm using the following options: fractions: @{[ $ARGV{fractions} ? 'yes' : 'no' ]} ligatures: @{[ $ARGV{ligatures} ? 'yes' : 'no' ]} - dry run/real: @{[ $ARGV{dryrun} ? 'dry run' : 'real' ]} - auto/manual: @{[ $ARGV{manual} ? 'manual' : 'auto' ]} + dry run/real: @{[ $ARGV{dryrun} ? 'dry run' : 'real' ]} + auto/manual: @{[ $ARGV{manual} ? 'manual' : 'auto' ]} target: $ARGV{target} extra: @{[ $ARGV{extra} || '' ]} @@ -1228,22 +1228,25 @@ sub parse_options { # Determine NFSS classification of this family, if the user # didn't explicitly specify it - if ( !$ARGV{nfss} ) { - # EXPERIMENTAL: parse "post" table to see if font is fixed-width - open my $otfinfo, '-|:raw', qq(otfinfo --dump-table 'post' "$ARGV[0]") - or die "[ERROR] could not fork(): $!"; - my $post_table = do { local $/; <$otfinfo> }; - close $otfinfo - or die "[ERROR] 'otfinfo --dump-table post $ARGV[0]' failed"; - - my $is_fixed_pitch = unpack '@12N', $post_table; - - $ARGV{nfss} = $is_fixed_pitch ? 'tt' - : $ARGV[0] =~ m/mono(?!type)/xmsi ? 'tt' - : $ARGV[0] =~ m/sans/xmsi ? 'sf' - : 'rm' - ; - } + eval { + if ( !$ARGV{nfss} ) { + # EXPERIMENTAL: parse "post" table to see if font is fixed-width + my $cmd = qq(otfinfo --dump-table "post" "$ARGV[0]"); + open my $otfinfo, '-|:raw', $cmd + or die "could not fork(): $!"; + my $post_table = do { local $/; <$otfinfo> }; + close $otfinfo + or die "'$cmd' failed"; + + my $is_fixed_pitch = unpack '@12N', $post_table; + + $ARGV{nfss} = $is_fixed_pitch ? 'tt' + : $ARGV[0] =~ m/mono(?!type)/xmsi ? 'tt' + : $ARGV[0] =~ m/sans/xmsi ? 'sf' + : 'rm' + ; + } + } or warn "[WARNING] $@"; # If the user didn't explicitly say anything about ligatures, # activate them unless the font is a typewriter font. @@ -1337,6 +1340,8 @@ sub parse_fontinfo { minsize => 0, maxsize => 0, is_smallcaps => 0, + weight_class => 0, + width_class => 0, }; parse_basicinfo($info); @@ -1355,7 +1360,8 @@ my @DIGITS = qw(Zero One Two Three Four Five Six Seven Eight Nine); sub parse_basicinfo { my $info = shift; - open my $otfinfo, '-|', qq(otfinfo --info "$info->{filename}") + my $cmd = qq(otfinfo --info "$info->{filename}"); + open my $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; my %data = map { my ($k,$v) = m/\A\s* ([^:]+?) \s*:\s* ([^\r\n]+)/xms; $k =~ s/\s+//xmsg; @@ -1364,7 +1370,7 @@ sub parse_basicinfo { } grep { m/\A\s* [^:]+? \s*:\s* [^\r\n]+/xms } <$otfinfo>; close $otfinfo - or die "[ERROR] 'otfinfo --info $info->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; $data{family} = $data{preferredfamily} || $data{family}; $data{subfamily} = $data{preferredsubfamily} || $data{subfamily}; @@ -1507,14 +1513,15 @@ sub parse_basicinfo { # EXPERIMENTAL: we extract the usWeightClass and usWidthClass # properties from the font's OS/2 table - open $otfinfo, - '-|:raw', - qq(otfinfo --dump-table 'OS/2' "$info->{filename}") - or die "[ERROR] could not fork(): $!"; - my $os2_table = do { local $/; <$otfinfo> }; - close $otfinfo - or die "[ERROR] 'otfinfo --dump-table $info->{filename}' failed"; - @{$info}{qw(weight_class width_class)} = unpack '@4n @6n', $os2_table; + eval { + my $cmd = qq(otfinfo --dump-table "OS/2" "$info->{filename}"); + open $otfinfo, '-|:raw', $cmd + or die "could not fork(): $!"; + my $os2_table = do { local $/; <$otfinfo> }; + close $otfinfo + or die "'$cmd' failed"; + @{$info}{qw(weight_class width_class)} = unpack '@4n @6n', $os2_table; + } or warn "[WARNING] $@"; return; } @@ -1538,17 +1545,19 @@ sub mqrs { sub parse_features { my $info = shift; - open my $otfinfo, '-|', qq(otfinfo --features "$info->{filename}") + my $cmd = qq(otfinfo --features "$info->{filename}"); + open my $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; %{$info->{feature}} = map { (substr($_, 0, 4) => 1) } <$otfinfo>; close $otfinfo - or die "[ERROR] 'otfinfo --features $info->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; - open $otfinfo, '-|', qq(otfinfo --tables "$info->{filename}") + $cmd = qq(otfinfo --tables "$info->{filename}"); + open $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; $info->{feature}{kern} = 1 if grep { m/\d+ \s+ kern/xms } <$otfinfo>; close $otfinfo - or die "[ERROR] 'otfinfo --tables $info->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; return; } @@ -1560,7 +1569,8 @@ sub parse_features { sub parse_sizeinfo { my $info = shift; - open my $otfinfo, '-|', qq(otfinfo --optical-size "$info->{filename}") + my $cmd = qq(otfinfo --optical-size "$info->{filename}"); + open my $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; if (my ($minsize, $maxsize) @@ -1595,7 +1605,7 @@ sub parse_sizeinfo { @{$info}{qw(minsize maxsize)} = ($minsize, $maxsize); } close $otfinfo - or die "[ERROR] 'otfinfo --optical-size $info->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; return; } @@ -1675,11 +1685,12 @@ sub get_orn { # Default ornament names: 'orn.' plus three digits my @encoding = map { sprintf "orn.%03d", $_ } 1 .. 256; - open my $otfinfo, '-|', qq(otfinfo --glyphs "$font->{filename}") + my $cmd = qq(otfinfo --glyphs "$font->{filename}"); + open my $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; chop(my @glyphnames = <$otfinfo>); close $otfinfo - or die "[ERROR] 'otfinfo --glyphs $font->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; # Test for some known alternative names (probably not exhaustive) my @ornaments @@ -1741,7 +1752,8 @@ sub write_stylefile { $ARGV{target}, 'tex', 'latex', $ARGV{typeface} || $fam); File::Path::make_path($dir); $fn = File::Spec->catfile($dir, $fn); - open my $STY, '>', $fn or die "[ERROR] Can't create '$fn': $!"; + open my $STY, '>', $fn + or die "[ERROR] Can't create '$fn': $!"; print {$STY} <<"END_STY_HEADER"; %% Generated by autoinst on $TODAY @@ -1948,7 +1960,8 @@ sub write_fdfile { $ARGV{target}, 'tex', 'latex', $ARGV{typeface} || $fam); File::Path::make_path($dir); $fn = File::Spec->catfile($dir, $fn); - open my $FD, '>', $fn or die "[ERROR] Can't create '$fn': $!"; + open my $FD, '>', $fn + or die "[ERROR] Can't create '$fn': $!"; print {$FD} <<"END_FD_HEADER"; %% Generated by autoinst on $TODAY @@ -2769,7 +2782,7 @@ GNU General Public License for more details. =head1 VERSION -This document describes B version 20190625. +This document describes B version 20190712. =head1 RECENT CHANGES @@ -2778,6 +2791,11 @@ This document describes B version 20190625. =over 12 +=item I<2019-07-12> + +Replaced single quotes in calls to F with double quotes, +as they caused problems on Windows 10. + =item I<2019-06-25> =over 3 diff --git a/Build/source/texk/texlive/linked_scripts/fontools/ot2kpx b/Build/source/texk/texlive/linked_scripts/fontools/ot2kpx index 19a3996a6a2..2073d6b6d32 100755 --- a/Build/source/texk/texlive/linked_scripts/fontools/ot2kpx +++ b/Build/source/texk/texlive/linked_scripts/fontools/ot2kpx @@ -38,7 +38,7 @@ use Getopt::Long (); use List::Util @List::Util::EXPORT_OK; use Pod::Usage; -my $VERSION = "20190625"; +my $VERSION = "20190712"; our ($NUM_GLYPHS, $UNITS_PER_EM, %kern); @@ -858,7 +858,7 @@ See the GNU General Public License for more details. =head1 VERSION -This document describes B version 20190625. +This document describes B version 20190712. =head1 RECENT CHANGES diff --git a/Master/texmf-dist/doc/man/man1/afm2afm.1 b/Master/texmf-dist/doc/man/man1/afm2afm.1 index a68502d2f9b..259108fa409 100644 --- a/Master/texmf-dist/doc/man/man1/afm2afm.1 +++ b/Master/texmf-dist/doc/man/man1/afm2afm.1 @@ -1,4 +1,4 @@ -.\" Automatically generated by Pod::Man 4.10 (Pod::Simple 3.35) +.\" Automatically generated by Pod::Man 4.11 (Pod::Simple 3.35) .\" .\" Standard preamble: .\" ======================================================================== @@ -133,7 +133,7 @@ .\" ======================================================================== .\" .IX Title "AFM2AFM 1" -.TH AFM2AFM 1 "2019-06-25" "fontools" "Marc Penninga" +.TH AFM2AFM 1 "2019-07-12" "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 @@ but \s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of See the \s-1GNU\s0 General Public License for more details. .SH "VERSION" .IX Header "VERSION" -This document describes \fBafm2afm\fR version 20190625. +This document describes \fBafm2afm\fR version 20190712. .SH "RECENT CHANGES" .IX Header "RECENT CHANGES" (See the source code for the rest of the story.) diff --git a/Master/texmf-dist/doc/man/man1/afm2afm.man1.pdf b/Master/texmf-dist/doc/man/man1/afm2afm.man1.pdf index 5bf794b1f1e..86a18f97238 100644 Binary files a/Master/texmf-dist/doc/man/man1/afm2afm.man1.pdf and b/Master/texmf-dist/doc/man/man1/afm2afm.man1.pdf differ diff --git a/Master/texmf-dist/doc/man/man1/autoinst.1 b/Master/texmf-dist/doc/man/man1/autoinst.1 index 99672c1023b..f56d519c0d4 100644 --- a/Master/texmf-dist/doc/man/man1/autoinst.1 +++ b/Master/texmf-dist/doc/man/man1/autoinst.1 @@ -1,4 +1,4 @@ -.\" Automatically generated by Pod::Man 4.10 (Pod::Simple 3.35) +.\" Automatically generated by Pod::Man 4.11 (Pod::Simple 3.35) .\" .\" Standard preamble: .\" ======================================================================== @@ -133,7 +133,7 @@ .\" ======================================================================== .\" .IX Title "AUTOINST 1" -.TH AUTOINST 1 "2019-06-25" "fontools" "Marc Penninga" +.TH AUTOINST 1 "2019-07-12" "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 @@ -737,10 +737,14 @@ but \s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of \&\s-1GNU\s0 General Public License for more details. .SH "VERSION" .IX Header "VERSION" -This document describes \fBautoinst\fR version 20190625. +This document describes \fBautoinst\fR version 20190712. .SH "RECENT CHANGES" .IX Header "RECENT CHANGES" (See the source for the full story, all the way back to 2005.) +.IP "\fI2019\-07\-12\fR" 12 +.IX Item "2019-07-12" +Replaced single quotes in calls to \fIotfinfo\fR with double quotes, +as they caused problems on Windows 10. .IP "\fI2019\-06\-25\fR" 12 .IX Item "2019-06-25" .RS 12 diff --git a/Master/texmf-dist/doc/man/man1/autoinst.man1.pdf b/Master/texmf-dist/doc/man/man1/autoinst.man1.pdf index c0301817967..676795ca618 100644 Binary files a/Master/texmf-dist/doc/man/man1/autoinst.man1.pdf and b/Master/texmf-dist/doc/man/man1/autoinst.man1.pdf differ diff --git a/Master/texmf-dist/doc/man/man1/ot2kpx.1 b/Master/texmf-dist/doc/man/man1/ot2kpx.1 index 52c888a4b74..79b2ebf9c96 100644 --- a/Master/texmf-dist/doc/man/man1/ot2kpx.1 +++ b/Master/texmf-dist/doc/man/man1/ot2kpx.1 @@ -1,4 +1,4 @@ -.\" Automatically generated by Pod::Man 4.10 (Pod::Simple 3.35) +.\" Automatically generated by Pod::Man 4.11 (Pod::Simple 3.35) .\" .\" Standard preamble: .\" ======================================================================== @@ -133,7 +133,7 @@ .\" ======================================================================== .\" .IX Title "OT2KPX 1" -.TH OT2KPX 1 "2019-06-25" "fontools" "Marc Penninga" +.TH OT2KPX 1 "2019-07-12" "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 @@ but \s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of See the \s-1GNU\s0 General Public License for more details. .SH "VERSION" .IX Header "VERSION" -This document describes \fBot2kpx\fR version 20190625. +This document describes \fBot2kpx\fR version 20190712. .SH "RECENT CHANGES" .IX Header "RECENT CHANGES" (See the source code for the rest of the story.) diff --git a/Master/texmf-dist/doc/man/man1/ot2kpx.man1.pdf b/Master/texmf-dist/doc/man/man1/ot2kpx.man1.pdf index e24cc0769ad..95915bb54a3 100644 Binary files a/Master/texmf-dist/doc/man/man1/ot2kpx.man1.pdf and b/Master/texmf-dist/doc/man/man1/ot2kpx.man1.pdf differ diff --git a/Master/texmf-dist/doc/support/fontools/splitttc b/Master/texmf-dist/doc/support/fontools/splitttc index 48d743b1dee..a31a2f02d26 100755 --- a/Master/texmf-dist/doc/support/fontools/splitttc +++ b/Master/texmf-dist/doc/support/fontools/splitttc @@ -37,7 +37,7 @@ use File::Basename; use Getopt::Long; use Pod::Usage; -my $VERSION = "20190625"; +my $VERSION = "20190712"; parse_commandline(); @@ -245,7 +245,7 @@ See the GNU General Public License for more details. =head1 VERSION -This document describes B version 20190625. +This document describes B version 20190712. =head1 RECENT CHANGES diff --git a/Master/texmf-dist/scripts/fontools/afm2afm b/Master/texmf-dist/scripts/fontools/afm2afm index 55474b8a2da..8f5eec2ed36 100755 --- a/Master/texmf-dist/scripts/fontools/afm2afm +++ b/Master/texmf-dist/scripts/fontools/afm2afm @@ -37,7 +37,7 @@ use File::Basename; use Getopt::Long; use Pod::Usage; -my $VERSION = "20190625"; +my $VERSION = "20190712"; parse_commandline(); @@ -421,7 +421,7 @@ See the GNU General Public License for more details. =head1 VERSION -This document describes B version 20190625. +This document describes B version 20190712. =head1 RECENT CHANGES diff --git a/Master/texmf-dist/scripts/fontools/autoinst b/Master/texmf-dist/scripts/fontools/autoinst index dbf87e90bbf..fb295700f9c 100755 --- a/Master/texmf-dist/scripts/fontools/autoinst +++ b/Master/texmf-dist/scripts/fontools/autoinst @@ -40,7 +40,7 @@ use Getopt::Long (); use Pod::Usage (); use POSIX (); -my $VERSION = '20190625'; +my $VERSION = '20190712'; my ($d, $m, $y) = (localtime time)[3 .. 5]; my $TODAY = sprintf "%04d/%02d/%02d", $y + 1900, $m + 1, $d; @@ -782,8 +782,8 @@ I'm using the following options: fractions: @{[ $ARGV{fractions} ? 'yes' : 'no' ]} ligatures: @{[ $ARGV{ligatures} ? 'yes' : 'no' ]} - dry run/real: @{[ $ARGV{dryrun} ? 'dry run' : 'real' ]} - auto/manual: @{[ $ARGV{manual} ? 'manual' : 'auto' ]} + dry run/real: @{[ $ARGV{dryrun} ? 'dry run' : 'real' ]} + auto/manual: @{[ $ARGV{manual} ? 'manual' : 'auto' ]} target: $ARGV{target} extra: @{[ $ARGV{extra} || '' ]} @@ -1228,22 +1228,25 @@ sub parse_options { # Determine NFSS classification of this family, if the user # didn't explicitly specify it - if ( !$ARGV{nfss} ) { - # EXPERIMENTAL: parse "post" table to see if font is fixed-width - open my $otfinfo, '-|:raw', qq(otfinfo --dump-table 'post' "$ARGV[0]") - or die "[ERROR] could not fork(): $!"; - my $post_table = do { local $/; <$otfinfo> }; - close $otfinfo - or die "[ERROR] 'otfinfo --dump-table post $ARGV[0]' failed"; - - my $is_fixed_pitch = unpack '@12N', $post_table; - - $ARGV{nfss} = $is_fixed_pitch ? 'tt' - : $ARGV[0] =~ m/mono(?!type)/xmsi ? 'tt' - : $ARGV[0] =~ m/sans/xmsi ? 'sf' - : 'rm' - ; - } + eval { + if ( !$ARGV{nfss} ) { + # EXPERIMENTAL: parse "post" table to see if font is fixed-width + my $cmd = qq(otfinfo --dump-table "post" "$ARGV[0]"); + open my $otfinfo, '-|:raw', $cmd + or die "could not fork(): $!"; + my $post_table = do { local $/; <$otfinfo> }; + close $otfinfo + or die "'$cmd' failed"; + + my $is_fixed_pitch = unpack '@12N', $post_table; + + $ARGV{nfss} = $is_fixed_pitch ? 'tt' + : $ARGV[0] =~ m/mono(?!type)/xmsi ? 'tt' + : $ARGV[0] =~ m/sans/xmsi ? 'sf' + : 'rm' + ; + } + } or warn "[WARNING] $@"; # If the user didn't explicitly say anything about ligatures, # activate them unless the font is a typewriter font. @@ -1337,6 +1340,8 @@ sub parse_fontinfo { minsize => 0, maxsize => 0, is_smallcaps => 0, + weight_class => 0, + width_class => 0, }; parse_basicinfo($info); @@ -1355,7 +1360,8 @@ my @DIGITS = qw(Zero One Two Three Four Five Six Seven Eight Nine); sub parse_basicinfo { my $info = shift; - open my $otfinfo, '-|', qq(otfinfo --info "$info->{filename}") + my $cmd = qq(otfinfo --info "$info->{filename}"); + open my $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; my %data = map { my ($k,$v) = m/\A\s* ([^:]+?) \s*:\s* ([^\r\n]+)/xms; $k =~ s/\s+//xmsg; @@ -1364,7 +1370,7 @@ sub parse_basicinfo { } grep { m/\A\s* [^:]+? \s*:\s* [^\r\n]+/xms } <$otfinfo>; close $otfinfo - or die "[ERROR] 'otfinfo --info $info->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; $data{family} = $data{preferredfamily} || $data{family}; $data{subfamily} = $data{preferredsubfamily} || $data{subfamily}; @@ -1507,14 +1513,15 @@ sub parse_basicinfo { # EXPERIMENTAL: we extract the usWeightClass and usWidthClass # properties from the font's OS/2 table - open $otfinfo, - '-|:raw', - qq(otfinfo --dump-table 'OS/2' "$info->{filename}") - or die "[ERROR] could not fork(): $!"; - my $os2_table = do { local $/; <$otfinfo> }; - close $otfinfo - or die "[ERROR] 'otfinfo --dump-table $info->{filename}' failed"; - @{$info}{qw(weight_class width_class)} = unpack '@4n @6n', $os2_table; + eval { + my $cmd = qq(otfinfo --dump-table "OS/2" "$info->{filename}"); + open $otfinfo, '-|:raw', $cmd + or die "could not fork(): $!"; + my $os2_table = do { local $/; <$otfinfo> }; + close $otfinfo + or die "'$cmd' failed"; + @{$info}{qw(weight_class width_class)} = unpack '@4n @6n', $os2_table; + } or warn "[WARNING] $@"; return; } @@ -1538,17 +1545,19 @@ sub mqrs { sub parse_features { my $info = shift; - open my $otfinfo, '-|', qq(otfinfo --features "$info->{filename}") + my $cmd = qq(otfinfo --features "$info->{filename}"); + open my $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; %{$info->{feature}} = map { (substr($_, 0, 4) => 1) } <$otfinfo>; close $otfinfo - or die "[ERROR] 'otfinfo --features $info->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; - open $otfinfo, '-|', qq(otfinfo --tables "$info->{filename}") + $cmd = qq(otfinfo --tables "$info->{filename}"); + open $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; $info->{feature}{kern} = 1 if grep { m/\d+ \s+ kern/xms } <$otfinfo>; close $otfinfo - or die "[ERROR] 'otfinfo --tables $info->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; return; } @@ -1560,7 +1569,8 @@ sub parse_features { sub parse_sizeinfo { my $info = shift; - open my $otfinfo, '-|', qq(otfinfo --optical-size "$info->{filename}") + my $cmd = qq(otfinfo --optical-size "$info->{filename}"); + open my $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; if (my ($minsize, $maxsize) @@ -1595,7 +1605,7 @@ sub parse_sizeinfo { @{$info}{qw(minsize maxsize)} = ($minsize, $maxsize); } close $otfinfo - or die "[ERROR] 'otfinfo --optical-size $info->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; return; } @@ -1675,11 +1685,12 @@ sub get_orn { # Default ornament names: 'orn.' plus three digits my @encoding = map { sprintf "orn.%03d", $_ } 1 .. 256; - open my $otfinfo, '-|', qq(otfinfo --glyphs "$font->{filename}") + my $cmd = qq(otfinfo --glyphs "$font->{filename}"); + open my $otfinfo, '-|', $cmd or die "[ERROR] could not fork(): $!"; chop(my @glyphnames = <$otfinfo>); close $otfinfo - or die "[ERROR] 'otfinfo --glyphs $font->{filename}' failed"; + or die "[ERROR] '$cmd' failed"; # Test for some known alternative names (probably not exhaustive) my @ornaments @@ -1741,7 +1752,8 @@ sub write_stylefile { $ARGV{target}, 'tex', 'latex', $ARGV{typeface} || $fam); File::Path::make_path($dir); $fn = File::Spec->catfile($dir, $fn); - open my $STY, '>', $fn or die "[ERROR] Can't create '$fn': $!"; + open my $STY, '>', $fn + or die "[ERROR] Can't create '$fn': $!"; print {$STY} <<"END_STY_HEADER"; %% Generated by autoinst on $TODAY @@ -1948,7 +1960,8 @@ sub write_fdfile { $ARGV{target}, 'tex', 'latex', $ARGV{typeface} || $fam); File::Path::make_path($dir); $fn = File::Spec->catfile($dir, $fn); - open my $FD, '>', $fn or die "[ERROR] Can't create '$fn': $!"; + open my $FD, '>', $fn + or die "[ERROR] Can't create '$fn': $!"; print {$FD} <<"END_FD_HEADER"; %% Generated by autoinst on $TODAY @@ -2769,7 +2782,7 @@ GNU General Public License for more details. =head1 VERSION -This document describes B version 20190625. +This document describes B version 20190712. =head1 RECENT CHANGES @@ -2778,6 +2791,11 @@ This document describes B version 20190625. =over 12 +=item I<2019-07-12> + +Replaced single quotes in calls to F with double quotes, +as they caused problems on Windows 10. + =item I<2019-06-25> =over 3 diff --git a/Master/texmf-dist/scripts/fontools/ot2kpx b/Master/texmf-dist/scripts/fontools/ot2kpx index 19a3996a6a2..2073d6b6d32 100755 --- a/Master/texmf-dist/scripts/fontools/ot2kpx +++ b/Master/texmf-dist/scripts/fontools/ot2kpx @@ -38,7 +38,7 @@ use Getopt::Long (); use List::Util @List::Util::EXPORT_OK; use Pod::Usage; -my $VERSION = "20190625"; +my $VERSION = "20190712"; our ($NUM_GLYPHS, $UNITS_PER_EM, %kern); @@ -858,7 +858,7 @@ See the GNU General Public License for more details. =head1 VERSION -This document describes B version 20190625. +This document describes B version 20190712. =head1 RECENT CHANGES -- cgit v1.2.3