STATIC mp_obj_t parse_compile_execute(mp_obj_t o_in, mp_parse_input_kind_t parse_input_kind) { uint str_len; const char *str = mp_obj_str_get_data(o_in, &str_len); // create the lexer mp_lexer_t *lex = mp_lexer_new_from_str_len(MP_QSTR__lt_string_gt_, str, str_len, 0); qstr source_name = mp_lexer_source_name(lex); // parse the string mp_parse_error_kind_t parse_error_kind; mp_parse_node_t pn = mp_parse(lex, parse_input_kind, &parse_error_kind); mp_lexer_free(lex); if (pn == MP_PARSE_NODE_NULL) { // parse error; raise exception nlr_jump(mp_parse_make_exception(parse_error_kind)); } // compile the string mp_obj_t module_fun = mp_compile(pn, source_name, false); mp_parse_node_free(pn); if (module_fun == mp_const_none) { // TODO handle compile error correctly return mp_const_none; } // complied successfully, execute it return rt_call_function_0(module_fun); }
static mp_obj_t mp_builtin_eval(mp_obj_t o_in) { uint str_len; const byte *str = mp_obj_str_get_data(o_in, &str_len); // create the lexer mp_lexer_t *lex = mp_lexer_new_from_str_len(MP_QSTR__lt_string_gt_, (const char*)str, str_len, 0); qstr source_name = mp_lexer_source_name(lex); // parse the string qstr parse_exc_id; const char *parse_exc_msg; mp_parse_node_t pn = mp_parse(lex, MP_PARSE_EVAL_INPUT, &parse_exc_id, &parse_exc_msg); mp_lexer_free(lex); if (pn == MP_PARSE_NODE_NULL) { // parse error; raise exception nlr_jump(mp_obj_new_exception_msg(parse_exc_id, parse_exc_msg)); } // compile the string mp_obj_t module_fun = mp_compile(pn, source_name, false); mp_parse_node_free(pn); if (module_fun == mp_const_none) { // TODO handle compile error correctly return mp_const_none; } // complied successfully, execute it return rt_call_function_0(module_fun); }
void timer_interrupt(void) { if (timer_py_callback != mp_const_none) { nlr_buf_t nlr; if (nlr_push(&nlr) == 0) { // XXX what to do if the GC is in the middle of running?? rt_call_function_0(timer_py_callback); nlr_pop(); } else { // uncaught exception printf("exception in timer interrupt\n"); mp_obj_print((mp_obj_t)nlr.ret_val); printf("\n"); } } }