#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Another wrapper because some program doesn't understand how to handle
# laods of files at once. Converts OS/2 .afm out of windoze .pfm
# 

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

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

foreach $file_name (@ARGV)
    {
	print STDERR "Processing '$file_name'\n";
	system ("pfm2afm $file_name");
    }