#=======================================================================
# ____ ____ _____ _ ____ ___ ____
# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
# | __/| |_| | _| _ _ / ___ \| __/| | / __/
# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
#
# A Perl Module Chain to faciliate the Creation and Modification
# of High-Quality "Portable Document Format (PDF)" Files.
#
#=======================================================================
#
# THIS IS A REUSED PERL MODULE, FOR PROPER LICENCING TERMS SEE BELOW:
#
#
# Copyright Martin Hosken <Martin_Hosken@sil.org>
#
# No warranty or expression of effectiveness, least of all regarding
# anyone's safety, is implied in this software or documentation.
#
# This specific module is licensed under the Perl Artistic License.
#
#
# $Id: GDEF.pm,v 1.6 2005/02/21 22:15:45 fredo Exp $
#
#=======================================================================
=head1 NAME
PDF::API2::Basic::TTF::GDEF - Opentype GDEF table support
=head1 DESCRIPTION
The GDEF table contains various global lists of information which are apparantly
used in other places in an OpenType renderer. But precisely where is open to
speculation...
=head1 INSTANCE VARIABLES
There are 4 tables in the GDEF table, each with their own structure:
=over 4
=item GLYPH
This is an L<PDF::API2::Basic::TTF::Coverage> Class Definition table containing information
as to what type each glyph is.
=item ATTACH
The attach table consists of a coverage table and then attachment points for
each glyph in the coverage table:
=over 8
=item COVERAGE
This is a coverage table
=item POINTS
This is an array of point elements. Each element is an array of curve points
corresponding to the attachment points on that glyph. The order of the curve points
in the array corresponds to the attachment point number specified in the MARKS
coverage table (see below).
=back
=item LIG
This contains the ligature caret positioning information for ligature glyphs
=over 8
=item COVERAGE
A coverage table to say which glyphs are ligatures
=item LIGS
An array of elements for each ligature. Each element is an array of information
for each caret position in the ligature (there being number of components - 1 of
these, generally)
=over 12
=item FMT
This is the format of the information and is important to provide the semantics
for the value. This value must be set correctly before output
=item VAL
The value which has meaning according to FMT
=item DEVICE
For FMT = 3, a device table is also referenced which is stored here
=back
=back
=item MARKS
Due to confusion in the GDEF specification, this field is currently withdrawn until
the confusion is resolved. That way, perhaps this stuff will work!
This class definition table stores the mark attachment point numbers for each
attachment mark, to indicate which attachment point the mark attaches to on its
base glyph.
=back
=head1 METHODS
=cut
use strict;
use vars qw(@ISA $new_gdef);
@ISA = qw(PDF::API2::Basic::TTF::Table);
=head2 $t->read
Reads the table into the data structure
=cut
sub read
{
my ($self) = @_;
my ($fh) = $self->{' INFILE'};
my ($boff) = $self->{' OFFSET'};
my ($dat, $goff, $loff, $aoff, $moff, $r, $s, $bloc);
$self->SUPER::read or return $self;
$bloc = $fh->tell();
$fh->read($dat, 10);
($self->{'Version'}, $goff, $aoff, $loff) = TTF_Unpack('fS3', $dat);
if ($new_gdef)
{
$fh->read($dat, 12);
($self->{'Version'}, $goff, $aoff, $loff, $moff) = TTF_Unpack('fS4', $dat);
}
if ($goff > 0)
{
$fh->seek($goff + $boff, 0);
$self->{'GLYPH'} = PDF::API2::Basic::TTF::Coverage->new(0)->read($fh);
}
if ($new_gdef && $moff > 0)
{
$fh->seek($moff + $boff, 0);
$self->{'MARKS'} = PDF::API2::Basic::TTF::Coverage->new(0)->read($fh);
}
if ($aoff > 0)
{
my ($off, $gcount, $pcount);
$fh->seek($aoff + $boff, 0);
$fh->read($dat, 4);
($off, $gcount) = TTF_Unpack('SS', $dat);
$fh->read($dat, $gcount << 1);
$fh->seek($aoff + $boff + $off, 0);
$self->{'ATTACH'}{'COVERAGE'} = PDF::API2::Basic::TTF::Coverage->new(1)->read($fh);
foreach $r (TTF_Unpack('S*', $dat))
{
unless ($r)
{
push (@{$self->{'ATTACH'}{'POINTS'}}, []);
next;
}
$fh->seek($aoff + $boff + $r, 0);
$fh->read($dat, 2);
$pcount = TTF_Unpack('S', $dat);
$fh->read($dat, $pcount << 1);
push (@{$self->{'ATTACH'}{'POINTS'}}, [TTF_Unpack('S*', $dat)]);
}
}
if ($loff > 0)
{
my ($lcount, $off, $ccount, $srec, $comp);
$fh->seek($loff + $boff, 0);
$fh->read($dat, 4);
($off, $lcount) = TTF_Unpack('SS', $dat);
$fh->read($dat, $lcount << 1);
$fh->seek($off + $loff + $boff, 0);
$self->{'LIG'}{'COVERAGE'} = PDF::API2::Basic::TTF::Coverage->new(1)->read($fh);
foreach $r (TTF_Unpack('S*', $dat))
{
$fh->seek($r + $loff + $boff, 0);
$fh->read($dat, 2);
$ccount = TTF_Unpack('S', $dat);
$fh->read($dat, $ccount << 1);
$srec = [];
foreach $s (TTF_Unpack('S*', $dat))
{
$comp = {};
$fh->seek($s + $r + $loff + $boff, 0);
$fh->read($dat, 4);
($comp->{'FMT'}, $comp->{'VAL'}) = TTF_Unpack('S*', $dat);
if ($comp->{'FMT'} == 3)
{
$fh->read($dat, 2);
$off = TTF_Unpack('S', $dat);
if (defined $self->{' CACHE'}{$off + $s + $r})
{ $comp->{'DEVICE'} = $self->{' CACHE'}{$off + $s + $r}; }
else
{
$fh->seek($off + $s + $r + $loff + $boff, 0);
$comp->{'DEVICE'} = PDF::API2::Basic::TTF::Delta->new->read($fh);
$self->{' CACHE'}{$off + $s + $r} = $comp->{'DEVICE'};
}
}
push (@$srec, $comp);
}
push (@{$self->{'LIG'}{'LIGS'}}, $srec);
}
}
$self;
}
=head2 $t->out($fh)
Writes out this table.
=cut
sub out
{
my ($self, $fh) = @_;
my ($goff, $aoff, $loff, $moff, @offs, $loc1, $coff, $loc);
return $self->SUPER::out($fh) unless $self->{' read'};
$loc = $fh->tell();
if ($new_gdef)
{ $fh->print(TTF_Pack('fSSSS', $self->{'Version'}, 0, 0, 0, 0)); }
else
{ $fh->print(TTF_Pack('fSSS', $self->{'Version'}, 0, 0, 0)); }
if (defined $self->{'GLYPH'})
{
$goff = $fh->tell() - $loc;
$self->{'GLYPH'}->out($fh);
}
if (defined $self->{'ATTACH'})
{
my ($r);
$aoff = $fh->tell() - $loc;
$fh->print(pack('n*', (0) x ($#{$self->{'ATTACH'}{'POINTS'}} + 3)));
foreach $r (@{$self->{'ATTACH'}{'POINTS'}})
{
push (@offs, $fh->tell() - $loc - $aoff);
$fh->print(pack('n*', $#{$r} + 1, @$r));
}
$coff = $fh->tell() - $loc - $aoff;
$self->{'ATTACH'}{'COVERAGE'}->out($fh);
$loc1 = $fh->tell();
$fh->seek($aoff + $loc, 0);
$fh->print(pack('n*', $coff, $#offs + 1, @offs));
$fh->seek($loc1, 0);
}
if (defined $self->{'LIG'})
{
my (@reftables, $ltables, $i, $j, $out, $r, $s);
$ltables = {};
$loff = $fh->tell() - $loc;
$out = pack('n*',
PDF::API2::Basic::TTF::Ttopen->ref_cache($self->{'LIG'}{'COVERAGE'}, $ltables, 0),
0, $#{$self->{'LIG'}{'LIGS'}} + 1,
(0) x ($#{$self->{'LIG'}{'LIGS'}} + 1));
push (@reftables, [$ltables, 0]);
$i = 0;
foreach $r (@{$self->{'LIG'}{'LIGS'}})
{
$ltables = {};
$loc1 = length($out);
substr($out, ($i << 1) + 4, 2) = TTF_Pack('S', $loc1);
$out .= pack('n*', $#{$r} + 1, (0) x ($#{$r} + 1));
@offs = (); $j = 0;
foreach $s (@$r)
{
substr($out, ($j << 1) + 2 + $loc1, 2) =
TTF_Pack('S', length($out) - $loc1);
$out .= TTF_Pack('SS', $s->{'FMT'}, $s->{'VAL'});
$out .= pack('n', PDF::API2::Basic::TTF::Ttopen->ref_cache($s->{'DEVICE'},
$ltables, length($out))) if ($s->{'FMT'} == 3);
$j++;
}
push (@reftables, [$ltables, $loc1]);
$i++;
}
PDF::API2::Basic::TTF::Ttopen::out_final($fh, $out, \@reftables);
}
if ($new_gdef && defined $self->{'MARKS'})
{
$moff = $fh->tell() - $loc;
$self->{'MARKS'}->out($fh);
}
$loc1 = $fh->tell();
$fh->seek($loc + 4, 0);
if ($new_gdef)
{ $fh->print(TTF_Pack('S4', $goff, $aoff, $loff, $moff)); }
else
{ $fh->print(TTF_Pack('S3', $goff, $aoff, $loff)); }
$fh->seek($loc1, 0);
$self;
}
1;