… | |
… | |
28 | } |
28 | } |
29 | my $BOP = bless { |
29 | my $BOP = bless { |
30 | bop => $bop, lop => $lop, rop => $rop, |
30 | bop => $bop, lop => $lop, rop => $rop, |
31 | def => $def, ref => $ref, equation => $equation, |
31 | def => $def, ref => $ref, equation => $equation, |
32 | }, $def->{class}; |
32 | }, $def->{class}; |
|
|
33 | $BOP->weaken; |
33 | $BOP->{isConstant} = 1 if ($lop->{isConstant} && $rop->{isConstant}); |
34 | $BOP->{isConstant} = 1 if ($lop->{isConstant} && $rop->{isConstant}); |
34 | $BOP->_check; |
35 | $BOP->_check; |
35 | $BOP = $BOP->Item("Value")->new($equation,[$BOP->eval]) |
36 | $BOP = $BOP->Item("Value")->new($equation,[$BOP->eval]) |
36 | if $BOP->{isConstant} && !$def->{isComma} && $context->flag('reduceConstants'); |
37 | if $BOP->{isConstant} && !$def->{isComma} && $context->flag('reduceConstants'); |
37 | return $BOP; |
38 | return $BOP; |