summaryrefslogtreecommitdiff
path: root/fonts/psfonts/tools/makemptm.pl
blob: 82080c8fe1d4ddd5a7f1aa457f5e19e98b22346a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
#!/usr/bin/perl
use English;
use Getopt::Long;
use File::Basename;
use Cwd;
require "famtool.pl";
$opt_debug=0;
$result = GetOptions (
"debug!",   
"outdir=s", # [dir] specifies where the results are to go
"verbose!", # be chatty
    );

if ($result eq 0 ) {  die ("OPTION FAILURE"); }
if ($opt_debug) { $opt_verbose=1;}

&Setup(ptm);
if (&IsWin32) {
$ENV{TFMFONTS}=".;";
$ENV{TEXINPUTS}=".;$Inidir/mathptm;$Inidir/mathptmx;";
}
else
{
$ENV{TEXINPUTS}=".:$Inidir/mathptm:$Inidir/mathptmx:";
$ENV{TFMFONTS}=".:";
}

$JOB="fontptcmx";
print "Running fontinst fontptcmx TeX job\n"  if $opt_verbose;
system("tex -ini -progname=fontinst fontptcmx");
system("pltotf psyro.pl psyro.tfm");
$JOB="fontptcm";
print "Running fontinst fontptcm TeX job\n"  if $opt_verbose;
system("tex -ini -progname=fontinst fontptcm");
&buildfilelist;
print "Installing dvips files in $Outdir/dvips\n"  if $opt_verbose;
&installDvips;
print "Installing metric files in $Outdir/tfm and vf\n"  if $opt_verbose;
print "** Making virtual fonts with vptovf\n" if $opt_verbose;
for (grep(/.*\.vpl/,@filenames)) { 
    s/.vpl//;
    my $Basename=$_;
    processVPL($Basename);
 }
 &buildfilelist;
# this is a rogue file, a nolig raw tfm
 unlink "$Outdir/tfm/pzcmi8r.tfm";
 killfiles('.*8r\.tfm') ;
 print "** Installing TFM files in $Outdir/tfm\n" if $opt_verbose;
 for (grep(/.*\.tfm/,@filenames)) { 
 print "Installing $_ \n" if $opt_verbose;
 if (! -r "$Outdir/tfm/$_") { system("mv $_ $Outdir/tfm") ;  }
  }
 print "** Installing VF files in $Outdir/vf\n" if $opt_verbose;
 for (grep(/.*\.vf/,@filenames)) {
  print "Installing $_ \n" if $opt_verbose;
  if (! -r "$Outdir/vf/$_") { system("mv $_ $Outdir/vf") ; }
 }
print "Installing LaTeX files in $Outdir/tex\n"  if $opt_verbose;
for (grep(/.*\.fd/,@filenames)) { 
   if (! -r "$Outdir/tex/$_") { system("cp $_ $Outdir/tex") ; }
  }


&Cleanup;

&remove_duplicates("$Outdir/dvips/ptm.map");
&remove_duplicates("$Outdir/dvips/config.ptm");
print "Done\n" if $opt_verbose;
#-------------------------------------------------------------------

sub IsWin32 {
    return $^O =~ 'MSWin32';
}