#!/usr/bin/perl
#
# usage: ttfcat ttf type1 type2 ...
#
# dump a specified table in the given ttf file.
#
#	2002/2/3, by 1@2ch
#	* public domain *
#

require 'lib_util.pl';
require 'lib_ttfdir.pl';

sub usage {
    print "usage: $0 ttffile type1 type2 ...\n";
    exit 1;
}

$ttf = shift(@ARGV) || &usage();


ropen($ttf);
ttf_readdir_from_ttf();
wopen("&STDOUT");
foreach my $i (@ARGV) {
    ttf_cat_type($i);
}
