diff options
| author | Hans Hagen <pragma@wxs.nl> | 2002-05-15 00:00:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2002-05-15 00:00:00 +0200 |
| commit | eec06cd3ed759e8101b6cafa16d46884e479a4f6 (patch) | |
| tree | 07d5af570abdb3dd80d37e74bba1a0759855557d /context/perltk/texexec.pl | |
| parent | 64f02e3e5cbd20af19a0089553db5ee5c7d5eca1 (diff) | |
| download | context-eec06cd3ed759e8101b6cafa16d46884e479a4f6.tar.gz | |
stable 2002.05.15
Diffstat (limited to 'context/perltk/texexec.pl')
| -rw-r--r-- | context/perltk/texexec.pl | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/context/perltk/texexec.pl b/context/perltk/texexec.pl index f2db16a90..e020cddcd 100644 --- a/context/perltk/texexec.pl +++ b/context/perltk/texexec.pl @@ -792,9 +792,9 @@ sub MPJobName { my $JobName = shift ; my $MPfile = shift ; my $MPJobName = '' ; - if (-s "$JobName-$MPfile.mp">100) + if (-s "$JobName-$MPfile.mp">50) { $MPJobName = "$JobName-$MPfile.mp" } - elsif (-s "$MPfile.mp">100) + elsif (-s "$MPfile.mp">50) { $MPJobName = "$MPfile.mp" } else { $MPJobName = "" } @@ -804,12 +804,14 @@ sub RunPerlScript { my ($ScriptName, $Options) = @_ ; if ($dosish) # { if (-e "$TeXScriptsPath$ScriptName.pl") - { if (-e "$TeXScriptsPath$ScriptName$own_type") + { # print "$TeXScriptsPath$ScriptName$own_type" ; + if (-e "$TeXScriptsPath$ScriptName$own_type") # { system ("perl $TeXScriptsPath$ScriptName.pl $Options") } } { system ("$own_stub$TeXScriptsPath$ScriptName$own_type $Options") } } else { system ("$ScriptName $Options") } } + sub ConvertXMLFile { my $FileName = shift ; RunPerlScript($SGMLtoTeX, "$FileName.xml") } @@ -839,7 +841,9 @@ sub CheckOutputFormat sub MakeOptionFile { my ($FinalRun, $FastDisabled, $JobName, $JobSuffix) = @_ ; - open (OPT, ">$JobName.top") ; + unless (open (OPT, ">$JobName.top")) + { print " problem with writing : $JobName.top\n" ; + open (OPT, ">$JobName-opt.log") } print OPT "\\unprotect\n" ; if ($Result) # no '' test { print OPT "\\setupsystem[file=$Result]\n" } @@ -1321,7 +1325,7 @@ sub RunConTeXtFile if ($Mode) { print " current mode : $Mode\n" } else - { print " current mode : all\n" } + { print " current mode : none\n" } if ($Arguments) { print " arguments : $Arguments\n" } if ($Modules) |