picrin/extlib/benz/debug.c

70 lines
1.7 KiB
C
Raw Normal View History

2014-08-25 00:38:09 -04:00
/**
* See Copyright Notice in picrin.h
*/
#include "picrin.h"
#include "picrin/string.h"
#include "picrin/error.h"
#include "picrin/proc.h"
pic_str *
pic_get_backtrace(pic_state *pic)
{
size_t ai = pic_gc_arena_preserve(pic);
pic_callinfo *ci;
pic_str *trace;
2014-09-12 06:52:49 -04:00
trace = pic_make_str(pic, NULL, 0);
2014-08-25 00:38:09 -04:00
for (ci = pic->ci; ci != pic->cibase; --ci) {
struct pic_proc *proc = pic_proc_ptr(ci->fp[0]);
trace = pic_str_cat(pic, trace, pic_make_str_cstr(pic, " at "));
trace = pic_str_cat(pic, trace, pic_make_str_cstr(pic, pic_symbol_name(pic, pic_proc_name(proc))));
2014-08-25 00:38:09 -04:00
if (pic_proc_func_p(proc)) {
trace = pic_str_cat(pic, trace, pic_make_str_cstr(pic, " (native function)\n"));
2014-08-25 00:38:09 -04:00
} else if (pic_proc_irep_p(proc)) {
trace = pic_str_cat(pic, trace, pic_make_str_cstr(pic, " (unknown location)\n")); /* TODO */
2014-08-25 00:38:09 -04:00
}
}
pic_gc_arena_restore(pic, ai);
pic_gc_protect(pic, pic_obj_value(trace));
return trace;
}
void
2014-09-16 11:28:55 -04:00
pic_print_backtrace(pic_state *pic)
2014-08-25 00:38:09 -04:00
{
size_t ai = pic_gc_arena_preserve(pic);
pic_str *trace;
2014-09-16 11:28:55 -04:00
assert(! pic_undef_p(pic->err));
2014-08-25 00:38:09 -04:00
2014-09-16 11:28:55 -04:00
if (! pic_error_p(pic->err)) {
trace = pic_format(pic, "raised: ~s", pic->err);
} else {
struct pic_error *e;
2014-08-25 00:38:09 -04:00
2014-09-16 11:28:55 -04:00
e = pic_error_ptr(pic->err);
if (e->type != pic_intern_cstr(pic, "")) {
2015-01-18 21:08:27 -05:00
trace = pic_format(pic, "~s ", pic_obj_value(e->type));
2014-09-16 11:28:55 -04:00
} else {
trace = pic_make_str(pic, NULL, 0);
}
trace = pic_str_cat(pic, trace, pic_format(pic, "error: ~s", pic_obj_value(e->msg)));
2014-08-25 00:38:09 -04:00
2014-09-16 11:28:55 -04:00
/* TODO: print error irritants */
2014-08-25 00:38:09 -04:00
trace = pic_str_cat(pic, trace, pic_make_str(pic, "\n", 1));
trace = pic_str_cat(pic, trace, e->stack);
2014-09-16 11:28:55 -04:00
}
2014-08-25 00:38:09 -04:00
/* print! */
xfprintf(xstderr, "%s", pic_str_cstr(pic, trace));
2014-08-25 00:38:09 -04:00
pic_gc_arena_restore(pic, ai);
}