Module: BindingOfCaller

Included in:

Binding

Defined in:

lib/binding_of_caller/mri2.rb,
lib/binding_of_caller/version.rb,
lib/binding_of_caller/rubinius.rb,
lib/binding_of_caller/jruby_interpreted.rb,
ext/binding_of_caller/binding_of_caller.c

Defined Under Namespace

Modules: BindingExtensions Classes: JRubyBindingHolder

Constant Summary

VERSION =

"0.8.0"

Instance Method Summary

• #callers ⇒ Object
• #frame_count ⇒ Object
• #frame_description ⇒ Object
• #frame_type ⇒ Object
• #of_caller(rb_level) ⇒ Object

Instance Method Details

#callers ⇒ Object

# File 'ext/binding_of_caller/binding_of_caller.c', line 202

static VALUE
callers(VALUE self)
{
  VALUE ary = rb_ary_new();

  for (int i = 0; i < FIX2INT(frame_count(self)); i++)
    rb_ary_push(ary, binding_of_caller(self, INT2FIX(i)));

  return ary;
}

#frame_count ⇒ Object

# File 'ext/binding_of_caller/binding_of_caller.c', line 174

static VALUE frame_count(VALUE self)
{
  rb_thread_t *th;
  GetThreadPtr(rb_thread_current(), th);

  rb_control_frame_t *cfp = RUBY_VM_PREVIOUS_CONTROL_FRAME(th->cfp);
  rb_control_frame_t *limit_cfp = (void *)(th->stack + th->stack_size);

  int i = 1;
  while (cfp < limit_cfp) {
    cfp = RUBY_VM_PREVIOUS_CONTROL_FRAME(cfp);

    if (cfp >= limit_cfp)
      return INT2FIX(i);

    // skip invalid frames
    if (!valid_frame_p(cfp, limit_cfp))
      cfp = find_valid_frame(cfp, limit_cfp);

    if (!cfp)
      break;

    i++;
  }

  return INT2FIX(i);
}

#frame_description ⇒ Object

# File 'ext/binding_of_caller/binding_of_caller.c', line 168

static VALUE
frame_description(VALUE self)
{
  return rb_iv_get(self, "@frame_description");
}

#frame_type ⇒ Object

# File 'ext/binding_of_caller/binding_of_caller.c', line 162

static VALUE
frame_type(VALUE self)
{
  return rb_iv_get(self, "@frame_type");
}

#of_caller(rb_level) ⇒ Object

# File 'ext/binding_of_caller/binding_of_caller.c', line 123

static VALUE binding_of_caller(VALUE self, VALUE rb_level)
{
  rb_thread_t *th;
  GetThreadPtr(rb_thread_current(), th);

  rb_control_frame_t *cfp = RUBY_VM_PREVIOUS_CONTROL_FRAME(th->cfp);
  rb_control_frame_t *limit_cfp = (void *)(th->stack + th->stack_size);
  int level = FIX2INT(rb_level);

  // attempt to locate the nth parent control frame
  for (int i = 0; i < level; i++) {
    cfp = RUBY_VM_PREVIOUS_CONTROL_FRAME(cfp);

    if (cfp >= limit_cfp)
      rb_raise(rb_eRuntimeError, "Invalid frame, gone beyond end of stack!");

    // skip invalid frames
    if (!valid_frame_p(cfp, limit_cfp))
      cfp = find_valid_frame(cfp, limit_cfp);
  }

  VALUE bindval = binding_alloc(rb_cBinding);
  rb_binding_t *bind;

  if (cfp == 0)
    rb_raise(rb_eRuntimeError, "Can't create Binding Object on top of Fiber.");

  GetBindingPtr(bindval, bind);

  bind->env = rb_vm_make_env_object(th, cfp);
  bind->filename = cfp->iseq->filename;
  bind->line_no = rb_vm_get_sourceline(cfp);
  
  rb_iv_set(bindval, "@frame_type", frametype_name(cfp->flag));
  rb_iv_set(bindval, "@frame_description", cfp->iseq->name);

  return bindval;
}