[BACK]Return to lontexconvert.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lontexconvert.pm between versions 1.45 and 1.46

version 1.45, 2005/02/24 01:25:05 version 1.46, 2005/02/24 05:26:00
Line 215  sub msgtexconverted { Line 215  sub msgtexconverted {
 sub algebra {  sub algebra {
     my ($string,$target)=@_;      my ($string,$target)=@_;
     my $parser = new AlgParserWithImplicitExpand;      my $parser = new AlgParserWithImplicitExpand;
       $string=&prepare_algebra($string);
     my $ret = $parser->parse($string);      my $ret = $parser->parse($string);
     my $result='['.&mt('Algebra unconverted due to previous errors').']';      my $result='['.&mt('Algebra unconverted due to previous errors').']';
     if ( ref($ret) ) {      if ( ref($ret) ) {
  $parser->tostring();   $parser->tostring();
  $parser->normalize();   $parser->normalize();
  my $latex=$parser->tolatex();   my $latex=$parser->tolatex();
    $latex=&postprocess_algebra($string);
  $latex='$'.$latex.'$';   $latex='$'.$latex.'$';
  if ($target eq 'web' || $target eq 'analyze') {   if ($target eq 'web' || $target eq 'analyze') {
     $result = &converted(\$latex);      $result = &converted(\$latex);
Line 232  sub algebra { Line 234  sub algebra {
     }      }
 }  }
   
   sub prepare_algebra {
       my ($string)=@_;
   
       #protect the confusable greek symbols
       $string =~ s/delta/zdelta/g;
       $string =~ s/beta/bita/g;
       $string =~ s/theta/thita/g;
       $string =~ s/zeta/zita/g;
       $string =~ s/eta/xeta/g;
       $string =~ s/epsilon/zepslon/g;
       $string =~ s/upsilon/zupslon/g;
     
       return $string;
   }
   
   sub postprocess_algebra {
       my ($string)=@_;
   
       # replace some special symbols with the LaTeX equivalents
       $string =~ s/infty/\\infty/g;
       $string =~ s/infinity/\\infty/g;
       $string =~ s/alpha/\\alpha/g;  
       $string =~ s/gamma/\\gamma/g; 
       $string =~ s/iota/\\iota/g;
       $string =~ s/kappa/\\kappa/g;
       $string =~ s/lambda/\\lambda/g;
       $string =~ s/mu/\\mu/g;
       $string =~ s/nu/\\nu/g;
       $string =~ s/xi/\\xi/g;
       $string =~ s/rho/\\rho/g;
       $string =~ s/sigma/\\sigma/g;
       $string =~ s/tau/\\tau/g;
       $string =~ s/phi/\\phi/g;
       $string =~ s/chi/\\chi/g;
       $string =~ s/psi/\\psi/g;
       $string =~ s/omega/\\omega/g;
       $string =~ s/zdelta/\\delta/g;
       $string =~ s/bita/\\beta/g;
       $string =~ s/thita/\\theta/g;
       $string =~ s/zita/\\zeta/g;
       $string =~ s/xeta/\\eta/g;
       $string =~ s/zepslon/\\epsilon/g;
       $string =~ s/zupslon/\\upsilon/g;
   
       return $string;
   }
 1;  1;
 __END__  __END__
   
Removed from v.1.45  
changed lines
  Added in v.1.46

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