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

Diff for /loncom/xml/lontexconvert.pm between versions 1.43 and 1.47

version 1.43, 2005/02/11 16:46:38 version 1.47, 2005/02/24 05:33:55
Line 212  sub msgtexconverted { Line 212  sub msgtexconverted {
     }      }
 }  }
   
   sub algebra {
       my ($string,$target)=@_;
       my $parser = new AlgParserWithImplicitExpand;
       $string=&prepare_algebra($string);
       my $ret = $parser->parse($string);
       my $result='['.&mt('Algebra unconverted due to previous errors').']';
       if ( ref($ret) ) {
    $parser->tostring();
    $parser->normalize();
    my $latex=$parser->tolatex();
    $latex=&postprocess_algebra($string);
    $latex='$'.$latex.'$';
    if ($target eq 'web' || $target eq 'analyze') {
       $result = &converted(\$latex);
    } else {
       $result = $latex;
    }
       } else {
    &Apache::lonxml::error($parser->{'htmlerror'});
       }
   }
   
   sub prepare_algebra {
       my ($string)=@_;
   
       # change some multi character operators into single character operators
       $string =~ s/<>/\#/g;
       $string =~ s/<\=/\%/g;
       $string =~ s/>\=/\!/g;
       
       #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)=@_;
   
       # exapnd out some operators
       $string =~ s/\#/\\not= /g;
       $string =~ s/\%/\\leq /g;
       $string =~ s/\!/\\geq /g;
   
       # 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.43  
changed lines
  Added in v.1.47

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