X-Git-Url: https://git.mdrn.pl/librarian.git/blobdiff_plain/2ada86c7bb585d419b95c95ce42d5b7a9fa45475..fefdce4e24f9e397df5538fe6e7f54b5ece4d841:/librarian/font-optimizer/list-features.pl

diff --git a/librarian/font-optimizer/list-features.pl b/librarian/font-optimizer/list-features.pl
deleted file mode 100755
index 3264a48..0000000
--- a/librarian/font-optimizer/list-features.pl
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use lib 'ext/Font-TTF/lib';
-use Font::TTF::Font;
-
-use Getopt::Long;
-
-main();
-
-sub help {
-    print <<EOF;
-Lists GSUB/GPOS features in a font.
-
-Usage:
-  $0 [options] [inputfile.ttf]
-
-Options:
-  (None)
-EOF
-    exit 1;
-}
-
-sub main {
-    my $verbose = 0;
-
-    my $result = GetOptions(
-    ) or help();
-
-    @ARGV == 1 or help();
-
-    my ($input_file) = @ARGV;
-
-    my $font = Font::TTF::Font->open($input_file) or die "Error opening $input_file: $!";
-
-    my %feats;
-    my @feats;
-    for my $table (grep defined, $font->{GPOS}, $font->{GSUB}) {
-        $table->read;
-        for my $feature (@{$table->{FEATURES}{FEAT_TAGS}}) {
-            $feature =~ /^(\w{4})( _\d+)?$/ or die "Unrecognised feature tag syntax '$feature'";
-            my $tag = $1;
-            next if $feats{$tag}++;
-            push @feats, $tag;
-        }
-    }
-    print map "$_\n", @feats;
-
-    $font->release;
-}