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

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

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

Revision 5508 Revision 5509
24 $value = $def->{alias}, $def = $strings->{$value} while defined($def->{alias}); 24 $value = $def->{alias}, $def = $strings->{$value} while defined($def->{alias});
25 my $str = bless { 25 my $str = bless {
26 value => $value, type => $Value::Type{string}, isConstant => 1, 26 value => $value, type => $Value::Type{string}, isConstant => 1,
27 def => $def, ref => $ref, equation => $equation, 27 def => $def, ref => $ref, equation => $equation,
28 }, $class; 28 }, $class;
29 $str->weaken;
29 $str->{isInfinite} = 1 if ($def->{infinite}); 30 $str->{isInfinite} = 1 if ($def->{infinite});
30 $str->{isInfinity} = 1 if ($def->{infinite} && !$def->{negative}); 31 $str->{isInfinity} = 1 if ($def->{infinite} && !$def->{negative});
31 $str->{isNegativeInfinity} = 1 if ($def->{infinite} && $def->{negative}); 32 $str->{isNegativeInfinity} = 1 if ($def->{infinite} && $def->{negative});
32 return $str; 33 return $str;
33} 34}

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

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9