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

Diff for /loncom/xml/algebra/AlgParser.pm between versions 1.8 and 1.9

version 1.8, 2005/02/24 08:34:52 version 1.9, 2005/02/24 09:06:14
Line 39  $close{'('} = ')'; Line 39  $close{'('} = ')';
   
 my $binoper3 = '(?:\\^|\\*\\*)';  my $binoper3 = '(?:\\^|\\*\\*)';
 my $binoper2 = '[/*_,]';  my $binoper2 = '[/*_,]';
 my $binoper1 = '[-+=><%!#]';  my $binoper1 = '(?:<>|<=|>=|[-+=><%!])';
 my $openparen = '[{(\\[]';  my $openparen = '[{(\\[]';
 my $closeparen = '[})\\]]';  my $closeparen = '[})\\]]';
 my $varname = '[A-Za-z](?:_[0-9]+)?';  my $varname = '[A-Za-z](?:_[0-9]+)?';
Line 534  sub tolatex { Line 534  sub tolatex {
   /binop1/ && do {    /binop1/ && do {
     my ($p1, $p2) = ('','');      my ($p1, $p2) = ('','');
     if ($args[2]->[0] eq 'binop1') {($p1,$p2)=qw{ \left( \right) };}      if ($args[2]->[0] eq 'binop1') {($p1,$p2)=qw{ \left( \right) };}
     return ($args[1]->tolatex() . $args[0] . $p1 .      my $cmd=$args[0];
       if    ($args[0] eq '<>') { $cmd='\\not= '; }
       elsif ($args[0] eq '<=') { $cmd='\\leq ';  }
       elsif ($args[0] eq '>=') { $cmd='\\geq ';  }
       return ($args[1]->tolatex() . $cmd . $p1 .
             $args[2]->tolatex() . $p2);              $args[2]->tolatex() . $p2);
   };    };
   /unop1/ && do {    /unop1/ && do {
Line 566  sub tolatex { Line 570  sub tolatex {
                '{' . $args[2]->tolatex() . '}' );                  '{' . $args[2]->tolatex() . '}' ); 
     }      }
     elsif ($args[0] eq '*'){      elsif ($args[0] eq '*'){
 # return('\frac{' . $p1 . $args[1]->tolatex() . $p2 . '}'.  
 #               '{' . $p3 . $args[2]->tolatex() . $p4 . '}' );  
  return($args[1]->tolatex() . '\cdot ' . $args[2]->tolatex() );    return($args[1]->tolatex() . '\cdot ' . $args[2]->tolatex() ); 
     }      }
     else{      else{
Line 626  sub tolatex { Line 628  sub tolatex {
   };    };
   /closep/ && do {    /closep/ && do {
     my($backslash) = '';      my($backslash) = '';
     my(%close) = %AlgParser::close;  
     if ($args[0] eq '{') {$backslash = '\\';}      if ($args[0] eq '{') {$backslash = '\\';}
 #This is for editors to match: }  #This is for editors to match: }
     return ('\left' . $backslash . $args[0] . $args[1]->tolatex() .      return ('\left' . $backslash . $args[0] . $args[1]->tolatex() .
Removed from v.1.8  
changed lines
  Added in v.1.9

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