[system] / trunk / pg / lib / Parser / Complex.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Parser/Complex.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 5508 Revision 5509
18 if (scalar(@{$value}) != 2); 18 if (scalar(@{$value}) != 2);
19 $num = bless { 19 $num = bless {
20 value => $value, type => $Value::Type{complex}, isConstant => 1, 20 value => $value, type => $Value::Type{complex}, isConstant => 1,
21 ref => $ref, equation => $equation, 21 ref => $ref, equation => $equation,
22 }, $class; 22 }, $class;
23 $num->weaken;
23 my $z = $self->Package("Complex",$context)->make($context,@{$value}); 24 my $z = $self->Package("Complex",$context)->make($context,@{$value});
24 $num->{isOne} = 1 if ($z cmp 1) == 0; 25 $num->{isOne} = 1 if ($z cmp 1) == 0;
25 $num->{isZero} = 1 if $z == 0; 26 $num->{isZero} = 1 if $z == 0;
26 return $num; 27 return $num;
27} 28}

Legend:
Removed from v.5508  
changed lines
  Added in v.5509

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9