[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.14 and 1.15

version 1.14, 2005/06/09 02:35:55 version 1.15, 2006/03/13 19:23:46
Line 482  sub tostring { Line 482  sub tostring {
 # print STDERR Data::Dumper->Dump([@_]);  # print STDERR Data::Dumper->Dump([@_]);
   my($self) = shift;    my($self) = shift;
   my($type, @args) = @$self;    my($type, @args) = @$self;
   
   local $_;    local $_;
   $_ = $type;    $_ = $type;
   /binop1/ && do {    /binop1/ && do {
     my ($p1, $p2) = ('','');      my ($p1, $p2) = ('','');
     if ($args[2]->[0] eq 'binop1') {($p1,$p2)=qw{ ( ) };}      if ($args[2]->[0] eq 'binop1') {($p1,$p2)=qw{ [ ] };}
     return ($args[1]->tostring() . $args[0] . $p1 .      return ($args[1]->tostring() . $args[0] . $p1 .
             $args[2]->tostring() . $p2);              $args[2]->tostring() . $p2);
   };    };
   /unop1/ && do {    /unop1/ && do {
     my ($p1, $p2) = ('','');      my ($p1, $p2) = ('','');
     if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ ( ) };}      if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ [ ] };}
     return ($args[0] . $p1 . $args[1]->tostring() . $p2);      return ($args[0] . $p1 . $args[1]->tostring() . $p2);
   };    };
   /binop2/ && do {    /binop2/ && do {
     my ($p1, $p2, $p3, $p4)=('','','','');      my ($p1, $p2, $p3, $p4)=('','','','');
     if ($args[0] =~ /implicit/) {$args[0] = ' ';}      if ($args[0] =~ /implicit/) {$args[0] = ' ';}
     if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ ( ) };}      if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ [ ] };}
 #    if ($args[2]->[0] =~ /binop[12]/) {($p3,$p4)=qw{ ( ) };}  #    if ($args[2]->[0] =~ /binop[12]/) {($p3,$p4)=qw{ ( ) };}
     if ($args[2]->[0] =~ /binop[12]|unop1/) {($p3,$p4)=qw{ ( ) };}      if ($args[2]->[0] =~ /binop[12]|unop1/) {($p3,$p4)=qw{ ( ) };}
     return ($p1 . $args[1]->tostring() . $p2 . $args[0] . $p3 .      return ($p1 . $args[1]->tostring() . $p2 . $args[0] . $p3 .
Line 518  sub tostring { Line 519  sub tostring {
   };    };
   /special|varname|numberE?/ && return $args[0];    /special|varname|numberE?/ && return $args[0];
   /closep/ && do {    /closep/ && do {
     my(%close) = %AlgParser::close;  
   
   
   
     return ($args[0] . $args[1]->tostring() . $close{$args[0]});      return ($args[0] . $args[1]->tostring() . $close{$args[0]});
   };    };
Line 529  sub tostring { Line 527  sub tostring {
 sub tolatex {  sub tolatex {
   my($self) = shift;    my($self) = shift;
   my($type, @args) = @$self;    my($type, @args) = @$self;
   
   local $_;    local $_;
   $_ = $type;    $_ = $type;
   /binop1/ && do {    /binop1/ && do {
Line 551  sub tolatex { Line 550  sub tolatex {
     if ($args[0] eq '/'){      if ($args[0] eq '/'){
  return('\frac{'.$lop.'}{'.$rop.'}');   return('\frac{'.$lop.'}{'.$rop.'}');
     }      }
     elsif ($args[0] eq '*'){      my $op = $args[0];
  return($lop. '\cdot ' .$rop);       if ($args[0] eq '*'){
    $op = '\cdot ';
     }      }
     else{      $lop = '\left('.$lop.'\right)' if ($args[1]->[0] =~ /binop1|numberE/);
  $lop = '\left('.$lop.'\right)' if ($args[1]->[0] =~ /binop1|numberE/);      $rop = '\left('.$rop.'\right)' if ($args[2]->[0] =~ /binop[12]|numberE|unop1/);
  $rop = '\left('.$rop.'\right)' if ($args[2]->[0] =~ /binop[12]|numberE|unop1/);      if ($args[0] =~ /implicit/) {
  if ($args[0] =~ /implicit/) {   $op = ($lop =~ m/[.0-9]$/ && $rop =~ m/^[-+.0-9]/) ? '\cdot ' : ' ';
     $args[0] = ($lop =~ m/[.0-9]$/ && $rop =~ m/^[-+.0-9]/) ? '\cdot ' : ' ';  
  }  
  return ($lop.$args[0].$rop);  
     }      }
       return ($lop.$op.$rop);
   
   };    };
   /binop3/ && do {    /binop3/ && do {
     my ($p1, $p2, $p3, $p4)=('','','','');      my ($p1, $p2, $p3, $p4)=('','','','');
Line 626  sub tolatex { Line 625  sub tolatex {
   /closep/ && do {    /closep/ && do {
     my($backslash) = '';      my($backslash) = '';
     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() .
             '\right' . $backslash . $close{$args[0]});              '\right' . $backslash . $close{$args[0]});
   };    };
Removed from v.1.14  
changed lines
  Added in v.1.15

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