summaryrefslogtreecommitdiff
path: root/ext/-test-/debug/inspector.c
blob: f0c58e59f9548b64d043c15faec3b5901a88ded7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#include "ruby/ruby.h"
#include "ruby/debug.h"

static VALUE
callback(const rb_debug_inspector_t *dbg_context, void *data)
{
    VALUE locs = rb_debug_inspector_backtrace_locations(dbg_context);
    long i, len = RARRAY_LEN(locs);
    VALUE binds = rb_ary_new();
    for (i = 0; i < len; ++i) {
	VALUE entry = rb_ary_new();
	rb_ary_push(binds, entry);
	rb_ary_push(entry, rb_debug_inspector_frame_self_get(dbg_context, i));
	rb_ary_push(entry, rb_debug_inspector_frame_binding_get(dbg_context, i));
	rb_ary_push(entry, rb_debug_inspector_frame_class_get(dbg_context, i));
	rb_ary_push(entry, rb_debug_inspector_frame_iseq_get(dbg_context, i));
	rb_ary_push(entry, rb_ary_entry(locs, i));
    }
    return binds;
}

static VALUE
debug_inspector(VALUE self)
{
    return rb_debug_inspector_open(callback, NULL);
}

void
Init_inspector(VALUE klass)
{
    rb_define_module_function(klass, "inspector", debug_inspector, 0);
}