// Licensed to the Apache Software Foundation (ASF) under one

// or more contributor license agreements.  See the NOTICE file

// distributed with this work for additional information

// regarding copyright ownership.  The ASF licenses this file

// to you under the Apache License, Version 2.0 (the

// "License"); you may not use this file except in compliance

// with the License.  You may obtain a copy of the License at

//

//   http://www.apache.org/licenses/LICENSE-2.0

//

// Unless required by applicable law or agreed to in writing,

// software distributed under the License is distributed on an

// "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY

// KIND, either express or implied.  See the License for the

// specific language governing permissions and limitations

// under the License.

#pragma once

#include <algorithm>

#include <vector>

#include "common/logging.h"

#include "common/status.h"

#include "core/field.h"

#include "core/string_ref.h"

#include "core/types.h"

#include "exprs/expr_zonemap_filter.h"

#include "exprs/hybrid_set.h"

#include "exprs/vexpr.h"

#include "exprs/vin_predicate.h"

#include "exprs/vliteral.h"

#include "exprs/vslot_ref.h"

namespace doris {

class VDirectInPredicate final : public VExpr {

    ENABLE_FACTORY_CREATOR(VDirectInPredicate);

public:

    VDirectInPredicate(const TExprNode& node, const std::shared_ptr<HybridSetBase>& filter,

                       bool hybrid_set_values_match_child_type = true)

            : VExpr(node),

              _filter(filter),

              _hybrid_set_values_match_child_type(hybrid_set_values_match_child_type),

              _expr_name("direct_in_predicate") {}

    ~VDirectInPredicate() override = default;

#ifdef BE_TEST

    VDirectInPredicate() = default;

#endif

    Status prepare(RuntimeState* state, const RowDescriptor& row_desc,

                   VExprContext* context) override {

        RETURN_IF_ERROR_OR_PREPARED(VExpr::prepare(state, row_desc, context));

        RETURN_IF_ERROR(_materialize_for_zonemap_filter());

        _prepare_finished = true;

        return Status::OK();

    }

    Status open(RuntimeState* state, VExprContext* context,

                FunctionContext::FunctionStateScope scope) override {

        DCHECK(_prepare_finished);

        RETURN_IF_ERROR(VExpr::open(state, context, scope));

        _open_finished = true;

        return Status::OK();

    }

    Status execute_column_impl(VExprContext* context, const Block* block, const Selector* selector,

                               size_t count, ColumnPtr& result_column) const override {

        return _do_execute(context, block, nullptr, selector, count, result_column, nullptr);

    }

    Status execute_runtime_filter(VExprContext* context, const Block* block,

                                  const uint8_t* __restrict filter, size_t count,

                                  ColumnPtr& result_column, ColumnPtr* arg_column) const override {

        return _do_execute(context, block, filter, nullptr, count, result_column, arg_column);

    }

    const std::string& expr_name() const override { return _expr_name; }

    std::shared_ptr<HybridSetBase> get_set_func() const override { return _filter; }

    ZoneMapFilterResult evaluate_zonemap_filter(const ZoneMapEvalContext& ctx) const override {

        return expr_zonemap::eval_in_zonemap(ctx, get_child(0), false, _seg_filter_values,

                                             _seg_filter_min, _seg_filter_max);

    }

    bool can_evaluate_zonemap_filter() const override {

        return _zonemap_materialized &&

               expr_zonemap::can_eval_in_zonemap(get_child(0), _seg_filter_values, _seg_filter_min,

                                                 _seg_filter_max);

    }

    bool get_slot_in_expr(VExprSPtr& new_root) const {

        if (!_hybrid_set_values_match_child_type) {

            return false;

        }

        if (!get_child(0)->is_slot_ref()) {

            return false;

        }

        auto* slot_ref = assert_cast<VSlotRef*>(get_child(0).get());

        auto slot_data_type = remove_nullable(slot_ref->data_type());

        {

            TTypeDesc type_desc = create_type_desc(PrimitiveType::TYPE_BOOLEAN);

            TExprNode node;

            node.__set_type(type_desc);

            node.__set_node_type(TExprNodeType::IN_PRED);

            node.in_predicate.__set_is_not_in(false);

            node.__set_opcode(TExprOpcode::FILTER_IN);

            // VdirectInPredicate assume is_nullable = false.

            node.__set_is_nullable(false);

            new_root = VInPredicate::create_shared(node);

        }

        {

            // add slot

            new_root->add_child(children().at(0));

        }

        {

            auto iter = get_set_func()->begin();

            while (iter->has_next()) {

                DCHECK(iter->get_value() != nullptr);

                const void* value = iter->get_value();

                TExprNode node = _create_texpr_node_from_hybrid_set_value(

                        value, slot_data_type->get_primitive_type(),

                        slot_data_type->get_precision(), slot_data_type->get_scale());

                new_root->add_child(VLiteral::create_shared(node));

                iter->next();

            }

        }

        return true;

    }

    uint64_t get_digest(uint64_t seed) const override {

        seed = _children[0]->get_digest(seed);

        if (seed) {

            return _filter->get_digest(seed);

        }

        return seed;

    }

private:

    Status _do_execute(VExprContext* context, const Block* block, const uint8_t* __restrict filter,

                       const Selector* selector, size_t count, ColumnPtr& result_column,

                       ColumnPtr* arg_column) const {

        DCHECK(_open_finished || block == nullptr);

        DCHECK(!(filter != nullptr && selector != nullptr))

                << "filter and selector can not be both set";

        ColumnPtr argument_column;

        RETURN_IF_ERROR(

                _children[0]->execute_column(context, block, selector, count, argument_column));

        argument_column = argument_column->convert_to_full_column_if_const();

        if (arg_column != nullptr) {

            *arg_column = argument_column;

        }

        size_t sz = argument_column->size();

        auto res_data_column = ColumnUInt8::create(sz);

        res_data_column->resize(sz);

        if (argument_column->is_nullable()) {

            auto column_nested = static_cast<const ColumnNullable*>(argument_column.get())

                                         ->get_nested_column_ptr();

            const auto& null_map =

                    static_cast<const ColumnNullable*>(argument_column.get())->get_null_map_data();

            _filter->find_batch_nullable(*column_nested, sz, null_map, res_data_column->get_data(),

                                         filter);

        } else {

            _filter->find_batch(*argument_column, sz, res_data_column->get_data(), filter);

        }

        DCHECK(!_data_type->is_nullable());

        result_column = std::move(res_data_column);

        return Status::OK();

    }

    Status _materialize_for_zonemap_filter() {

        if (!_hybrid_set_values_match_child_type) {

            _zonemap_materialized = false;

            return Status::OK();

        }

        DORIS_CHECK(_filter != nullptr);

        auto& filter = *_filter;

        const auto& data_type = remove_nullable(get_child(0)->data_type());

        _seg_filter_values.clear();

        auto* iterator = filter.begin();

        while (iterator->has_next()) {

            const void* value = iterator->get_value();

            if (value != nullptr) {

                TExprNode literal_node = _create_texpr_node_from_hybrid_set_value(

                        value, remove_nullable(data_type)->get_primitive_type(),

                        remove_nullable(data_type)->get_precision(),

                        remove_nullable(data_type)->get_scale());

                auto literal = VLiteral::create_shared(literal_node);

                Field field;

                literal->get_column_ptr()->get(0, field);

                _seg_filter_values.emplace_back(std::move(field));

            }

            iterator->next();

        }

        if (_seg_filter_values.empty()) {

            _zonemap_materialized = true;

            return Status::OK();

        }

        auto minmax = std::ranges::minmax_element(_seg_filter_values, expr_zonemap::field_less);

        _seg_filter_min = *minmax.min;

        _seg_filter_max = *minmax.max;

        _zonemap_materialized = true;

        return Status::OK();

    }

    static TExprNode _create_texpr_node_from_hybrid_set_value(const void* data,

                                                              const PrimitiveType& type,

                                                              int precision, int scale) {

        if (is_string_type(type)) {

            const auto* value = reinterpret_cast<const StringRef*>(data);

            auto field = Field::create_field<TYPE_STRING>(String(value->data, value->size));

            return create_texpr_node_from(field, type, precision, scale);

        }

        return create_texpr_node_from(data, type, precision, scale);

    }

    std::shared_ptr<HybridSetBase> _filter;

    // Dictionary-filter rewrites may store physical dictionary codes in the HybridSet while the

    // child slot keeps the original logical type. Such values must not be materialized as child-type

    // literals for zonemap pruning or slot-IN rewrite.

    bool _hybrid_set_values_match_child_type = true;

    std::string _expr_name;

    bool _zonemap_materialized = false;

    std::vector<Field> _seg_filter_values;

    Field _seg_filter_min;

    Field _seg_filter_max;

};

} // namespace doris