[BACK]Return to render.texxml.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / help

Diff for /doc/help/render.texxml.pl between versions 1.6 and 1.15

version 1.6, 2002/07/30 18:24:44 version 1.15, 2003/09/02 18:29:58
Line 59  if (substr($fileroot, -7) eq ".texxml") Line 59  if (substr($fileroot, -7) eq ".texxml")
     $fileroot = substr($fileroot, 0, -7);      $fileroot = substr($fileroot, 0, -7);
 }  }
   
 my $epssource = "/home/httpd/html/adm/help/eps";  my $epssource = "../../loncom/html/adm/help/eps";
   
 if ( defined ( $ARGV[2] ) ) # override eps source, for build on install  if ( defined ( $ARGV[2] ) ) # override eps source, for build on install
 {  {
     $epssource = $ARGV[2];      $epssource = $ARGV[2];
 }  }
   
 my $redir = ">& /dev/null"; # empty this for easier debugging  #my $redir = ">& /dev/null"; # empty this for easier debugging
   my $redir = ">> /home/jerf/error_log.txt";
   
 mkdir $tmpdir, 0755;  mkdir $tmpdir, 0755;
   
 print "Converting texxml to tex...\n";  print "Converting texxml to tex...\n";
 system ( "perl texxml2latex.pl $fileroot.texxml > $tmpdir/$fileroot.tex" );  if (system ( "perl texxml2latex.pl $fileroot.texxml > $tmpdir/$fileroot.tex" )) {
       $! = 1;
       die "Terminated render because texxml2latex failed; see previous error message.";
   };
   
 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; echo | latex $fileroot $redir; echo | latex $fileroot $redir; echo | latex $fileroot\ $redir; " );  system ( "cd $tmpdir; echo | latex $fileroot $redir; echo | latex $fileroot $redir; makeindex $fileroot.idx; echo | latex $fileroot\ $redir; " );
   
 print "Running dvips...\n";  print "Running dvips...\n";
 system ( "cd $tmpdir; dvips -f $fileroot.dvi > $fileroot.ps $redir " );  system ( "cd $tmpdir; dvips -Ppdf -G0 -f $fileroot.dvi > $fileroot.ps  " );
   
 print "Copying ps file...\n";  print "Copying ps file...\n";
 system ( "cp $tmpdir/$fileroot.ps .");  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";  print "Clearing temp directory...\n";
 #system ( "rm -rf $tmpdir" );  system ( "rm -rf $tmpdir" );
   
 if ( -e $fileroot . ".ps" )  if ( -e $fileroot . ".ps" )
 {  {
     print "$fileroot.ps is ready.\n";      print "$fileroot.ps and $fileroot.pdf are ready.\n";
 }  }
 else  else
 {  {
Removed from v.1.6  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>