therubyrhino/lib/rhino/context.rb

module Rhino
  def function(&impl)
    Function.new &impl
  end
  
  class Context
    
    attr_reader :scope

    class << self
      def open(options = {})
        ContextFactory.new.call do |native|
          yield new(native, options)
        end
      end
                      
      private :new
    end    
    
    def initialize(native, options) #:nodoc:
      @native = native
      @scope = NativeObject.new(@native.initStandardObjects(nil, options[:sealed] == true))
      unless options[:java]
        for package in ["Packages", "java", "org", "com"]
          @scope.j.delete(package)
        end
      end      
    end
    
    def [](k)
      @scope[k]
    end
    
    def []=(k,v)
      @scope[k] = v
    end
                            
    def eval(str)
      str = str.to_s
      begin
        To.ruby @native.evaluateString(@scope.j, str, "<eval>", 1, nil)
      rescue J::RhinoException => e
        raise Rhino::RhinoError, e
      end
    end
    
    def instruction_limit=(limit)
      @native.setInstructionObserverThreshold(limit);
      @native.factory.instruction_limit = limit
    end
        
  end
    
  class Function < J::BaseFunction
    def initialize(callable = nil, &block)
      super()
      @block = callable || block
    end
    
    def call(cxt, scope, this, args)
      @block.call(*(args.map {|a| To.ruby(a)}))
    end
    
    def to_json(*args)
      '"[Native Function]"'
    end
  end
  
  class ContextFactory < J::ContextFactory
    
    def observeInstructionCount(cxt, count)
      raise RunawayScriptError, "script exceeded allowable instruction count" if count > @limit
    end
        
    def instruction_limit=(count)
      @limit = count
    end
  end
    
    
  class RhinoError < StandardError
    def initialize(native)
      @native = native
    end
    
    def message      
      @native.cause.details
    end
    
    def javascript_backtrace
      @native.getScriptStackTrace()
    end        
  end
  
  class RunawayScriptError < StandardError; end
end