|
Packit |
5d935b |
package Font::TTF::Kern::StateTable;
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=head1 NAME
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
Font::TTF::Kern::StateTable - State Table Kern subtable for AAT
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=head1 METHODS
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=cut
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
use strict;
|
|
Packit |
5d935b |
use vars qw(@ISA);
|
|
Packit |
5d935b |
use Font::TTF::Utils;
|
|
Packit |
5d935b |
use Font::TTF::AATutils;
|
|
Packit |
5d935b |
use Font::TTF::Kern::Subtable;
|
|
Packit |
5d935b |
use IO::File;
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
@ISA = qw(Font::TTF::Kern::Subtable);
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
sub new
|
|
Packit |
5d935b |
{
|
|
Packit |
5d935b |
my ($class) = @_;
|
|
Packit |
5d935b |
my ($self) = {};
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
$class = ref($class) || $class;
|
|
Packit |
5d935b |
bless $self, $class;
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=head2 $t->read
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
Reads the table into memory
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=cut
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
sub read
|
|
Packit |
5d935b |
{
|
|
Packit |
5d935b |
my ($self, $fh) = @_;
|
|
Packit |
5d935b |
my ($dat);
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
my $stTableStart = $fh->tell();
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
my ($classes, $states, $entries) = AAT_read_state_table($fh, 0);
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
foreach (@$entries) {
|
|
Packit |
5d935b |
my $flags = $_->{'flags'};
|
|
Packit |
5d935b |
delete $_->{'flags'};
|
|
Packit |
5d935b |
$_->{'push'} = 1 if $flags & 0x8000;
|
|
Packit |
5d935b |
$_->{'noAdvance'} = 1 if $flags & 0x4000;
|
|
Packit |
5d935b |
$flags &= ~0xC000;
|
|
Packit |
5d935b |
if ($flags != 0) {
|
|
Packit |
5d935b |
my $kernList = [];
|
|
Packit |
5d935b |
$fh->seek($stTableStart + $flags, IO::File::SEEK_SET);
|
|
Packit |
5d935b |
while (1) {
|
|
Packit |
5d935b |
$fh->read($dat, 2);
|
|
Packit |
5d935b |
my $k = TTF_Unpack("s", $dat);
|
|
Packit |
5d935b |
push @$kernList, ($k & ~1);
|
|
Packit |
5d935b |
last if ($k & 1) != 0;
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
$_->{'kernList'} = $kernList;
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
$self->{'classes'} = $classes;
|
|
Packit |
5d935b |
$self->{'states'} = $states;
|
|
Packit |
5d935b |
$self->{'entries'} = $entries;
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
$fh->seek($stTableStart - 8 + $self->{'length'}, IO::File::SEEK_SET);
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
$self;
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=head2 $t->out_sub($fh)
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
Writes the table to a file
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=cut
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
sub out_sub
|
|
Packit |
5d935b |
{
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=head2 $t->print($fh)
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
Prints a human-readable representation of the table
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=cut
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
sub print
|
|
Packit |
5d935b |
{
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
sub dumpXML
|
|
Packit |
5d935b |
{
|
|
Packit |
5d935b |
my ($self, $fh) = @_;
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
$fh->printf("<classes>\n");
|
|
Packit |
5d935b |
$self->dumpClasses($self->{'classes'}, $fh);
|
|
Packit |
5d935b |
$fh->printf("</classes>\n");
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
$fh->printf("<states>\n");
|
|
Packit |
5d935b |
my $states = $self->{'states'};
|
|
Packit |
5d935b |
foreach (0 .. $#$states) {
|
|
Packit |
5d935b |
$fh->printf("<state index=\"%s\">\n", $_);
|
|
Packit |
5d935b |
my $members = $states->[$_];
|
|
Packit |
5d935b |
foreach (0 .. $#$members) {
|
|
Packit |
5d935b |
my $m = $members->[$_];
|
|
Packit |
5d935b |
$fh->printf("<m index=\"%s\" nextState=\"%s\"", $_, $m->{'nextState'});
|
|
Packit |
5d935b |
$fh->printf(" push=\"1\"") if $m->{'push'};
|
|
Packit |
5d935b |
$fh->printf(" noAdvance=\"1\"") if $m->{'noAdvance'};
|
|
Packit |
5d935b |
if (exists $m->{'kernList'}) {
|
|
Packit |
5d935b |
$fh->printf(">");
|
|
Packit |
5d935b |
foreach (@{$m->{'kernList'}}) {
|
|
Packit |
5d935b |
$fh->printf("<kern v=\"%s\"/>", $_);
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
$fh->printf("</m>\n");
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
else {
|
|
Packit |
5d935b |
$fh->printf("/>\n");
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
$fh->printf("</state>\n");
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
$fh->printf("</states>\n");
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
sub type
|
|
Packit |
5d935b |
{
|
|
Packit |
5d935b |
return 'kernStateTable';
|
|
Packit |
5d935b |
}
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
1;
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=head1 BUGS
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
None known
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=head1 AUTHOR
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
Jonathan Kew L<http://scripts.sil.org/FontUtils>.
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=head1 LICENSING
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
Copyright (c) 1998-2016, SIL International (http://www.sil.org)
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
This module is released under the terms of the Artistic License 2.0.
|
|
Packit |
5d935b |
For details, see the full text of the license in the file LICENSE.
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
=cut
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
|