diff options
| author | Hans Hagen <pragma@wxs.nl> | 2003-03-09 00:00:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2003-03-09 00:00:00 +0100 |
| commit | 53ce0dd521f2b963dade4e19d4ee386cef29289b (patch) | |
| tree | 75e145c421aecefd3773b1a7d164909667d4f486 /context/perltk/texexec.pl | |
| parent | 5dcd64b5b404b7dec26fecfd76f8cf25a885ab13 (diff) | |
| download | context-53ce0dd521f2b963dade4e19d4ee386cef29289b.tar.gz | |
stable 2003.03.09
Diffstat (limited to 'context/perltk/texexec.pl')
| -rw-r--r-- | context/perltk/texexec.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/context/perltk/texexec.pl b/context/perltk/texexec.pl index f2e2351f3..839394e15 100644 --- a/context/perltk/texexec.pl +++ b/context/perltk/texexec.pl @@ -1505,7 +1505,8 @@ sub RunConTeXtFile if ($DummyFile) { open (TMP,">$JobName.run") ; # if ($JobSuffix =~ /(xml|xsd|exa|rng)/io) - if ($JobSuffix =~ /xml/io) + # if ($JobSuffix =~ /xml/io) + if (($JobSuffix =~ /xml/io)||$ForceXML) { if ($Filters ne "") { print " using xml filters : $Filters\n" } print TMP "\\starttext\n" ; @@ -1513,7 +1514,7 @@ sub RunConTeXtFile print TMP "\\stoptext\n" } else { print TMP "\\starttext\n" ; - print TMP "\\processfile{$JobName}\n" ; + print TMP "\\processfile{$JobName.$JobSuffix}\n" ; print TMP "\\stoptext\n" } close (TMP) ; $JobSuffix = "run" } @@ -1682,7 +1683,7 @@ sub DoRunModule sub RunFigures { my @Files = @_ ; $TypesetFigures = lc $TypesetFigures ; - return unless ($TypesetFigures =~ /[abc]/o) ; + return unless ($TypesetFigures =~ /[abcd]/o) ; unlink "$FiguresFile.pdf" ; if (@Files) { RunPerlScript ($TeXUtil, "--figures @Files" ) } open (FIG, ">$FiguresFile.tex") ; |