therubyracer-freebsd 0.10.1

data/lib/v8/object.rb

@@ -0,0 +1,69 @@
+
+module V8
+  class Object
+    include Enumerable
+
+    def initialize(native, portal)
+      @native, @portal = native, portal
+    end
+
+    def [](key)
+      @portal.open do |to|
+        to.rb(@native.Get(to.v8(key)))
+      end
+    end
+
+    def []=(key, value)
+      value.tap do
+        @portal.open do |to|
+          @native.Set(to.v8(key), to.v8(value))
+        end
+      end
+    end
+
+    def to_s
+      @portal.open do |to|
+        to.rb(@native.ToString())
+      end
+    end
+
+    def each
+      @portal.open do |to|
+        for prop in to.rb(@native.GetPropertyNames())
+          yield prop, self[prop]
+        end
+      end
+    end
+
+    def respond_to?(method)
+      super or self[method] != nil
+    end
+
+    def method_missing(name, *args, &block)
+      if name.to_s =~ /(.*)=$/
+        if args.length > 1
+          self[$1] = args
+          return args
+        else
+          self[$1] = args.first
+          return args
+        end
+      end
+      return super(name, *args, &block) unless self.respond_to?(name)
+      property = self[name]
+      if property.kind_of?(V8::Function)
+        property.methodcall(self, *args)
+      elsif args.empty?
+        property
+      else
+        raise ArgumentError, "wrong number of arguments (#{args.length} for 0)" unless args.empty?
+      end
+    end
+  end
+end
+
+class Object  
+  def eval_js(javascript)
+    V8::Context.new(:with => self).eval(javascript)
+  end
+end

data/lib/v8/portal.rb

@@ -0,0 +1,86 @@
+
+module V8
+  class Portal
+    attr_reader :context, :access, :proxies, :templates, :interceptors, :caller
+
+    def initialize(context, access)
+      @context, @access = context, access
+      @proxies = Proxies.new
+      @templates = Templates.new(self)
+      @interceptors = Interceptors.new(self)
+      @caller = Caller.new(self)
+    end
+
+    def lock
+      lock = V8::C::Locker.new
+      yield
+    ensure
+      lock.delete
+    end
+
+    def open
+      lock do
+        @context.native.enter do
+          yield(self)
+        end if block_given?
+      end
+    end
+
+    def rb(value)
+      @proxies.js2rb(value) do
+        case value
+          when V8::C::Function    then V8::Function.new(value, self)
+          when V8::C::Array       then V8::Array.new(value, self)
+          when V8::C::Object      then V8::Object.new(value, self)
+          when V8::C::String      then value.Utf8Value.tap {|s| return s.respond_to?(:force_encoding) ? s.force_encoding("UTF-8") : s}
+          when V8::C::Date        then Time.at(value.NumberValue() / 1000)
+          when V8::C::StackTrace  then V8::StackTrace.new(self, value)
+          when V8::C::Value       then nil if value.IsEmpty()
+        else
+          value
+        end
+      end
+    end
+
+    def v8(value)
+      case value
+      when V8::Object
+        value.instance_eval {@native}
+      when String
+        C::String::New(value)
+      when Symbol
+        C::String::NewSymbol(value.to_s)
+      when Proc,Method,UnboundMethod
+        @proxies.rb2js(value) do
+          @templates.to_function(value).function
+        end
+      when ::Array
+        C::Array::New(value.length).tap do |a|
+          value.each_with_index do |item, i|
+            a.Set(i, v8(item))
+          end
+        end
+      when ::Hash
+        C::Object::New().tap do |o|
+          value.each do |key, val|
+            o.Set(v8(key), v8(val))
+          end
+        end
+      when ::Time
+        C::Date::New(value.to_f * 1000)
+      when ::Class
+        @proxies.rb2js(value) do
+          constructor = @templates.to_constructor(value)
+          constructor.exposed = true
+          constructor.function
+        end
+      when nil,Numeric,TrueClass,FalseClass, C::Value
+        value
+      else
+        @proxies.rb2js(value) do
+          @templates.to_constructor(value.class).allocate(value)
+        end
+      end
+    end
+  end
+end

data/lib/v8/portal/caller.rb

@@ -0,0 +1,37 @@
+
+module V8
+  class Portal
+    class Caller
+
+      def initialize(portal)
+        @portal = portal
+      end
+
+      def raw
+        yield
+      rescue Exception => e
+        case e
+        when SystemExit, NoMemoryError
+          raise e
+        else
+          error = V8::C::Exception::Error(V8::C::String::New(e.message))
+          #TODO: This is almost certainly a crash here.
+          #we need to hold onto `error` while it bubbles up the javascript stack.
+          error.SetHiddenValue("TheRubyRacer::Cause", C::External::New(e))
+          V8::C::ThrowException(error)
+        end
+      end
+
+      def protect(*args, &block)
+        @portal.v8 raw(*args, &block)
+      end
+
+      def invoke(code, *args, &block)
+        protect do
+          args = args.slice(0, code.arity) if code.arity >= 0
+          code.call(*args, &block)
+        end
+      end
+    end
+  end
+end

data/lib/v8/portal/constructor.rb

@@ -0,0 +1,98 @@
+
+module V8
+  class Portal
+    class ConstructorAdapter
+      attr_reader :template, :exposed
+      alias_method :exposed?, :exposed
+
+      def initialize(templates, class_id)
+        @exposed = false
+        @class_id = class_id
+        @templates = templates
+        @invoke = method(:invoke)
+        @template = C::FunctionTemplate::New(@invoke)
+        portal.interceptors.setup(@template.InstanceTemplate())
+        cls = self.ruby_class
+        superclass = cls.superclass
+        if cls != ::Object && superclass != ::Object && superclass != ::Class
+          @template.Inherit(templates.to_constructor(superclass).template)
+        end
+        if cls.name && cls.name =~ /(::)?(\w+?)$/
+          template.SetClassName(C::String::NewSymbol("rb::" + $2))
+        else
+          template.SetClassName("Ruby")
+        end
+      end
+
+      def function
+        @template.GetFunction()
+      end
+
+      def allocate(object)
+        arguments = C::Array::New(1)
+        arguments.Set(0, C::External::New(object))
+        function.NewInstance(arguments)
+      end
+
+      def disable
+        @disabled = true
+      end
+
+      def enable
+        @disabled = nil
+      end
+
+      def invoke(arguments)
+        return if @disabled
+        if !@exposed
+          unless arguments.Length() == 1 && arguments[0].kind_of?(C::External)
+            C::ThrowException(C::Exception::Error(C::String::New("cannot call native constructor from javascript")))
+          else
+            object = arguments[0].Value()
+            proxies.register_javascript_proxy arguments.This(), :for => object
+          end
+        else
+          instance = nil
+          if arguments.Length() > 0 && arguments[0].kind_of?(C::External)
+            instance = arguments[0].Value()
+          else
+            rbargs = []
+            for i in 0..arguments.Length() - 1
+              rbargs << @templates.portal.rb(arguments[i])
+            end
+            instance = portal.caller.raw do
+              self.ruby_class.new(*rbargs)
+            end
+          end
+          proxies.register_javascript_proxy arguments.This(), :for => instance
+        end
+      end
+
+      def exposed=(exposed)
+        if exposed && !@augmented
+          #create a prototype so that this constructor also acts like a ruby object
+          prototype_template = C::ObjectTemplate::New()
+          portal.interceptors.setup(prototype_template)
+          prototype = prototype_template.NewInstance()
+          #set *that* object's prototype to an empty function so that it will look and behave like a function.
+          prototype.SetPrototype(C::FunctionTemplate::New().GetFunction())
+          template.GetFunction().SetPrototype(prototype)
+          @augmented = true
+        end
+        @exposed = exposed
+      end
+
+      def ruby_class
+        ObjectSpace._id2ref(@class_id)
+      end
+
+      def proxies
+        @templates.proxies
+      end
+
+      def portal
+        @templates.portal
+      end
+    end
+  end
+end

data/lib/v8/portal/function.rb

@@ -0,0 +1,63 @@
+module V8
+  class Portal
+    class FunctionAdapter
+
+      attr_reader :template
+
+      def initialize(portal, code)
+        @portal = portal
+        @caller = case code
+        when Method then BoundCall.new(portal)
+        when UnboundMethod then BindAndCall.new(portal)
+        else Call.new(portal)
+        end
+        @code = code
+        @template = V8::C::FunctionTemplate::New(@caller, @code)
+      end
+
+      def function
+        @template.GetFunction()
+      end
+
+      class Call
+        def initialize(portal)
+          @portal = portal
+        end
+
+        def call(arguments)
+          proc = arguments.Data()
+          rbargs = [@portal.rb(arguments.This())]
+          for i in 0..arguments.Length() - 1
+            rbargs << @portal.rb(arguments[i])
+          end
+          @portal.caller.invoke(proc, *rbargs)
+        end
+      end
+
+      class BoundCall < Call
+        def call(arguments)
+          proc = arguments.Data()
+          rbargs = []
+          for i in 0..arguments.Length() - 1
+            rbargs << @portal.rb(arguments[i])
+          end
+          @portal.caller.invoke(proc, *rbargs)
+        end
+      end
+
+      class BindAndCall < Call
+        def call(arguments)
+          method = arguments.Data()
+          rbargs = []
+          for i in 0..arguments.Length() - 1
+            rbargs << @portal.rb(arguments[i])
+          end
+          this = @portal.rb(arguments.This())
+          @portal.caller.protect do
+            method.bind(this).call(*rbargs)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/v8/portal/interceptors.rb

@@ -0,0 +1,152 @@
+module V8
+  class Portal
+    class Interceptors
+      def initialize(portal)
+        @getter = NamedPropertyGetter.new(portal)
+        @setter = NamedPropertySetter.new(portal)
+        @query = nil
+        @deleter = nil
+        @enumerator = NamedPropertyEnumerator.new(portal)
+        @igetter = IndexedPropertyGetter.new(portal)
+        @isetter = IndexedPropertySetter.new(portal)
+        @iquery = nil
+        @ideleter = nil
+        @ienumerator = IndexedPropertyEnumerator.new(portal)
+      end
+
+      def setup(template)
+        template.SetNamedPropertyHandler(@getter,@setter,@query,@deleter,@enumerator, nil)
+        template.SetIndexedPropertyHandler(@igetter,@isetter,@iquery,@ideleter,@ienumerator, nil)
+      end
+
+      class PropertyAttributes
+        attr_reader :flags
+        def initialize
+          @flags = 0
+        end
+
+        def read_only
+          tap do
+            @flags |= V8::C::ReadOnly
+          end
+        end
+
+        def dont_enum
+          tap do
+            @flags |= V8::C::DontEnum
+          end
+        end
+
+        def dont_delete
+          tap do
+            @flags |= V8::C::DontDelete
+          end
+        end
+      end
+
+      class Interceptor
+
+        def initialize(portal)
+          @to, @access = portal, portal.access
+        end
+
+        def intercept(info, retval = nil, &code)
+          obj = @to.rb(info.This())
+          intercepts = true
+          result = @to.caller.protect do
+            dontintercept = proc do
+              intercepts = false
+            end
+            code.call(obj, dontintercept)
+          end
+          intercepts ? (retval || result) : C::Empty
+        end
+      end
+
+      class NamedPropertyGetter < Interceptor
+        def call(property, info)
+          intercept(info) do |obj, dontintercept|
+            @access.get(obj, @to.rb(property), &dontintercept)
+          end
+        end
+      end
+
+      class NamedPropertySetter < Interceptor
+        def call(property, value, info)
+          intercept(info, value) do |obj, dontintercept|
+            @access.set(obj, @to.rb(property), @to.rb(value), &dontintercept)
+          end
+        end
+      end
+
+      class NamedPropertyQuery
+        def call(property, info)
+          attributes = PropertyAttributes.new
+          result = intercept(info) do |obj, dontintercept|
+            @access.query(obj, @to.rb(property), attributes, &dontintercept)
+          end
+          return result == C::Empty ? result : C::Integer::New(attributes.flags)
+        end
+      end
+
+      class NamedPropertyEnumerator < Interceptor
+        def call(info)
+          intercept(info) do |obj, dontintercept|
+            @access.names(obj, &dontintercept).to_a
+          end
+        end
+      end
+
+      class NamedPropertyDeleter < Interceptor
+        def call(property, info)
+          intercept(info) do |obj, dontintercept|
+            @access.delete(obj, property, &dontintercept)
+          end
+        end
+      end
+
+      class IndexedPropertyGetter < Interceptor
+        def call(index, info)
+          intercept(info) do |obj, dontintercept|
+            @access.iget(obj, index, &dontintercept)
+          end
+        end
+      end
+
+      class IndexedPropertySetter < Interceptor
+        def call(index, value, info)
+          intercept(info, value) do |obj, dontintercept|
+            @access.iset(obj, index, @to.rb(value), &dontintercept)
+          end
+        end
+      end
+
+      class IndexedPropertyQuery < Interceptor
+        def call(property, info)
+          attributes = PropertyAttributes.new
+          result = intercept(info) do |obj, dontintercept|
+            @access.indices(obj, &dontintercept)
+          end
+          result == C::Empty ? C::Empty : C::Integer::New(attributes.flags)
+        end
+      end
+
+      class IndexedPropertyDeleter < Interceptor
+        def call(index, info)
+          intercept(info) do |obj, dontintercept|
+            @access.idelete(obj, index, &dontintercept)
+          end
+        end
+      end
+
+      class IndexedPropertyEnumerator < Interceptor
+        def call(info)
+          intercept(info) do |obj, dontintercept|
+            @access.indices(obj, &dontintercept)
+          end
+        end
+      end
+    end
+  end
+end
+