Home
last modified time | relevance | path

Searched refs:ravel_A (Results 1 – 1 of 1) sorted by relevance

/dports/lang/gnu-apl/apl-1.8/src/
H A DBif_F12_TAKE_DROP.cc155 Shape ravel_A(A.get(), /* ⎕IO */ 0); in eval_AB() local
164 const ShapeItem len_Z = ravel_A.get_volume() ? 0 : 1; in eval_AB()
176 if (ravel_A.get_rank() == 0) ravel_A.add_shape_item(1); // A = ,A in eval_AB()
178 if (ravel_A.get_rank() != B->get_rank()) LENGTH_ERROR; in eval_AB()
181 loop(r, ravel_A.get_rank()) in eval_AB()
183 const ShapeItem sA = ravel_A.get_shape_item(r); in eval_AB()
233 Shape ravel_A(B->get_shape()); in eval_AXB() local
247 if (a >= amax) ravel_A.set_shape_item(x, 0); in eval_AXB()
248 else if (a >= 0) ravel_A.set_shape_item(x, a - amax); in eval_AXB()
249 else if (a > -amax) ravel_A.set_shape_item(x, amax + a); in eval_AXB()
[all …]