good pdf, some general updates

[librarian.git] / librarian / font-optimizer / convert-eot.pl

diff --git a/librarian/font-optimizer/convert-eot.pl b/librarian/font-optimizer/convert-eot.pl
new file mode 100755 (executable)
index 0000000..a5a1672
--- /dev/null
+++ b/librarian/font-optimizer/convert-eot.pl
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use lib 'ext/Font-TTF/lib';
+use Font::TTF::Font;
+use Font::EOTWrapper;
+
+use Getopt::Long;
+
+main();
+
+sub help {
+    print <<EOF;
+Convert between TTF and EOT. (Compressed EOTs are not supported.)
+
+Usage:
+  $0 [options] [inputfile] [outputfile]
+
+Options:
+  --ttf-to-eot    Convert input from TTF to EOT
+  --eot-to-ttf    Convert input from EOT to TTF
+EOF
+    exit 1;
+}
+
+sub main {
+    my $verbose = 0;
+    my $ttf_to_eot;
+    my $eot_to_ttf;
+
+    my $result = GetOptions(
+        'verbose' => \$verbose,
+        'ttf-to-eot' => \$ttf_to_eot,
+        'eot-to-ttf' => \$eot_to_ttf,
+    ) or help();
+
+    @ARGV == 2 or help();
+
+    my ($input_file, $output_file) = @ARGV;
+
+    if ($ttf_to_eot and $eot_to_ttf) {
+        help();
+    }
+
+    if (not ($ttf_to_eot or $eot_to_ttf)) {
+        if ($input_file =~ /\.[ot]tf$/i and $output_file =~ /\.eot$/i) {
+            $ttf_to_eot = 1;
+        } elsif ($input_file =~ /\.eot$/i and $output_file =~ /\.[ot]tf$/i) {
+            $eot_to_ttf = 1;
+        } else {
+            help();
+        }
+    }
+
+    if ($ttf_to_eot) {
+        Font::EOTWrapper::convert($input_file, $output_file);
+    } elsif ($eot_to_ttf) {
+        Font::EOTWrapper::extract($input_file, $output_file);
+    }
+}