File Coverage

714
715							=cut
716
717							sub XML_start
718							{
719	0			0	1	0	my ($self, $context, $tag, %attrs) = @_;
720	0					0	my ($name, $type, $t);
721
722	0	0				0	if ($tag eq 'font')
		0
723	0					0	{ $context->{'tree'}[-1] = $self; }
724							elsif ($tag eq 'table')
725							{
726	0					0	$name = $attrs{'name'};
727	0	0				0	unless (defined $self->{$name})
728							{
729	0		0			0	$type = $tables{$name} \|\| 'Font::TTF::Table';
730	0					0	$t = $type;
731	0	0				0	if ($^O eq "MacOS")
732	0					0	{ $t =~ s/^\|::/:/oig; }
733							else
734	0					0	{ $t =~ s\|::\|/\|oig; }
735	0					0	require "$t.pm";
736	0					0	$self->{$name} = $type->new('PARENT' => $self, 'NAME' => $name, 'read' => 1);
737							}
738	0					0	$context->{'receiver'} = ($context->{'tree'}[-1] = $self->{$name});
739							}
740	0					0	$context;
741							}
742
743
744							sub XML_end
745							{
746	0			0	0	0	my ($self) = @_;
747	0					0	my ($context, $tag, %attrs) = @_;
748	0					0	my ($i);
749
750	0	0	0			0	return undef unless ($tag eq 'table' && $attrs{'name'} eq 'loca');
751	0	0	0			0	if (defined $context->{'glyphs'} && $context->{'glyphs'} ne $self->{'loca'}{'glyphs'})
752							{
753	0					0	for ($i = 0; $i <= $#{$context->{'glyphs'}}; $i++)
	0					0
754	0	0				0	{ $self->{'loca'}{'glyphs'}[$i] = $context->{'glyphs'}[$i] if defined $context->{'glyphs'}[$i]; }
755	0					0	$context->{'glyphs'} = $self->{'loca'}{'glyphs'};
756							}
757	0					0	return undef;
758							}
759
760							=head2 $f->update
761
762							Sends update to all the tables in the font and then resets all the isDirty
763							flags on each table. The data structure in now consistent as a font (we hope).
764
765							=cut
766
767							sub update
768							{
769	0			0	1	0	my ($self) = @_;
770
771	0			0		0	$self->tables_do(sub { $_[0]->update; });
	0					0
772
773	0					0	$self;
774							}
775
776							=head2 $f->dirty
777
778							Dirties all the tables in the font
779
780							=cut
781
782							sub dirty
783	0			0	1	0	{ $_[0]->tables_do(sub { $_[0]->dirty; }); $_[0]; }
	0			0		0
	0					0
784
785							=head2 $f->tables_do(&func [, tables])
786
787							Calls &func for each table in the font. Calls the table in alphabetical sort
788							order as per the order in the directory:
789
790							&func($table, $name);
791
792							May optionally take a list of table names in which case func is called
793							for each of them in the given order.
794
795							=cut
796
797							sub tables_do
798							{
799	2			2	1	863	my ($self, $func, @tables) = @_;
800	2					2	my ($t);
801
802	2	50				18	foreach $t (@tables ? @tables : sort grep {length($_) == 4} keys %$self)
	35					46
803	28					89	{ &$func($self->{$t}, $t); }
804	2					13	$self;
805							}
806
807
808							=head2 $f->release
809
810							Releases ALL of the memory used by the TTF font and all of its component
811							objects. After calling this method, do B expect to have anything left in
812							the C object.
813
814							B, that it is important that you call this method on any
815							C object when you wish to destruct it and free up its memory.
816							Internally, we track things in a structure that can result in circular
817							references, and without calling 'C' these will not properly get
818							cleaned up by Perl. Once you've called this method, though, don't expect to be
819							able to do anything else with the C object; it'll have B
820							internal state whatsoever.
821
822							B As part of the brute-force cleanup done here, this method
823							will throw a warning message whenever unexpected key values are found within
824							the C object. This is done to help ensure that any unexpected
825							and unfreed values are brought to your attention so that you can bug us to keep
826							the module updated properly; otherwise the potential for memory leaks due to
827							dangling circular references will exist.
828
829							=cut
830
831							sub release
832							{
833	0			0	1		my ($self) = @_;
834
835							# delete stuff that we know we can, here
836
837	0						my @tofree = map { delete $self->{$_} } keys %{$self};
	0
	0
838
839	0						while (my $item = shift @tofree)
840							{
841	0						my $ref = ref($item);
842	0	0					if (UNIVERSAL::can($item, 'release'))
		0
		0
843	0						{ $item->release(); }
844							elsif ($ref eq 'ARRAY')
845	0						{ push( @tofree, @{$item} ); }
	0
846							elsif (UNIVERSAL::isa($ref, 'HASH'))
847	0						{ release($item); }
848							}
849
850							# check that everything has gone - it better had!
851	0						foreach my $key (keys %{$self})
	0
852	0						{ warn ref($self) . " still has '$key' key left after release.\n"; }
853							}
854
855							1;
856
857							=head1 BUGS
858
859							Bugs abound aplenty I am sure. There is a lot of code here and plenty of scope.
860							The parts of the code which haven't been implemented yet are:
861
862							=over 4
863
864							=item Post
865
866							Version 4 format types are not supported yet.
867
868							=item Cmap
869
870							Format type 2 (MBCS) has not been implemented yet and therefore may cause
871							somewhat spurious results for this table type.
872
873							=item Kern
874
875							Only type 0 & type 2 tables are supported (type 1 & type 3 yet to come).
876
877							=item TTC and WOFF
878
879							The current Font::TTF::Font::out method does not support the writing of TrueType
880							Collections or WOFF files.
881
882							=item DSIG
883
884							Haven't figured out how to correctly calculate and output digital signature (DSIG) table
885
886							=back
887
888							In addition there are weaknesses or features of this module library
889
890							=over 4
891
892							=item *
893
894							There is very little (or no) error reporting. This means that if you have
895							garbled data or garbled data structures, then you are liable to generate duff
896							fonts.
897
898							=item *
899
900							The exposing of the internal data structures everywhere means that doing
901							radical re-structuring is almost impossible. But it stop the code from becoming
902							ridiculously large.
903
904							=back
905
906							Apart from these, I try to keep the code in a state of "no known bugs", which
907							given the amount of testing this code has had, is not a guarantee of high
908							quality, yet.
909
910							For more details see the appropriate class files.
911
912							=head1 AUTHOR
913
914							Martin Hosken L.
915
916
917							=head1 LICENSING
918
919							Copyright (c) 1998-2014, SIL International (http://www.sil.org)
920
921							This module is released under the terms of the Artistic License 2.0.
922							For details, see the full text of the license in the file LICENSE.
923
924
925
926							=cut
927