Lines 119-124
Link Here
|
119 |
require 5.000; |
119 |
require 5.000; |
120 |
# use strict; |
120 |
# use strict; |
121 |
use File::Find; |
121 |
use File::Find; |
|
|
122 |
use File::Temp qw(tempfile); |
122 |
use Getopt::Long; |
123 |
use Getopt::Long; |
123 |
|
124 |
|
124 |
######################################################################## |
125 |
######################################################################## |
Lines 270-287
Link Here
|
270 |
my @tfm = @_; |
271 |
my @tfm = @_; |
271 |
# Prepare a fake temporary PL file |
272 |
# Prepare a fake temporary PL file |
272 |
# (/dev/null won't do, because the font must not be empty): |
273 |
# (/dev/null won't do, because the font must not be empty): |
273 |
my ($pl) = "/tmp/feynmf$$.pl"; |
|
|
274 |
my ($tfm); |
274 |
my ($tfm); |
275 |
$pltotf_prog |
275 |
$pltotf_prog |
276 |
or die "feynmf: fatal: pltopf programm required unless -notfm\n"; |
276 |
or die "feynmf: fatal: pltopf programm required unless -notfm\n"; |
277 |
open (PL, ">$pl") or die "feynmf: can't open temporary file $pl: $!\n"; |
277 |
my ($PL, $pl) = tempfile("/tmp/feynmfXXXXXX", SUFFIX => ".pl"); |
|
|
278 |
$PL or die "feynmf: can't open temporary file: $!\n"; |
278 |
push @temporay_files, $pl; |
279 |
push @temporay_files, $pl; |
279 |
print PL <<__END_PL__; |
280 |
print $PL <<__END_PL__; |
280 |
(FAMILY FEYNMF) |
281 |
(FAMILY FEYNMF) |
281 |
(DESIGNSIZE R 10.0) |
282 |
(DESIGNSIZE R 10.0) |
282 |
(CHARACTER D 1 (CHARWD R 10.0) (CHARHT R 10.0)) |
283 |
(CHARACTER D 1 (CHARWD R 10.0) (CHARHT R 10.0)) |
283 |
__END_PL__ |
284 |
__END_PL__ |
284 |
close (PL); |
285 |
close ($PL); |
285 |
foreach $tfm (@tfm) { |
286 |
foreach $tfm (@tfm) { |
286 |
maybe_run "$pltotf_prog $pl $tfm.tfm" unless -r "$tfm.tfm"; |
287 |
maybe_run "$pltotf_prog $pl $tfm.tfm" unless -r "$tfm.tfm"; |
287 |
} |
288 |
} |