librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/Fmtx.pm

   1 package Font::TTF::Fmtx;
   2
   3 =head1 NAME
   4
   5 Font::TTF::Fmtx - Font Metrics table
   6
   7 =head1 DESCRIPTION
   8
   9 This is a simple table with just standards specified instance variables
  10
  11 =head1 INSTANCE VARIABLES
  12
  13     version
  14     glyphIndex
  15     horizontalBefore
  16     horizontalAfter
  17     horizontalCaretHead
  18     horizontalCaretBase
  19     verticalBefore
  20     verticalAfter
  21     verticalCaretHead
  22     verticalCaretBase
  23
  24 =head1 METHODS
  25
  26 =cut
  27
  28 use strict;
  29 use vars qw(@ISA %fields @field_info);
  30
  31 require Font::TTF::Table;
  32 use Font::TTF::Utils;
  33
  34 @ISA = qw(Font::TTF::Table);
  35 @field_info = (
  36     'version' => 'v',
  37     'glyphIndex' => 'L',
  38     'horizontalBefore' => 'c',
  39     'horizontalAfter' => 'c',
  40     'horizontalCaretHead' => 'c',
  41     'horizontalCaretBase' => 'c',
  42     'verticalBefore' => 'c',
  43     'verticalAfter' => 'c',
  44     'verticalCaretHead' => 'c',
  45     'verticalCaretBase' => 'c');
  46
  47 sub init
  48 {
  49     my ($k, $v, $c, $i);
  50     for ($i = 0; $i < $#field_info; $i += 2)
  51     {
  52         ($k, $v, $c) = TTF_Init_Fields($field_info[$i], $c, $field_info[$i + 1]);
  53         next unless defined $k && $k ne "";
  54         $fields{$k} = $v;
  55     }
  56 }
  57
  58
  59 =head2 $t->read
  60
  61 Reads the table into memory as instance variables
  62
  63 =cut
  64
  65 sub read
  66 {
  67     my ($self) = @_;
  68     my ($dat);
  69
  70     $self->SUPER::read or return $self;
  71     init unless defined $fields{'glyphIndex'};
  72     $self->{' INFILE'}->read($dat, 16);
  73
  74     TTF_Read_Fields($self, $dat, \%fields);
  75     $self;
  76 }
  77
  78
  79 =head2 $t->out($fh)
  80
  81 Writes the table to a file either from memory or by copying.
  82
  83 =cut
  84
  85 sub out
  86 {
  87     my ($self, $fh) = @_;
  88
  89     return $self->SUPER::out($fh) unless $self->{' read'};
  90
  91     $fh->print(TTF_Out_Fields($self, \%fields, 16));
  92     $self;
  93 }
  94
  95
  96 1;
  97
  98
  99 =head1 BUGS
 100
 101 None known
 102
 103 =head1 AUTHOR
 104
 105 Jonathan Kew L<Jonathan_Kew@sil.org>. See L<Font::TTF::Font> for copyright and
 106 licensing.
 107
 108 =cut