#======================================================================= # ____ ____ _____ _ ____ ___ ____ # | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \ # | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) | # | __/| |_| | _| _ _ / ___ \| __/| | / __/ # |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____| # # 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.5 2004/06/15 09:13:37 fredo Exp $ # #======================================================================= package PDF::API2::Basic::TTF::GDEF; =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 PDF::API2::Basic::TTF::Table; use PDF::API2::Basic::TTF::Utils; use PDF::API2::Basic::TTF::Ttopen; 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;