#include <Interpreters/sortBlock.h>

#include <Columns/ColumnString.h>
#include <Columns/ColumnConst.h>
#include <Columns/ColumnNullable.h>
#include <Columns/ColumnLowCardinality.h>
#include <Columns/ColumnTuple.h>
#include <Common/typeid_cast.h>
#include <Functions/FunctionHelpers.h>

#include <pdqsort.h>

namespace DB
{

namespace ErrorCodes
{
    extern const int BAD_COLLATION;
}

static bool isCollationRequired(const SortColumnDescription & description)
{
    return description.collator != nullptr;
}

/// Column with description for sort
struct ColumnWithSortDescription
{
    const IColumn * column = nullptr;
    const SortColumnDescription * description = nullptr;

    /// It means, that this column is ColumnConst
    bool column_const = false;
};
using ColumnsWithSortDescriptions = std::vector<ColumnWithSortDescription>;

void flattenTupleColumnRecursively(
    ColumnsWithSortDescriptions & res, const ColumnTuple * tuple, const SortColumnDescription * description, bool is_constant)
{
    for (const auto & column : tuple->getColumns())
    {
        if (const auto * subtuple = typeid_cast<const ColumnTuple *>(column.get()))
            flattenTupleColumnRecursively(res, subtuple, description, is_constant);
        else
            res.emplace_back(ColumnWithSortDescription{column.get(), description, is_constant});
    }
}

ColumnsWithSortDescriptions getColumnsWithSortDescription(const Block & block, const SortDescription & description)
{
    size_t size = description.size();
    ColumnsWithSortDescriptions res;
    res.reserve(size);

    for (size_t i = 0; i < size; ++i)
    {
        const IColumn * column = !description[i].column_name.empty()
            ? block.getByName(description[i].column_name).column.get()
            : block.safeGetByPosition(description[i].column_number).column.get();

        if (isCollationRequired(description[i]))
        {
            if (!column->isCollationSupported())
                throw Exception(
                    "Collations could be specified only for String, LowCardinality(String), Nullable(String) or for Array or Tuple, "
                    "containing them.",
                    ErrorCodes::BAD_COLLATION);
        }
        if (const auto * tuple = typeid_cast<const ColumnTuple *>(column))
            flattenTupleColumnRecursively(res, tuple, &description[i], isColumnConst(*column));
        else
            res.emplace_back(ColumnWithSortDescription{column, &description[i], isColumnConst(*column)});
    }
    return res;
}

struct PartialSortingLess
{
    const ColumnsWithSortDescriptions & columns;

    explicit PartialSortingLess(const ColumnsWithSortDescriptions & columns_) : columns(columns_) {}

    bool operator() (size_t a, size_t b) const
    {
        for (const auto & elem : columns)
        {
            int res;
            if (elem.column_const)
                res = 0;
            else
                res = elem.description->direction * elem.column->compareAt(a, b, *elem.column, elem.description->nulls_direction);
            if (res < 0)
                return true;
            else if (res > 0)
                return false;
        }
        return false;
    }
};


struct PartialSortingLessWithCollation
{
    const ColumnsWithSortDescriptions & columns;

    explicit PartialSortingLessWithCollation(const ColumnsWithSortDescriptions & columns_)
        : columns(columns_)
    {
    }

    bool operator() (size_t a, size_t b) const
    {
        for (const auto & elem : columns)
        {
            int res;

            if (elem.column_const)
            {
                res = 0;
            }
            else if (isCollationRequired(*elem.description))
            {
                res = elem.column->compareAtWithCollation(a, b, *elem.column, elem.description->nulls_direction, *elem.description->collator);
            }
            else
                res = elem.column->compareAt(a, b, *elem.column, elem.description->nulls_direction);
            res *= elem.description->direction;
            if (res < 0)
                return true;
            else if (res > 0)
                return false;
        }
        return false;
    }
};

void sortBlock(Block & block, const SortDescription & description, UInt64 limit)
{
    if (!block)
        return;

    ColumnsWithSortDescriptions columns_with_sort_desc = getColumnsWithSortDescription(block, description);
    bool all_const = true;
    for (const auto & column : columns_with_sort_desc)
    {
        if (!column.column_const)
        {
            all_const = false;
            break;
        }
    }
    if (all_const)
        return;

    IColumn::Permutation perm;
    /// If only one column to sort by
    if (columns_with_sort_desc.size() == 1)
    {
        bool reverse = columns_with_sort_desc[0].description->direction == -1;
        const IColumn * column = columns_with_sort_desc[0].column;
        if (isCollationRequired(description[0]))
            column->getPermutationWithCollation(*description[0].collator, reverse, limit, description[0].nulls_direction, perm);
        else
        {
            int nan_direction_hint = columns_with_sort_desc[0].description->nulls_direction;
            column->getPermutation(reverse, limit, nan_direction_hint, perm);
        }
    }
    else
    {
        size_t size = block.rows();
        perm.resize(size);
        for (size_t i = 0; i < size; ++i)
            perm[i] = i;

        if (limit >= size)
            limit = 0;

        EqualRanges ranges;
        ranges.emplace_back(0, perm.size());
        for (const auto & column : columns_with_sort_desc)
        {
            while (!ranges.empty() && limit && limit <= ranges.back().first)
                ranges.pop_back();

            if (ranges.empty())
                break;

            if (column.column_const)
                continue;

            if (isCollationRequired(*column.description))
            {
                column.column->updatePermutationWithCollation(
                    *column.description->collator,
                    column.description->direction < 0,
                    limit,
                    column.description->nulls_direction,
                    perm,
                    ranges);
            }
            else
            {
                column.column->updatePermutation(
                    column.description->direction < 0, limit, column.description->nulls_direction, perm, ranges);
            }
        }
    }
    size_t columns = block.columns();
    for (size_t i = 0; i < columns; ++i)
        block.getByPosition(i).column = block.getByPosition(i).column->permute(perm, limit);
}


void stableGetPermutation(const Block & block, const SortDescription & description, IColumn::Permutation & out_permutation)
{
    if (!block)
        return;

    size_t size = block.rows();
    out_permutation.resize(size);
    for (size_t i = 0; i < size; ++i)
        out_permutation[i] = i;

    ColumnsWithSortDescriptions columns_with_sort_desc = getColumnsWithSortDescription(block, description);

    std::stable_sort(out_permutation.begin(), out_permutation.end(), PartialSortingLess(columns_with_sort_desc));
}


bool isAlreadySorted(const Block & block, const SortDescription & description)
{
    if (!block)
        return true;

    size_t rows = block.rows();

    ColumnsWithSortDescriptions columns_with_sort_desc = getColumnsWithSortDescription(block, description);

    PartialSortingLess less(columns_with_sort_desc);

    /** If the rows are not too few, then let's make a quick attempt to verify that the block is not sorted.
     * Constants - at random.
     */
    static constexpr size_t num_rows_to_try = 10;
    if (rows > num_rows_to_try * 5)
    {
        for (size_t i = 1; i < num_rows_to_try; ++i)
        {
            size_t prev_position = rows * (i - 1) / num_rows_to_try;
            size_t curr_position = rows * i / num_rows_to_try;

            if (less(curr_position, prev_position))
                return false;
        }
    }

    for (size_t i = 1; i < rows; ++i)
        if (less(i, i - 1))
            return false;

    return true;
}


void stableSortBlock(Block & block, const SortDescription & description)
{
    if (!block)
        return;

    IColumn::Permutation perm;
    stableGetPermutation(block, description, perm);

    size_t columns = block.columns();
    for (size_t i = 0; i < columns; ++i)
        block.safeGetByPosition(i).column = block.safeGetByPosition(i).column->permute(perm, 0);
}

}