/*
    Copyright (c) 2019-2025 Intel Corporation
    Copyright (c) 2025 UXL Foundation Contributors

    Licensed 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.
*/

#ifndef __TBB_info_H
#define __TBB_info_H

#include "detail/_config.h"
#include "detail/_namespace_injection.h"

#if __TBB_ARENA_BINDING
#include <vector>
#include <cstdint>

namespace tbb {
namespace detail {

namespace d1{

using numa_node_id = int;
using core_type_id = int;

// TODO: consider version approach to resolve backward compatibility potential issues.
struct constraints {
#if !__TBB_CPP20_PRESENT
    constraints(numa_node_id id = -1, int maximal_concurrency = -1)
        : numa_id(id)
        , max_concurrency(maximal_concurrency)
    {}
#endif /*!__TBB_CPP20_PRESENT*/

    constraints& set_numa_id(numa_node_id id) {
        numa_id = id;
        return *this;
    }
    constraints& set_max_concurrency(int maximal_concurrency) {
        max_concurrency = maximal_concurrency;
        return *this;
    }
    constraints& set_core_type(core_type_id id) {
        core_type = id;
        return *this;
    }
    constraints& set_core_types(const std::vector<core_type_id>& ids) {
        if (ids.empty()) {
            core_type = -1;
        } else if (ids.size() == 1) {
            core_type = ids[0];
        } else {
            // Set a marker bit to indicate multiple core type format
            core_type = (1 << core_type_id_bits);

            for (core_type_id id : ids) {
                __TBB_ASSERT((0 <= id) && (id < static_cast<core_type_id>(core_type_id_bits)), "Wrong core type id");
                core_type |= (1 << id);
            }
        }

        return *this;
    }
    std::vector<core_type_id> get_core_types() const {
        if ((core_type == -1) || single_core_type()) {
            return {core_type};
        }

        std::vector<core_type_id> core_type_ids;
        for (size_t bit_pos = 0; bit_pos < core_type_id_bits; ++bit_pos) {
            if (core_type & (1 << bit_pos)) {
                core_type_ids.push_back(static_cast<core_type_id>(bit_pos));
            }
        }
        return core_type_ids;
    }
    static bool single_core_type(core_type_id id) {
        return (id >> core_type_id_bits) == 0;
    }
    bool single_core_type() const {
        return single_core_type(core_type);
    }
    constraints& set_max_threads_per_core(int threads_number) {
        max_threads_per_core = threads_number;
        return *this;
    }

    // Upper 4 bits reserved for format marker (single vs multiple core types)
    static constexpr size_t core_type_id_bits = sizeof(core_type_id) * CHAR_BIT - 4;
    numa_node_id numa_id = -1;
    int max_concurrency = -1;
    core_type_id core_type = -1;
    int max_threads_per_core = -1;
};

} // namespace d1

namespace r1 {
TBB_EXPORT unsigned __TBB_EXPORTED_FUNC numa_node_count();
TBB_EXPORT void __TBB_EXPORTED_FUNC fill_numa_indices(int* index_array);
TBB_EXPORT int __TBB_EXPORTED_FUNC numa_default_concurrency(int numa_id);

// Reserved fields are required to save binary backward compatibility in case of future changes.
// They must be defined to 0 at this moment.
TBB_EXPORT unsigned __TBB_EXPORTED_FUNC core_type_count(intptr_t reserved = 0);
TBB_EXPORT void __TBB_EXPORTED_FUNC fill_core_type_indices(int* index_array, intptr_t reserved = 0);

TBB_EXPORT int __TBB_EXPORTED_FUNC constraints_default_concurrency(const d1::constraints& c, intptr_t reserved = 0);
TBB_EXPORT int __TBB_EXPORTED_FUNC constraints_threads_per_core(const d1::constraints& c, intptr_t reserved = 0);
} // namespace r1

namespace d1 {

inline std::vector<numa_node_id> numa_nodes() {
    std::vector<numa_node_id> node_indices(r1::numa_node_count());
    r1::fill_numa_indices(node_indices.data());
    return node_indices;
}

inline int default_concurrency(numa_node_id id = -1) {
    return r1::numa_default_concurrency(id);
}

inline std::vector<core_type_id> core_types() {
    std::vector<int> core_type_indexes(r1::core_type_count());
    r1::fill_core_type_indices(core_type_indexes.data());
    return core_type_indexes;
}

inline int default_concurrency(constraints c) {
    if (c.max_concurrency > 0) { return c.max_concurrency; }
    return r1::constraints_default_concurrency(c);
}

} // namespace d1
} // namespace detail

inline namespace v1 {
using detail::d1::numa_node_id;
using detail::d1::core_type_id;

namespace info {
using detail::d1::numa_nodes;
using detail::d1::core_types;

using detail::d1::default_concurrency;
} // namespace info
} // namespace v1

} // namespace tbb

#endif /*__TBB_ARENA_BINDING*/

#endif /*__TBB_info_H*/
