Begin porting CallSite to C++

src/builtins/builtins-callsite.cc

Index: src/builtins/builtins-callsite.cc
diff --git a/src/builtins/builtins-callsite.cc b/src/builtins/builtins-callsite.cc
new file mode 100644
index 0000000000000000000000000000000000000000..89b846927da78cae54e16450c4eac7a25a9f3713
--- /dev/null
+++ b/src/builtins/builtins-callsite.cc
@@ -0,0 +1,389 @@
+// Copyright 2016 the V8 project authors. All rights reserved.
+// Use of this source code is governed by a BSD-style license that can be
+// found in the LICENSE file.
+
+#include "src/builtins/builtins.h"
+#include "src/builtins/builtins-utils.h"
+
+#include "src/string-builder.h"
+#include "src/wasm/wasm-module.h"
+
+namespace v8 {
+namespace internal {
+
+#define CHECK_CALLSITE(recv, method)                                          \
+  CHECK_RECEIVER(JSObject, recv, method);                                     \
+  if (!JSReceiver::HasOwnProperty(                                            \
+           recv, isolate->factory()->call_site_position_symbol())             \
+           .FromMaybe(false)) {                                               \
+    THROW_NEW_ERROR_RETURN_FAILURE(                                           \
+        isolate,                                                              \
+        NewTypeError(MessageTemplate::kCallSiteMethod,                        \
+                     isolate->factory()->NewStringFromAsciiChecked(method))); \
+  }
+
+#define SET_CALLSITE_PROPERTY(target, key, value)        \
+  RETURN_FAILURE_ON_EXCEPTION(                           \
+      isolate, JSObject::SetOwnPropertyIgnoreAttributes( \
+                   target, isolate->factory()->key(), value, DONT_ENUM))
+
+BUILTIN(CallSiteConstructor) {
+  HandleScope scope(isolate);
+  Handle<JSFunction> target = args.target<JSFunction>();
+  Handle<HeapObject> new_target_obj = args.new_target();
+  Handle<Object> receiver = args.atOrUndefined(isolate, 1);
+  Handle<Object> fun = args.atOrUndefined(isolate, 2);
+  Handle<Object> pos = args.atOrUndefined(isolate, 3);
+  Handle<Object> strict_mode = args.atOrUndefined(isolate, 4);
+
+  // Create the JS object.
+
+  Handle<JSReceiver> new_target = new_target_obj->IsJSReceiver()
+                                      ? Handle<JSReceiver>::cast(new_target_obj)
+                                      : Handle<JSReceiver>::cast(target);
+
+  Handle<JSObject> obj;
+  ASSIGN_RETURN_FAILURE_ON_EXCEPTION(isolate, obj,
+                                     JSObject::New(target, new_target));
+
+  // For wasm frames, receiver is the wasm object and fun is the function index
+  // instead of an actual function.
+  const bool is_wasm_object =
+      receiver->IsJSObject() && wasm::IsWasmObject(JSObject::cast(*receiver));
+  if (!fun->IsJSFunction() && !is_wasm_object) {
+    THROW_NEW_ERROR_RETURN_FAILURE(
+        isolate, NewTypeError(MessageTemplate::kCallSiteExpectsFunction,
+                              Object::TypeOf(isolate, receiver),
+                              Object::TypeOf(isolate, fun)));
+  }
+
+  if (is_wasm_object) {
+    DCHECK(!fun->IsJSFunction());
+    SET_CALLSITE_PROPERTY(obj, call_site_wasm_obj_symbol, receiver);
+
+    Handle<Object> fun_index;
+    ASSIGN_RETURN_FAILURE_ON_EXCEPTION(isolate, fun_index,
+                                       Object::ToUint32(isolate, fun));
+    SET_CALLSITE_PROPERTY(obj, call_site_wasm_func_index_symbol, fun);
+  } else {
+    DCHECK(fun->IsJSFunction());
+    SET_CALLSITE_PROPERTY(obj, call_site_receiver_symbol, receiver);
+    SET_CALLSITE_PROPERTY(obj, call_site_function_symbol, fun);
+  }
+
+  Handle<Object> pos_int32;
+  ASSIGN_RETURN_FAILURE_ON_EXCEPTION(isolate, pos_int32,
+                                     Object::ToInt32(isolate, pos));
+  SET_CALLSITE_PROPERTY(obj, call_site_position_symbol, pos_int32);
+  SET_CALLSITE_PROPERTY(
+      obj, call_site_strict_symbol,
+      isolate->factory()->ToBoolean(strict_mode->BooleanValue()));
+
+  return *obj;
+}
+
+#undef SET_CALLSITE_PROPERTY
+
+namespace {
+
+Object* PositiveNumberOrNull(int value, Isolate* isolate) {
+  if (value >= 0) return *isolate->factory()->NewNumberFromInt(value);
+  return isolate->heap()->null_value();
+}
+
+}  // namespace
+
+BUILTIN(CallSitePrototypeGetColumnNumber) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getColumnNumber");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+  return PositiveNumberOrNull(call_site.GetColumnNumber(), isolate);
+}
+
+namespace {
+
+Object* EvalFromFunctionName(Isolate* isolate, Handle<Script> script) {
+  if (script->eval_from_shared()->IsUndefined(isolate))
+    return *isolate->factory()->undefined_value();
+
+  Handle<SharedFunctionInfo> shared(
+      SharedFunctionInfo::cast(script->eval_from_shared()));
+  // Find the name of the function calling eval.
+  if (shared->name()->BooleanValue()) {
+    return shared->name();
+  }
+
+  return shared->inferred_name();
+}
+
+Object* EvalFromScript(Isolate* isolate, Handle<Script> script) {
+  if (script->eval_from_shared()->IsUndefined(isolate))
+    return *isolate->factory()->undefined_value();
+
+  Handle<SharedFunctionInfo> eval_from_shared(
+      SharedFunctionInfo::cast(script->eval_from_shared()));
+  return eval_from_shared->script()->IsScript()
+             ? eval_from_shared->script()
+             : *isolate->factory()->undefined_value();
+}
+
+MaybeHandle<String> FormatEvalOrigin(Isolate* isolate, Handle<Script> script) {
+  Handle<Object> sourceURL = Script::GetNameOrSourceURL(script);
+  if (!sourceURL->IsUndefined(isolate)) {
+    DCHECK(sourceURL->IsString());
+    return Handle<String>::cast(sourceURL);
+  }
+
+  IncrementalStringBuilder builder(isolate);
+  builder.AppendCString("eval at ");
+
+  Handle<Object> eval_from_function_name =
+      handle(EvalFromFunctionName(isolate, script), isolate);
+  if (eval_from_function_name->BooleanValue()) {
+    Handle<String> str;
+    ASSIGN_RETURN_ON_EXCEPTION(
+        isolate, str, Object::ToString(isolate, eval_from_function_name),
+        String);
+    builder.AppendString(str);
+  } else {
+    builder.AppendCString("<anonymous>");
+  }
+
+  Handle<Object> eval_from_script_obj =
+      handle(EvalFromScript(isolate, script), isolate);
+  if (eval_from_script_obj->IsScript()) {
+    Handle<Script> eval_from_script =
+        Handle<Script>::cast(eval_from_script_obj);
+    builder.AppendCString(" (");
+    if (eval_from_script->compilation_type() == Script::COMPILATION_TYPE_EVAL) {
+      // Eval script originated from another eval.
+      Handle<String> str;
+      ASSIGN_RETURN_ON_EXCEPTION(
+          isolate, str, FormatEvalOrigin(isolate, eval_from_script), String);
+      builder.AppendString(str);
+    } else {
+      DCHECK(eval_from_script->compilation_type() !=
+             Script::COMPILATION_TYPE_EVAL);
+      // eval script originated from "real" source.
+      Handle<Object> name_obj = handle(eval_from_script->name(), isolate);
+      if (eval_from_script->name()->IsString()) {
+        builder.AppendString(Handle<String>::cast(name_obj));
+
+        Script::PositionInfo info;
+        if (eval_from_script->GetPositionInfo(script->GetEvalPosition(), &info,
+                                              Script::NO_OFFSET)) {
+          builder.AppendCString(":");
+
+          Handle<String> str = isolate->factory()->NumberToString(
+              handle(Smi::FromInt(info.line + 1), isolate));
+          builder.AppendString(str);
+
+          builder.AppendCString(":");
+
+          str = isolate->factory()->NumberToString(
+              handle(Smi::FromInt(info.column + 1), isolate));
+          builder.AppendString(str);
+        }
+      } else {
+        DCHECK(!eval_from_script->name()->IsString());
+        builder.AppendCString("unknown source");
+      }
+    }
+    builder.AppendCString(")");
+  }
+
+  Handle<String> result;
+  ASSIGN_RETURN_ON_EXCEPTION(isolate, result, builder.Finish(), String);
+  return result;
+}
+
+}  // namespace
+
+BUILTIN(CallSitePrototypeGetEvalOrigin) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getEvalOrigin");
+
+  CallSite call_site(isolate, recv);
+  if (call_site.IsWasm()) return *isolate->factory()->undefined_value();
+
+  // Retrieve the function's script object.
+
+  Handle<Object> function_obj;
+  Handle<Symbol> symbol = isolate->factory()->call_site_function_symbol();
+  ASSIGN_RETURN_FAILURE_ON_EXCEPTION(isolate, function_obj,
+                                     JSObject::GetProperty(recv, symbol));
+
+  DCHECK(function_obj->IsJSFunction());
+  Handle<JSFunction> function = Handle<JSFunction>::cast(function_obj);
+  Handle<Object> script = handle(function->shared()->script(), isolate);
+
+  RETURN_RESULT_OR_FAILURE(
+      isolate, FormatEvalOrigin(isolate, Handle<Script>::cast(script)));
+}
+
+BUILTIN(CallSitePrototypeGetFileName) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getFileName");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+  return *call_site.GetFileName();
+}
+
+namespace {
+
+bool CallSiteIsStrict(Isolate* isolate, Handle<JSObject> receiver) {
+  Handle<Object> strict;
+  Handle<Symbol> symbol = isolate->factory()->call_site_strict_symbol();
+  ASSIGN_RETURN_FAILURE_ON_EXCEPTION(isolate, strict,
+                                     JSObject::GetProperty(receiver, symbol));
+  return strict->BooleanValue();
+}
+
+}  // namespace
+
+BUILTIN(CallSitePrototypeGetFunction) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getFunction");
+
+  if (CallSiteIsStrict(isolate, recv))
+    return *isolate->factory()->undefined_value();
+
+  Handle<Symbol> symbol = isolate->factory()->call_site_function_symbol();
+  RETURN_RESULT_OR_FAILURE(isolate, JSObject::GetProperty(recv, symbol));
+}
+
+BUILTIN(CallSitePrototypeGetFunctionName) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getFunctionName");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+  return *call_site.GetFunctionName();
+}
+
+BUILTIN(CallSitePrototypeGetLineNumber) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getLineNumber");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+
+  int line_number = call_site.IsWasm() ? call_site.wasm_func_index()
+                                       : call_site.GetLineNumber();
+  return PositiveNumberOrNull(line_number, isolate);
+}
+
+BUILTIN(CallSitePrototypeGetMethodName) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getMethodName");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+  return *call_site.GetMethodName();
+}
+
+BUILTIN(CallSitePrototypeGetPosition) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getPosition");
+
+  Handle<Symbol> symbol = isolate->factory()->call_site_position_symbol();
+  RETURN_RESULT_OR_FAILURE(isolate, JSObject::GetProperty(recv, symbol));
+}
+
+BUILTIN(CallSitePrototypeGetScriptNameOrSourceURL) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getScriptNameOrSourceUrl");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+  return *call_site.GetScriptNameOrSourceUrl();
+}
+
+BUILTIN(CallSitePrototypeGetThis) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getThis");
+
+  if (CallSiteIsStrict(isolate, recv))
+    return *isolate->factory()->undefined_value();
+
+  Handle<Object> receiver;
+  Handle<Symbol> symbol = isolate->factory()->call_site_receiver_symbol();
+  ASSIGN_RETURN_FAILURE_ON_EXCEPTION(isolate, receiver,
+                                     JSObject::GetProperty(recv, symbol));
+
+  if (*receiver == isolate->heap()->call_site_constructor_symbol())
+    return *isolate->factory()->undefined_value();
+
+  return *receiver;
+}
+
+BUILTIN(CallSitePrototypeGetTypeName) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "getTypeName");
+
+  Handle<Object> receiver;
+  Handle<Symbol> symbol = isolate->factory()->call_site_receiver_symbol();
+  ASSIGN_RETURN_FAILURE_ON_EXCEPTION(isolate, receiver,
+                                     JSObject::GetProperty(recv, symbol));
+
+  // TODO(jgruber): Check for strict/constructor here as above.
+
+  if (receiver->IsNull(isolate) || receiver->IsUndefined(isolate))
+    return *isolate->factory()->null_value();
+
+  if (receiver->IsJSProxy()) return *isolate->factory()->Proxy_string();
+
+  Handle<JSReceiver> receiver_object =
+      Object::ToObject(isolate, receiver).ToHandleChecked();
+  return *JSReceiver::GetConstructorName(receiver_object);
+}
+
+BUILTIN(CallSitePrototypeIsConstructor) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "isConstructor");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+  return isolate->heap()->ToBoolean(call_site.IsConstructor());
+}
+
+BUILTIN(CallSitePrototypeIsEval) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "isEval");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+  return isolate->heap()->ToBoolean(call_site.IsEval());
+}
+
+BUILTIN(CallSitePrototypeIsNative) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "isNative");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+  return isolate->heap()->ToBoolean(call_site.IsNative());
+}
+
+BUILTIN(CallSitePrototypeIsToplevel) {
+  HandleScope scope(isolate);
+  CHECK_CALLSITE(recv, "isToplevel");
+
+  CallSite call_site(isolate, recv);
+  CHECK(call_site.IsJavaScript() || call_site.IsWasm());
+  return isolate->heap()->ToBoolean(call_site.IsToplevel());
+}
+
+BUILTIN(CallSitePrototypeToString) {
+  HandleScope scope(isolate);
+  // TODO(jgruber)
+  return *isolate->factory()->undefined_value();
+}
+
+#undef CHECK_CALLSITE
+
+}  // namespace internal
+}  // namespace v8