Lines Matching refs:sx
124 local($sx, $sy) = (substr($cx, 0, 1), substr($cy, 0, 1));
127 if ($sx eq '+') {
132 } else { # $sx eq '-'
150 local($sx, $sy) = (shift @x, shift @y); # get signs
151 if ($sx eq $sy) {
152 &external($sx, &add(*x, *y)); # if same sign add
158 &external($sx, &sub(*x, *y));
199 local(*sx, *sy) = @_;
201 for $sx (@sx) {
203 $sx += 1e5 if $bar = (($sx -= shift(@sy) + $bar) < 0);
205 @sx;