iframe-proxy | Sunbelt Computer Software

882 lines (725 loc) · 21.7 KB
#include <cerrno>
#include <cstdarg>
#include "node_errors.h"
#include "node_internals.h"
#ifdef NODE_REPORT
#include "node_report.h"
#include "node_process.h"
#include "node_v8_platform-inl.h"
#include "util-inl.h"
namespace node {
using errors::TryCatchScope;
using v8::Boolean;
using v8::Context;
using v8::Exception;
using v8::Function;
using v8::HandleScope;
using v8::Int32;
using v8::Isolate;
using v8::Just;
using v8::Local;
using v8::Maybe;
using v8::MaybeLocal;
using v8::Message;
using v8::Number;
using v8::Object;
using v8::ScriptOrigin;
using v8::StackFrame;
using v8::StackTrace;
using v8::String;
using v8::Undefined;
using v8::Value;
bool IsExceptionDecorated(Environment* env, Local<Value> er) {
  if (!er.IsEmpty() && er->IsObject()) {
    Local<Object> err_obj = er.As<Object>();
    auto maybe_value =
        err_obj->GetPrivate(env->context(), env->decorated_private_symbol());
    Local<Value> decorated;
    return maybe_value.ToLocal(&decorated) && decorated->IsTrue();
  return false;
namespace per_process {
static Mutex tty_mutex;
}  // namespace per_process
static const int kMaxErrorSourceLength = 1024;
static std::string GetErrorSource(Isolate* isolate,
                                  Local<Context> context,
                                  Local<Message> message,
                                  bool* added_exception_line) {
  MaybeLocal<String> source_line_maybe = message->GetSourceLine(context);
  node::Utf8Value encoded_source(isolate, source_line_maybe.ToLocalChecked());
  std::string sourceline(*encoded_source, encoded_source.length());
  if (sourceline.find("node-do-not-add-exception-line") != std::string::npos) {
    *added_exception_line = false;
    return sourceline;
  // Because of how node modules work, all scripts are wrapped with a
  // "function (module, exports, __filename, ...) {"
  // to provide script local variables.
  // When reporting errors on the first line of a script, this wrapper
  // function is leaked to the user. There used to be a hack here to
  // truncate off the first 62 characters, but it caused numerous other
  // problems when vm.runIn*Context() methods were used for non-module
  // If we ever decide to re-instate such a hack, the following steps
  // must be taken:
  // 1. Pass a flag around to say "this code was wrapped"
  // 2. Update the stack frame output so that it is also correct.
  // It would probably be simpler to add a line rather than add some
  // number of characters to the first line, since V8 truncates the
  // sourceline to 78 characters, and we end up not providing very much
  // useful debugging info to the user if we remove 62 characters.
  // Print (filename):(line number): (message).
  ScriptOrigin origin = message->GetScriptOrigin();
  node::Utf8Value filename(isolate, message->GetScriptResourceName());
  const char* filename_string = *filename;
  int linenum = message->GetLineNumber(context).FromJust();
  int script_start = (linenum - origin.ResourceLineOffset()->Value()) == 1
                         ? origin.ResourceColumnOffset()->Value()
  int start = message->GetStartColumn(context).FromMaybe(0);
  int end = message->GetEndColumn(context).FromMaybe(0);
  if (start >= script_start) {
    CHECK_GE(end, start);
    start -= script_start;
    end -= script_start;
  int max_off = kMaxErrorSourceLength - 2;
  char buf[kMaxErrorSourceLength];
  int off = snprintf(buf,
                     kMaxErrorSourceLength,
                     "%s:%i\n%s\n",
                     filename_string,
                     linenum,
                     sourceline.c_str());
  CHECK_GE(off, 0);
  if (off > max_off) {
    off = max_off;
  // Print wavy underline (GetUnderline is deprecated).
  for (int i = 0; i < start; i++) {
    if (sourceline[i] == '\0' || off >= max_off) {
      break;
    CHECK_LT(off, max_off);
    buf[off++] = (sourceline[i] == '\t') ? '\t' : ' ';
  for (int i = start; i < end; i++) {
    if (sourceline[i] == '\0' || off >= max_off) {
      break;
    CHECK_LT(off, max_off);
    buf[off++] = '^';
  CHECK_LE(off, max_off);
  buf[off] = '\n';
  buf[off + 1] = '\0';
  *added_exception_line = true;
  return std::string(buf);
void PrintStackTrace(Isolate* isolate, Local<StackTrace> stack) {
  for (int i = 0; i < stack->GetFrameCount() - 1; i++) {
    Local<StackFrame> stack_frame = stack->GetFrame(isolate, i);
    node::Utf8Value fn_name_s(isolate, stack_frame->GetFunctionName());
    node::Utf8Value script_name(isolate, stack_frame->GetScriptName());
    const int line_number = stack_frame->GetLineNumber();
    const int column = stack_frame->GetColumn();
    if (stack_frame->IsEval()) {
      if (stack_frame->GetScriptId() == Message::kNoScriptIdInfo) {
        fprintf(stderr, "    at [eval]:%i:%i\n", line_number, column);
      } else {
        fprintf(stderr,
                "    at [eval] (%s:%i:%i)\n",
                *script_name,
                line_number,
                column);
      break;
    if (fn_name_s.length() == 0) {
      fprintf(stderr, "    at %s:%i:%i\n", *script_name, line_number, column);
    } else {
      fprintf(stderr,
              "    at %s (%s:%i:%i)\n",
              *fn_name_s,
              *script_name,
              line_number,
              column);
  fflush(stderr);
void PrintException(Isolate* isolate,
                    Local<Context> context,
                    Local<Value> err,
                    Local<Message> message) {
  node::Utf8Value reason(isolate,
                         err->ToDetailString(context).ToLocalChecked());
  bool added_exception_line = false;
  std::string source =
      GetErrorSource(isolate, context, message, &added_exception_line);
  fprintf(stderr, "%s\n", source.c_str());
  fprintf(stderr, "%s\n", *reason);
  Local<v8::StackTrace> stack = message->GetStackTrace();
  if (!stack.IsEmpty()) PrintStackTrace(isolate, stack);
void PrintCaughtException(Isolate* isolate,
                          Local<Context> context,
                          const v8::TryCatch& try_catch) {
  CHECK(try_catch.HasCaught());
  PrintException(isolate, context, try_catch.Exception(), try_catch.Message());
void AppendExceptionLine(Environment* env,
                         Local<Value> er,
                         Local<Message> message,
                         enum ErrorHandlingMode mode) {
  if (message.IsEmpty()) return;
  HandleScope scope(env->isolate());
  Local<Object> err_obj;
  if (!er.IsEmpty() && er->IsObject()) {
    err_obj = er.As<Object>();
  bool added_exception_line = false;
  std::string source = GetErrorSource(
      env->isolate(), env->context(), message, &added_exception_line);
  if (!added_exception_line) {
    return;
  MaybeLocal<Value> arrow_str = ToV8Value(env->context(), source);
  const bool can_set_arrow = !arrow_str.IsEmpty() && !err_obj.IsEmpty();
  // If allocating arrow_str failed, print it out. There's not much else to do.
  // If it's not an error, but something needs to be printed out because
  // it's a fatal exception, also print it out from here.
  // Otherwise, the arrow property will be attached to the object and handled
  // by the caller.
  if (!can_set_arrow || (mode == FATAL_ERROR && !err_obj->IsNativeError())) {
    if (env->printed_error()) return;
    Mutex::ScopedLock lock(per_process::tty_mutex);
    env->set_printed_error(true);
    uv_tty_reset_mode();
    PrintErrorString("\n%s", source.c_str());
    return;
  CHECK(err_obj
            ->SetPrivate(env->context(),
                         env->arrow_message_private_symbol(),
                         arrow_str.ToLocalChecked())
            .FromMaybe(false));
[[noreturn]] void Abort() {
  DumpBacktrace(stderr);
  fflush(stderr);
  ABORT_NO_BACKTRACE();
[[noreturn]] void Assert(const AssertionInfo& info) {
  char name[1024];
  GetHumanReadableProcessName(&name);
  fprintf(stderr,
          "%s: %s:%s%s Assertion `%s' failed.\n",
          name,
          info.file_line,
          info.function,
          *info.function ? ":" : "",
          info.message);
  fflush(stderr);
void ReportException(Environment* env,
                     Local<Value> er,
                     Local<Message> message) {
  CHECK(!er.IsEmpty());
  HandleScope scope(env->isolate());
  if (message.IsEmpty()) message = Exception::CreateMessage(env->isolate(), er);
  AppendExceptionLine(env, er, message, FATAL_ERROR);
  Local<Value> trace_value;
  Local<Value> arrow;
  const bool decorated = IsExceptionDecorated(env, er);
  if (er->IsUndefined() || er->IsNull()) {
    trace_value = Undefined(env->isolate());
    Local<Object> err_obj = er->ToObject(env->context()).ToLocalChecked();
    if (!err_obj->Get(env->context(), env->stack_string())
             .ToLocal(&trace_value)) {
      trace_value = Undefined(env->isolate());
    arrow =
        err_obj->GetPrivate(env->context(), env->arrow_message_private_symbol())
            .ToLocalChecked();
  node::Utf8Value trace(env->isolate(), trace_value);
  // range errors have a trace member set to undefined
  if (trace.length() > 0 && !trace_value->IsUndefined()) {
    if (arrow.IsEmpty() || !arrow->IsString() || decorated) {
      PrintErrorString("%s\n", *trace);
    } else {
      node::Utf8Value arrow_string(env->isolate(), arrow);
      PrintErrorString("%s\n%s\n", *arrow_string, *trace);
    // this really only happens for RangeErrors, since they're the only
    // kind that won't have all this info in the trace, or when non-Error
    // objects are thrown manually.
    MaybeLocal<Value> message;
    MaybeLocal<Value> name;
    if (er->IsObject()) {
      Local<Object> err_obj = er.As<Object>();
      message = err_obj->Get(env->context(), env->message_string());
      name = err_obj->Get(env->context(), env->name_string());
    if (message.IsEmpty() || message.ToLocalChecked()->IsUndefined() ||
        name.IsEmpty() || name.ToLocalChecked()->IsUndefined()) {
      // Not an error object. Just print as-is.
      String::Utf8Value message(env->isolate(), er);
      PrintErrorString("%s\n",
                       *message ? *message : "<toString() threw exception>");
    } else {
      node::Utf8Value name_string(env->isolate(), name.ToLocalChecked());
      node::Utf8Value message_string(env->isolate(), message.ToLocalChecked());
      if (arrow.IsEmpty() || !arrow->IsString() || decorated) {
        PrintErrorString("%s: %s\n", *name_string, *message_string);
      } else {
        node::Utf8Value arrow_string(env->isolate(), arrow);
        PrintErrorString(
            "%s\n%s: %s\n", *arrow_string, *name_string, *message_string);
  fflush(stderr);
#if HAVE_INSPECTOR
  env->inspector_agent()->FatalException(er, message);
void ReportException(Environment* env, const v8::TryCatch& try_catch) {
  ReportException(env, try_catch.Exception(), try_catch.Message());
void PrintErrorString(const char* format, ...) {
  va_list ap;
  va_start(ap, format);
#ifdef _WIN32
  HANDLE stderr_handle = GetStdHandle(STD_ERROR_HANDLE);
  // Check if stderr is something other than a tty/console
  if (stderr_handle == INVALID_HANDLE_VALUE || stderr_handle == nullptr ||
      uv_guess_handle(_fileno(stderr)) != UV_TTY) {
    vfprintf(stderr, format, ap);
    va_end(ap);
    return;
  // Fill in any placeholders
  int n = _vscprintf(format, ap);
  std::vector<char> out(n + 1);
  vsprintf(out.data(), format, ap);
  // Get required wide buffer size
  n = MultiByteToWideChar(CP_UTF8, 0, out.data(), -1, nullptr, 0);
  std::vector<wchar_t> wbuf(n);
  MultiByteToWideChar(CP_UTF8, 0, out.data(), -1, wbuf.data(), n);
  // Don't include the null character in the output
  CHECK_GT(n, 0);
  WriteConsoleW(stderr_handle, wbuf.data(), n - 1, nullptr, nullptr);
  vfprintf(stderr, format, ap);
  va_end(ap);
[[noreturn]] void FatalError(const char* location, const char* message) {
  OnFatalError(location, message);
  // to suppress compiler warning
void OnFatalError(const char* location, const char* message) {
  if (location) {
    PrintErrorString("FATAL ERROR: %s %s\n", location, message);
    PrintErrorString("FATAL ERROR: %s\n", message);
#ifdef NODE_REPORT
  Isolate* isolate = Isolate::GetCurrent();
  Environment* env = Environment::GetCurrent(isolate);
  if (env == nullptr || env->isolate_data()->options()->report_on_fatalerror) {
    report::TriggerNodeReport(
        isolate, env, message, "FatalError", "", Local<String>());
#endif  // NODE_REPORT
  fflush(stderr);
namespace errors {
TryCatchScope::~TryCatchScope() {
  if (HasCaught() && !HasTerminated() && mode_ == CatchMode::kFatal) {
    HandleScope scope(env_->isolate());
    ReportException(env_, Exception(), Message());
    env_->Exit(7);
const char* errno_string(int errorno) {
#define ERRNO_CASE(e)                                                          \
    return #e;
  switch (errorno) {
#ifdef EACCES
    ERRNO_CASE(EACCES);
#ifdef EADDRINUSE
    ERRNO_CASE(EADDRINUSE);
#ifdef EADDRNOTAVAIL
    ERRNO_CASE(EADDRNOTAVAIL);
#ifdef EAFNOSUPPORT
    ERRNO_CASE(EAFNOSUPPORT);
#ifdef EAGAIN
    ERRNO_CASE(EAGAIN);
#ifdef EWOULDBLOCK
#if EAGAIN != EWOULDBLOCK
    ERRNO_CASE(EWOULDBLOCK);
#ifdef EALREADY
    ERRNO_CASE(EALREADY);
#ifdef EBADF
    ERRNO_CASE(EBADF);
#ifdef EBADMSG
    ERRNO_CASE(EBADMSG);
#ifdef EBUSY
    ERRNO_CASE(EBUSY);
#ifdef ECANCELED
    ERRNO_CASE(ECANCELED);
#ifdef ECHILD
    ERRNO_CASE(ECHILD);
#ifdef ECONNABORTED
    ERRNO_CASE(ECONNABORTED);
#ifdef ECONNREFUSED
    ERRNO_CASE(ECONNREFUSED);
#ifdef ECONNRESET
    ERRNO_CASE(ECONNRESET);
#ifdef EDEADLK
    ERRNO_CASE(EDEADLK);
#ifdef EDESTADDRREQ
    ERRNO_CASE(EDESTADDRREQ);
#ifdef EDOM
    ERRNO_CASE(EDOM);
#ifdef EDQUOT
    ERRNO_CASE(EDQUOT);
#ifdef EEXIST
    ERRNO_CASE(EEXIST);
#ifdef EFAULT
    ERRNO_CASE(EFAULT);
#ifdef EFBIG
    ERRNO_CASE(EFBIG);
#ifdef EHOSTUNREACH
    ERRNO_CASE(EHOSTUNREACH);
#ifdef EIDRM
    ERRNO_CASE(EIDRM);
#ifdef EILSEQ
    ERRNO_CASE(EILSEQ);
#ifdef EINPROGRESS
    ERRNO_CASE(EINPROGRESS);
#ifdef EINTR
    ERRNO_CASE(EINTR);
#ifdef EINVAL
    ERRNO_CASE(EINVAL);
    ERRNO_CASE(EIO);
#ifdef EISCONN
    ERRNO_CASE(EISCONN);
#ifdef EISDIR
    ERRNO_CASE(EISDIR);
#ifdef ELOOP
    ERRNO_CASE(ELOOP);
#ifdef EMFILE
    ERRNO_CASE(EMFILE);
#ifdef EMLINK
    ERRNO_CASE(EMLINK);
#ifdef EMSGSIZE
    ERRNO_CASE(EMSGSIZE);
#ifdef EMULTIHOP
    ERRNO_CASE(EMULTIHOP);
#ifdef ENAMETOOLONG
    ERRNO_CASE(ENAMETOOLONG);
#ifdef ENETDOWN
    ERRNO_CASE(ENETDOWN);
#ifdef ENETRESET
    ERRNO_CASE(ENETRESET);
#ifdef ENETUNREACH
    ERRNO_CASE(ENETUNREACH);
#ifdef ENFILE
    ERRNO_CASE(ENFILE);
#ifdef ENOBUFS
    ERRNO_CASE(ENOBUFS);
#ifdef ENODATA
    ERRNO_CASE(ENODATA);
#ifdef ENODEV
    ERRNO_CASE(ENODEV);
#ifdef ENOENT
    ERRNO_CASE(ENOENT);
#ifdef ENOEXEC
    ERRNO_CASE(ENOEXEC);
#ifdef ENOLINK
    ERRNO_CASE(ENOLINK);
#ifdef ENOLCK
#if ENOLINK != ENOLCK
    ERRNO_CASE(ENOLCK);
#ifdef ENOMEM
    ERRNO_CASE(ENOMEM);
#ifdef ENOMSG
    ERRNO_CASE(ENOMSG);
#ifdef ENOPROTOOPT
    ERRNO_CASE(ENOPROTOOPT);
#ifdef ENOSPC
    ERRNO_CASE(ENOSPC);
#ifdef ENOSR
    ERRNO_CASE(ENOSR);
#ifdef ENOSTR
    ERRNO_CASE(ENOSTR);
#ifdef ENOSYS
    ERRNO_CASE(ENOSYS);
#ifdef ENOTCONN
    ERRNO_CASE(ENOTCONN);
#ifdef ENOTDIR
    ERRNO_CASE(ENOTDIR);
#ifdef ENOTEMPTY
#if ENOTEMPTY != EEXIST
    ERRNO_CASE(ENOTEMPTY);
#ifdef ENOTSOCK
    ERRNO_CASE(ENOTSOCK);
#ifdef ENOTSUP
    ERRNO_CASE(ENOTSUP);
#ifdef EOPNOTSUPP
    ERRNO_CASE(EOPNOTSUPP);
#ifdef ENOTTY
    ERRNO_CASE(ENOTTY);
#ifdef ENXIO
    ERRNO_CASE(ENXIO);
#ifdef EOVERFLOW
    ERRNO_CASE(EOVERFLOW);
#ifdef EPERM
    ERRNO_CASE(EPERM);
#ifdef EPIPE
    ERRNO_CASE(EPIPE);
#ifdef EPROTO
    ERRNO_CASE(EPROTO);
#ifdef EPROTONOSUPPORT
    ERRNO_CASE(EPROTONOSUPPORT);
#ifdef EPROTOTYPE
    ERRNO_CASE(EPROTOTYPE);
#ifdef ERANGE
    ERRNO_CASE(ERANGE);
#ifdef EROFS
    ERRNO_CASE(EROFS);
#ifdef ESPIPE
    ERRNO_CASE(ESPIPE);
#ifdef ESRCH
    ERRNO_CASE(ESRCH);
#ifdef ESTALE
    ERRNO_CASE(ESTALE);
#ifdef ETIME
    ERRNO_CASE(ETIME);
#ifdef ETIMEDOUT
    ERRNO_CASE(ETIMEDOUT);
#ifdef ETXTBSY
    ERRNO_CASE(ETXTBSY);
#ifdef EXDEV
    ERRNO_CASE(EXDEV);
    default:
      return "";
void PerIsolateMessageListener(Local<Message> message, Local<Value> error) {
  Isolate* isolate = message->GetIsolate();
  switch (message->ErrorLevel()) {
    case Isolate::MessageErrorLevel::kMessageWarning: {
      Environment* env = Environment::GetCurrent(isolate);
      if (!env) {
        break;
      Utf8Value filename(isolate, message->GetScriptOrigin().ResourceName());
      // (filename):(line) (message)
      std::stringstream warning;
      warning << *filename;
      warning << ":";
      warning << message->GetLineNumber(env->context()).FromMaybe(-1);
      warning << " ";
      v8::String::Utf8Value msg(isolate, message->Get());
      warning << *msg;
      USE(ProcessEmitWarningGeneric(env, warning.str().c_str(), "V8"));
      break;
    case Isolate::MessageErrorLevel::kMessageError:
      FatalException(isolate, error, message);
      break;
}  // namespace errors
void DecorateErrorStack(Environment* env,
                        const errors::TryCatchScope& try_catch) {
  Local<Value> exception = try_catch.Exception();
  if (!exception->IsObject()) return;
  Local<Object> err_obj = exception.As<Object>();
  if (IsExceptionDecorated(env, err_obj)) return;
  AppendExceptionLine(env, exception, try_catch.Message(), CONTEXTIFY_ERROR);
  TryCatchScope try_catch_scope(env);  // Ignore exceptions below.
  MaybeLocal<Value> stack = err_obj->Get(env->context(), env->stack_string());
  MaybeLocal<Value> maybe_value =
      err_obj->GetPrivate(env->context(), env->arrow_message_private_symbol());
  Local<Value> arrow;
  if (!(maybe_value.ToLocal(&arrow) && arrow->IsString())) {
    return;
  if (stack.IsEmpty() || !stack.ToLocalChecked()->IsString()) {
    return;
  Local<String> decorated_stack = String::Concat(
      env->isolate(),
      String::Concat(env->isolate(),
                     arrow.As<String>(),
                     FIXED_ONE_BYTE_STRING(env->isolate(), "\n")),
      stack.ToLocalChecked().As<String>());
  USE(err_obj->Set(env->context(), env->stack_string(), decorated_stack));
  err_obj->SetPrivate(
      env->context(), env->decorated_private_symbol(), True(env->isolate()));
void FatalException(Isolate* isolate,
                    Local<Value> error,
                    Local<Message> message,
                    bool from_promise) {
  CHECK(!error.IsEmpty());
  HandleScope scope(isolate);
  CHECK(isolate->InContext());
  Local<Context> context = isolate->GetCurrentContext();
  Environment* env = Environment::GetCurrent(context);
  if (env == nullptr) {
    // This means that the exception happens before Environment is assigned
    // to the context e.g. when there is a SyntaxError in a per-context
    // script - which usually indicates that there is a bug because no JS
    // error is supposed to be thrown at this point.
    // Since we don't have access to Environment here, there is not
    // much we can do, so we just print whatever is useful and crash.
    PrintException(isolate, context, error, message);
    Abort();
  Local<Object> process_object = env->process_object();
  Local<String> fatal_exception_string = env->fatal_exception_string();
  Local<Value> fatal_exception_function =
      process_object->Get(env->context(),
                          fatal_exception_string).ToLocalChecked();
  if (!fatal_exception_function->IsFunction()) {
    // Failed before the process._fatalException function was added!
    // this is probably pretty bad.  Nothing to do but report and exit.
    ReportException(env, error, message);
    env->Exit(6);
    errors::TryCatchScope fatal_try_catch(env);
    // Do not call FatalException when _fatalException handler throws
    fatal_try_catch.SetVerbose(false);
    Local<Value> argv[2] = { error,
                             Boolean::New(env->isolate(), from_promise) };
    // This will return true if the JS layer handled it, false otherwise
    MaybeLocal<Value> caught = fatal_exception_function.As<Function>()->Call(
        env->context(), process_object, arraysize(argv), argv);
    if (fatal_try_catch.HasTerminated()) return;
    if (fatal_try_catch.HasCaught()) {
      // The fatal exception function threw, so we must exit
      ReportException(env, fatal_try_catch);
      env->Exit(7);
    } else if (caught.ToLocalChecked()->IsFalse()) {
      ReportException(env, error, message);
      // fatal_exception_function call before may have set a new exit code ->
      // read it again, otherwise use default for uncaughtException 1
      Local<String> exit_code = env->exit_code_string();
      Local<Value> code;
      if (!process_object->Get(env->context(), exit_code).ToLocal(&code) ||
          !code->IsInt32()) {
        env->Exit(1);
      env->Exit(code.As<Int32>()->Value());
void FatalException(Isolate* isolate,
                    Local<Value> error,
                    Local<Message> message) {
  FatalException(isolate, error, message, false /* from_promise */);
}  // namespace node
Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Sunbelt Computer Software

PL/B Language Development and Support

FilesExpand file tree

node_errors.cc

Latest commit

History

node_errors.cc

File metadata and controls
