version 1.2, 2002/07/18 14:58:03
|
version 1.5, 2002/07/25 15:19:03
|
Line 60 if ( defined ( $ARGV[2] ) ) # override e
|
Line 60 if ( defined ( $ARGV[2] ) ) # override e
|
$epssource = $ARGV[2]; |
$epssource = $ARGV[2]; |
} |
} |
|
|
mkdir $tmpdir; |
my $redir = ">& /dev/null"; # empty this for easier debugging |
|
|
|
mkdir $tmpdir, 0755; |
|
|
print "Converting texxml to tex...\n"; |
print "Converting texxml to tex...\n"; |
system ( "perl texxml2latex.pl $fileroot.texxml > $tmpdir/$fileroot.tex" ); |
system ( "perl texxml2latex.pl $fileroot.texxml > $tmpdir/$fileroot.tex" ); |
Line 68 system ( "perl texxml2latex.pl $fileroot
|
Line 70 system ( "perl texxml2latex.pl $fileroot
|
print "Copying .eps files...\n"; |
print "Copying .eps files...\n"; |
system ( "cp $epssource/* $tmpdir/" ); |
system ( "cp $epssource/* $tmpdir/" ); |
|
|
|
# \scrollmode\input causes LaTeX to not stop on errors |
print "Running Latex...\n"; |
print "Running Latex...\n"; |
system ( "cd $tmpdir; latex $fileroot >& /dev/null; latex $fileroot >& /dev/null; latex $fileroot >& /dev/null; " ); |
system ( "cd $tmpdir; echo | latex $fileroot $redir; echo | latex $fileroot $redir; echo | latex $fileroot\ $redir; " ); |
|
|
print "Running dvips...\n"; |
print "Running dvips...\n"; |
system ( "cd $tmpdir; dvips -f $fileroot.dvi > $fileroot.ps >& /dev/null " ); |
system ( "cd $tmpdir; dvips -f $fileroot.dvi > $fileroot.ps $redir " ); |
|
|
print "Copying ps file...\n"; |
print "Copying ps file...\n"; |
system ( "cp $tmpdir/$fileroot.ps ."); |
system ( "cp $tmpdir/$fileroot.ps ."); |
|
|
print "Clearing temp directory...\n"; |
print "Clearing temp directory...\n"; |
system ( "rm -rf $tmpdir" ); |
#system ( "rm -rf $tmpdir" ); |
|
|
print "$fileroot.ps is ready, if all went well.\n"; |
if ( -e $fileroot . ".ps" ) |
|
{ |
|
print "$fileroot.ps is ready.\n"; |
|
} |
|
else |
|
{ |
|
print "Generationr of $fileroot.ps failed.\n"; |
|
} |