objgetitemiter.c 1.5 KB
Newer Older
1
#include <stdlib.h>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#include "nlr.h"
#include "misc.h"
#include "mpconfig.h"
#include "qstr.h"
#include "obj.h"
#include "runtime.h"

// this is a wrapper object that is turns something that has a __getitem__ method into an iterator

typedef struct _mp_obj_getitem_iter_t {
    mp_obj_base_t base;
    mp_obj_t args[3];
} mp_obj_getitem_iter_t;

17
STATIC mp_obj_t it_iternext(mp_obj_t self_in) {
18
19
20
21
    mp_obj_getitem_iter_t *self = self_in;
    nlr_buf_t nlr;
    if (nlr_push(&nlr) == 0) {
        // try to get next item
Damien George's avatar
Damien George committed
22
        mp_obj_t value = mp_call_method_n_kw(1, 0, self->args);
23
24
25
26
27
        self->args[2] = MP_OBJ_NEW_SMALL_INT(MP_OBJ_SMALL_INT_VALUE(self->args[2]) + 1);
        nlr_pop();
        return value;
    } else {
        // an exception was raised
28
        if (mp_obj_get_type(nlr.ret_val) == &mp_type_StopIteration) {
29
30
            // return MP_OBJ_NULL instead of raising StopIteration
            return MP_OBJ_NULL;
31
32
        } else {
            // re-raise exception
33
            nlr_raise(nlr.ret_val);
34
35
36
37
        }
    }
}

38
STATIC const mp_obj_type_t it_type = {
39
    { &mp_type_type },
40
    .name = MP_QSTR_iterator,
41
    .getiter = mp_identity,
42
43
44
    .iternext = it_iternext
};

Damien George's avatar
Damien George committed
45
// args are those returned from mp_load_method_maybe (ie either an attribute or a method)
46
47
48
49
50
51
52
53
mp_obj_t mp_obj_new_getitem_iter(mp_obj_t *args) {
    mp_obj_getitem_iter_t *o = m_new_obj(mp_obj_getitem_iter_t);
    o->base.type = &it_type;
    o->args[0] = args[0];
    o->args[1] = args[1];
    o->args[2] = MP_OBJ_NEW_SMALL_INT(0);
    return o;
}