2014-03-26 19:27:58 +00:00
|
|
|
#include <stdlib.h>
|
2013-12-21 18:17:45 +00:00
|
|
|
|
|
|
|
#include "nlr.h"
|
|
|
|
#include "misc.h"
|
|
|
|
#include "mpconfig.h"
|
2014-01-21 21:40:13 +00:00
|
|
|
#include "qstr.h"
|
2013-12-21 18:17:45 +00:00
|
|
|
#include "obj.h"
|
2014-04-17 17:18:55 +00:00
|
|
|
#include "runtime.h"
|
2013-12-21 18:17:45 +00:00
|
|
|
|
|
|
|
/******************************************************************************/
|
|
|
|
/* range iterator */
|
|
|
|
|
|
|
|
typedef struct _mp_obj_range_it_t {
|
|
|
|
mp_obj_base_t base;
|
|
|
|
// TODO make these values generic objects or something
|
|
|
|
machine_int_t cur;
|
|
|
|
machine_int_t stop;
|
|
|
|
machine_int_t step;
|
|
|
|
} mp_obj_range_it_t;
|
|
|
|
|
2014-02-12 16:15:40 +00:00
|
|
|
STATIC mp_obj_t range_it_iternext(mp_obj_t o_in) {
|
2013-12-21 18:17:45 +00:00
|
|
|
mp_obj_range_it_t *o = o_in;
|
|
|
|
if ((o->step > 0 && o->cur < o->stop) || (o->step < 0 && o->cur > o->stop)) {
|
|
|
|
mp_obj_t o_out = MP_OBJ_NEW_SMALL_INT(o->cur);
|
|
|
|
o->cur += o->step;
|
|
|
|
return o_out;
|
|
|
|
} else {
|
2014-04-17 22:19:36 +00:00
|
|
|
return MP_OBJ_STOP_ITERATION;
|
2013-12-21 18:17:45 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2014-02-12 16:15:40 +00:00
|
|
|
STATIC const mp_obj_type_t range_it_type = {
|
2014-02-15 16:10:44 +00:00
|
|
|
{ &mp_type_type },
|
2014-02-15 11:34:50 +00:00
|
|
|
.name = MP_QSTR_iterator,
|
2014-03-30 19:00:12 +00:00
|
|
|
.getiter = mp_identity,
|
2014-01-07 15:58:30 +00:00
|
|
|
.iternext = range_it_iternext,
|
2013-12-21 18:17:45 +00:00
|
|
|
};
|
|
|
|
|
|
|
|
mp_obj_t mp_obj_new_range_iterator(int cur, int stop, int step) {
|
|
|
|
mp_obj_range_it_t *o = m_new_obj(mp_obj_range_it_t);
|
|
|
|
o->base.type = &range_it_type;
|
|
|
|
o->cur = cur;
|
|
|
|
o->stop = stop;
|
|
|
|
o->step = step;
|
|
|
|
return o;
|
|
|
|
}
|
2014-04-17 17:18:55 +00:00
|
|
|
|
|
|
|
/******************************************************************************/
|
|
|
|
/* range */
|
|
|
|
|
|
|
|
typedef struct _mp_obj_range_t {
|
|
|
|
mp_obj_base_t base;
|
|
|
|
// TODO make these values generic objects or something
|
|
|
|
machine_int_t start;
|
|
|
|
machine_int_t stop;
|
|
|
|
machine_int_t step;
|
|
|
|
} mp_obj_range_t;
|
|
|
|
|
|
|
|
STATIC mp_obj_t range_make_new(mp_obj_t type_in, uint n_args, uint n_kw, const mp_obj_t *args) {
|
2014-04-19 23:13:22 +00:00
|
|
|
mp_arg_check_num(n_args, n_kw, 1, 3, false);
|
2014-04-17 17:18:55 +00:00
|
|
|
|
|
|
|
mp_obj_range_t *o = m_new_obj(mp_obj_range_t);
|
|
|
|
o->base.type = &mp_type_range;
|
|
|
|
o->start = 0;
|
|
|
|
o->step = 1;
|
|
|
|
|
|
|
|
if (n_args == 1) {
|
|
|
|
o->stop = mp_obj_get_int(args[0]);
|
|
|
|
} else {
|
|
|
|
o->start = mp_obj_get_int(args[0]);
|
|
|
|
o->stop = mp_obj_get_int(args[1]);
|
|
|
|
if (n_args == 3) {
|
|
|
|
o->step = mp_obj_get_int(args[2]);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return o;
|
|
|
|
}
|
|
|
|
|
|
|
|
STATIC mp_obj_t range_getiter(mp_obj_t o_in) {
|
|
|
|
mp_obj_range_t *o = o_in;
|
|
|
|
return mp_obj_new_range_iterator(o->start, o->stop, o->step);
|
|
|
|
}
|
|
|
|
|
|
|
|
const mp_obj_type_t mp_type_range = {
|
|
|
|
{ &mp_type_type },
|
|
|
|
.name = MP_QSTR_range,
|
|
|
|
.make_new = range_make_new,
|
|
|
|
.getiter = range_getiter,
|
|
|
|
};
|