dirty_history 0.5.2 → 0.5.3

data/dirty_history/ruby/1.9.1/gems/dirty_history-0.2.0/dirty_history/ruby/1.9.1/gems/rcov-0.9.11/editor-extensions/rcov.el

@@ -1,131 +0,0 @@
-;;; rcov.el -- Ruby Coverage Analysis Tool
-
-;;; Copyright (c) 2006 rubikitch <rubikitch@ruby-lang.org>
-;;;
-;;; Use and distribution subject to the terms of the rcov license.
-
-(defvar rcov-xref-before-visit-source-hook nil
-  "Hook executed before jump.")
-(defvar rcov-xref-after-visit-source-hook nil
-  "Hook executed after jump.")
-(defvar rcov-command-line "rake rcov RCOVOPTS='--gcc --no-html'"
-  "Rcov command line to find uncovered code.
-It is good to use rcov with Rake because it `cd's appropriate directory.
-`--gcc' option is strongly recommended because `rcov' uses compilation-mode.")
-(defvar rcovsave-command-line "rake rcov RCOVOPTS='--gcc --no-html --save=coverage.info'"
-  "Rcov command line to save coverage status. See also `rcov-command-line'.")
-(defvar rcovdiff-command-line "rake rcov RCOVOPTS='-D --gcc --no-html'"
-  "Rcov command line to find new uncovered code. See also `rcov-command-line'.")
-
-;;;; rcov-xref-mode
-(define-derived-mode rcov-xref-mode ruby-mode "Rxref"
-  "Major mode for annotated Ruby scripts (coverage/*.rb) by rcov."
-  (setq truncate-lines t)
-  ;; ruby-electric-mode / pabbrev-mode hijacks TAB binding.
-  (and ruby-electric-mode (ruby-electric-mode -1))
-  (and (boundp 'pabbrev-mode) pabbrev-mode (pabbrev-mode -1))
-  (suppress-keymap rcov-xref-mode-map)
-  (define-key rcov-xref-mode-map "\C-i" 'rcov-xref-next-tag)
-  (define-key rcov-xref-mode-map "\M-\C-i" 'rcov-xref-previous-tag)
-  (define-key rcov-xref-mode-map "\C-m" 'rcov-xref-visit-source)
-  (set (make-local-variable 'automatic-hscrolling) nil)
-  )
-  
-(defvar rcov-xref-tag-regexp "\\[\\[\\(.*?\\)\\]\\]")
-
-(defun rcov-xref-next-tag (n)
-  "Go to next LINK."
-  (interactive "p")
-  (when (looking-at rcov-xref-tag-regexp)
-    (goto-char (match-end 0)))
-  (when (re-search-forward rcov-xref-tag-regexp nil t n)
-    (goto-char (match-beginning 0)))
-  (rcov-xref-show-link))
-
-(defun rcov-xref-previous-tag (n)
-  "Go to previous LINK."
-  (interactive "p")
-  (re-search-backward rcov-xref-tag-regexp nil t n)
-  (rcov-xref-show-link))
-
-(defvar rcov-xref-link-tempbuffer " *rcov-link*")
-(defun rcov-xref-show-link ()
-  "Follow current LINK."
-  (let ((link (match-string 1))
-        (eol (point-at-eol)))
-    (save-excursion
-      (when (and link
-                 (re-search-backward "# \\(>>\\|<<\\) " (point-at-bol) t))
-        (while (re-search-forward rcov-xref-tag-regexp eol t)
-          (let ((matched (match-string 1)))
-            (when (string= link matched)
-              (add-text-properties 0 (length matched) '(face highlight) matched))
-            (with-current-buffer (get-buffer-create rcov-xref-link-tempbuffer)
-              (insert matched "\n"))))
-        (let (message-log-max)          ; inhibit *Messages*
-          (message "%s" (with-current-buffer rcov-xref-link-tempbuffer
-                          (substring (buffer-string) 0 -1)))) ; chomp
-        (kill-buffer rcov-xref-link-tempbuffer)))))
-
-
-;; copied from jw-visit-source
-(defun rcov-xref-extract-file-lines (line)
-  "Extract a list of file/line pairs from the given line of text."
-  (let*
-      ((unix_fn "[^ \t\n\r\"'([<{]+")
-       (dos_fn  "[a-zA-Z]:[^ \t\n\r\"'([<{]+")
-       (flre (concat "\\(" unix_fn "\\|" dos_fn "\\):\\([0-9]+\\)"))
-       (start nil)
-       (result nil))
-    (while (string-match flre line start)
-      (setq start (match-end 0))
-      (setq result
-            (cons (list
-                   (substring line (match-beginning 1) (match-end 1))
-                   (string-to-int (substring line (match-beginning 2) (match-end 2))))
-                  result)))
-    result))
-
-(defun rcov-xref-select-file-line (candidates)
-  "Select a file/line candidate that references an existing file."
-  (cond ((null candidates) nil)
-        ((file-readable-p (caar candidates)) (car candidates))
-        (t (rcov-xref-select-file-line (cdr candidates))) ))
-
-(defun rcov-xref-visit-source ()
-  "If the current line contains text like '../src/program.rb:34', visit
-  that file in the other window and position point on that line."
-  (interactive)
-  (let* ((line (progn (looking-at rcov-xref-tag-regexp) (match-string 1)))
-         (candidates (rcov-xref-extract-file-lines line))
-         (file-line (rcov-xref-select-file-line candidates)))
-    (cond (file-line
-           (run-hooks 'rcov-xref-before-visit-source-hook)
-           (find-file (car file-line))
-           (goto-line (cadr file-line))
-           (run-hooks 'rcov-xref-after-visit-source-hook))
-          (t
-           (error "No source location on line.")) )))
-
-;;;; Running rcov with various options.
-(defun rcov-internal (cmdline)
-  "Run rcov with various options."
-  (compile-internal cmdline ""
-                    nil nil nil (lambda (x) "*rcov*")))
-
-(defun rcov ()
-  "Run rcov to find uncovered code."
-  (interactive)
-  (rcov-internal rcov-command-line))
-
-(defun rcovsave ()
-  "Run rcov to save coverage status."
-  (interactive)
-  (rcov-internal rcovsave-command-line))
-
-(defun rcovdiff ()
-  "Run rcov to find new uncovered code."
-  (interactive)
-  (rcov-internal rcovdiff-command-line))
-
-(provide 'rcov)

data/dirty_history/ruby/1.9.1/gems/dirty_history-0.2.0/dirty_history/ruby/1.9.1/gems/rcov-0.9.11/editor-extensions/rcov.vim

@@ -1,38 +0,0 @@
-" Vim compiler file
-" Language:	Ruby
-" Function:	Code coverage information with rcov
-" Maintainer:	Mauricio Fernandez <mfp at acm dot org>
-" Info:		
-" URL:		http://eigenclass.org/hiki.rb?rcov
-" ----------------------------------------------------------------------------
-"
-" Changelog:
-" 0.1:	initial version, shipped with rcov 0.6.0
-"
-" Comments:
-" Initial attempt. 
-" ----------------------------------------------------------------------------
-
-if exists("current_compiler")
-  finish
-endif
-let current_compiler = "rcov"
-
-if exists(":CompilerSet") != 2		" older Vim always used :setlocal
-  command -nargs=* CompilerSet setlocal <args>
-endif
-
-let s:cpo_save = &cpo
-set cpo-=C
-
-CompilerSet makeprg=rake\ $*\ RCOVOPTS=\"-D\ --no-html\ --no-color\"\ $*
-
-CompilerSet errorformat=
-     \%+W\#\#\#\ %f:%l\,
-     \%-C\ \ \ ,
-     \%-C!!\ 
-
-let &cpo = s:cpo_save
-unlet s:cpo_save
-
-" vim: nowrap sw=2 sts=2 ts=8 ff=unix :

data/dirty_history/ruby/1.9.1/gems/dirty_history-0.2.0/dirty_history/ruby/1.9.1/gems/rcov-0.9.11/ext/rcovrt/1.8/callsite.c

@@ -1,216 +0,0 @@
-#include <ruby.h>
-#include <env.h>
-#include <node.h>
-#include <st.h>
-#include <stdlib.h>
-
-static char callsite_hook_set_p;
-
-typedef struct {
-  char *sourcefile;
-  unsigned int sourceline;
-  VALUE curr_meth;
-} type_def_site;       
-
-static VALUE caller_info = 0;
-static VALUE method_def_site_info = 0;
-
-static caller_stack_len = 1;
-
-static VALUE record_callsite_info(VALUE args) {
-  VALUE caller_ary;
-  VALUE curr_meth;
-  VALUE count_hash;
-  VALUE count;
-  VALUE *pargs = (VALUE *)args;
-
-  caller_ary = pargs[0];
-  curr_meth = pargs[1];
-  count_hash = rb_hash_aref(caller_info, curr_meth);
-
-  if(TYPE(count_hash) != T_HASH) { 
-    /* Qnil, anything else should be impossible unless somebody's been
-     * messing with ObjectSpace */
-    count_hash = rb_hash_new();
-    rb_hash_aset(caller_info, curr_meth, count_hash);
-  }
-
-  count = rb_hash_aref(count_hash, caller_ary);
-
-  if(count == Qnil) 
-          count = INT2FIX(0);
-
-  count = INT2FIX(FIX2UINT(count) + 1);
-  rb_hash_aset(count_hash, caller_ary, count);
-  /*
-  printf("CALLSITE: %s -> %s   %d\n", RSTRING(rb_inspect(curr_meth))->ptr,
-                  RSTRING(rb_inspect(caller_ary))->ptr, FIX2INT(count));
-  */
-
-  return Qnil;
-}
-
-static VALUE record_method_def_site(VALUE args) {
-  type_def_site *pargs = (type_def_site *)args;
-  VALUE def_site_info;
-  VALUE hash;
-
-  if(RTEST(rb_hash_aref(method_def_site_info, pargs->curr_meth)))
-    return Qnil;
-  def_site_info = rb_ary_new();
-  rb_ary_push(def_site_info, rb_str_new2(pargs->sourcefile));
-  rb_ary_push(def_site_info, INT2NUM(pargs->sourceline+1));
-  rb_hash_aset(method_def_site_info, pargs->curr_meth, def_site_info);
-  /*
-  printf("DEFSITE: %s:%d  for %s\n", pargs->sourcefile, pargs->sourceline+1,
-                  RSTRING(rb_inspect(pargs->curr_meth))->ptr);
-  */
-  
-  return Qnil;
-}
-
-static VALUE callsite_custom_backtrace(int lev) {
-  struct FRAME *frame = ruby_frame;
-  VALUE ary;
-  NODE *n;
-  VALUE level;
-  VALUE klass;
-
-  ary = rb_ary_new();
-
-  if (frame->last_func == ID_ALLOCATOR) {
-    frame = frame->prev;
-  }
-
-  for (; frame && (n = frame->node); frame = frame->prev) {
-    if (frame->prev && frame->prev->last_func) {
-      if (frame->prev->node == n) continue;
-      level = rb_ary_new();
-      klass = frame->prev->last_class ? frame->prev->last_class : Qnil;
-      if(TYPE(klass) == T_ICLASS) {
-        klass = CLASS_OF(klass);
-      }
-      rb_ary_push(level, klass);
-      rb_ary_push(level, ID2SYM(frame->prev->last_func));
-      rb_ary_push(level, rb_str_new2(n->nd_file));
-      rb_ary_push(level, INT2NUM(nd_line(n)));
-    }
-    else {
-      level = rb_ary_new();
-      rb_ary_push(level, Qnil);
-      rb_ary_push(level, Qnil);
-      rb_ary_push(level, rb_str_new2(n->nd_file));
-      rb_ary_push(level, INT2NUM(nd_line(n)));
-    }
-    rb_ary_push(ary, level);
-    if(--lev == 0)
-      break;
-  }
-  
-  return ary;
-}
-  
-static void coverage_event_callsite_hook(rb_event_t event, NODE *node, VALUE self,  ID mid, VALUE klass) {
-  VALUE caller_ary;
-  VALUE curr_meth;
-  VALUE args[2];
-  int status;
-
-  caller_ary = callsite_custom_backtrace(caller_stack_len);
-  
-  if(TYPE(klass) == T_ICLASS) {
-    klass = CLASS_OF(klass);
-  }
-
-  curr_meth = rb_ary_new();
-  rb_ary_push(curr_meth, klass);
-  rb_ary_push(curr_meth, ID2SYM(mid));
-
-  args[0] = caller_ary;
-  args[1] = curr_meth;
-  rb_protect(record_callsite_info, (VALUE)args, &status);
-
-  if(!status && node) {
-    type_def_site args;        
-    
-    args.sourcefile = node->nd_file;
-    args.sourceline = nd_line(node) - 1;
-    args.curr_meth = curr_meth;
-    rb_protect(record_method_def_site, (VALUE)&args, NULL);
-  }
-
-  if(status)
-    rb_gv_set("$!", Qnil);
-}
-
-static VALUE cov_install_callsite_hook(VALUE self) {
-  if(!callsite_hook_set_p) {
-    if(TYPE(caller_info) != T_HASH)
-      caller_info = rb_hash_new();
-    callsite_hook_set_p = 1;
-    rb_add_event_hook(coverage_event_callsite_hook, RUBY_EVENT_CALL);
-    
-    return Qtrue;
-  } 
-  else
-    return Qfalse;
-}
-
-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;
-  }
-}
-
-static VALUE cov_generate_callsite_info(VALUE self) {
-  VALUE ret;
-
-  ret = rb_ary_new();
-  rb_ary_push(ret, caller_info);
-  rb_ary_push(ret, method_def_site_info);
-  return ret;
-}
-
-static VALUE cov_reset_callsite(VALUE self) {
-  if(callsite_hook_set_p) {
-    rb_raise(rb_eRuntimeError, "Cannot reset the callsite info in the middle of a traced run.");
-    return Qnil;
-  }
-
-  caller_info = rb_hash_new();
-  method_def_site_info = rb_hash_new();
-  return Qnil;
-}
-
-void Init_rcov_callsite() {
-  VALUE mRcov;
-  VALUE mRCOV__;
-  ID id_rcov = rb_intern("Rcov");
-  ID id_coverage__ = rb_intern("RCOV__");
-  ID id_script_lines__ = rb_intern("SCRIPT_LINES__");
-
-  if(rb_const_defined(rb_cObject, id_rcov)) 
-    mRcov = rb_const_get(rb_cObject, id_rcov);
-  else
-    mRcov = rb_define_module("Rcov");
-  
-  if(rb_const_defined(mRcov, id_coverage__))
-    mRCOV__ = rb_const_get_at(mRcov, id_coverage__);
-  else
-    mRCOV__ = rb_define_module_under(mRcov, "RCOV__");
-
-  callsite_hook_set_p = 0;
-  caller_info = rb_hash_new();
-  method_def_site_info = rb_hash_new();
-  rb_gc_register_address(&caller_info);
-  rb_gc_register_address(&method_def_site_info);
- 
-  rb_define_singleton_method(mRCOV__, "install_callsite_hook", cov_install_callsite_hook, 0);
-  rb_define_singleton_method(mRCOV__, "remove_callsite_hook", cov_remove_callsite_hook, 0);
-  rb_define_singleton_method(mRCOV__, "generate_callsite_info", cov_generate_callsite_info, 0);
-  rb_define_singleton_method(mRCOV__, "reset_callsite", cov_reset_callsite, 0);
-}

data/dirty_history/ruby/1.9.1/gems/dirty_history-0.2.0/dirty_history/ruby/1.9.1/gems/rcov-0.9.11/ext/rcovrt/1.8/rcovrt.c

@@ -1,294 +0,0 @@
-#include <ruby.h>
-#include <env.h>
-#include <node.h>
-#include <st.h>
-#include <stdlib.h>
-#include <assert.h>
-
-#define COVERAGE_DEBUG_EVENTS 0
-
-#define RCOVRT_VERSION_MAJOR 2
-#define RCOVRT_VERSION_MINOR 0
-#define RCOVRT_VERSION_REV   0
-
-static VALUE mRcov;
-static VALUE mRCOV__;
-static VALUE oSCRIPT_LINES__;
-static ID id_cover;
-static st_table* coverinfo = 0;
-static char coverage_hook_set_p;
-
-struct cov_array {
-  unsigned int len;
-  unsigned int *ptr;
-};
-
-static struct cov_array *cached_array = 0;
-static char *cached_file = 0; 
-
-static struct cov_array * coverage_increase_counter_uncached(char *sourcefile, unsigned int sourceline, char mark_only) {
-  struct cov_array *carray = NULL;
- 
-  if(sourcefile == NULL) {
-    /* "can't happen", just ignore and avoid segfault */
-    return NULL;
-  } 
-  else if(!st_lookup(coverinfo, (st_data_t)sourcefile, (st_data_t*)&carray)) {
-    VALUE arr;
-    
-    arr = rb_hash_aref(oSCRIPT_LINES__, rb_str_new2(sourcefile));
-    if(NIL_P(arr)) 
-      return 0;
-    rb_check_type(arr, T_ARRAY);
-    carray = calloc(1, sizeof(struct cov_array));
-    carray->ptr = calloc(RARRAY(arr)->len, sizeof(unsigned int));
-    carray->len = RARRAY(arr)->len;
-    st_insert(coverinfo, (st_data_t)strdup(sourcefile), (st_data_t) carray);
-  } 
-  else {
-    /* recovered carray, sanity check */
-    assert(carray && "failed to create valid carray");
-  }
-
-  if(mark_only) {
-    if (carray && carray->len > sourceline) {
-      if(!carray->ptr[sourceline])
-        carray->ptr[sourceline] = 1;
-    } else {
-      #if COVERAGE_DEBUG_EVENTS
-        printf("DEBUG: %s carray->len:%d sourceline:%d\n",
-               sourcefile, carray->len, sourceline);
-      #endif
-    }
-  } else {
-    if (carray && carray->len > sourceline) {
-      carray->ptr[sourceline]++;
-    }
-  }
-
-  return carray;
-}
-
-static void coverage_mark_caller() {
-  struct FRAME *frame = ruby_frame;
-  NODE *n;
-
-  if (frame->last_func == ID_ALLOCATOR) {
-    frame = frame->prev;
-  }
-  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;
-      }
-      coverage_increase_counter_uncached(n->nd_file, nd_line(n) - 1, 1);
-    }
-    else {
-      coverage_increase_counter_uncached(n->nd_file, nd_line(n) - 1, 1);
-    }
-    break;
-  }
-}
-
-static void coverage_increase_counter_cached(char *sourcefile, int sourceline) {
-  if(cached_file == sourcefile && cached_array && cached_array->len > sourceline) {
-    cached_array->ptr[sourceline]++;
-    return;
-  }
-  cached_file = sourcefile;
-  cached_array = coverage_increase_counter_uncached(sourcefile, sourceline, 0);
-}
-
-static void coverage_event_coverage_hook(rb_event_t event, NODE *node, VALUE self, ID mid, VALUE klass) {
-  char *sourcefile;
-  unsigned int sourceline;
-  static unsigned int in_hook = 0;
- 
-  if(in_hook) {
-    return;
-  }
-
-  in_hook++;
-
-  #if COVERAGE_DEBUG_EVENTS
-    do {
-      int status;
-      VALUE old_exception;
-      old_exception = rb_gv_get("$!");
-      rb_protect(rb_inspect, klass, &status);
-      if(!status) {
-        printf("EVENT: %d %s %s %s %d\n", event,
-               klass ? RSTRING(rb_inspect(klass))->ptr : "", 
-               mid ? (mid == ID_ALLOCATOR ? "ID_ALLOCATOR" : rb_id2name(mid))
-               : "unknown",
-               node ? node->nd_file : "", node ? nd_line(node) : 0);
-      } 
-      else {
-        printf("EVENT: %d %s %s %d\n", event,
-               mid ? (mid == ID_ALLOCATOR ? "ID_ALLOCATOR" : rb_id2name(mid)) 
-               : "unknown",
-               node ? node->nd_file : "", node ? nd_line(node) : 0);
-      }
-      
-      rb_gv_set("$!", old_exception);
-    } while (0); 
-  #endif
-
-  if(event & RUBY_EVENT_C_CALL) {
-    coverage_mark_caller();
-  }
-  
-  if(event & (RUBY_EVENT_C_CALL | RUBY_EVENT_C_RETURN | RUBY_EVENT_CLASS)) {
-    in_hook--;
-    return;
-  }
-  
-  if(node == NULL) {
-    in_hook--;
-      return;
-  }
-  
-  sourcefile = node->nd_file;
-  sourceline = nd_line(node) - 1;
-  
-  coverage_increase_counter_cached(sourcefile, sourceline);
-  
-  if(event & RUBY_EVENT_CALL)
-    coverage_mark_caller();
-  in_hook--;
-}
-
-static VALUE cov_install_coverage_hook(VALUE self) {
-  if(!coverage_hook_set_p) {
-    if(!coverinfo)
-      coverinfo = st_init_strtable();
-    coverage_hook_set_p = 1;
-    /* TODO: allow C_CALL too, since it's supported already
-     * the overhead is around ~30%, tested on typo */
-    rb_add_event_hook(coverage_event_coverage_hook, RUBY_EVENT_ALL & ~RUBY_EVENT_C_CALL & ~RUBY_EVENT_C_RETURN & ~RUBY_EVENT_CLASS);
-    
-    return Qtrue;
-  }
-  else
-    return Qfalse;
-}
-
-static int populate_cover(st_data_t key, st_data_t value, st_data_t cover) {
-  VALUE rcover;
-  VALUE rkey;
-  VALUE rval;
-  struct cov_array *carray;
-  unsigned int i;
- 
-  rcover = (VALUE)cover;
-  carray = (struct cov_array *) value;
-  rkey = rb_str_new2((char*) key);
-  rval = rb_ary_new2(carray->len);
-
-  for(i = 0; i < carray->len; i++)
-    RARRAY(rval)->ptr[i] = UINT2NUM(carray->ptr[i]);
-
-  RARRAY(rval)->len = carray->len;
-  rb_hash_aset(rcover, rkey, rval);
-  
-  return ST_CONTINUE;
-}
-
-static int free_table(st_data_t key, st_data_t value, st_data_t ignored) {
-  struct cov_array *carray;
- 
-  carray = (struct cov_array *) value;
-  free((char *)key);
-  free(carray->ptr);
-  free(carray);
-
-  return ST_CONTINUE;
-}
-
-static VALUE cov_remove_coverage_hook(VALUE self) {
-  if(!coverage_hook_set_p) 
-    return Qfalse;
-  else {
-    rb_remove_event_hook(coverage_event_coverage_hook);
-    coverage_hook_set_p = 0;
-    return Qtrue;
-  }
-}
-
-static VALUE cov_generate_coverage_info(VALUE self) {
-  VALUE cover;
-
-  if(rb_const_defined_at(mRCOV__, id_cover)) {
-    rb_mod_remove_const(mRCOV__, ID2SYM(id_cover));
-  }
-
-  cover = rb_hash_new();
-
-  if(coverinfo)
-    st_foreach(coverinfo, populate_cover, cover);
-
-  rb_define_const(mRCOV__, "COVER", cover);
-
-  return cover;
-}
-
-static VALUE cov_reset_coverage(VALUE self) {
-  if(coverage_hook_set_p) {
-    rb_raise(rb_eRuntimeError, "Cannot reset the coverage info in the middle of a traced run.");
-    return Qnil;
-  }
-
-  cached_array = 0;
-  cached_file = 0;
-  st_foreach(coverinfo, free_table, Qnil); 
-  st_free_table(coverinfo);
-  coverinfo = 0;
-
-  return Qnil;
-}
-
-static VALUE cov_ABI(VALUE self) {
-  VALUE ret;
-  
-  ret = rb_ary_new();
-  rb_ary_push(ret, INT2FIX(RCOVRT_VERSION_MAJOR));
-  rb_ary_push(ret, INT2FIX(RCOVRT_VERSION_MINOR));
-  rb_ary_push(ret, INT2FIX(RCOVRT_VERSION_REV));
-  
-  return ret;
-}
-
-void Init_rcovrt() {
-  ID id_rcov = rb_intern("Rcov");
-  ID id_coverage__ = rb_intern("RCOV__");
-  ID id_script_lines__ = rb_intern("SCRIPT_LINES__");
- 
-  id_cover = rb_intern("COVER");
-  
-  if(rb_const_defined(rb_cObject, id_rcov)) 
-    mRcov = rb_const_get(rb_cObject, id_rcov);
-  else
-    mRcov = rb_define_module("Rcov");
-  
-  if(rb_const_defined(mRcov, id_coverage__))
-    mRCOV__ = rb_const_get_at(mRcov, id_coverage__);
-  else
-    mRCOV__ = rb_define_module_under(mRcov, "RCOV__");
-  
-  if(rb_const_defined(rb_cObject, id_script_lines__))
-    oSCRIPT_LINES__ = rb_const_get(rb_cObject, rb_intern("SCRIPT_LINES__"));
-  else {
-    oSCRIPT_LINES__ = rb_hash_new();
-    rb_const_set(rb_cObject, id_script_lines__, oSCRIPT_LINES__);
-  }
-  
-  coverage_hook_set_p = 0;
-  
-  rb_define_singleton_method(mRCOV__, "install_coverage_hook", cov_install_coverage_hook, 0);
-  rb_define_singleton_method(mRCOV__, "remove_coverage_hook",  cov_remove_coverage_hook, 0);
-  rb_define_singleton_method(mRCOV__, "generate_coverage_info", cov_generate_coverage_info, 0);
-  rb_define_singleton_method(mRCOV__, "reset_coverage", cov_reset_coverage, 0);
-  rb_define_singleton_method(mRCOV__, "ABI", cov_ABI, 0);
-  
-  Init_rcov_callsite();
-}