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

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

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

Revision 5508 Revision 5509
19 value => $value + 0, # format the value as a number, just in case 19 value => $value + 0, # format the value as a number, just in case
20 value_string => $value, # for decimal checking, etc. 20 value_string => $value, # for decimal checking, etc.
21 type => $Value::Type{number}, isConstant => 1, 21 type => $Value::Type{number}, isConstant => 1,
22 ref => $ref, equation => $equation, 22 ref => $ref, equation => $equation,
23 }, $class; 23 }, $class;
24 $num->weaken;
24 my $x = $num->Package("Real")->make($context,$value); 25 my $x = $num->Package("Real")->make($context,$value);
25 $num->{isOne} = 1 if $x eq 1; 26 $num->{isOne} = 1 if $x eq 1;
26 $num->{isZero} = 1 if $value == 0; 27 $num->{isZero} = 1 if $value == 0;
27 return $num; 28 return $num;
28} 29}

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

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9