// Copyright Joyent, Inc. and other Node contributors.

//

// Permission is hereby granted, free of charge, to any person obtaining a

// copy of this software and associated documentation files (the

// "Software"), to deal in the Software without restriction, including

// without limitation the rights to use, copy, modify, merge, publish,

// distribute, sublicense, and/or sell copies of the Software, and to permit

// persons to whom the Software is furnished to do so, subject to the

// following conditions:

//

// The above copyright notice and this permission notice shall be included

// in all copies or substantial portions of the Software.

//

// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

// OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN

// NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,

// DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR

// OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE

// USE OR OTHER DEALINGS IN THE SOFTWARE.

#include "node.h"

#include "req_wrap.h"

#include "handle_wrap.h"

#include "string_bytes.h"

#include "node_revert.h"

#include "ares.h"

#include "uv.h"

#include "v8-debug.h"

#if defined HAVE_DTRACE || defined HAVE_ETW || defined HAVE_SYSTEMTAP

# include "node_dtrace.h"

#endif

#if defined HAVE_PERFCTR

# include "node_counters.h"

#endif

#include <locale.h>

#include <signal.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#if !defined(_MSC_VER)

#include <strings.h>

#else

#define strcasecmp _stricmp

#endif

#include <limits.h> /* PATH_MAX */

#include <assert.h>

#if !defined(_MSC_VER)

#include <unistd.h> /* setuid, getuid */

#else

#include <direct.h>

#include <process.h>

#define getpid _getpid

#include <io.h>

#define umask _umask

typedef int mode_t;

#endif

#include <errno.h>

#include <sys/types.h>

#include "zlib.h"

#ifdef __POSIX__

# include <pwd.h> /* getpwnam() */

# include <grp.h> /* getgrnam() */

#endif

#include "node_buffer.h"

#include "node_file.h"

#include "node_http_parser.h"

#include "node_constants.h"

#include "node_javascript.h"

#include "node_version.h"

#include "node_string.h"

#if HAVE_OPENSSL

# include "node_crypto.h"

#endif

#if HAVE_SYSTEMTAP

#include "node_systemtap.h"

#endif

#include "node_script.h"

#include "v8_typed_array.h"

#include "util.h"

using namespace v8;

# ifdef __APPLE__

# include <crt_externs.h>

# define environ (*_NSGetEnviron())

# elif !defined(_MSC_VER)

extern char **environ;

# endif

namespace node {

ngx_queue_t handle_wrap_queue = { &handle_wrap_queue, &handle_wrap_queue };

ngx_queue_t req_wrap_queue = { &req_wrap_queue, &req_wrap_queue };

// declared in req_wrap.h

Persistent<String> process_symbol;

Persistent<String> domain_symbol;

// declared in node_internals.h

Persistent<Object> process;

static Persistent<Array> domains_stack;

static Persistent<Function> process_tickFromSpinner;

static Persistent<Function> process_tickCallback;

static Persistent<String> exports_symbol;

static Persistent<String> errno_symbol;

static Persistent<String> syscall_symbol;

static Persistent<String> errpath_symbol;

static Persistent<String> code_symbol;

static Persistent<String> rss_symbol;

static Persistent<String> heap_total_symbol;

static Persistent<String> heap_used_symbol;

static Persistent<String> fatal_exception_symbol;

static Persistent<String> enter_symbol;

static Persistent<String> exit_symbol;

static Persistent<String> disposed_symbol;

static Persistent<String> emitting_toplevel_domain_error_symbol;

static Persistent<String> _events_symbol;

static Persistent<String> error_symbol;

static bool print_eval = false;

static bool force_repl = false;

static bool trace_deprecation = false;

static bool throw_deprecation = false;

static char *eval_string = NULL;

static int option_end_index = 0;

static bool use_debug_agent = false;

static bool debug_wait_connect = false;

static int debug_port=5858;

static int max_stack_size = 0;

static bool using_domains = false;

// used by C++ modules as well

bool no_deprecation = false;

static uv_idle_t tick_spinner;

static bool need_tick_cb;

static Persistent<String> tick_callback_sym;

static uv_check_t check_immediate_watcher;

static uv_idle_t idle_immediate_dummy;

static bool need_immediate_cb;

static Persistent<String> immediate_callback_sym;

// for quick ref to tickCallback values

static struct {

uint32_t length;

uint32_t index;

uint32_t depth;

} tick_infobox;

#ifdef OPENSSL_NPN_NEGOTIATED

static bool use_npn = true;

#else

static bool use_npn = false;

#endif

#ifdef SSL_CTRL_SET_TLSEXT_SERVERNAME_CB

static bool use_sni = true;

#else

static bool use_sni = false;

#endif

// process-relative uptime base, initialized at start-up

static double prog_start_time;

static volatile bool debugger_running = false;

static uv_async_t dispatch_debug_messages_async;

// Declared in node_internals.h

Isolate* node_isolate = NULL;

int WRITE_UTF8_FLAGS = v8::String::HINT_MANY_WRITES_EXPECTED |

v8::String::NO_NULL_TERMINATION;

static void Spin(uv_idle_t* handle, int status) {

assert((uv_idle_t*) handle == &tick_spinner);

assert(status == 0);

// Avoid entering a V8 scope.

if (!need_tick_cb) return;

need_tick_cb = false;

uv_idle_stop(&tick_spinner);

HandleScope scope;

if (process_tickFromSpinner.IsEmpty()) {

Local<Value> cb_v = process->Get(String::New("_tickFromSpinner"));

if (!cb_v->IsFunction()) {

fprintf(stderr, "process._tickFromSpinner assigned to non-function\n");

abort();

}

Local<Function> cb = cb_v.As<Function>();

process_tickFromSpinner = Persistent<Function>::New(cb);

}

TryCatch try_catch;

process_tickFromSpinner->Call(process, 0, NULL);

if (try_catch.HasCaught()) {

FatalException(try_catch);

}

}

static Handle<Value> NeedTickCallback(const Arguments& args) {

need_tick_cb = true;

uv_idle_start(&tick_spinner, Spin);

return Undefined();

}

static void CheckImmediate(uv_check_t* handle, int status) {

assert(handle == &check_immediate_watcher);

assert(status == 0);

HandleScope scope;

if (immediate_callback_sym.IsEmpty()) {

immediate_callback_sym = NODE_PSYMBOL("_immediateCallback");

}

MakeCallback(process, immediate_callback_sym, 0, NULL);

}

static void IdleImmediateDummy(uv_idle_t* handle, int status) {

// Do nothing. Only for maintaining event loop

assert(handle == &idle_immediate_dummy);

assert(status == 0);

}

static inline const char *errno_string(int errorno) {

#define ERRNO_CASE(e) case e: return #e;

switch (errorno) {

#ifdef EACCES

ERRNO_CASE(EACCES);

#endif

#ifdef EADDRINUSE

ERRNO_CASE(EADDRINUSE);

#endif

#ifdef EADDRNOTAVAIL

ERRNO_CASE(EADDRNOTAVAIL);

#endif

#ifdef EAFNOSUPPORT

ERRNO_CASE(EAFNOSUPPORT);

#endif

#ifdef EAGAIN

ERRNO_CASE(EAGAIN);

#endif

#ifdef EWOULDBLOCK

# if EAGAIN != EWOULDBLOCK

ERRNO_CASE(EWOULDBLOCK);

# endif

#endif

#ifdef EALREADY

ERRNO_CASE(EALREADY);

#endif

#ifdef EBADF

ERRNO_CASE(EBADF);

#endif

#ifdef EBADMSG

ERRNO_CASE(EBADMSG);

#endif

#ifdef EBUSY

ERRNO_CASE(EBUSY);

#endif

#ifdef ECANCELED

ERRNO_CASE(ECANCELED);

#endif

#ifdef ECHILD

ERRNO_CASE(ECHILD);

#endif

#ifdef ECONNABORTED

ERRNO_CASE(ECONNABORTED);

#endif

#ifdef ECONNREFUSED

ERRNO_CASE(ECONNREFUSED);

#endif

#ifdef ECONNRESET

ERRNO_CASE(ECONNRESET);

#endif

#ifdef EDEADLK

ERRNO_CASE(EDEADLK);

#endif

#ifdef EDESTADDRREQ

ERRNO_CASE(EDESTADDRREQ);

#endif

#ifdef EDOM

ERRNO_CASE(EDOM);

#endif

#ifdef EDQUOT

ERRNO_CASE(EDQUOT);

#endif

#ifdef EEXIST

ERRNO_CASE(EEXIST);

#endif

#ifdef EFAULT

ERRNO_CASE(EFAULT);

#endif

#ifdef EFBIG

ERRNO_CASE(EFBIG);

#endif

#ifdef EHOSTUNREACH

ERRNO_CASE(EHOSTUNREACH);

#endif

#ifdef EIDRM

ERRNO_CASE(EIDRM);

#endif

#ifdef EILSEQ

ERRNO_CASE(EILSEQ);

#endif

#ifdef EINPROGRESS

ERRNO_CASE(EINPROGRESS);

#endif

#ifdef EINTR

ERRNO_CASE(EINTR);

#endif

#ifdef EINVAL

ERRNO_CASE(EINVAL);

#endif

#ifdef EIO

ERRNO_CASE(EIO);

#endif

#ifdef EISCONN

ERRNO_CASE(EISCONN);

#endif

#ifdef EISDIR

ERRNO_CASE(EISDIR);

#endif

#ifdef ELOOP

ERRNO_CASE(ELOOP);

#endif

#ifdef EMFILE

ERRNO_CASE(EMFILE);

#endif

#ifdef EMLINK

ERRNO_CASE(EMLINK);

#endif

#ifdef EMSGSIZE

ERRNO_CASE(EMSGSIZE);

#endif

#ifdef EMULTIHOP

ERRNO_CASE(EMULTIHOP);

#endif

#ifdef ENAMETOOLONG

ERRNO_CASE(ENAMETOOLONG);

#endif

#ifdef ENETDOWN

ERRNO_CASE(ENETDOWN);

#endif

#ifdef ENETRESET

ERRNO_CASE(ENETRESET);

#endif

#ifdef ENETUNREACH

ERRNO_CASE(ENETUNREACH);

#endif

#ifdef ENFILE

ERRNO_CASE(ENFILE);

#endif

#ifdef ENOBUFS

ERRNO_CASE(ENOBUFS);

#endif

#ifdef ENODATA

ERRNO_CASE(ENODATA);

#endif

#ifdef ENODEV

ERRNO_CASE(ENODEV);

#endif

#ifdef ENOENT

ERRNO_CASE(ENOENT);

#endif

#ifdef ENOEXEC

ERRNO_CASE(ENOEXEC);

#endif

#ifdef ENOLINK

ERRNO_CASE(ENOLINK);

#endif

#ifdef ENOLCK

# if ENOLINK != ENOLCK

ERRNO_CASE(ENOLCK);

# endif

#endif

#ifdef ENOMEM

ERRNO_CASE(ENOMEM);

#endif

#ifdef ENOMSG

ERRNO_CASE(ENOMSG);

#endif

#ifdef ENOPROTOOPT

ERRNO_CASE(ENOPROTOOPT);

#endif

#ifdef ENOSPC

ERRNO_CASE(ENOSPC);

#endif

#ifdef ENOSR

ERRNO_CASE(ENOSR);

#endif

#ifdef ENOSTR

ERRNO_CASE(ENOSTR);

#endif

#ifdef ENOSYS

ERRNO_CASE(ENOSYS);

#endif

#ifdef ENOTCONN

ERRNO_CASE(ENOTCONN);

#endif

#ifdef ENOTDIR

ERRNO_CASE(ENOTDIR);

#endif

#ifdef ENOTEMPTY

ERRNO_CASE(ENOTEMPTY);

#endif

#ifdef ENOTSOCK

ERRNO_CASE(ENOTSOCK);

#endif

#ifdef ENOTSUP

ERRNO_CASE(ENOTSUP);

#else

# ifdef EOPNOTSUPP

ERRNO_CASE(EOPNOTSUPP);

# endif

#endif

#ifdef ENOTTY

ERRNO_CASE(ENOTTY);

#endif

#ifdef ENXIO

ERRNO_CASE(ENXIO);

#endif

#ifdef EOVERFLOW

ERRNO_CASE(EOVERFLOW);

#endif

#ifdef EPERM

ERRNO_CASE(EPERM);

#endif

#ifdef EPIPE

ERRNO_CASE(EPIPE);

#endif

#ifdef EPROTO

ERRNO_CASE(EPROTO);

#endif

#ifdef EPROTONOSUPPORT

ERRNO_CASE(EPROTONOSUPPORT);

#endif

#ifdef EPROTOTYPE

ERRNO_CASE(EPROTOTYPE);

#endif

#ifdef ERANGE

ERRNO_CASE(ERANGE);

#endif

#ifdef EROFS

ERRNO_CASE(EROFS);

#endif

#ifdef ESPIPE

ERRNO_CASE(ESPIPE);

#endif

#ifdef ESRCH

ERRNO_CASE(ESRCH);

#endif

#ifdef ESTALE

ERRNO_CASE(ESTALE);

#endif

#ifdef ETIME

ERRNO_CASE(ETIME);

#endif

#ifdef ETIMEDOUT

ERRNO_CASE(ETIMEDOUT);

#endif

#ifdef ETXTBSY

ERRNO_CASE(ETXTBSY);

#endif

#ifdef EXDEV

ERRNO_CASE(EXDEV);

#endif

default: return "";

}

}

const char *signo_string(int signo) {

#define SIGNO_CASE(e) case e: return #e;

switch (signo) {

#ifdef SIGHUP

SIGNO_CASE(SIGHUP);

#endif

#ifdef SIGINT

SIGNO_CASE(SIGINT);

#endif

#ifdef SIGQUIT

SIGNO_CASE(SIGQUIT);

#endif

#ifdef SIGILL

SIGNO_CASE(SIGILL);

#endif

#ifdef SIGTRAP

SIGNO_CASE(SIGTRAP);

#endif

#ifdef SIGABRT

SIGNO_CASE(SIGABRT);

#endif

#ifdef SIGIOT

# if SIGABRT != SIGIOT

SIGNO_CASE(SIGIOT);

# endif

#endif

#ifdef SIGBUS

SIGNO_CASE(SIGBUS);

#endif

#ifdef SIGFPE

SIGNO_CASE(SIGFPE);

#endif

#ifdef SIGKILL

SIGNO_CASE(SIGKILL);

#endif

#ifdef SIGUSR1

SIGNO_CASE(SIGUSR1);

#endif

#ifdef SIGSEGV

SIGNO_CASE(SIGSEGV);

#endif

#ifdef SIGUSR2

SIGNO_CASE(SIGUSR2);

#endif

#ifdef SIGPIPE

SIGNO_CASE(SIGPIPE);

#endif

#ifdef SIGALRM

SIGNO_CASE(SIGALRM);

#endif

SIGNO_CASE(SIGTERM);

#ifdef SIGCHLD

SIGNO_CASE(SIGCHLD);

#endif

#ifdef SIGSTKFLT

SIGNO_CASE(SIGSTKFLT);

#endif

#ifdef SIGCONT

SIGNO_CASE(SIGCONT);

#endif

#ifdef SIGSTOP

SIGNO_CASE(SIGSTOP);

#endif

#ifdef SIGTSTP

SIGNO_CASE(SIGTSTP);

#endif

#ifdef SIGBREAK

SIGNO_CASE(SIGBREAK);

#endif

#ifdef SIGTTIN

SIGNO_CASE(SIGTTIN);

#endif

#ifdef SIGTTOU

SIGNO_CASE(SIGTTOU);

#endif

#ifdef SIGURG

SIGNO_CASE(SIGURG);

#endif

#ifdef SIGXCPU

SIGNO_CASE(SIGXCPU);

#endif

#ifdef SIGXFSZ

SIGNO_CASE(SIGXFSZ);

#endif

#ifdef SIGVTALRM

SIGNO_CASE(SIGVTALRM);

#endif

#ifdef SIGPROF

SIGNO_CASE(SIGPROF);

#endif

#ifdef SIGWINCH

SIGNO_CASE(SIGWINCH);

#endif

#ifdef SIGIO

SIGNO_CASE(SIGIO);

#endif

#ifdef SIGPOLL

# if SIGPOLL != SIGIO

SIGNO_CASE(SIGPOLL);

# endif

#endif

#ifdef SIGLOST

SIGNO_CASE(SIGLOST);

#endif

#ifdef SIGPWR

# if SIGPWR != SIGLOST

SIGNO_CASE(SIGPWR);

# endif

#endif

#ifdef SIGSYS

SIGNO_CASE(SIGSYS);

#endif

default: return "";

}

}

Local<Value> ErrnoException(int errorno,

const char *syscall,

const char *msg,

const char *path) {

Local<Value> e;

Local<String> estring = String::NewSymbol(errno_string(errorno));

if (!msg[0]) {

msg = strerror(errorno);

}

Local<String> message = String::NewSymbol(msg);

Local<String> cons1 = String::Concat(estring, String::NewSymbol(", "));

Local<String> cons2 = String::Concat(cons1, message);

if (syscall_symbol.IsEmpty()) {

syscall_symbol = NODE_PSYMBOL("syscall");

errno_symbol = NODE_PSYMBOL("errno");

errpath_symbol = NODE_PSYMBOL("path");

code_symbol = NODE_PSYMBOL("code");

}

if (path) {

Local<String> cons3 = String::Concat(cons2, String::NewSymbol(" '"));

Local<String> cons4 = String::Concat(cons3, String::New(path));

Local<String> cons5 = String::Concat(cons4, String::NewSymbol("'"));

e = Exception::Error(cons5);

} else {

e = Exception::Error(cons2);

}

Local<Object> obj = e->ToObject();

obj->Set(errno_symbol, Integer::New(errorno));

obj->Set(code_symbol, estring);

if (path) obj->Set(errpath_symbol, String::New(path));

if (syscall) obj->Set(syscall_symbol, String::NewSymbol(syscall));

return e;

}

static const char* get_uv_errno_string(int errorno) {

uv_err_t err;

memset(&err, 0, sizeof err);

err.code = (uv_err_code)errorno;

return uv_err_name(err);

}

static const char* get_uv_errno_message(int errorno) {

uv_err_t err;

memset(&err, 0, sizeof err);

err.code = (uv_err_code)errorno;

return uv_strerror(err);

}

// hack alert! copy of ErrnoException, tuned for uv errors

Local<Value> UVException(int errorno,

const char *syscall,

const char *msg,

const char *path) {

if (syscall_symbol.IsEmpty()) {

syscall_symbol = NODE_PSYMBOL("syscall");

errno_symbol = NODE_PSYMBOL("errno");

errpath_symbol = NODE_PSYMBOL("path");

code_symbol = NODE_PSYMBOL("code");

}

if (!msg || !msg[0])

msg = get_uv_errno_message(errorno);

Local<String> estring = String::NewSymbol(get_uv_errno_string(errorno));

Local<String> message = String::NewSymbol(msg);

Local<String> cons1 = String::Concat(estring, String::NewSymbol(", "));

Local<String> cons2 = String::Concat(cons1, message);

Local<Value> e;

Local<String> path_str;

if (path) {

#ifdef _WIN32

if (strncmp(path, "\\\\?\\UNC\\", 8) == 0) {

path_str = String::Concat(String::New("\\\\"), String::New(path + 8));

} else if (strncmp(path, "\\\\?\\", 4) == 0) {

path_str = String::New(path + 4);

} else {

path_str = String::New(path);

}

#else

path_str = String::New(path);

#endif

Local<String> cons3 = String::Concat(cons2, String::NewSymbol(" '"));

Local<String> cons4 = String::Concat(cons3, path_str);

Local<String> cons5 = String::Concat(cons4, String::NewSymbol("'"));

e = Exception::Error(cons5);

} else {

e = Exception::Error(cons2);

}

Local<Object> obj = e->ToObject();

// TODO errno should probably go

obj->Set(errno_symbol, Integer::New(errorno));

obj->Set(code_symbol, estring);

if (path) obj->Set(errpath_symbol, path_str);

if (syscall) obj->Set(syscall_symbol, String::NewSymbol(syscall));

return e;

}

#ifdef _WIN32

// Does about the same as strerror(),

// but supports all windows error messages

static const char *winapi_strerror(const int errorno) {

char *errmsg = NULL;

FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM |

FORMAT_MESSAGE_IGNORE_INSERTS, NULL, errorno,

MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (LPTSTR)&errmsg, 0, NULL);

if (errmsg) {

// Remove trailing newlines

for (int i = strlen(errmsg) - 1;

i >= 0 && (errmsg[i] == '\n' || errmsg[i] == '\r'); i--) {

errmsg[i] = '\0';

}

return errmsg;

} else {

// FormatMessage failed

return "Unknown error";

}

}

Local<Value> WinapiErrnoException(int errorno,

const char* syscall,

const char* msg,

const char* path) {

Local<Value> e;

if (!msg || !msg[0]) {

msg = winapi_strerror(errorno);

}

Local<String> message = String::NewSymbol(msg);

if (syscall_symbol.IsEmpty()) {

syscall_symbol = NODE_PSYMBOL("syscall");

errno_symbol = NODE_PSYMBOL("errno");

errpath_symbol = NODE_PSYMBOL("path");

code_symbol = NODE_PSYMBOL("code");

}

if (path) {

Local<String> cons1 = String::Concat(message, String::NewSymbol(" '"));

Local<String> cons2 = String::Concat(cons1, String::New(path));

Local<String> cons3 = String::Concat(cons2, String::NewSymbol("'"));

e = Exception::Error(cons3);

} else {

e = Exception::Error(message);

}

Local<Object> obj = e->ToObject();

obj->Set(errno_symbol, Integer::New(errorno));

if (path) obj->Set(errpath_symbol, String::New(path));

if (syscall) obj->Set(syscall_symbol, String::NewSymbol(syscall));

return e;

}

#endif

Handle<Value> FromConstructorTemplate(Persistent<FunctionTemplate> t,

const Arguments& args) {

HandleScope scope;

Local<Value> argv[32];

unsigned argc = args.Length();

if (argc > ARRAY_SIZE(argv)) argc = ARRAY_SIZE(argv);

for (unsigned i = 0; i < argc; ++i) argv[i] = args[i];

return scope.Close(t->GetFunction()->NewInstance(argc, argv));

}

static bool DomainHasErrorHandler(const Local<Object>& domain) {

HandleScope scope;

if (_events_symbol.IsEmpty())

_events_symbol = NODE_PSYMBOL("_events");

Local<Value> domain_event_listeners_v = domain->Get(_events_symbol);

if (!domain_event_listeners_v->IsObject())

return false;

Local<Object> domain_event_listeners_o =

domain_event_listeners_v.As<Object>();

if (error_symbol.IsEmpty())

error_symbol = NODE_PSYMBOL("error");

Local<Value> domain_error_listeners_v =

domain_event_listeners_o->Get(error_symbol);

if (domain_error_listeners_v->IsFunction() ||

(domain_error_listeners_v->IsArray() &&

domain_error_listeners_v.As<Array>()->Length() > 0))

return true;

return false;

}

static bool TopDomainHasErrorHandler() {

HandleScope scope;

if (!using_domains)

return false;

Local<Array> domains_stack_array = Local<Array>::New(domains_stack);

if (domains_stack_array->Length() == 0)

return false;

uint32_t domains_stack_length = domains_stack_array->Length();

if (domains_stack_length == 0)

return false;

Local<Value> domain_v = domains_stack_array->Get(domains_stack_length - 1);

if (!domain_v->IsObject())

return false;

Local<Object> domain = domain_v.As<Object>();

if (DomainHasErrorHandler(domain))

return true;

return false;

}

bool ShouldAbortOnUncaughtException() {

Local<Value> emitting_toplevel_domain_error_v =

process->Get(emitting_toplevel_domain_error_symbol);

return emitting_toplevel_domain_error_v->BooleanValue() ||

!TopDomainHasErrorHandler();

}

Handle<Value> UsingDomains(const Arguments& args) {

HandleScope scope;

if (using_domains)

return scope.Close(Undefined());

if (!args[0]->IsArray()) {

fprintf(stderr, "domains stack must be an array\n");

abort();

}

using_domains = true;

Local<Value> tdc_v = process->Get(String::New("_tickDomainCallback"));

Local<Value> ndt_v = process->Get(String::New("_nextDomainTick"));

if (!tdc_v->IsFunction()) {

fprintf(stderr, "process._tickDomainCallback assigned to non-function\n");

abort();

}

if (!ndt_v->IsFunction()) {

fprintf(stderr, "process._nextDomainTick assigned to non-function\n");

abort();

}

domains_stack = Persistent<Array>::New(args[0].As<Array>());

Local<Function> tdc = tdc_v.As<Function>();

Local<Function> ndt = ndt_v.As<Function>();

process->Set(String::New("_tickCallback"), tdc);

process->Set(String::New("_currentTickHandler"), ndt);