rework callbacks

lib/v8/callbacks.rb

@@ -0,0 +1,88 @@
+
+module V8
+  module C
+    class MethodInfo
+      
+      attr_reader :perl_methods, :camel_methods
+      
+      def initialize(object)
+        @object = object
+        @methods = Set.new
+        for name in object.public_methods(false) do
+          @methods << name.to_s
+        end
+      end
+      
+      def find(name)
+        for format in [name, To.perl_case(name), To.camel_case(name)]
+          return @object.method(format) if @methods.include?(format)
+        end
+      end
+    end
+  end
+  
+  class NamedPropertyGetter
+    def self.call(property, info)
+      methods = MethodInfo(To.rb(info.This()))
+      
+      if method = methods.find(To.rb(property))
+        if method.arity == 0
+          To.v8(method.call)
+        else
+          To.v8(method)
+        end
+      else
+        C::Empty
+      end
+
+    #   method_name = if methods.include?(name)
+    #     name
+    #   elsif methods.include?(perl_name)
+    #     perl_name
+    #   end
+    #   if method_name
+    #     method = obj.method(method_name)
+    #     if method.arity == 0
+    #       To.v8(method.call())
+    #     else
+    #       To.v8(method)
+    #     end
+    #   else
+    #     C::Empty
+    #   end
+    # end
+  end
+
+  class NamedPropertySetter
+    def self.call(property, value, info)
+      obj = To.rb(info.This())
+      setter = To.rb(property) + "="
+      camel_name = To.camel_case(setter)
+      perl_name = To.perl_case(setter)
+      methods = obj.public_methods(false).map(&:to_s)
+      if methods.include?(perl_name)
+        obj.send(perl_name, To.rb(value))
+      elsif methods.include?(camel_name)
+        obj.send(camel_name, To.rb(value))
+      else
+         C::Empty
+      end
+    end
+  end
+  
+  class NamedPropertyEnumerator
+    def self.call(info)
+      obj = To.rb(info.This())
+      camel_methods = obj.public_methods(false).inject(Set.new) do |set, name|
+        set.tap do
+          set << To.camel_case(name)
+        end
+      end
+      names = V8::C::Array::New(camel_methods.length)
+      camel_methods.each_with_index do |name, i|
+        names.Set(i, C::String::New(name))
+      end
+      return names
+    end
+  end
+end