Drop lots of legacy code. Support Python 3.7-3.11.

[librarian.git] / src / librarian / font-optimizer / ext / Font-TTF / lib / Font / TTF / Hdmx.pm

diff --git a/src/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/Hdmx.pm b/src/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/Hdmx.pm
deleted file mode 100644 (file)
index d1e47cb..0000000
--- a/src/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/Hdmx.pm
+++ /dev/null
@@ -1,149 +0,0 @@
-package Font::TTF::Hdmx;
-
-=head1 NAME
-
-Font::TTF::Hdmx - Horizontal device metrics
-
-=head1 DESCRIPTION
-
-The table consists of an hash of device metric tables indexed by the ppem for
-that subtable. Each subtable consists of an array of advance widths in pixels
-for each glyph at that ppem (horizontally).
-
-=head1 INSTANCE VARIABLES
-
-Individual metrics are accessed using the following referencing:
-
-    $f->{'hdmx'}{$ppem}[$glyph_num]
-
-In addition there is one instance variable:
-
-=over 4
-
-=item Num
-
-Number of device tables.
-
-=back
-
-=head2 METHODS
-
-=cut
-
-use strict;
-use vars qw(@ISA);
-
-@ISA = qw(Font::TTF::Table);
-
-
-=head2 $t->read
-
-Reads the table into data structures
-
-=cut
-
-sub read
-{
-    my ($self) = @_;
-    my ($fh) = $self->{' INFILE'};
-    my ($numg, $ppem, $i, $numt, $dat, $len);
-
-    $numg = $self->{' PARENT'}{'maxp'}{'numGlyphs'};
-    $self->SUPER::read or return $self;
-
-    $fh->read($dat, 8);
-    ($self->{'Version'}, $numt, $len) = unpack("nnN", $dat);
-    $self->{'Num'} = $numt;
-
-    for ($i = 0; $i < $numt; $i++)
-    {
-        $fh->read($dat, $len);
-        $ppem = unpack("C", $dat);
-        $self->{$ppem} = [unpack("C$numg", substr($dat, 2))];
-    }
-    $self;
-}
-
-
-=head2 $t->out($fh)
-
-Outputs the device metrics for this font
-
-=cut
-
-sub out
-{
-    my ($self, $fh) = @_;
-    my ($numg, $i, $pad, $len, $numt, @ppem, $max);
-
-    return $self->SUPER::out($fh) unless ($self->{' read'});
-
-    $numg = $self->{' PARENT'}{'maxp'}{'numGlyphs'};
-    @ppem = grep(/^\d+$/, sort {$a <=> $b} keys %$self);
-    $pad = "\000" x (3 - ($numg + 1) % 4);
-    $len = $numg + 2 + length($pad);
-    $fh->print(pack("nnN", 0, $#ppem + 1, $len));
-    for $i (@ppem)
-    {
-        $max = 0;
-        foreach (@{$self->{$i}}[0..($numg - 1)])
-        { $max = $_ if $_ > $max; }
-        $fh->print(pack("C*", $i, $max, @{$self->{$i}}[0..($numg - 1)]) . $pad);
-    }
-    $self;
-}
-
-
-=head2 $t->tables_do(&func)
-
-For each subtable it calls &sub($ref, $ppem)
-
-=cut
-
-sub tables_do
-{
-    my ($self, $func) = @_;
-    my ($i);
-
-    foreach $i (grep(/^\d+$/, %$self))
-    { &$func($self->{$i}, $i); }
-    $self;
-}
-
-
-=head2 $t->XML_element($context, $depth, $key, $value)
-
-Outputs device metrics a little more tidily
-
-=cut
-
-sub XML_element
-{
-    my ($self) = shift;
-    my ($context, $depth, $key, $value) = @_;
-    my ($fh) = $context->{'fh'};
-    my ($i);
-
-    return $self->SUPER::XML_element(@_) if (ref($value) ne 'ARRAY');
-    $fh->print("$depth<metrics ppem='$key'>\n");
-    for ($i = 0; $i <= $#{$value}; $i += 25)
-    {
-        $fh->print("$depth$context->{'indent'}". join(' ', @{$value}[$i .. $i + 24]) . "\n");
-    }
-    $fh->print("$depth</metrics>\n");
-    $self;
-}
-
-1;
-
-=head1 BUGS
-
-None known
-
-=head1 AUTHOR
-
-Martin Hosken Martin_Hosken@sil.org. See L<Font::TTF::Font> for copyright and
-licensing.
-
-=cut
-