#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# And another program which is unable to handle multiple files at once.
# This converts a list of bdf-files to pcf-files
#

die "Usage: $0 files\n" unless($ARGV[0]);

chop ( $PWD = `pwd`);
$base_dir = $PWD;

foreach $file_name (@ARGV)
    {
	print STDERR "Processing '$file_name'\n";
	$new_file = $file_name;
	$new_file =~ s/.bdf\b/.pcf/i;
        system ("bdftopcf $file_name -o $new_file");
    }