almost done, kerning todo
[librarian.git] / librarian / font-optimizer / ext / Font-TTF / lib / Font / TTF / Kern / CompactClassArray.pm
1 package Font::TTF::Kern::CompactClassArray;
2
3 =head1 NAME
4
5 Font::TTF::Kern::CompactClassArray - Compact Class Array kern subtable for AAT
6
7 =head1 METHODS
8
9 =cut
10
11 use strict;
12 use vars qw(@ISA);
13 use Font::TTF::Utils;
14 use Font::TTF::AATutils;
15
16 @ISA = qw(Font::TTF::Kern::Subtable);
17
18 sub new
19 {
20     my ($class) = @_;
21     my ($self) = {};
22
23     $class = ref($class) || $class;
24     bless $self, $class;
25 }
26
27 =head2 $t->read
28
29 Reads the table into memory
30
31 =cut
32
33 sub read
34 {
35     my ($self, $fh) = @_;
36     
37     die "incomplete";
38             
39     $self;
40 }
41
42 =head2 $t->out($fh)
43
44 Writes the table to a file
45
46 =cut
47
48 sub out_sub
49 {
50     my ($self, $fh) = @_;
51     
52     die "incomplete";
53             
54     $self;
55 }
56
57 =head2 $t->print($fh)
58
59 Prints a human-readable representation of the table
60
61 =cut
62
63 sub print
64 {
65     my ($self, $fh) = @_;
66     
67     my $post = $self->post();
68     
69     $fh = 'STDOUT' unless defined $fh;
70
71     die "incomplete";
72 }
73
74
75 sub type
76 {
77     return 'kernCompactClassArray';
78 }
79
80
81 1;
82
83 =head1 BUGS
84
85 None known
86
87 =head1 AUTHOR
88
89 Jonathan Kew L<Jonathan_Kew@sil.org>. See L<Font::TTF::Font> for copyright and
90 licensing.
91
92 =cut
93