#include <memory>
#include <mutex>
#include <Columns/FilterDescription.h>
#include <Columns/IColumn.h>
#include <Core/ColumnsWithTypeAndName.h>
#include <Core/NamesAndTypes.h>
#include <IO/Operators.h>
#include <IO/WriteBufferFromString.h>
#include <Interpreters/ActionsDAG.h>
#include <Interpreters/ActionsVisitor.h>
#include <Interpreters/ConcurrentHashJoin.h>
#include <Interpreters/Context.h>
#include <Interpreters/ExpressionActions.h>
#include <Interpreters/PreparedSets.h>
#include <Interpreters/SubqueryForSet.h>
#include <Interpreters/TableJoin.h>
#include <Parsers/DumpASTNode.h>
#include <Parsers/ExpressionListParsers.h>
#include <Parsers/IAST_fwd.h>
#include <Parsers/parseQuery.h>
#include <Common/Exception.h>
#include "base/logger_useful.h"
namespace DB
{
namespace ErrorCodes
{
    extern const int LOGICAL_ERROR;
    extern const int SET_SIZE_LIMIT_EXCEEDED;
    extern const int BAD_ARGUMENTS;
}
namespace JoinStuff
{
ConcurrentHashJoin::ConcurrentHashJoin(ContextPtr context_, std::shared_ptr<TableJoin> table_join_, size_t slots_, const Block & left_sample_block, const Block & right_sample_block, bool any_take_last_row_)
    : context(context_)
    , table_join(table_join_)
    , slots(slots_)
{
    if (!slots_)
    {
        throw Exception(ErrorCodes::BAD_ARGUMENTS, "Invalid argument slot : {}", slots_);
    }

    for (size_t i = 0; i < slots; ++i)
    {
        auto inner_hash_join = std::make_shared<InternalHashJoin>();
        inner_hash_join->data = std::make_unique<HashJoin>(table_join_, right_sample_block, any_take_last_row_);
        hash_joins.emplace_back(std::move(inner_hash_join));
    }

    dispatch_datas = {std::make_shared<BlockDispatchControlData>(), std::make_shared<BlockDispatchControlData>()};
    const auto & onexpr = table_join->getClauses()[0];
    auto & left_dispatch_data = *dispatch_datas[0];
    std::tie(left_dispatch_data.hash_expression_actions, left_dispatch_data.hash_columns_names) = buildHashExpressionAction(left_sample_block, onexpr.key_names_left);

    auto & right_dispatch_data = *dispatch_datas[1];
    std::tie(right_dispatch_data.hash_expression_actions, right_dispatch_data.hash_columns_names) = buildHashExpressionAction(right_sample_block, onexpr.key_names_right);
}

bool ConcurrentHashJoin::addJoinedBlock(const Block & block, bool check_limits)
{
    auto & dispatch_data = *dispatch_datas[1];
    std::vector<Block> dispatched_blocks;
    Block cloned_block = block;
    dispatchBlock(dispatch_data, cloned_block, dispatched_blocks);
    for (size_t i = 0; i < dispatched_blocks.size(); ++i)
    {
        auto & hash_join = hash_joins[i];
        auto & dispatched_block = dispatched_blocks[i];
        auto rows = dispatched_block.rows();
        check_total_rows += rows;
        check_total_bytes += dispatched_block.bytes();
        std::unique_lock lock(hash_join->mutex);

        // Don't take the real insertion here, because inserting a block into HashTable is a time-consuming operation,
        // it may cause serious lock contention and make the whole process slow.
        hash_join->pending_right_blocks.emplace_back(std::move(dispatched_block));
    }

    if (check_limits)
        return table_join->sizeLimits().check(
            check_total_rows.load(), check_total_bytes.load(), "JOIN", ErrorCodes::SET_SIZE_LIMIT_EXCEEDED);
    return true;
}

void ConcurrentHashJoin::joinBlock(Block & block, std::shared_ptr<ExtraBlock> & not_processed)
{
    if (block.rows())
        waitAllAddJoinedBlocksFinished();
    else
    {
        std::unique_lock lock(hash_joins[0]->mutex);
        hash_joins[0]->data->joinBlock(block, not_processed);
        return;
    }

    auto & dispatch_data = *dispatch_datas[0];
    std::vector<Block> dispatched_blocks;
    Block cloned_block = block;
    dispatchBlock(dispatch_data, cloned_block, dispatched_blocks);
    for (size_t i = 0; i < dispatched_blocks.size(); ++i)
    {
        std::shared_ptr<ExtraBlock> none_extra_block;
        auto & hash_join = hash_joins[i];
        auto & dispatched_block = dispatched_blocks[i];
        hash_join->data->joinBlock(dispatched_block, none_extra_block);
        if (none_extra_block && !none_extra_block->empty())
            throw Exception(ErrorCodes::LOGICAL_ERROR, "not_processed should be empty");
    }

    ColumnsWithTypeAndName final_columns;
    MutableColumns mutable_final_columns;
    NamesAndTypesList names_and_types = dispatched_blocks[0].getNamesAndTypesList();
    auto types = names_and_types.getTypes();
    for (auto & dispatched_block : dispatched_blocks)
    {
        for (size_t pos = 0; pos < dispatched_block.columns(); ++pos)
        {
            auto & from_column = dispatched_block.getByPosition(pos);
            if (mutable_final_columns.size() <= pos)
            {
                mutable_final_columns.emplace_back(from_column.column->cloneEmpty());
            }
            if (!from_column.column->empty())
            {
                mutable_final_columns[pos]->insertRangeFrom(*from_column.column, 0, from_column.column->size());
            }
        }
    }

    size_t i = 0;
    for (auto & name_and_type : names_and_types)
    {
        final_columns.emplace_back(ColumnWithTypeAndName(std::move(mutable_final_columns[i]), name_and_type.type, name_and_type.name));
        i += 1;
    }
    block = Block(final_columns);
}

void ConcurrentHashJoin::checkTypesOfKeys(const Block & block) const
{
    hash_joins[0]->data->checkTypesOfKeys(block);
}

void ConcurrentHashJoin::setTotals(const Block & block)
{
    if (block)
    {
        std::lock_guard lock(totals_mutex);
        totals = block;
    }
}

const Block & ConcurrentHashJoin::getTotals() const
{
    return totals;
}

size_t ConcurrentHashJoin::getTotalRowCount() const
{
    size_t res = 0;
    for (const auto & hash_join : hash_joins)
    {
        res += hash_join->data->getTotalRowCount();
    }
    return res;
}

size_t ConcurrentHashJoin::getTotalByteCount() const
{
    size_t res = 0;
    for (const auto & hash_join : hash_joins)
    {
        res += hash_join->data->getTotalByteCount();
    }
    return res;
}

bool ConcurrentHashJoin::alwaysReturnsEmptySet() const
{
    for (const auto & hash_join : hash_joins)
    {
        if (!hash_join->data->alwaysReturnsEmptySet() || !hash_join->pending_right_blocks.empty())
            return false;
    }
    return true;
}

std::shared_ptr<NotJoinedBlocks> ConcurrentHashJoin::getNonJoinedBlocks(
        const Block & /*left_sample_block*/, const Block & /*result_sample_block*/, UInt64 /*max_block_size*/) const
{
    if (table_join->strictness() == ASTTableJoin::Strictness::Asof ||
        table_join->strictness() == ASTTableJoin::Strictness::Semi ||
        !isRightOrFull(table_join->kind()))
    {
        return {};
    }
    throw Exception(ErrorCodes::LOGICAL_ERROR, "Invalid join type. join kind: {}, strictness: {}", table_join->kind(), table_join->strictness());
}

std::pair<std::shared_ptr<ExpressionActions>, Strings> ConcurrentHashJoin::buildHashExpressionAction(const Block & block, const Strings & based_columns_names)
{
    Strings hash_columns_names;
    WriteBufferFromOwnString col_buf;
    for (size_t i = 0, sz = based_columns_names.size(); i < sz; ++i)
    {
        if (i)
            col_buf << ",";
        col_buf << based_columns_names[i];
    }
    WriteBufferFromOwnString write_buf;
    for (size_t i = 0; i < slots; ++i)
    {
        if (i)
            write_buf << ",";
        write_buf << "cityHash64(" << col_buf.str() << ")%" << slots << "=" << i;
    }
    auto settings = context->getSettings();
    ParserExpressionList hash_expr_parser(true);
    ASTPtr func_ast = parseQuery(hash_expr_parser, write_buf.str(), "Parse Block hash expression", settings.max_query_size, settings.max_parser_depth);
    for (auto & child : func_ast->children)
        hash_columns_names.emplace_back(child->getColumnName());

    DebugASTLog<false> visit_log;
    const auto & names_and_types = block.getNamesAndTypesList();
    ActionsDAGPtr actions = std::make_shared<ActionsDAG>(names_and_types);
    PreparedSets prepared_sets;
    SubqueriesForSets subqueries_for_sets;
    ActionsVisitor::Data visitor_data(
        context,
        SizeLimits{settings.max_rows_in_set, settings.max_bytes_in_set, settings.set_overflow_mode},
        10,
        names_and_types,
        std::move(actions),
        prepared_sets,
        subqueries_for_sets,
        true, false, true, false);
    ActionsVisitor(visitor_data, visit_log.stream()).visit(func_ast);
    actions = visitor_data.getActions();
    return {std::make_shared<ExpressionActions>(actions), hash_columns_names};
}

void ConcurrentHashJoin::dispatchBlock(BlockDispatchControlData & dispatch_data, Block & from_block, std::vector<Block> & dispatched_blocks)
{
    auto rows_before_filtration = from_block.rows();
    auto header = from_block.cloneEmpty();
    dispatch_data.hash_expression_actions->execute(from_block, rows_before_filtration);
    for (const auto & filter_column_name : dispatch_data.hash_columns_names)
    {
        auto full_column = from_block.findByName(filter_column_name)->column->convertToFullColumnIfConst();
        auto filter_desc = std::make_unique<FilterDescription>(*full_column);
        auto num_filtered_rows = filter_desc->countBytesInFilter();
        ColumnsWithTypeAndName filtered_block_columns;
        for (size_t i = 0; i < header.columns(); ++i)
        {
            auto & from_column = from_block.getByPosition(i);
            auto filtered_column = filter_desc->filter(*from_column.column, num_filtered_rows);
            filtered_block_columns.emplace_back(filtered_column, from_column.type, from_column.name);
        }
        dispatched_blocks.emplace_back(std::move(filtered_block_columns));
    }
}

void ConcurrentHashJoin::waitAllAddJoinedBlocksFinished()
{
    while (finished_add_joined_blocks_tasks < hash_joins.size())[[unlikely]]
    {
        std::shared_ptr<InternalHashJoin> hash_join;
        {
            std::unique_lock lock(finished_add_joined_blocks_tasks_mutex);
            hash_join = getUnfinishedAddJoinedBlockTasks();
            if (!hash_join)
            {
                while (finished_add_joined_blocks_tasks < hash_joins.size())
                {
                    finished_add_joined_blocks_tasks_cond.wait(lock);
                }
                return;
            }
        }

        while (!hash_join->pending_right_blocks.empty())
        {
            Block & block = hash_join->pending_right_blocks.front();
            hash_join->data->addJoinedBlock(block, true);
            hash_join->pending_right_blocks.pop_front();
        }
        finished_add_joined_blocks_tasks += 1;
        finished_add_joined_blocks_tasks_cond.notify_all();
    }
}

std::shared_ptr<ConcurrentHashJoin::InternalHashJoin> ConcurrentHashJoin::getUnfinishedAddJoinedBlockTasks()
{
    for (auto & hash_join : hash_joins)
    {
        if (!hash_join->in_inserting)
        {
            hash_join->in_inserting = true;
            return hash_join;
        }
    }
    return nullptr;
}

}
}