Contents

/* Author: Lourens Naudé */

#include "ruby.h"
#include "node.h"
#include "env.h"

static int strhash(register const char *string) {
  register int c;

  register int val = 0;

  while ((c = *string++) != '\0') {
    val = val*997 + c;
  }

  return val + (val>>5);
}

static VALUE rb_f_callsite( VALUE obj ) {
  struct FRAME *frame = ruby_frame;
  NODE *n;
  int lev = -1;
  int csite = 0;

  if (frame->last_func == ID_ALLOCATOR) {
    frame = frame->prev;
  }
  if (lev < 0) {
    ruby_set_current_source();
    if (frame->last_func) {
      csite += strhash(ruby_sourcefile) + ruby_sourceline + frame->last_func; 
    }
    else if (ruby_sourceline == 0) {
      csite += strhash(ruby_sourcefile);
    }
    else {
      csite += strhash(ruby_sourcefile) + ruby_sourceline; 
    }
    if (lev < -1) return INT2FIX(csite);
  }
  else {
    while (lev-- > 0) {
      frame = frame->prev;
      if (!frame) {
        csite = 0;
        break;
      }
    }
  }
  for (; frame && (n = frame->node); frame = frame->prev) {
    if (frame->prev && frame->prev->last_func) {
      if (frame->prev->node == n) {
        if (frame->prev->last_func == frame->last_func) continue;
      }
      csite += strhash(n->nd_file) + nd_line(n) + frame->prev->last_func;
    }
    else {
      csite += strhash(n->nd_file) + nd_line(n);
    }
  }

  return INT2FIX(csite);
}

void Init_callsite_hash() {
  rb_define_global_function("callsite_hash", rb_f_callsite, 0);
}

Version data entries

11 entries across 11 versions & 2 rubygems

Version	Path
slim_scrooge-1.0.9	ext/callsite_hash.c
slim_scrooge-1.0.7	ext/callsite_hash.c
refinerycms-0.9.6.22	vendor/plugins/slim_scrooge/ext/callsite_hash.c
refinerycms-0.9.6.21	vendor/plugins/slim_scrooge/ext/callsite_hash.c
slim_scrooge-1.0.5	ext/callsite_hash.c
slim_scrooge-1.0.4	ext/callsite_hash.c
slim_scrooge-1.0.3	ext/callsite_hash.c
slim_scrooge-1.0.2	ext/callsite_hash.c
slim_scrooge-1.0.1	ext/callsite_hash.c
slim_scrooge-1.0.0	ext/callsite_hash.c
slim_scrooge-0.1.1	ext/callsite_hash.c