/* +----------------------------------------------------------------------+ | PHP Version 7 | +----------------------------------------------------------------------+ | Copyright (c) 1997-2017 The PHP Group | +----------------------------------------------------------------------+ | http://www.opensource.org/licenses/mit-license.php MIT License | +----------------------------------------------------------------------+ | Author: Jani Taskinen | | Author: Patrick Reilly | | Author: Stefan Siegl | +----------------------------------------------------------------------+ */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #include "php_v8js_macros.h" #include "v8js_commonjs.h" #include "v8js_exceptions.h" extern "C" { #include "zend_exceptions.h" } /* global.exit - terminate execution */ V8JS_METHOD(exit) /* {{{ */ { v8::Isolate *isolate = info.GetIsolate(); v8js_terminate_execution(isolate); } /* }}} */ /* global.sleep - sleep for passed seconds */ V8JS_METHOD(sleep) /* {{{ */ { v8::Isolate *isolate = info.GetIsolate(); v8js_ctx *c = (v8js_ctx *) isolate->GetData(0); v8::Maybe t = info[0]->Int32Value(v8::Local::New(isolate, c->context)); if (t.IsJust()) { php_sleep(t.FromJust()); } } /* }}} */ /* global.print - php print() */ V8JS_METHOD(print) /* {{{ */ { v8::Isolate *isolate = info.GetIsolate(); zend_long ret = 0; for (int i = 0; i < info.Length(); i++) { v8::String::Utf8Value str(isolate, info[i]); const char *cstr = ToCString(str); ret = PHPWRITE(cstr, strlen(cstr)); } info.GetReturnValue().Set(zend_long_to_v8js(ret, isolate)); } /* }}} */ static void v8js_dumper(v8::Isolate *isolate, v8::Local var, int level) /* {{{ */ { v8js_ctx *c = (v8js_ctx *) isolate->GetData(0); v8::Local v8_context = v8::Local::New(isolate, c->context); if (level > 1) { php_printf("%*c", (level - 1) * 2, ' '); } if (var.IsEmpty()) { php_printf("\n"); return; } if (var->IsNull() || var->IsUndefined() /* PHP compat */) { php_printf("NULL\n"); return; } if (var->IsInt32()) { v8::Maybe value = var->IntegerValue(v8_context); if (value.IsNothing()) { php_printf("\n"); } else { php_printf("int(%ld)\n", (long) value.FromJust()); } return; } if (var->IsUint32()) { v8::Maybe value = var->Uint32Value(v8_context); if (value.IsNothing()) { php_printf("\n"); } else { php_printf("int(%lu)\n", (unsigned long) value.FromJust()); } return; } if (var->IsNumber()) { v8::Maybe value = var->NumberValue(v8_context); if (value.IsNothing()) { php_printf("\n"); } else { php_printf("float(%f)\n", value.FromJust()); } return; } if (var->IsBoolean()) { bool value = var->BooleanValue(isolate); php_printf("bool(%s)\n", value ? "true" : "false"); return; } v8::TryCatch try_catch(isolate); /* object.toString() can throw an exception */ v8::Local details; if(var->IsRegExp()) { v8::RegExp *re = v8::RegExp::Cast(*var); details = re->GetSource(); } else { details = var->ToDetailString(v8_context).FromMaybe(v8::Local()); if (try_catch.HasCaught()) { details = V8JS_SYM(""); } } v8::String::Utf8Value str(isolate, details); const char *valstr = ToCString(str); size_t valstr_len = str.length(); if (var->IsString()) { php_printf("string(%zu) \"", valstr_len); PHPWRITE(valstr, valstr_len); php_printf("\"\n"); } else if (var->IsDate()) { // fake the fields of a PHP DateTime php_printf("Date(%s)\n", valstr); } else if (var->IsRegExp()) { php_printf("regexp(/%s/)\n", valstr); } else if (var->IsArray()) { v8::Local array = v8::Local::Cast(var); uint32_t length = array->Length(); php_printf("array(%d) {\n", length); for (unsigned i = 0; i < length; i++) { php_printf("%*c[%d] =>\n", level * 2, ' ', i); v8::MaybeLocal value = array->Get(v8_context, i); if (value.IsEmpty()) { php_printf("\n"); } else { v8js_dumper(isolate, value.ToLocalChecked(), level + 1); } } if (level > 1) { php_printf("%*c", (level - 1) * 2, ' '); } ZEND_PUTS("}\n"); } else if (var->IsObject()) { v8::Local object = v8::Local::Cast(var); v8::String::Utf8Value cname(isolate, object->GetConstructorName()); int hash = object->GetIdentityHash(); if (var->IsFunction() && strcmp(ToCString(cname), "Closure") != 0) { php_printf("object(Closure)#%d {\n%*c", hash, level * 2 + 2, ' '); v8::Local source; if (object->ToString(v8_context).ToLocal(&source)) { v8::String::Utf8Value csource(isolate, source); php_printf("%s\n", ToCString(csource)); } else { php_printf("\n"); } } else { v8::MaybeLocal keys = object->GetOwnPropertyNames(v8_context); uint32_t length = keys.IsEmpty() ? 0 : keys.ToLocalChecked()->Length(); if (strcmp(ToCString(cname), "Array") == 0 || strcmp(ToCString(cname), "V8Object") == 0) { php_printf("array"); } else { php_printf("object(%s)#%d", ToCString(cname), hash); } php_printf(" (%d) {\n", length); for (unsigned i = 0; i < length; i++) { v8::MaybeLocal key_slot = keys.ToLocalChecked()->Get(v8_context, i); v8::Local key; if (key_slot.IsEmpty() || !key_slot.ToLocalChecked()->ToString(v8_context).ToLocal(&key)) { key = V8JS_SYM(""); } v8::String::Utf8Value key_name(isolate, key); php_printf("%*c[\"%s\"] =>\n", level * 2, ' ', ToCString(key_name)); v8::MaybeLocal value = object->Get(v8_context, key); if (value.IsEmpty()) { php_printf("\n"); } else { v8js_dumper(isolate, value.ToLocalChecked(), level + 1); } } } if (level > 1) { php_printf("%*c", (level - 1) * 2, ' '); } ZEND_PUTS("}\n"); } else /* null, undefined, etc. */ { php_printf("<%s>\n", valstr); } } /* }}} */ /* global.var_dump - Dump JS values */ V8JS_METHOD(var_dump) /* {{{ */ { v8::Isolate *isolate = info.GetIsolate(); for (int i = 0; i < info.Length(); i++) { v8js_dumper(isolate, info[i], 1); } info.GetReturnValue().Set(V8JS_NULL); } /* }}} */ V8JS_METHOD(require) { v8::Isolate *isolate = info.GetIsolate(); v8js_ctx *c = (v8js_ctx *) isolate->GetData(0); v8::String::Utf8Value module_base(isolate, info.Data()); const char *module_base_cstr = ToCString(module_base); // Check that we have a module loader if(Z_TYPE(c->module_loader) == IS_NULL) { info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("No module loader"))); return; } v8::String::Utf8Value module_id_v8(isolate, info[0]); const char *module_id = ToCString(module_id_v8); char *normalised_path, *module_name; if (Z_TYPE(c->module_normaliser) == IS_NULL) { // No custom normalisation routine registered, use internal one normalised_path = (char *)emalloc(PATH_MAX); module_name = (char *)emalloc(PATH_MAX); v8js_commonjs_normalise_identifier(module_base_cstr, module_id, normalised_path, module_name); } else { // Call custom normaliser int call_result; zval params[2]; zval normaliser_result; zend_try { { isolate->Exit(); v8::Unlocker unlocker(isolate); ZVAL_STRING(¶ms[0], module_base_cstr); ZVAL_STRING(¶ms[1], module_id); call_result = call_user_function_ex(EG(function_table), NULL, &c->module_normaliser, &normaliser_result, 2, params, 0, NULL); } isolate->Enter(); if (call_result == FAILURE) { info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("Module normaliser callback failed"))); } } zend_catch { v8js_terminate_execution(isolate); V8JSG(fatal_error_abort) = 1; call_result = FAILURE; } zend_end_try(); zval_ptr_dtor(¶ms[0]); zval_ptr_dtor(¶ms[1]); if(call_result == FAILURE) { return; } // Check if an exception was thrown if (EG(exception)) { if (c->flags & V8JS_FLAG_PROPAGATE_PHP_EXCEPTIONS) { zval tmp_zv; ZVAL_OBJ(&tmp_zv, EG(exception)); info.GetReturnValue().Set(isolate->ThrowException(zval_to_v8js(&tmp_zv, isolate))); zend_clear_exception(); } else { v8js_terminate_execution(isolate); } return; } if (Z_TYPE(normaliser_result) != IS_ARRAY) { zval_ptr_dtor(&normaliser_result); info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("Module normaliser didn't return an array"))); return; } HashTable *ht = HASH_OF(&normaliser_result); int num_elements = zend_hash_num_elements(ht); if(num_elements != 2) { zval_ptr_dtor(&normaliser_result); info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("Module normaliser expected to return array of 2 strings"))); return; } zval *data; zend_ulong index = 0; ZEND_HASH_FOREACH_VAL(ht, data) { if (Z_TYPE_P(data) != IS_STRING) { convert_to_string(data); } switch(index++) { case 0: // normalised path normalised_path = estrndup(Z_STRVAL_P(data), Z_STRLEN_P(data)); break; case 1: // normalised module id module_name = estrndup(Z_STRVAL_P(data), Z_STRLEN_P(data)); break; } } ZEND_HASH_FOREACH_END(); zval_ptr_dtor(&normaliser_result); } char *normalised_module_id = (char *)emalloc(strlen(normalised_path)+1+strlen(module_name)+1); *normalised_module_id = 0; if (strlen(normalised_path) > 0) { strcat(normalised_module_id, normalised_path); strcat(normalised_module_id, "/"); } strcat(normalised_module_id, module_name); efree(module_name); // Check for module cyclic dependencies for (std::vector::iterator it = c->modules_stack.begin(); it != c->modules_stack.end(); ++it) { if (!strcmp(*it, normalised_module_id)) { efree(normalised_module_id); efree(normalised_path); info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("Module cyclic dependency"))); return; } } // If we have already loaded and cached this module then use it if (c->modules_loaded.count(normalised_module_id) > 0) { v8::Persistent newobj; newobj.Reset(isolate, c->modules_loaded[normalised_module_id]); // TODO store v8::Global in c->modules_loaded directly!? info.GetReturnValue().Set(v8::Global(isolate, newobj)); efree(normalised_module_id); efree(normalised_path); return; } // Callback to PHP to load the module code zval module_code; int call_result; zval params[1]; { isolate->Exit(); v8::Unlocker unlocker(isolate); zend_try { ZVAL_STRING(¶ms[0], normalised_module_id); call_result = call_user_function_ex(EG(function_table), NULL, &c->module_loader, &module_code, 1, params, 0, NULL); } zend_catch { v8js_terminate_execution(isolate); V8JSG(fatal_error_abort) = 1; } zend_end_try(); } isolate->Enter(); if (V8JSG(fatal_error_abort)) { call_result = FAILURE; } else if (call_result == FAILURE) { info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("Module loader callback failed"))); } zval_ptr_dtor(¶ms[0]); if (call_result == FAILURE) { efree(normalised_module_id); efree(normalised_path); return; } // Check if an exception was thrown if (EG(exception)) { efree(normalised_module_id); efree(normalised_path); if (c->flags & V8JS_FLAG_PROPAGATE_PHP_EXCEPTIONS) { zval tmp_zv; ZVAL_OBJ(&tmp_zv, EG(exception)); info.GetReturnValue().Set(isolate->ThrowException(zval_to_v8js(&tmp_zv, isolate))); zend_clear_exception(); } else { v8js_terminate_execution(isolate); } return; } if(Z_TYPE(module_code) == IS_ARRAY) { v8::Local newarray = zval_to_v8js(&module_code, isolate); c->modules_loaded[normalised_module_id].Reset(isolate, newarray); info.GetReturnValue().Set(newarray); efree(normalised_path); return; } if(Z_TYPE(module_code) == IS_OBJECT) { v8::Local newobj = zval_to_v8js(&module_code, isolate)->ToObject(isolate->GetEnteredOrMicrotaskContext()).ToLocalChecked(); c->modules_loaded[normalised_module_id].Reset(isolate, newobj); info.GetReturnValue().Set(newobj); efree(normalised_path); return; } // Convert the return value to string if (Z_TYPE(module_code) != IS_STRING) { convert_to_string(&module_code); } v8::Local context = v8::Local::New(isolate, c->context); // Catch JS exceptions v8::TryCatch try_catch(isolate); v8::Locker locker(isolate); v8::Isolate::Scope isolate_scope(isolate); v8::HandleScope handle_scope(isolate); // Enter the module context v8::Context::Scope scope(context); // Set script identifier v8::Local sname = V8JS_STR(normalised_module_id); v8::ScriptOrigin origin(isolate, sname); if (Z_STRLEN(module_code) > std::numeric_limits::max()) { zend_throw_exception(php_ce_v8js_exception, "Module code size exceeds maximum supported length", 0); return; } v8::Local source = V8JS_ZSTR(Z_STR(module_code)); zval_ptr_dtor(&module_code); source = v8::String::Concat(isolate, V8JS_SYM("(function (exports, module, require) {"), source); source = v8::String::Concat(isolate, source, V8JS_SYM("\n});")); // Create and compile script v8::MaybeLocal script = v8::Script::Compile(context, source, &origin); // The script will be empty if there are compile errors if (script.IsEmpty()) { efree(normalised_module_id); efree(normalised_path); info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("Module script compile failed"))); return; } v8::Local base_path = V8JS_STR(normalised_path); v8::MaybeLocal require_fn = v8::FunctionTemplate::New(isolate, V8JS_MN(require), base_path)->GetFunction(context); if (require_fn.IsEmpty()) { efree(normalised_path); efree(normalised_module_id); info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("Failed to create require method"))); return; } // Add this module and path to the stack c->modules_stack.push_back(normalised_module_id); // Run script to evaluate closure v8::MaybeLocal module_function = script.ToLocalChecked()->Run(context); // Prepare exports & module object v8::Local exports = v8::Object::New(isolate); v8::Local module = v8::Object::New(isolate); module->Set(context, V8JS_SYM("id"), V8JS_STR(normalised_module_id)); module->Set(context, V8JS_SYM("exports"), exports); if (!module_function.IsEmpty() && module_function.ToLocalChecked()->IsFunction()) { v8::Local *jsArgv = static_cast *>(alloca(3 * sizeof(v8::Local))); new(&jsArgv[0]) v8::Local; jsArgv[0] = exports; new(&jsArgv[1]) v8::Local; jsArgv[1] = module; new(&jsArgv[2]) v8::Local; jsArgv[2] = require_fn.ToLocalChecked(); // actually call the module v8::Local::Cast(module_function.ToLocalChecked())->Call(context, exports, 3, jsArgv); } // Remove this module and path from the stack c->modules_stack.pop_back(); efree(normalised_path); if (module_function.IsEmpty() || !module_function.ToLocalChecked()->IsFunction()) { info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("Wrapped module script failed to return function"))); efree(normalised_module_id); return; } // Script possibly terminated, return immediately if (!try_catch.CanContinue()) { info.GetReturnValue().Set(isolate->ThrowException(V8JS_SYM("Module script compile failed"))); efree(normalised_module_id); return; } // Handle runtime JS exceptions if (try_catch.HasCaught()) { // Rethrow the exception back to JS info.GetReturnValue().Set(try_catch.ReThrow()); efree(normalised_module_id); return; } v8::Local newobj; // Cache the module so it doesn't need to be compiled and run again // Ensure compatibility with CommonJS implementations such as NodeJS by playing nicely with module.exports and exports v8::Local sym_exports = V8JS_SYM("exports"); if (module->Has(context, sym_exports).FromMaybe(false)) { module->Get(context, sym_exports).ToLocal(&newobj); } c->modules_loaded[normalised_module_id].Reset(isolate, newobj); info.GetReturnValue().Set(newobj); } void v8js_register_methods(v8::Local global, v8js_ctx *c) /* {{{ */ { v8::Isolate *isolate = c->isolate; global->Set(V8JS_SYM("exit"), v8::FunctionTemplate::New(isolate, V8JS_MN(exit)), v8::ReadOnly); global->Set(V8JS_SYM("sleep"), v8::FunctionTemplate::New(isolate, V8JS_MN(sleep)), v8::ReadOnly); global->Set(V8JS_SYM("print"), v8::FunctionTemplate::New(isolate, V8JS_MN(print)), v8::ReadOnly); global->Set(V8JS_SYM("var_dump"), v8::FunctionTemplate::New(isolate, V8JS_MN(var_dump)), v8::ReadOnly); v8::Local base_path = V8JS_STRL("", 0); global->Set(V8JS_SYM("require"), v8::FunctionTemplate::New(isolate, V8JS_MN(require), base_path), v8::ReadOnly); } /* }}} */ /* * Local variables: * tab-width: 4 * c-basic-offset: 4 * indent-tabs-mode: t * End: * vim600: noet sw=4 ts=4 fdm=marker * vim<600: noet sw=4 ts=4 */