#include <string.h>

#include <stdarg.h>

#include <assert.h>

#include "mpconfig.h"

#include "nlr.h"

#include "misc.h"

#include "qstr.h"

#include "obj.h"

#include "objtuple.h"

#include "objtype.h"

#include "runtime.h"

#include "runtime0.h"

typedef struct _mp_obj_exception_t {

} mp_obj_exception_t;

const mp_obj_exception_t mp_const_MemoryError_obj = {{&mp_type_MemoryError}, MP_OBJ_NULL, mp_const_empty_tuple};

STATIC mp_obj_exception_t mp_emergency_exception_obj;

const mp_obj_exception_t mp_const_GeneratorExit_obj = {{&mp_type_GeneratorExit}, MP_OBJ_NULL, mp_const_empty_tuple};

STATIC void mp_obj_exception_print(void (*print)(void *env, const char *fmt, ...), void *env, mp_obj_t o_in, mp_print_kind_t kind) {

mp_obj_exception_t *o = o_in;

mp_print_kind_t k = kind & ~PRINT_EXC_SUBCLASS;

bool is_subclass = kind & PRINT_EXC_SUBCLASS;

if (!is_subclass && (k == PRINT_REPR || k == PRINT_EXC)) {

print(env, "%s", qstr_str(o->base.type->name));

}

if (k == PRINT_EXC) {

print(env, ": ");

}

if (k == PRINT_STR || k == PRINT_EXC) {

if (o->args == NULL || o->args->len == 0) {

print(env, "");

return;

} else if (o->args->len == 1) {

mp_obj_print_helper(print, env, o->args->items[0], PRINT_STR);

return;

}

}

mp_obj_tuple_print(print, env, o->args, kind);

}

mp_obj_t mp_obj_exception_make_new(mp_obj_t type_in, uint n_args, uint n_kw, const mp_obj_t *args) {

mp_obj_type_t *type = type_in;

if (n_kw != 0) {

nlr_raise(mp_obj_new_exception_msg_varg(&mp_type_TypeError, "%s does not take keyword arguments", mp_obj_get_type_str(type_in)));

}

mp_obj_exception_t *o = m_new_obj_var_maybe(mp_obj_exception_t, mp_obj_t, 0);

if (o == NULL) {

// Couldn't allocate heap memory; use local data instead.

o = &mp_emergency_exception_obj;

// We can't store any args.

n_args = 0;

o->args = mp_const_empty_tuple;

} else {

o->args = mp_obj_new_tuple(n_args, args);

}

o->base.type = type;

o->traceback = MP_OBJ_NULL;

return o;

}

mp_obj_t mp_obj_exception_get_value(mp_obj_t self_in) {

mp_obj_exception_t *self = self_in;

if (self->args->len == 0) {

return mp_const_none;

} else {

return self->args->items[0];

}

}

STATIC void exception_load_attr(mp_obj_t self_in, qstr attr, mp_obj_t *dest) {

mp_obj_exception_t *self = self_in;

if (attr == MP_QSTR_args) {

dest[0] = self->args;

} else if (self->base.type == &mp_type_StopIteration && attr == MP_QSTR_value) {

dest[0] = mp_obj_exception_get_value(self);

}

}

STATIC mp_obj_t exc___init__(uint n_args, const mp_obj_t *args) {

mp_obj_exception_t *self = args[0];

mp_obj_t argst = mp_obj_new_tuple(n_args - 1, args + 1);

self->args = argst;

return mp_const_none;

}

STATIC MP_DEFINE_CONST_FUN_OBJ_VAR_BETWEEN(exc___init___obj, 1, MP_OBJ_FUN_ARGS_MAX, exc___init__);

STATIC const mp_map_elem_t exc_locals_dict_table[] = {

{ MP_OBJ_NEW_QSTR(MP_QSTR___init__), (mp_obj_t)&exc___init___obj },

};

STATIC MP_DEFINE_CONST_DICT(exc_locals_dict, exc_locals_dict_table);

const mp_obj_type_t mp_type_BaseException = {

{ &mp_type_type },

.name = MP_QSTR_BaseException,

.print = mp_obj_exception_print,

.make_new = mp_obj_exception_make_new,

.load_attr = exception_load_attr,

.locals_dict = (mp_obj_t)&exc_locals_dict,

};

#define MP_DEFINE_EXCEPTION_BASE(base_name) \

STATIC const mp_obj_tuple_t mp_type_ ## base_name ## _base_tuple = {{&mp_type_tuple}, 1, {(mp_obj_t)&mp_type_ ## base_name}};\

#define MP_DEFINE_EXCEPTION(exc_name, base_name) \

const mp_obj_type_t mp_type_ ## exc_name = { \

{ &mp_type_type }, \

.name = MP_QSTR_ ## exc_name, \

.print = mp_obj_exception_print, \

.make_new = mp_obj_exception_make_new, \

.load_attr = exception_load_attr, \

.bases_tuple = (mp_obj_t)&mp_type_ ## base_name ## _base_tuple, \

};

MP_DEFINE_EXCEPTION_BASE(BaseException)

MP_DEFINE_EXCEPTION(SystemExit, BaseException)

mp_obj_t mp_obj_new_exception(const mp_obj_type_t *exc_type) {

return mp_obj_new_exception_args(exc_type, 0, NULL);

}

mp_obj_t mp_obj_new_exception_arg1(const mp_obj_type_t *exc_type, mp_obj_t arg) {

return mp_obj_new_exception_args(exc_type, 1, &arg);

}

mp_obj_t mp_obj_new_exception_args(const mp_obj_type_t *exc_type, uint n_args, const mp_obj_t *args) {

assert(exc_type->make_new == mp_obj_exception_make_new);

return exc_type->make_new((mp_obj_t)exc_type, n_args, 0, args);

}

mp_obj_t mp_obj_new_exception_msg(const mp_obj_type_t *exc_type, const char *msg) {

return mp_obj_new_exception_msg_varg(exc_type, msg);

}

mp_obj_t mp_obj_new_exception_msg_varg(const mp_obj_type_t *exc_type, const char *fmt, ...) {

// check that the given type is an exception type

assert(exc_type->make_new == mp_obj_exception_make_new);

// make exception object

mp_obj_exception_t *o = m_new_obj_var_maybe(mp_obj_exception_t, mp_obj_t, 0);

if (o == NULL) {

// Couldn't allocate heap memory; use local data instead.

// Unfortunately, we won't be able to format the string...

o = &mp_emergency_exception_obj;

o->base.type = exc_type;

o->traceback = MP_OBJ_NULL;

o->args = mp_const_empty_tuple;

} else {

o->base.type = exc_type;

o->traceback = MP_OBJ_NULL;

o->args = mp_obj_new_tuple(1, NULL);

if (fmt == NULL) {

// no message

assert(0);

} else {

// render exception message and store as .args[0]

// TODO: optimize bufferbloat

vstr_t *vstr = vstr_new();

va_list ap;

va_start(ap, fmt);

vstr_vprintf(vstr, fmt, ap);

va_end(ap);

o->args->items[0] = mp_obj_new_str(vstr->buf, vstr->len, false);

vstr_free(vstr);

}

}

return o;

}

bool mp_obj_is_exception_type(mp_obj_t self_in) {

if (MP_OBJ_IS_TYPE(self_in, &mp_type_type)) {

// optimisation when self_in is a builtin exception

mp_obj_type_t *self = self_in;

if (self->make_new == mp_obj_exception_make_new) {

return true;

}

}

return mp_obj_is_subclass_fast(self_in, &mp_type_BaseException);

}

bool mp_obj_is_exception_instance(mp_obj_t self_in) {

return mp_obj_is_exception_type(mp_obj_get_type(self_in));

}

bool mp_obj_exception_match(mp_obj_t exc, const mp_obj_type_t *exc_type) {

// TODO: move implementation from RT_BINARY_OP_EXCEPTION_MATCH here.

return mp_binary_op(MP_BINARY_OP_EXCEPTION_MATCH, exc, (mp_obj_t)exc_type) == mp_const_true;

}

#define GET_NATIVE_EXCEPTION(self, self_in) \

/* make sure self_in is an exception instance */ \

assert(mp_obj_is_exception_instance(self_in)); \

mp_obj_exception_t *self; \

if (mp_obj_is_native_exception_instance(self_in)) { \

self = self_in; \

} else { \

self = ((mp_obj_instance_t*)self_in)->subobj[0]; \

}

void mp_obj_exception_clear_traceback(mp_obj_t self_in) {

GET_NATIVE_EXCEPTION(self, self_in);

// just set the traceback to the null object

// we don't want to call any memory management functions here

self->traceback = MP_OBJ_NULL;

}

void mp_obj_exception_add_traceback(mp_obj_t self_in, qstr file, machine_uint_t line, qstr block) {

GET_NATIVE_EXCEPTION(self, self_in);

// for traceback, we are just using the list object for convenience, it's not really a list of Python objects

if (self->traceback == MP_OBJ_NULL) {

self->traceback = mp_obj_new_list(0, NULL);

}

mp_obj_list_append(self->traceback, (mp_obj_t)(machine_uint_t)file);

mp_obj_list_append(self->traceback, (mp_obj_t)(machine_uint_t)line);

mp_obj_list_append(self->traceback, (mp_obj_t)(machine_uint_t)block);

}

void mp_obj_exception_get_traceback(mp_obj_t self_in, machine_uint_t *n, machine_uint_t **values) {

GET_NATIVE_EXCEPTION(self, self_in);

if (self->traceback == MP_OBJ_NULL) {

*n = 0;

*values = NULL;

} else {

uint n2;

mp_obj_list_get(self->traceback, &n2, (mp_obj_t**)values);

*n = n2;

}

}