X-Git-Url: https://git.mdrn.pl/librarian.git/blobdiff_plain/e9aeedc51047d8d5e9e45c5253c776f8994da965..3a0c83394d5783715fab2be29fa1a9cfc3574e28:/src/librarian/font-optimizer/Font/EOTWrapper.pm?ds=inline

diff --git a/src/librarian/font-optimizer/Font/EOTWrapper.pm b/src/librarian/font-optimizer/Font/EOTWrapper.pm
deleted file mode 100644
index 297b930..0000000
--- a/src/librarian/font-optimizer/Font/EOTWrapper.pm
+++ /dev/null
@@ -1,141 +0,0 @@
-# Copyright (c) 2009 Philip Taylor
-#
-# Permission is hereby granted, free of charge, to any person
-# obtaining a copy of this software and associated documentation
-# files (the "Software"), to deal in the Software without
-# restriction, including without limitation the rights to use,
-# copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the
-# Software is furnished to do so, subject to the following
-# conditions:
-#
-# The above copyright notice and this permission notice shall be
-# included in all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-# HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-# OTHER DEALINGS IN THE SOFTWARE.
-
-package Font::EOTWrapper;
-
-use strict;
-use warnings;
-
-use Font::TTF::Font;
-use Encode;
-
-use constant TTEMBED_SUBSET => 0x00000001;
-use constant TTEMBED_TTCOMPRESSED => 0x00000004;
-use constant TTEMBED_XORENCRYPTDATA => 0x10000000;
-use constant DEFAULT_CHARSET => 0x01;
-
-sub convert {
-    my ($in_fn, $out_fn) = @_;
-
-    my $font_data = do {
-        open my $fh, $in_fn or die "Failed to open $in_fn: $!";
-        binmode $fh;
-        local $/;
-        <$fh>
-    };
-
-    my $font = Font::TTF::Font->open($in_fn) or die "Failed to open $in_fn: $!";
-
-    open my $out, '>', $out_fn or die "Failed to open $out_fn: $!";
-    binmode $out;
-
-    $font->{name}->read if $font->{name};
-
-    my $os2 = $font->{'OS/2'};
-    $os2->read;
-
-    my $rootString = '';
-
-    my $header = '';
-    $header .= pack V => length($font_data);
-    $header .= pack V => 0x00020001;
-    $header .= pack V => TTEMBED_SUBSET;
-    $header .= pack C10 => map $os2->{$_}, qw(bFamilyType bSerifStyle bWeight bProportion bContrast bStrokeVariation bArmStyle bLetterform bMidline bXheight);
-    $header .= pack C => DEFAULT_CHARSET;
-    $header .= pack C => (($os2->{fsSelection} & 1) ? 1 : 0);
-    $header .= pack V => $os2->{usWeightClass};
-    $header .= pack v => $os2->{fsType};
-    $header .= pack v => 0x504C;
-    $header .= pack VVVV => map $os2->{$_}, qw(ulUnicodeRange1 ulUnicodeRange2 ulUnicodeRange3 ulUnicodeRange4);
-    $header .= pack VV => map $os2->{$_}, qw(ulCodePageRange1 ulCodePageRange2);
-    $header .= pack V => $font->{head}{checkSumAdjustment};
-    $header .= pack VVVV => 0, 0, 0, 0;
-    $header .= pack v => 0;
-    $header .= pack 'v/a*' => encode 'utf-16le' => $font->{name}->find_name(1); # family name
-    $header .= pack v => 0;
-    $header .= pack 'v/a*' => encode 'utf-16le' => $font->{name}->find_name(2); # style name
-    $header .= pack v => 0;
-    $header .= pack 'v/a*' => encode 'utf-16le' => $font->{name}->find_name(5); # version name
-    $header .= pack v => 0;
-    $header .= pack 'v/a*' => encode 'utf-16le' => $font->{name}->find_name(4); # full name
-    $header .= pack v => 0;
-    $header .= pack 'v/a*' => encode 'utf-16le' => $rootString;
-
-    $out->print(pack V => 4 + length($header) + length($font_data));
-    $out->print($header);
-    $out->print($font_data);
-
-    $font->release;
-}
-
-sub extract {
-    my ($in_fn, $out_fn) = @_;
-
-    my $eot_data = do {
-        open my $fh, $in_fn or die "Failed to open $in_fn: $!";
-        binmode $fh;
-        local $/;
-        <$fh>
-    };
-
-    die "Error: EOT too small" if length $eot_data < 16;
-
-    my ($eot_size, $font_data_size, $version, $flags) = unpack VVVV => substr $eot_data, 0, 16;
-
-    die "Error: Invalid EOTSize ($eot_size, should be ".(length $eot_data).")" if $eot_size != length $eot_data;
-    die "Error: Invalid Version ($version)" if not ($version == 0x00020000 or $version == 0x00020001 or $version == 0x00020002);
-    die "Error: Can't handle compressed fonts" if $flags & TTEMBED_TTCOMPRESSED;
-
-    # Skip the header fields
-    my $rest = substr $eot_data, 16+66;
-
-    my ($family_name, $style_name, $version_name, $full_name, $rest2) = unpack 'v/a* xx v/a* xx v/a* xx v/a* a*' => $rest;
-
-    my $font_data;
-    if ($version == 0x00020000) { # not 0x00010000 - spec is wrong (http://lists.w3.org/Archives/Public/www-font/2009JulSep/0862.html)
-        $font_data = $rest2;
-    } elsif ($version == 0x00020001) {
-        my ($root, $data) = unpack 'xx v/a* a*' => $rest2;
-        $font_data = $data;
-    } elsif ($version == 0x00020002) {
-        my ($root, $root_checksum, $eudc_codepage, $signature, $eudc_flags, $eudc_font, $data)
-            = unpack 'xx v/a* V V xx v/a* V v/a* a*' => $rest2;
-        $font_data = $data;
-    }
-
-    if ($flags & TTEMBED_XORENCRYPTDATA) {
-        $font_data ^= ("\x50" x length $font_data);
-    }
-
-    open my $fh, '>', $out_fn or die "Failed to open $out_fn: $!";
-    binmode $fh;
-    print $fh $font_data;
-}
-
-# sub rootStringChecksum {
-#     my $s = 0;
-#     $s += $_ for unpack 'C*', $_[0];
-#     return $s ^ 0x50475342;
-# }
-
-1;