2020-03-07 19:42:11 +01:00
|
|
|
/*
|
|
|
|
* Copyright (c) 2020, Andreas Kling <kling@serenityos.org>
|
|
|
|
* All rights reserved.
|
|
|
|
*
|
|
|
|
* Redistribution and use in source and binary forms, with or without
|
|
|
|
* modification, are permitted provided that the following conditions are met:
|
|
|
|
*
|
|
|
|
* 1. Redistributions of source code must retain the above copyright notice, this
|
|
|
|
* list of conditions and the following disclaimer.
|
|
|
|
*
|
|
|
|
* 2. Redistributions in binary form must reproduce the above copyright notice,
|
|
|
|
* this list of conditions and the following disclaimer in the documentation
|
|
|
|
* and/or other materials provided with the distribution.
|
|
|
|
*
|
|
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
|
|
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
|
|
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
|
|
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
|
|
|
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
|
|
|
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
|
|
|
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
|
|
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <LibJS/AST.h>
|
|
|
|
#include <LibJS/Function.h>
|
|
|
|
#include <LibJS/Interpreter.h>
|
|
|
|
#include <LibJS/Value.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
|
|
|
|
namespace JS {
|
|
|
|
|
|
|
|
Value ScopeNode::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
return interpreter.run(*this);
|
|
|
|
}
|
|
|
|
|
|
|
|
Value FunctionDeclaration::execute(Interpreter& interpreter) const
|
|
|
|
{
|
2020-03-08 19:23:58 +01:00
|
|
|
auto* function = interpreter.heap().allocate<Function>(name(), body());
|
2020-03-09 21:53:13 +01:00
|
|
|
interpreter.set_variable(m_name, Value(function));
|
2020-03-07 19:42:11 +01:00
|
|
|
return Value(function);
|
|
|
|
}
|
|
|
|
|
|
|
|
Value CallExpression::execute(Interpreter& interpreter) const
|
|
|
|
{
|
2020-03-09 21:27:52 +01:00
|
|
|
if (name() == "$gc") {
|
|
|
|
interpreter.heap().collect_garbage();
|
|
|
|
return js_undefined();
|
|
|
|
}
|
|
|
|
|
2020-03-09 21:53:13 +01:00
|
|
|
auto callee = interpreter.get_variable(name());
|
2020-03-07 19:42:11 +01:00
|
|
|
ASSERT(callee.is_object());
|
|
|
|
auto* callee_object = callee.as_object();
|
|
|
|
ASSERT(callee_object->is_function());
|
|
|
|
auto& function = static_cast<Function&>(*callee_object);
|
|
|
|
return interpreter.run(function.body());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value ReturnStatement::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
auto value = argument().execute(interpreter);
|
|
|
|
interpreter.do_return();
|
|
|
|
return value;
|
|
|
|
}
|
|
|
|
|
2020-03-08 07:58:58 +02:00
|
|
|
Value IfStatement::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
auto predicate_result = m_predicate->execute(interpreter);
|
|
|
|
|
2020-03-10 08:46:20 +01:00
|
|
|
if (predicate_result.to_boolean())
|
2020-03-08 07:58:58 +02:00
|
|
|
return interpreter.run(*m_consequent);
|
|
|
|
else
|
|
|
|
return interpreter.run(*m_alternate);
|
|
|
|
}
|
|
|
|
|
2020-03-09 03:22:21 +08:00
|
|
|
Value WhileStatement::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
Value last_value = js_undefined();
|
2020-03-10 08:46:20 +01:00
|
|
|
while (m_predicate->execute(interpreter).to_boolean()) {
|
2020-03-09 03:22:21 +08:00
|
|
|
last_value = interpreter.run(*m_body);
|
|
|
|
}
|
|
|
|
|
|
|
|
return last_value;
|
|
|
|
}
|
|
|
|
|
2020-03-07 19:42:11 +01:00
|
|
|
Value add(Value lhs, Value rhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
ASSERT(rhs.is_number());
|
|
|
|
return Value(lhs.as_double() + rhs.as_double());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value sub(Value lhs, Value rhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
ASSERT(rhs.is_number());
|
|
|
|
return Value(lhs.as_double() - rhs.as_double());
|
|
|
|
}
|
|
|
|
|
2020-03-08 07:53:02 +02:00
|
|
|
const Value typed_eq(const Value lhs, const Value rhs)
|
|
|
|
{
|
|
|
|
if (rhs.type() != lhs.type())
|
|
|
|
return Value(false);
|
|
|
|
|
|
|
|
switch (lhs.type()) {
|
|
|
|
case Value::Type::Undefined:
|
|
|
|
return Value(true);
|
|
|
|
case Value::Type::Null:
|
|
|
|
return Value(true);
|
|
|
|
case Value::Type::Number:
|
|
|
|
return Value(lhs.as_double() == rhs.as_double());
|
|
|
|
case Value::Type::String:
|
|
|
|
return Value(lhs.as_string() == rhs.as_string());
|
|
|
|
case Value::Type::Boolean:
|
|
|
|
return Value(lhs.as_bool() == rhs.as_bool());
|
|
|
|
case Value::Type::Object:
|
|
|
|
return Value(lhs.as_object() == rhs.as_object());
|
|
|
|
}
|
|
|
|
|
|
|
|
ASSERT_NOT_REACHED();
|
|
|
|
}
|
|
|
|
|
2020-03-08 23:27:18 +02:00
|
|
|
Value greater(Value lhs, Value rhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
ASSERT(rhs.is_number());
|
|
|
|
return Value(lhs.as_double() > rhs.as_double());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value smaller(Value lhs, Value rhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
ASSERT(rhs.is_number());
|
|
|
|
return Value(lhs.as_double() < rhs.as_double());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value bit_and(Value lhs, Value rhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
ASSERT(rhs.is_number());
|
|
|
|
return Value((i32)lhs.as_double() & (i32)rhs.as_double());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value bit_or(Value lhs, Value rhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
ASSERT(rhs.is_number());
|
|
|
|
return Value((i32)lhs.as_double() | (i32)rhs.as_double());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value bit_xor(Value lhs, Value rhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
ASSERT(rhs.is_number());
|
|
|
|
return Value((i32)lhs.as_double() ^ (i32)rhs.as_double());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value bit_not(Value lhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
return Value(~(i32)lhs.as_double());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value bit_left(Value lhs, Value rhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
ASSERT(rhs.is_number());
|
|
|
|
return Value((i32)lhs.as_double() << (i32)rhs.as_double());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value bit_right(Value lhs, Value rhs)
|
|
|
|
{
|
|
|
|
ASSERT(lhs.is_number());
|
|
|
|
ASSERT(rhs.is_number());
|
|
|
|
return Value((i32)lhs.as_double() >> (i32)rhs.as_double());
|
|
|
|
}
|
|
|
|
|
2020-03-07 19:42:11 +01:00
|
|
|
Value BinaryExpression::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
auto lhs_result = m_lhs->execute(interpreter);
|
|
|
|
auto rhs_result = m_rhs->execute(interpreter);
|
|
|
|
|
|
|
|
switch (m_op) {
|
|
|
|
case BinaryOp::Plus:
|
|
|
|
return add(lhs_result, rhs_result);
|
|
|
|
case BinaryOp::Minus:
|
|
|
|
return sub(lhs_result, rhs_result);
|
2020-03-08 07:53:02 +02:00
|
|
|
case BinaryOp::TypedEquals:
|
|
|
|
return typed_eq(lhs_result, rhs_result);
|
2020-03-08 23:27:18 +02:00
|
|
|
case BinaryOp::TypedInequals:
|
2020-03-10 11:08:37 +01:00
|
|
|
return Value(!typed_eq(lhs_result, rhs_result).to_boolean());
|
2020-03-08 23:27:18 +02:00
|
|
|
case BinaryOp::Greater:
|
|
|
|
return greater(lhs_result, rhs_result);
|
|
|
|
case BinaryOp::Smaller:
|
|
|
|
return smaller(lhs_result, rhs_result);
|
|
|
|
case BinaryOp::BitAnd:
|
|
|
|
return bit_and(lhs_result, rhs_result);
|
|
|
|
case BinaryOp::BitOr:
|
|
|
|
return bit_or(lhs_result, rhs_result);
|
|
|
|
case BinaryOp::BitXor:
|
|
|
|
return bit_xor(lhs_result, rhs_result);
|
|
|
|
case BinaryOp::BitLeftShift:
|
|
|
|
return bit_left(lhs_result, rhs_result);
|
|
|
|
case BinaryOp::BitRightShift:
|
|
|
|
return bit_right(lhs_result, rhs_result);
|
2020-03-08 07:53:02 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
ASSERT_NOT_REACHED();
|
|
|
|
}
|
2020-03-08 07:55:44 +02:00
|
|
|
|
|
|
|
Value LogicalExpression::execute(Interpreter& interpreter) const
|
|
|
|
{
|
2020-03-10 08:46:20 +01:00
|
|
|
auto lhs_result = m_lhs->execute(interpreter).to_boolean();
|
|
|
|
auto rhs_result = m_rhs->execute(interpreter).to_boolean();
|
2020-03-08 07:55:44 +02:00
|
|
|
switch (m_op) {
|
|
|
|
case LogicalOp::And:
|
|
|
|
return Value(lhs_result && rhs_result);
|
|
|
|
case LogicalOp::Or:
|
|
|
|
return Value(lhs_result || rhs_result);
|
2020-03-07 19:42:11 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
ASSERT_NOT_REACHED();
|
|
|
|
}
|
|
|
|
|
2020-03-08 23:27:18 +02:00
|
|
|
Value UnaryExpression::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
auto lhs_result = m_lhs->execute(interpreter);
|
|
|
|
switch (m_op) {
|
|
|
|
case UnaryOp::BitNot:
|
|
|
|
return bit_not(lhs_result);
|
2020-03-09 19:04:44 +02:00
|
|
|
case UnaryOp::Not:
|
2020-03-10 11:08:37 +01:00
|
|
|
return Value(!lhs_result.to_boolean());
|
2020-03-08 23:27:18 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
ASSERT_NOT_REACHED();
|
|
|
|
}
|
|
|
|
|
2020-03-07 19:42:11 +01:00
|
|
|
static void print_indent(int indent)
|
|
|
|
{
|
|
|
|
for (int i = 0; i < indent * 2; ++i)
|
|
|
|
putchar(' ');
|
|
|
|
}
|
|
|
|
|
|
|
|
void ASTNode::dump(int indent) const
|
|
|
|
{
|
|
|
|
print_indent(indent);
|
|
|
|
printf("%s\n", class_name());
|
|
|
|
}
|
|
|
|
|
|
|
|
void ScopeNode::dump(int indent) const
|
|
|
|
{
|
|
|
|
ASTNode::dump(indent);
|
|
|
|
for (auto& child : children())
|
|
|
|
child.dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
|
|
|
void BinaryExpression::dump(int indent) const
|
|
|
|
{
|
2020-03-07 23:16:34 +01:00
|
|
|
const char* op_string = nullptr;
|
|
|
|
switch (m_op) {
|
|
|
|
case BinaryOp::Plus:
|
|
|
|
op_string = "+";
|
|
|
|
break;
|
|
|
|
case BinaryOp::Minus:
|
|
|
|
op_string = "-";
|
|
|
|
break;
|
2020-03-08 07:53:02 +02:00
|
|
|
case BinaryOp::TypedEquals:
|
|
|
|
op_string = "===";
|
|
|
|
break;
|
2020-03-08 23:27:18 +02:00
|
|
|
case BinaryOp::TypedInequals:
|
|
|
|
op_string = "!==";
|
|
|
|
break;
|
|
|
|
case BinaryOp::Greater:
|
|
|
|
op_string = ">";
|
|
|
|
break;
|
|
|
|
case BinaryOp::Smaller:
|
|
|
|
op_string = "<";
|
|
|
|
break;
|
|
|
|
case BinaryOp::BitAnd:
|
|
|
|
op_string = "&";
|
|
|
|
break;
|
|
|
|
case BinaryOp::BitOr:
|
|
|
|
op_string = "|";
|
|
|
|
break;
|
|
|
|
case BinaryOp::BitXor:
|
|
|
|
op_string = "^";
|
|
|
|
break;
|
|
|
|
case BinaryOp::BitLeftShift:
|
|
|
|
op_string = "<<";
|
|
|
|
break;
|
|
|
|
case BinaryOp::BitRightShift:
|
|
|
|
op_string = ">>";
|
|
|
|
break;
|
2020-03-08 07:53:02 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
print_indent(indent);
|
|
|
|
printf("%s\n", class_name());
|
|
|
|
m_lhs->dump(indent + 1);
|
|
|
|
print_indent(indent + 1);
|
|
|
|
printf("%s\n", op_string);
|
|
|
|
m_rhs->dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
2020-03-08 07:55:44 +02:00
|
|
|
void LogicalExpression::dump(int indent) const
|
|
|
|
{
|
|
|
|
const char* op_string = nullptr;
|
|
|
|
switch (m_op) {
|
|
|
|
case LogicalOp::And:
|
|
|
|
op_string = "&&";
|
|
|
|
break;
|
|
|
|
case LogicalOp::Or:
|
|
|
|
op_string = "||";
|
|
|
|
break;
|
2020-03-07 23:16:34 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
print_indent(indent);
|
|
|
|
printf("%s\n", class_name());
|
2020-03-07 19:42:11 +01:00
|
|
|
m_lhs->dump(indent + 1);
|
2020-03-07 23:16:34 +01:00
|
|
|
print_indent(indent + 1);
|
|
|
|
printf("%s\n", op_string);
|
2020-03-07 19:42:11 +01:00
|
|
|
m_rhs->dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
2020-03-08 23:27:18 +02:00
|
|
|
void UnaryExpression::dump(int indent) const
|
|
|
|
{
|
|
|
|
const char* op_string = nullptr;
|
|
|
|
switch (m_op) {
|
|
|
|
case UnaryOp::BitNot:
|
|
|
|
op_string = "~";
|
|
|
|
break;
|
2020-03-09 19:04:44 +02:00
|
|
|
case UnaryOp::Not:
|
|
|
|
op_string = "!";
|
|
|
|
break;
|
2020-03-08 23:27:18 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
print_indent(indent);
|
|
|
|
printf("%s\n", class_name());
|
|
|
|
print_indent(indent + 1);
|
|
|
|
printf("%s\n", op_string);
|
|
|
|
m_lhs->dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
2020-03-07 19:42:11 +01:00
|
|
|
void CallExpression::dump(int indent) const
|
|
|
|
{
|
|
|
|
print_indent(indent);
|
|
|
|
printf("%s '%s'\n", class_name(), name().characters());
|
|
|
|
}
|
|
|
|
|
|
|
|
void Literal::dump(int indent) const
|
|
|
|
{
|
|
|
|
print_indent(indent);
|
2020-03-08 08:00:22 +02:00
|
|
|
if (m_value.is_object())
|
|
|
|
ASSERT_NOT_REACHED();
|
|
|
|
|
|
|
|
if (m_value.is_string())
|
|
|
|
printf("%s\n", m_value.as_string()->characters());
|
|
|
|
else
|
|
|
|
printf("%s\n", m_value.to_string().characters());
|
2020-03-07 19:42:11 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
void FunctionDeclaration::dump(int indent) const
|
|
|
|
{
|
|
|
|
print_indent(indent);
|
|
|
|
printf("%s '%s'\n", class_name(), name().characters());
|
|
|
|
body().dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
|
|
|
void ReturnStatement::dump(int indent) const
|
|
|
|
{
|
|
|
|
ASTNode::dump(indent);
|
|
|
|
argument().dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
2020-03-08 07:58:58 +02:00
|
|
|
void IfStatement::dump(int indent) const
|
|
|
|
{
|
|
|
|
ASTNode::dump(indent);
|
|
|
|
|
|
|
|
print_indent(indent);
|
|
|
|
printf("If\n");
|
|
|
|
predicate().dump(indent + 1);
|
|
|
|
consequent().dump(indent + 1);
|
|
|
|
print_indent(indent);
|
|
|
|
printf("Else\n");
|
|
|
|
alternate().dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
2020-03-09 03:22:21 +08:00
|
|
|
void WhileStatement::dump(int indent) const
|
|
|
|
{
|
|
|
|
ASTNode::dump(indent);
|
|
|
|
|
|
|
|
print_indent(indent);
|
|
|
|
printf("While\n");
|
|
|
|
predicate().dump(indent + 1);
|
|
|
|
body().dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
2020-03-09 21:13:55 +01:00
|
|
|
Value Identifier::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
return interpreter.get_variable(string());
|
|
|
|
}
|
|
|
|
|
|
|
|
void Identifier::dump(int indent) const
|
|
|
|
{
|
|
|
|
print_indent(indent);
|
|
|
|
printf("Identifier \"%s\"\n", m_string.characters());
|
|
|
|
}
|
|
|
|
|
|
|
|
Value AssignmentExpression::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
ASSERT(m_lhs->is_identifier());
|
|
|
|
auto name = static_cast<const Identifier&>(*m_lhs).string();
|
|
|
|
auto rhs_result = m_rhs->execute(interpreter);
|
|
|
|
|
|
|
|
switch (m_op) {
|
|
|
|
case AssignmentOp::Assign:
|
|
|
|
interpreter.set_variable(name, rhs_result);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return rhs_result;
|
|
|
|
}
|
|
|
|
|
|
|
|
void AssignmentExpression::dump(int indent) const
|
|
|
|
{
|
|
|
|
const char* op_string = nullptr;
|
|
|
|
switch (m_op) {
|
|
|
|
case AssignmentOp::Assign:
|
|
|
|
op_string = "=";
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
ASTNode::dump(indent);
|
|
|
|
print_indent(indent + 1);
|
|
|
|
printf("%s\n", op_string);
|
|
|
|
m_lhs->dump(indent + 1);
|
|
|
|
m_rhs->dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
|
|
|
Value VariableDeclaration::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
interpreter.declare_variable(name().string());
|
|
|
|
if (m_initializer) {
|
|
|
|
auto initalizer_result = m_initializer->execute(interpreter);
|
|
|
|
interpreter.set_variable(name().string(), initalizer_result);
|
|
|
|
}
|
|
|
|
return js_undefined();
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void VariableDeclaration::dump(int indent) const
|
|
|
|
{
|
|
|
|
ASTNode::dump(indent);
|
|
|
|
m_name->dump(indent + 1);
|
|
|
|
if (m_initializer)
|
|
|
|
m_initializer->dump(indent + 1);
|
|
|
|
}
|
|
|
|
|
2020-03-09 21:28:31 +01:00
|
|
|
void ObjectExpression::dump(int indent) const
|
|
|
|
{
|
|
|
|
ASTNode::dump(indent);
|
|
|
|
}
|
|
|
|
|
|
|
|
Value ObjectExpression::execute(Interpreter& interpreter) const
|
|
|
|
{
|
|
|
|
return Value(interpreter.heap().allocate<Object>());
|
|
|
|
}
|
|
|
|
|
2020-03-07 19:42:11 +01:00
|
|
|
}
|