2012-05-06 5 views
0

cでrb_function(rb_ivar_getなど)をオーバーライドする方法を理解できません。 私は次のコードを持っている:ルビC拡張のrb_関数はどのように上書きされますか?

#include "ruby.h" 

void Init_metaobject(); 
VALUE meta_cObject = Qnil; 
VALUE meta_ivar_get(VALUE obj, VALUE mId, VALUE mWarn); 
VALUE meta_ivar_set(VALUE obj, VALUE mId, VALUE val); 

void Init_metaobject() { 
    meta_cObject = rb_define_class("MetaObject", rb_cObject); 
    rb_define_method(meta_cObject, "meta_ivar_get", meta_ivar_get, 2); 
    rb_define_method(meta_cObject, "meta_ivar_set", meta_ivar_set, 2); 
} 

VALUE 
rb_ivar_get(obj, id) 
    VALUE obj; 
    ID id; 
{ 
    return meta_ivar_get(obj, ID2SYM(id), Qtrue); 
} 

VALUE 
rb_attr_get(obj, id) 
    VALUE obj; 
    ID id; 
{ 
    return meta_ivar_get(obj, ID2SYM(id), Qfalse); 
} 

VALUE 
rb_ivar_set(obj, id, val) 
    VALUE obj; 
    ID id; 
    VALUE val; 
{ 
    return meta_ivar_set(obj, ID2SYM(id), val); 
} 

VALUE 
meta_ivar_get(obj, mId, mWarn) 
    VALUE obj; 
    VALUE mId; 
    VALUE mWarn; 
{ 
    VALUE val; 
    ID id = rb_to_id(id); 
    int warn = RTEST(warn); 

    switch (TYPE(obj)) { 
     case T_OBJECT: 
     case T_CLASS: 
     case T_MODULE: 
    if (ROBJECT(obj)->iv_tbl && st_lookup(ROBJECT(obj)->iv_tbl, id, &val)) 
     return val; 
    break; 
     default: 
    if (FL_TEST(obj, FL_EXIVAR) || rb_special_const_p(obj)) 
     return generic_ivar_get(obj, id, warn); 
    break; 
    } 
    if (warn) { 
    rb_warning("instance variable %s not initialized", rb_id2name(id)); 
    } 
    return Qnil; 
} 

VALUE 
meta_ivar_set(obj, mId, val) 
    VALUE obj; 
    VALUE mId; 
    VALUE val; 
{ 
    ID id = rb_to_id(mId); 
    if (!OBJ_TAINTED(obj) && rb_safe_level() >= 4) 
    rb_raise(rb_eSecurityError, "Insecure: can't modify instance variable"); 
    if (OBJ_FROZEN(obj)) rb_error_frozen("object"); 
    switch (TYPE(obj)) { 
     case T_OBJECT: 
     case T_CLASS: 
     case T_MODULE: 
    if (!ROBJECT(obj)->iv_tbl) ROBJECT(obj)->iv_tbl = st_init_numtable(); 
    st_insert(ROBJECT(obj)->iv_tbl, id, val); 
    break; 
     default: 
    generic_ivar_set(obj, id, val); 
    break; 
    } 
    return val; 
} 

そして、次のテスト:

require 'metaobject' 

class Tracker < MetaObject 

    attr_accessor :ivar 

    def initialize 
    @ivar = nil 
    end 

    def meta_ivar_get(symbol, warn) 
    puts "Instance variable, #{symbol}, retrieved" 
    super(symbol, warn) 
    end 

    def meta_ivar_set(symbol, obj) 
    puts "Instance variable, #{symbol}, changed to #{obj.inspect}" 
    super(symbol, obj) 
    end 

end 

obj = Tracker.new 
obj.ivar = "Modified" 
puts obj.ivar 

のみとなっている出力:

Modified 

私の考えは、ルビーリンカーが私をベーリングされていることですがvariables.cに定義されているrb_ivar_get、rb_attr_get、およびrb_ivar_setの定義。私は正しい?もしそうなら、どうすれば私の方法がルビーのベールであり、それ以外の方法でベールルビーのものを変更することができます。

答えて

2

追加の.soファイルでは実行できません。内部のRuby関数を編集する唯一の方法は、それを直接変更することです。 variable.cに移動し、それを編集してインタープリタ全体を再コンパイルします。代わりに、attr_accessorを上書きすることができます。

EDIT

set_trace_funcのもう一つの解決策。これは非常に遅く、私はこれを行う正しい方法です厚さではありません。とにかく、ここにある:

$instance_variables_table = {} 
$instance_variable_created_proc = proc do |var, value| 
    puts "Instance variable #{var} created with #{value.inspect}." 
end 
$instance_variable_changed_proc = proc do |var, new, old| 
    puts "Instance variable #{var} changed from #{old.inspect} to #{new.inspect}." 
end 

set_trace_func(proc {|type, file, line, func, binding, mod| 
    unless type == "call" 
    eval("instance_variables", binding).each do |iv| 
     value = eval("instance_variable_get(:#{iv})", binding) 
     if $instance_variables_table.has_key? iv 
     if $instance_variables_table[iv] != value 
      new = value 
      old = $instance_variables_table[iv] 
      $instance_variable_changed_proc[iv, new, old] 
     end 
     else 
     $instance_variable_created_proc[iv, value] 
     end 
    end 
    end 
    $instance_variables_table = {} 
    eval("instance_variables", binding).each do |iv| 
    $instance_variables_table[iv] = eval("instance_variable_get(:#{iv})", binding) 
    end 
}) 

テストコード:

class A 
    def initialize 
    @test = 1 
    @test = 2 
    end 
    def a 
    @test = 3 
    end 
end 
A.new.a 

出力:それはすべての場合に動作するかどうか、それを簡素化することができる場合

Instance variable @test created with 1. 
Instance variable @test changed from 1 to 2. 
Instance variable @test changed from 2 to 3. 

私はよく分かりません。実際のアプリケーションでそれを行う場合は、variable.cを編集してください。

+0

私にとって、この拡張機能を追加する主なポイントは、 '@ivar ="いくつかの値の呼び出しに対して直接修正を追跡できるからです。 'attr_accessor'を上書きすることはできません。だから、私がソースを編集して再コンパイルしなければならないと言っているのですが、それ以外の方法はありませんか? – tophat

+0

私が知る限り、いいえ。 –

+0

エディションを参照してください。 –

関連する問題