Lines Matching refs:xs
15 # Remember not to take shortcuts ala $xs = $x->{value}; $CALC->foo($xs); since
2031 my ($x,$pad,$xs) = @_;
2092 my $xs = $CALC->_str($x->{value});
2097 $digit_round = '0'; $digit_round = substr($xs,$pl,1) if $pad <= $len;
2099 $digit_after = '0'; $digit_after = substr($xs,$pl,1) if $pad > 0;
2109 ($x->_scan_for_nonzero($pad,$xs) == 0) &&
2121 substr($xs,-$pad,$pad) = '0' x $pad;
2132 $pad = $len, $xs = '0' x $pad if $scale < 0; # tlr: whack 0.51=>1.0
2139 $c = substr($xs,-$pad,1) + 1; $c = '0' if $c eq '10';
2140 substr($xs,-$pad,1) = $c; $pad++;
2143 $xs = '1'.$xs if $c == 0;
2146 $x->{value} = $CALC->_new($xs) if $put_back == 1; # put back in if needed