--- doc/help/render.texxml.pl 2002/07/30 18:24:44 1.6 +++ doc/help/render.texxml.pl 2002/08/12 16:20:40 1.8 @@ -59,6 +59,12 @@ if (substr($fileroot, -7) eq ".texxml") $fileroot = substr($fileroot, 0, -7); } +if ( -e "$fileroot.pdf" ) +{ + print "$fileroot already built.\n"; + exit(); +} + my $epssource = "/home/httpd/html/adm/help/eps"; if ( defined ( $ARGV[2] ) ) # override eps source, for build on install @@ -67,6 +73,7 @@ if ( defined ( $ARGV[2] ) ) # override e } my $redir = ">& /dev/null"; # empty this for easier debugging +#$redir = ">> /home/jerf/work/loncapa/doc/help/error_log.txt"; mkdir $tmpdir, 0755; @@ -76,22 +83,24 @@ system ( "perl texxml2latex.pl $fileroot print "Copying .eps files...\n"; system ( "cp $epssource/* $tmpdir/" ); -# \scrollmode\input causes LaTeX to not stop on errors print "Running Latex...\n"; system ( "cd $tmpdir; echo | latex $fileroot $redir; echo | latex $fileroot $redir; echo | latex $fileroot\ $redir; " ); print "Running dvips...\n"; -system ( "cd $tmpdir; dvips -f $fileroot.dvi > $fileroot.ps $redir " ); +system ( "cd $tmpdir; dvips -f $fileroot.dvi > $fileroot.ps " ); print "Copying ps file...\n"; system ( "cp $tmpdir/$fileroot.ps ."); +print "Converting to PDF (may take a bit)...\n"; +system ( "ps2pdf $fileroot.ps $fileroot.pdf" ); + print "Clearing temp directory...\n"; -#system ( "rm -rf $tmpdir" ); +system ( "rm -rf $tmpdir" ); if ( -e $fileroot . ".ps" ) { - print "$fileroot.ps is ready.\n"; + print "$fileroot.ps and $fileroot.pdf are ready.\n"; } else {