Module: Kernel

Defined in:
(unknown)

Instance Method Summary collapse

Instance Method Details

#call_stack(*args) ⇒ Object

callsite hook and associated functions



101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
 
# File 'ext/call_stack/call_stack.c', line 101

static VALUE
callsite_gen_backtrace_info(int argc, VALUE *argv, VALUE self)
{
  VALUE backtrace;
  VALUE level;
  VALUE klass;
  VALUE depth = Qnil;
  unsigned int i;
  code_site_t *csite;
  int len;

  if(!callsite_hook_set_p) {
          return Qnil;
  }
  rb_scan_args(argc, argv, "01", &depth);
  if(NIL_P(depth)) {
          len = 1;
  } else {
          len = NUM2INT(depth);
  }
  if(len < 0) {
          len = 0x7FFFFFFF;
  }
  backtrace = rb_ary_new();
  for(i = 0, csite = callsite_stack->ptr-2; i < len; i++, csite--) {
          if(csite < callsite_stack->start)
                  break;
          level = rb_ary_new();
          klass = csite->klass ? csite->klass : Qnil;
          rb_ary_push(level, klass);
          rb_ary_push(level, csite->mid ? ID2SYM(csite->mid) : Qnil);
          if(csite->sourcefile) {
                  rb_ary_push(level, rb_str_new2(csite->sourcefile));
                  rb_ary_push(level, UINT2NUM(csite->sourceline));
          }
          else {
                  rb_ary_push(level, Qnil);
                  rb_ary_push(level, Qnil);
          }
          rb_ary_push(level, csite->binding);
          rb_ary_push(level, csite->type);

          rb_ary_unshift(backtrace, level);
  }


  return backtrace;
}

#call_stack_off ⇒ Object 



462
463
464
465
466
467
468
469
470
471
472
 
# File 'ext/call_stack/call_stack.c', line 462

static VALUE
cov_remove_callsite_hook(VALUE self)
{
 if(!callsite_hook_set_p) 
         return Qfalse;
 else {
         rb_remove_event_hook(coverage_event_callsite_hook);
         callsite_hook_set_p = 0;
         return Qtrue;
 }
}

#call_stack_on ⇒ Object 



445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
 
# File 'ext/call_stack/call_stack.c', line 445

static VALUE
cov_install_callsite_hook(VALUE self)
{
  if(!callsite_hook_set_p) {
          callsite_hook_set_p = 1;
          /* for each thread */
          callsite_prefill_callsite_stack();
          rb_add_event_hook(coverage_event_callsite_hook, 
                          RUBY_EVENT_CALL | RUBY_EVENT_C_CALL | 
                          RUBY_EVENT_RETURN | RUBY_EVENT_C_RETURN);
          
          return Qtrue;
  } else
          return Qfalse;
}