diff options
Diffstat (limited to 'Master/texmf-dist/scripts/fontools/ot2kpx')
-rwxr-xr-x | Master/texmf-dist/scripts/fontools/ot2kpx | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/Master/texmf-dist/scripts/fontools/ot2kpx b/Master/texmf-dist/scripts/fontools/ot2kpx index e1548e8c9d1..19a3996a6a2 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 = "20190522"; +my $VERSION = "20190625"; our ($NUM_GLYPHS, $UNITS_PER_EM, %kern); @@ -48,12 +48,12 @@ sub main { ); Getopt::Long::GetOptions( - 'help|?' => sub { pod2usage(-verbose => 0); }, - 'version' => sub { print "$VERSION\n"; exit; }, - 'doc' => sub { pod2usage(-verbose => 2); }, - 'afm' => sub { $ARGV{print_func} = \&print_kpx; }, - 'kpx' => sub { $ARGV{print_func} = \&print_kpx; }, - 'lua' => sub { $ARGV{print_func} = \&print_lua; }, + 'help|?' => sub { pod2usage(-verbose => 0) }, + 'version' => sub { print "$VERSION\n"; exit }, + 'doc' => sub { pod2usage(-verbose => 2) }, + 'afm' => sub { $ARGV{print_func} = \&print_kpx }, + 'kpx' => sub { $ARGV{print_func} = \&print_kpx }, + 'lua' => sub { $ARGV{print_func} = \&print_lua }, ) or pod2usage(-verbose => 0); pod2usage(-verbose => 0) if @ARGV != 1; @@ -100,8 +100,8 @@ sub main { # Print kerning data in Adobe's KPX format # ------------------------------------------------------------------------ sub print_kpx { - my %kern = %{ shift @_; }; - my @glyph = @{ shift @_; }; + my %kern = %{ shift @_ }; + my @glyph = @{ shift @_ }; my $num_kernpairs = sum map { scalar keys %{$kern{$_}} } keys %kern; print "StartKernData\nStartKernPairs $num_kernpairs\n"; @@ -119,8 +119,8 @@ sub print_kpx { # Print kerning data as a Luatex custom font feature # ------------------------------------------------------------------------ sub print_lua { - my %kern = %{ shift @_; }; - my @glyph = @{ shift @_; }; + my %kern = %{ shift @_ }; + my @glyph = @{ shift @_ }; print <<'END_FEATURE_PREFIX'; fonts.handlers.otf.addfeature { @@ -739,7 +739,7 @@ ot2kpx - extract kerning information from OpenType fonts =head1 SYNOPSIS -B<ot2kpx> [ I<-afm> | I<-kpx> | I<-lua> ] B<fontfile> +B<ot2kpx> [ I<-afm> | I<-kpx> | I<-lua> ] B<< <fontfile> >> =head1 DESCRIPTION @@ -771,7 +771,7 @@ This is the default output format. Output the kerning data as a Luatex custom font feature, to be included in a C<\directlua> command. -=item B<fontfile> +=item B<< <fontfile> >> The OpenType font (both F<otf> and F<ttf> format are supported). @@ -858,7 +858,7 @@ See the GNU General Public License for more details. =head1 VERSION -This document describes B<ot2kpx> version 20190522. +This document describes B<ot2kpx> version 20190625. =head1 RECENT CHANGES |