class ExecJS::RubyRhinoRuntime::Context

def call(properties, *args)
  # Might no longer be necessary if therubyrhino handles Symbols directly:
  # https://github.com/rubyjs/therubyrhino/issues/43
  converted_args = JSON.parse(JSON.generate(args), create_additions: false)
  unbox @rhino_context.eval(properties).call(*converted_args)
rescue Exception => e
  raise wrap_error(e)
end

def eval(source, options = {})
  source = source.encode(Encoding::UTF_8)
  if /\S/ =~ source
    unbox @rhino_context.eval("(#{source})")
  end
rescue Exception => e
  raise wrap_error(e)
end

def exec(source, options = {})
  source = source.encode(Encoding::UTF_8)
  if /\S/ =~ source
    eval "(function(){#{source}})()", options
  end
end

def fix_memory_limit!(context)
  if context.respond_to?(:optimization_level=)
    context.optimization_level = -1
  else
    context.instance_eval { @native.setOptimizationLevel(-1) }
  end
end

def initialize(runtime, source = "", options = {})
  source = source.encode(Encoding::UTF_8)
  @rhino_context = ::Rhino::Context.new
  fix_memory_limit! @rhino_context
  @rhino_context.eval(source)
rescue Exception => e
  raise wrap_error(e)
end

def unbox(value)
  case value = ::Rhino::to_ruby(value)
  when Java::OrgMozillaJavascript::NativeFunction
    nil
  when Java::OrgMozillaJavascript::NativeObject
    value.inject({}) do |vs, (k, v)|
      case v
      when Java::OrgMozillaJavascript::NativeFunction, ::Rhino::JS::Function
        nil
      else
        vs[k] = unbox(v)
      end
      vs
    end
  when Array
    value.map { |v| unbox(v) }
  else
    value
  end
end

def wrap_error(e)
  return e unless e.is_a?(::Rhino::JSError)
  error_class = e.message == "syntax error" ? RuntimeError : ProgramError
  stack = e.backtrace
  stack = stack.map { |line| line.sub(" at ", "").sub("<eval>", "(execjs)").strip }
  stack.unshift("(execjs):1") if e.javascript_backtrace.empty?
  error = error_class.new(e.value.to_s)
  error.set_backtrace(stack)
  error
end