looksee 1.0.3 → 1.1.0

data/ext/mri/2.0.0/method.h

@@ -0,0 +1,138 @@
+/**********************************************************************
+
+  method.h -
+
+  $Author: nobu $
+  created at: Wed Jul 15 20:02:33 2009
+
+  Copyright (C) 2009 Koichi Sasada
+
+**********************************************************************/
+#ifndef METHOD_H
+#define METHOD_H
+
+#ifndef END_OF_ENUMERATION
+# ifdef __GNUC__
+#   define END_OF_ENUMERATION(key)
+# else
+#   define END_OF_ENUMERATION(key) END_OF_##key##_PLACEHOLDER = 0
+# endif
+#endif
+
+typedef enum {
+    NOEX_PUBLIC    = 0x00,
+    NOEX_NOSUPER   = 0x01,
+    NOEX_PRIVATE   = 0x02,
+    NOEX_PROTECTED = 0x04,
+    NOEX_MASK      = 0x06,
+    NOEX_BASIC     = 0x08,
+    NOEX_UNDEF     = NOEX_NOSUPER,
+    NOEX_MODFUNC   = 0x12,
+    NOEX_SUPER     = 0x20,
+    NOEX_VCALL     = 0x40,
+    NOEX_RESPONDS  = 0x80,
+
+    NOEX_BIT_WIDTH = 8,
+    NOEX_SAFE_SHIFT_OFFSET = ((NOEX_BIT_WIDTH+3)/4)*4 /* round up to nibble */
+} rb_method_flag_t;
+
+#define NOEX_SAFE(n) ((int)((n) >> NOEX_SAFE_SHIFT_OFFSET) & 0x0F)
+#define NOEX_WITH(n, s) (((s) << NOEX_SAFE_SHIFT_OFFSET) | (n) | (ruby_running ? 0 : NOEX_BASIC))
+#define NOEX_WITH_SAFE(n) NOEX_WITH((n), rb_safe_level())
+
+/* method data type */
+
+typedef enum {
+    VM_METHOD_TYPE_ISEQ,
+    VM_METHOD_TYPE_CFUNC,
+    VM_METHOD_TYPE_ATTRSET,
+    VM_METHOD_TYPE_IVAR,
+    VM_METHOD_TYPE_BMETHOD,
+    VM_METHOD_TYPE_ZSUPER,
+    VM_METHOD_TYPE_UNDEF,
+    VM_METHOD_TYPE_NOTIMPLEMENTED,
+    VM_METHOD_TYPE_OPTIMIZED, /* Kernel#send, Proc#call, etc */
+    VM_METHOD_TYPE_MISSING,   /* wrapper for method_missing(id) */
+    VM_METHOD_TYPE_REFINED,
+
+    END_OF_ENUMERATION(VM_METHOD_TYPE)
+} rb_method_type_t;
+
+struct rb_call_info_struct;
+
+typedef struct rb_method_cfunc_struct {
+    VALUE (*func)(ANYARGS);
+    VALUE (*invoker)(VALUE (*func)(ANYARGS), VALUE recv, int argc, const VALUE *argv);
+    int argc;
+} rb_method_cfunc_t;
+
+typedef struct rb_method_attr_struct {
+    ID id;
+    VALUE location;
+} rb_method_attr_t;
+
+typedef struct rb_iseq_struct rb_iseq_t;
+
+typedef struct rb_method_definition_struct {
+    rb_method_type_t type; /* method type */
+    ID original_id;
+    union {
+	rb_iseq_t *iseq;            /* should be mark */
+	rb_method_cfunc_t cfunc;
+	rb_method_attr_t attr;
+	VALUE proc;                 /* should be mark */
+	enum method_optimized_type {
+	    OPTIMIZED_METHOD_TYPE_SEND,
+	    OPTIMIZED_METHOD_TYPE_CALL,
+
+	    OPTIMIZED_METHOD_TYPE__MAX
+	} optimize_type;
+	struct rb_method_entry_struct *orig_me;
+    } body;
+    int alias_count;
+} rb_method_definition_t;
+
+typedef struct rb_method_entry_struct {
+    rb_method_flag_t flag;
+    char mark;
+    rb_method_definition_t *def;
+    ID called_id;
+    VALUE klass;                    /* should be mark */
+} rb_method_entry_t;
+
+struct unlinked_method_entry_list_entry {
+    struct unlinked_method_entry_list_entry *next;
+    rb_method_entry_t *me;
+};
+
+#define UNDEFINED_METHOD_ENTRY_P(me) (!(me) || !(me)->def || (me)->def->type == VM_METHOD_TYPE_UNDEF)
+
+void rb_add_method_cfunc(VALUE klass, ID mid, VALUE (*func)(ANYARGS), int argc, rb_method_flag_t noex);
+rb_method_entry_t *rb_add_method(VALUE klass, ID mid, rb_method_type_t type, void *option, rb_method_flag_t noex);
+rb_method_entry_t *rb_method_entry(VALUE klass, ID id, VALUE *define_class_ptr);
+void rb_add_refined_method_entry(VALUE refined_class, ID mid);
+rb_method_entry_t *rb_resolve_refined_method(VALUE refinements,
+					     rb_method_entry_t *me,
+					     VALUE *defined_class_ptr);
+rb_method_entry_t *rb_method_entry_with_refinements(VALUE klass, ID id,
+						    VALUE *defined_class_ptr);
+rb_method_entry_t *rb_method_entry_without_refinements(VALUE klass, ID id,
+						       VALUE *defined_class_ptr);
+
+rb_method_entry_t *rb_method_entry_get_without_cache(VALUE klass, ID id, VALUE *define_class_ptr);
+rb_method_entry_t *rb_method_entry_set(VALUE klass, ID mid, const rb_method_entry_t *, rb_method_flag_t noex);
+
+int rb_method_entry_arity(const rb_method_entry_t *me);
+int rb_method_entry_eq(const rb_method_entry_t *m1, const rb_method_entry_t *m2);
+st_index_t rb_hash_method_entry(st_index_t hash, const rb_method_entry_t *me);
+
+VALUE rb_method_entry_location(rb_method_entry_t *me);
+VALUE rb_mod_method_location(VALUE mod, ID id);
+VALUE rb_obj_method_location(VALUE obj, ID id);
+
+void rb_mark_method_entry(const rb_method_entry_t *me);
+void rb_free_method_entry(rb_method_entry_t *me);
+void rb_sweep_method_entry(void *vm);
+void rb_free_m_table(st_table *tbl);
+
+#endif /* METHOD_H */

data/ext/mri/mri.c

@@ -1,10 +1,19 @@
 #include "ruby.h"
 
-#if RUBY_VERSION >= 193
+#if RUBY_VERSION >= 200
+#  include "method.h"
 #  include "internal.h"
+#elif RUBY_VERSION >= 193
+#  include "ruby/st.h"
+#  ifdef SA_EMPTY
+#    include "internal_falcon.h"
+#    define Looksee_method_table_foreach sa_foreach
+#    define Looksee_method_table_lookup sa_lookup
+#  else
+#    include "internal.h"
+#  endif
 #  include "vm_core.h"
 #  include "method.h"
-#  include "ruby/st.h"
 #elif RUBY_VERSION >= 192
 #  include "vm_core.h"
 #  include "method.h"
@@ -17,6 +26,11 @@
 #  include "st.h"
 #endif
 
+#ifndef Looksee_method_table_foreach
+#  define Looksee_method_table_foreach st_foreach
+#  define Looksee_method_table_lookup st_lookup
+#endif
+
 #if RUBY_VERSION < 187
 #  define RCLASS_IV_TBL(c) (RCLASS(c)->iv_tbl)
 #  define RCLASS_M_TBL(c) (RCLASS(c)->m_tbl)
@@ -77,8 +91,10 @@ typedef struct add_method_if_matching_arg {
 } add_method_if_matching_arg_t;
 
 static int add_method_if_matching(ID method_name, rb_method_entry_t *me, add_method_if_matching_arg_t *arg) {
+#  ifdef ID_ALLOCATOR
   if (method_name == ID_ALLOCATOR)
     return ST_CONTINUE;
+#  endif
 
   if (UNDEFINED_METHOD_ENTRY_P(me))
     return ST_CONTINUE;
@@ -90,6 +106,12 @@ static int add_method_if_matching(ID method_name, rb_method_entry_t *me, add_met
 }
 
 static int add_method_if_undefined(ID method_name, rb_method_entry_t *me, VALUE *names) {
+#  ifdef ID_ALLOCATOR
+  /* The allocator can be undefined with rb_undef_alloc_func, e.g. Struct. */
+  if (method_name == ID_ALLOCATOR)
+    return ST_CONTINUE;
+#  endif
+
   if (UNDEFINED_METHOD_ENTRY_P(me))
     rb_ary_push(*names, ID2SYM(method_name));
   return ST_CONTINUE;
@@ -111,9 +133,11 @@ typedef struct add_method_if_matching_arg {
 } add_method_if_matching_arg_t;
 
 static int add_method_if_matching(ID method_name, NODE *body, add_method_if_matching_arg_t *arg) {
+#  ifdef ID_ALLOCATOR
   /* This entry is for the internal allocator function. */
   if (method_name == ID_ALLOCATOR)
     return ST_CONTINUE;
+#  endif
 
   /* Module#undef_method:
    *   * sets body->nd_body to NULL in ruby <= 1.8
@@ -128,6 +152,12 @@ static int add_method_if_matching(ID method_name, NODE *body, add_method_if_matc
 }
 
 static int add_method_if_undefined(ID method_name, NODE *body, VALUE *names) {
+#  ifdef ID_ALLOCATOR
+  /* The allocator can be undefined with rb_undef_alloc_func, e.g. Struct. */
+  if (method_name == ID_ALLOCATOR)
+    return ST_CONTINUE;
+#  endif
+
   if (!body || !body->nd_body)
     rb_ary_push(*names, ID2SYM(method_name));
   return ST_CONTINUE;
@@ -139,7 +169,8 @@ static VALUE internal_instance_methods(VALUE klass, VISIBILITY_TYPE visibility)
   add_method_if_matching_arg_t arg;
   arg.names = rb_ary_new();
   arg.visibility = visibility;
-  st_foreach(RCLASS_M_TBL(klass), add_method_if_matching, (st_data_t)&arg);
+
+  Looksee_method_table_foreach(RCLASS_M_TBL(klass), add_method_if_matching, (st_data_t)&arg);
   return arg.names;
 }
 
@@ -173,7 +204,7 @@ VALUE Looksee_internal_private_instance_methods(VALUE self, VALUE klass) {
  */
 VALUE Looksee_internal_undefined_instance_methods(VALUE self, VALUE klass) {
   VALUE names = rb_ary_new();
-  st_foreach(RCLASS_M_TBL(klass), add_method_if_undefined, (st_data_t)&names);
+  Looksee_method_table_foreach(RCLASS_M_TBL(klass), add_method_if_undefined, (st_data_t)&names);
   return names;
 }
 
@@ -184,7 +215,7 @@ VALUE Looksee_singleton_class_p(VALUE self, VALUE object) {
 VALUE Looksee_singleton_instance(VALUE self, VALUE singleton_class) {
   if (BUILTIN_TYPE(singleton_class) == T_CLASS && FL_TEST(singleton_class, FL_SINGLETON)) {
     VALUE object;
-    if (!st_lookup(RCLASS_IV_TBL(singleton_class), rb_intern("__attached__"), (st_data_t *)&object))
+    if (!Looksee_method_table_lookup(RCLASS_IV_TBL(singleton_class), rb_intern("__attached__"), (st_data_t *)&object))
       rb_raise(rb_eRuntimeError, "[looksee bug] can't find singleton object");
     return object;
   } else {

data/lib/looksee.rbc

@@ -0,0 +1,92 @@
+!RBIX
+9595534255132031488
+x
+M
+1
+n
+n
+x
+10
+__script__
+i
+29
+5
+7
+0
+64
+47
+49
+1
+1
+15
+5
+7
+2
+64
+47
+49
+1
+1
+15
+45
+3
+4
+43
+5
+49
+6
+0
+15
+2
+11
+I
+2
+I
+0
+I
+0
+I
+0
+n
+p
+7
+s
+13
+looksee/clean
+x
+7
+require
+s
+16
+looksee/core_ext
+x
+7
+Looksee
+n
+x
+19
+WirbleCompatibility
+x
+4
+init
+p
+7
+I
+0
+I
+1
+I
+9
+I
+2
+I
+12
+I
+5
+I
+1d
+x
+35
+/Users/g/src/looksee/lib/looksee.rb
+p
+0

data/lib/looksee/adapter.rbc

@@ -0,0 +1,303 @@
+!RBIX
+9595534255132031488
+x
+M
+1
+n
+n
+x
+10
+__script__
+i
+28
+99
+7
+0
+65
+49
+1
+2
+13
+99
+12
+7
+2
+12
+7
+3
+12
+65
+12
+49
+4
+4
+15
+49
+2
+0
+15
+2
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+5
+x
+7
+Looksee
+x
+11
+open_module
+x
+15
+__module_init__
+M
+1
+n
+n
+x
+7
+Looksee
+i
+28
+5
+66
+99
+7
+0
+65
+49
+1
+2
+13
+99
+12
+7
+2
+12
+7
+3
+12
+65
+12
+49
+4
+4
+15
+49
+2
+0
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+5
+x
+7
+Adapter
+x
+11
+open_module
+x
+15
+__module_init__
+M
+1
+n
+n
+x
+7
+Adapter
+i
+63
+5
+66
+5
+7
+0
+7
+1
+64
+47
+49
+2
+2
+15
+5
+7
+3
+7
+4
+45
+5
+6
+43
+7
+43
+8
+7
+9
+64
+49
+10
+1
+47
+101
+11
+63
+2
+47
+49
+2
+2
+15
+5
+7
+12
+7
+13
+64
+47
+49
+2
+2
+15
+5
+7
+14
+7
+15
+64
+47
+49
+2
+2
+11
+I
+5
+I
+0
+I
+0
+I
+0
+n
+p
+16
+x
+4
+Base
+s
+20
+looksee/adapter/base
+x
+8
+autoload
+x
+3
+MRI
+s
+12
+looksee/mri.
+x
+7
+Looksee
+n
+x
+6
+Config
+x
+6
+CONFIG
+s
+5
+DLEXT
+x
+2
+[]
+x
+4
+to_s
+x
+5
+JRuby
+s
+17
+looksee/JRuby.jar
+x
+8
+Rubinius
+s
+24
+looksee/adapter/rubinius
+p
+9
+I
+2
+I
+3
+I
+d
+I
+4
+I
+29
+I
+5
+I
+34
+I
+6
+I
+3f
+x
+43
+/Users/g/src/looksee/lib/looksee/adapter.rb
+p
+0
+x
+13
+attach_method
+p
+3
+I
+2
+I
+2
+I
+1c
+x
+43
+/Users/g/src/looksee/lib/looksee/adapter.rb
+p
+0
+x
+13
+attach_method
+p
+3
+I
+0
+I
+1
+I
+1c
+x
+43
+/Users/g/src/looksee/lib/looksee/adapter.rb
+p
+0