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

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

version 1.42, 2005/02/09 15:45:19 version 1.46, 2005/02/24 05:26:00
Line 36 Line 36
 # The C source of the Code may not be distributed by the Licensee  # The C source of the Code may not be distributed by the Licensee
 # to any other parties under any circumstances.  # to any other parties under any circumstances.
 #  #
 # 05/29/00,05/30,10/11,10/20 Gerd Kortemeyer  
 # 5/4 Gerd Kortemeyer  
   
 package Apache::lontexconvert;  package Apache::lontexconvert;
   
Line 112  sub convert_real { Line 110  sub convert_real {
  $errorstring.=&tth::ttherror();   $errorstring.=&tth::ttherror();
  $xmlstring=~s-</font(\s*)>-</font>-g;   $xmlstring=~s-</font(\s*)>-</font>-g;
     }      }
     $xmlstring=~s/\s*\<br clear\=\"all\"/\<br/s;      $xmlstring=~s/^\s*\<br clear\=\"all\"/\<br/s;
     $xmlstring=~s/^\s*//;      $xmlstring=~s/^\s*//;
     $xmlstring=~s/\s*$//;      $xmlstring=~s/\s*$//;
     alarm(0);      alarm(0);
Line 214  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)=@_;
   
       #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.42  
changed lines
  Added in v.1.46

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