Branch data     Line data    Source code

       1                 :            : /*
       2                 :            :  * This file is part of the MicroPython project, http://micropython.org/
       3                 :            :  *
       4                 :            :  * The MIT License (MIT)
       5                 :            :  *
       6                 :            :  * Copyright (c) 2013, 2014 Damien P. George
       7                 :            :  *
       8                 :            :  * Permission is hereby granted, free of charge, to any person obtaining a copy
       9                 :            :  * of this software and associated documentation files (the "Software"), to deal
      10                 :            :  * in the Software without restriction, including without limitation the rights
      11                 :            :  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
      12                 :            :  * copies of the Software, and to permit persons to whom the Software is
      13                 :            :  * furnished to do so, subject to the following conditions:
      14                 :            :  *
      15                 :            :  * The above copyright notice and this permission notice shall be included in
      16                 :            :  * all copies or substantial portions of the Software.
      17                 :            :  *
      18                 :            :  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
      19                 :            :  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
      20                 :            :  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
      21                 :            :  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
      22                 :            :  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
      23                 :            :  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
      24                 :            :  * THE SOFTWARE.
      25                 :            :  */
      26                 :            : 
      27                 :            : #include <stdlib.h>
      28                 :            : #include <assert.h>
      29                 :            : 
      30                 :            : #include "py/runtime.h"
      31                 :            : 
      32                 :            : typedef struct _mp_obj_map_t {
      33                 :            :     mp_obj_base_t base;
      34                 :            :     size_t n_iters;
      35                 :            :     mp_obj_t fun;
      36                 :            :     mp_obj_t iters[];
      37                 :            : } mp_obj_map_t;
      38                 :            : 
      39                 :       2032 : static mp_obj_t map_make_new(const mp_obj_type_t *type, size_t n_args, size_t n_kw, const mp_obj_t *args) {
      40                 :       2032 :     mp_arg_check_num(n_args, n_kw, 2, MP_OBJ_FUN_ARGS_MAX, false);
      41                 :       2032 :     mp_obj_map_t *o = mp_obj_malloc_var(mp_obj_map_t, iters, mp_obj_t, n_args - 1, type);
      42                 :       2032 :     o->n_iters = n_args - 1;
      43                 :       2032 :     o->fun = args[0];
      44         [ +  + ]:       6068 :     for (size_t i = 0; i < n_args - 1; i++) {
      45                 :       4036 :         o->iters[i] = mp_getiter(args[i + 1], NULL);
      46                 :            :     }
      47                 :       2032 :     return MP_OBJ_FROM_PTR(o);
      48                 :            : }
      49                 :            : 
      50                 :        978 : static mp_obj_t map_iternext(mp_obj_t self_in) {
      51                 :        978 :     mp_check_self(mp_obj_is_type(self_in, &mp_type_map));
      52                 :        978 :     mp_obj_map_t *self = MP_OBJ_TO_PTR(self_in);
      53                 :        978 :     mp_obj_t *nextses = m_new(mp_obj_t, self->n_iters);
      54                 :            : 
      55         [ +  + ]:       1126 :     for (size_t i = 0; i < self->n_iters; i++) {
      56                 :        994 :         mp_obj_t next = mp_iternext(self->iters[i]);
      57         [ +  + ]:        172 :         if (next == MP_OBJ_STOP_ITERATION) {
      58                 :         24 :             m_del(mp_obj_t, nextses, self->n_iters);
      59                 :         24 :             return MP_OBJ_STOP_ITERATION;
      60                 :            :         }
      61                 :        148 :         nextses[i] = next;
      62                 :            :     }
      63                 :        132 :     return mp_call_function_n_kw(self->fun, self->n_iters, 0, nextses);
      64                 :            : }
      65                 :            : 
      66                 :            : MP_DEFINE_CONST_OBJ_TYPE(
      67                 :            :     mp_type_map,
      68                 :            :     MP_QSTR_map,
      69                 :            :     MP_TYPE_FLAG_ITER_IS_ITERNEXT,
      70                 :            :     make_new, map_make_new,
      71                 :            :     iter, map_iternext
      72                 :            :     );