#!/tool/bin/perl
#
# This script converts an Adobe Font Metric file for a special font to
# TeX font metric, and installs it in a distribution directory. It uses
# afm2tfm.
#
# (c) Sebastian Rahtz June 6th 1994 
#  revised December 11 1995
#  converted to Perl January 23rd 1997
#
$filedate="1997/02/09";
$fileversion="1.1";
use English;
use Getopt::Long;
use File::Basename;
use Cwd;
require "famtool.perl";
$opt_debug=0;
$result = GetOptions (
"debug!",   
"download!",# means that the lines written to psfonts.<family> have "<thisfont"
"outdir=s", # [dir] specifies where the results are to go
"fdcode=s", # extra FD code
"texmf=s",  # the root of the TDS hierarchy
"tetex!",   # use original teTeX kpse commands
"verbose!", # be chatty
    );

if ($result eq 0 ) {  die ("OPTION FAILURE"); }
if ($opt_debug) { $opt_verbose=1;}
die "[makeone] Usage: makeone [options] thisfont\n"  unless @ARGV > 0;

# Parameters:
# $1 The font name, eg psyr
$thisfont=$ARGV[0];
&Setup($thisfont);
#
if ($opt_tetex) 
   { $AFMfile=`kpsewhich tex $thisfont.afm 2> /dev/null`; }
else
   { $AFMfile=`kpsewhich $thisfont.afm 2> /dev/null`; }
chop($AFMfile);
if ($AFMfile eq "") { die "cannot find $thisfont.afm"; }
system("afm2tfm $AFMfile $thisfont.tfm > /dev/null");
$FontName=&readAFMfile($AFMfile);
open(MAP,">$Outdir/dvips/$Famcode.map");
print MAP "$thisfont $FontName ";
if ($opt_download) { print MAP " <$thisfont.pfb"; }
print MAP "\n";
close(MAP);
open CONFIG,">$Outdir/dvips/config.$Famcode";
print CONFIG  "p +$Famcode.map\n" ;
close CONFIG;
open (FD,">$Outdir/tex/u$Famcode.fd");
print FD "\\ProvidesFile{u$Famcode.fd}\n";
print FD "  [$year/$mon/$mday font definitions for U/$Famcode.]\n";
print FD "\\DeclareFontFamily{U}{$Famcode}{}\n";
print FD "\\DeclareFontShape{U}{$Famcode}{m}{n}{<->$thisfont}{}\n" ;
print FD "\\endinput\n";
close FD;
print "Installing metric files in $Outdir/tfm and vf\n"  if $opt_verbose;
&installMetrics;
rmdir("$Outdir/vf");
chdir($Inidir);
if ($opt_debug) {   print "Working files are left in /tmp/Fam_$$\n";  }
else  { system("rm -rf /tmp/Fam_$$") }
print "Done\n" if $opt_verbose;