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';
}
|