4cc7709066c739eba3036681c26abdcb83d2a4fe
[librarian.git] / src / librarian / font-optimizer / ext / Font-TTF / lib / Font / TTF / Fpgm.pm
1 package Font::TTF::Fpgm;
2
3 =head1 NAME
4
5 Font::TTF::Fpgm - Font program in a TrueType font. Called when a font is loaded
6
7 =head1 DESCRIPTION
8
9 This is a minimal class adding nothing beyond a table, but is a repository
10 for fpgm type information for those processes brave enough to address hinting.
11
12 =cut
13
14 use strict;
15 use vars qw(@ISA $VERSION);
16
17 @ISA = qw(Font::TTF::Table);
18
19 $VERSION = 0.0001;
20
21 =head2 $t->read
22
23 Reading this table is simply a process of reading all the data into the RAM
24 copy. Nothing more is done with it.
25
26 =cut
27
28 sub read
29 {
30     $_[0]->read_dat;
31     $_[0]->{' read'} = 1;
32 }
33
34 =head2 $t->out_xml($context, $depth)
35
36 Outputs Fpgm program as XML
37
38 =cut
39
40 sub out_xml
41 {
42     my ($self, $context, $depth) = @_;
43     my ($fh) = $context->{'fh'};
44     my ($dat);
45
46     $self->read;
47     $dat = Font::TTF::Utils::XML_binhint($self->{' dat'});
48     $dat =~ s/\n(?!$)/\n$depth$context->{'indent'}/omg;
49     $fh->print("$depth<code>\n");
50     $fh->print("$depth$context->{'indent'}$dat");
51     $fh->print("$depth</code>\n");
52     $self;
53 }
54
55
56 =head2 $t->XML_end($context, $tag, %attrs)
57
58 Parse all that hinting code
59
60 =cut
61
62 sub XML_end
63 {
64     my ($self) = shift;
65     my ($context, $tag, %attrs) = @_;
66
67     if ($tag eq 'code')
68     {
69         $self->{' dat'} = Font::TTF::Utils::XML_hintbin($context->{'text'});
70         return $context;
71     } else
72     { return $self->SUPER::XML_end(@_); }
73 }
74
75 1;
76
77 =head1 BUGS
78
79 None known
80
81 =head1 AUTHOR
82
83 Martin Hosken Martin_Hosken@sil.org. See L<Font::TTF::Font> for copyright and
84 licensing.
85
86 =cut
87