Searched refs:ravel_A1 (Results 1 – 1 of 1) sorted by relevance
| /dports/lang/gnu-apl/apl-1.8/src/ |
| H A D | Bif_F12_TAKE_DROP.cc | 110 Shape ravel_A1(A.get(), /* ⎕IO */ 0); // checks that 1 ≤ ⍴⍴A and ⍴A ≤ MAX_RANK in eval_AB() local
115 loop(a, ravel_A1.get_rank()) shape_B1.add_shape_item(1); in eval_AB()
118 return Token(TOK_APL_VALUE1, do_take(ravel_A1, B1)); in eval_AB()
122 if (ravel_A1.get_rank() != B->get_rank()) LENGTH_ERROR; in eval_AB()
123 return Token(TOK_APL_VALUE1, do_take(ravel_A1, B)); in eval_AB()
128 Bif_F12_TAKE::do_take(const Shape & ravel_A1, Value_P B) in do_take() argument
132 Value_P Z(ravel_A1.abs(), LOC); in do_take()
134 if (ravel_A1.is_empty()) Z->set_default(*B.get(), LOC); // empty Z in do_take()
135 else fill(ravel_A1, &Z->get_ravel(0), Z.getref(), B); in do_take()
|