/*
 * Copyright (c) 2021, Linus Groh <linusg@serenityos.org>
 *
 * SPDX-License-Identifier: BSD-2-Clause
 */

#include <LibJS/Runtime/AggregateError.h>
#include <LibJS/Runtime/AggregateErrorConstructor.h>
#include <LibJS/Runtime/Array.h>
#include <LibJS/Runtime/ErrorConstructor.h>
#include <LibJS/Runtime/GlobalObject.h>
#include <LibJS/Runtime/IteratorOperations.h>

namespace JS {

AggregateErrorConstructor::AggregateErrorConstructor(GlobalObject& global_object)
    : NativeFunction(*static_cast<Object*>(global_object.error_constructor()))
{
}

void AggregateErrorConstructor::initialize(GlobalObject& global_object)
{
    auto& vm = this->vm();
    NativeFunction::initialize(global_object);

    // 20.5.7.2.1 AggregateError.prototype, https://tc39.es/ecma262/#sec-aggregate-error.prototype
    define_property(vm.names.prototype, global_object.aggregate_error_prototype(), 0);

    define_property(vm.names.length, Value(2), Attribute::Configurable);
}

// 20.5.7.1.1 AggregateError ( errors, message ), https://tc39.es/ecma262/#sec-aggregate-error
Value AggregateErrorConstructor::call()
{
    return construct(*this);
}

// 20.5.7.1.1 AggregateError ( errors, message ), https://tc39.es/ecma262/#sec-aggregate-error
Value AggregateErrorConstructor::construct(Function&)
{
    auto& vm = this->vm();
    // FIXME: Use OrdinaryCreateFromConstructor(newTarget, "%AggregateError.prototype%")
    auto* aggregate_error = AggregateError::create(global_object());

    u8 attr = Attribute::Writable | Attribute::Configurable;

    if (!vm.argument(1).is_undefined()) {
        auto message = vm.argument(1).to_string(global_object());
        if (vm.exception())
            return {};
        aggregate_error->define_property(vm.names.message, js_string(vm, message), attr);
    }

    aggregate_error->install_error_cause(vm.argument(2));
    if (vm.exception())
        return {};

    auto errors_list = iterable_to_list(global_object(), vm.argument(0));
    if (vm.exception())
        return {};

    aggregate_error->define_property(vm.names.errors, Array::create_from(global_object(), errors_list), attr);

    return aggregate_error;
}

}