use strict;
use POSIX;
use IO::File;
+use Getopt::Long;
-our @rulespath=('.');
+our $package='xfonts-traditional';
+our $sharedir="/usr/share/$package";
+our @rulespath;
+our $mode;
sub loadrules ($) {
my ($key) = @_;
die unless $state eq 'idle';
}
-processbdf((new IO::File '<&STDIN'),
- (new IO::File '>&STDOUT'));
+our (@options)=(
+ 'R|rules-include=s@' => \@rulespath,
+ 'share-dir=s' => \$sharedir,
+ );
+sub define_mode ($$) {
+ my ($optname,$f) = @_;
+ push @options, $optname, sub {
+ die "only one mode may be specified\n" if defined $mode;
+ $mode=$f;
+ };
+}
+
+define_mode('bdf-filter', sub {
+ die if @ARGV;
+
+ processbdf((new IO::File '<&STDIN'),
+ (new IO::File '>&STDOUT'));
+});
+
+Getopt::Long::Configure(qw(bundling));
+GetOptions(@options) or exit 127;
+
+push @rulespath, "$sharedir/rules" unless @rulespath;
+
+die "need a mode\n" unless $mode;
+
+$mode->();
# 70 zcat /usr/share/fonts/X11/misc/6x13.pcf.gz |pcf2bdf >in.bdf
# 71 ./utility <in.bdf >out.bdf