AMReX_Enum.H

Go to the documentation of this file.

#ifndef AMREX_ENUM_H_
#define AMREX_ENUM_H_
 
#include <AMReX_String.H>
 
#include <algorithm>
#include <array>
#include <cstddef>
#include <stdexcept>
#include <string>
#include <string_view>
#include <type_traits>
#include <utility>
#include <vector>
 
template <typename T>
using amrex_enum_traits = decltype(amrex_get_enum_traits(std::declval<T>()));
 
namespace amrex
{
namespace detail
{
    template <typename T, typename ET = amrex_enum_traits<T>>
    requires (ET::value)
    std::vector<std::pair<std::string,T>> getNewEnumNameValuePairs ()
    {
        auto tmp = amrex::split(std::string(ET::enum_names), ",");
        std::vector<std::pair<std::string,T>> r;
        r.reserve(tmp.size());
        int next_value = 0;
        for (auto const& item : tmp) {
            auto const& kv = amrex::split(item, "=");
            if (kv.size() == 1) {
                r.emplace_back(amrex::trim(kv[0]), static_cast<T>(next_value));
                ++next_value;
            } else if (kv.size() == 2) {
                auto const& value_string = amrex::trim(kv[1]);
                // For k = v, find if v exists as a key. If not, v must be an int.
                auto it = std::find_if(r.begin(), r.end(),
                                       [&] (auto const& x) -> bool
                                           { return x.first == value_string; });
                T this_value;
                if (it != r.end()) {
                    this_value = it->second;
                } else { // v is an int literal
                    // The base of the integer is auto detected, so 0x/0 prefixes work.
                    auto s = value_string;
                    s.erase(std::remove(s.begin(), s.end(), '\''), s.end()); // digit separators
                    std::size_t pos = 0;
                    this_value = static_cast<T>(std::stoi(s, &pos, 0));
                    // Only an integer suffix may follow. Binary literals and
                    // expressions such as `1 << 2` are not supported.
                    if (s.find_first_not_of("uUlLzZ", pos) != std::string::npos) {
                        std::string error_msg("amrex::getEnumNameValuePairs: unsupported enumerator initializer `");
                        error_msg.append(value_string).append("` in AMREX_ENUM(")
                            .append(ET::class_name).append(", ").append(ET::enum_names)
                            .append(").");
                        throw std::runtime_error(error_msg);
                    }
                }
                r.emplace_back(amrex::trim(kv[0]), this_value);
                next_value = static_cast<int>(this_value) + 1;
            } else {
                std::string error_msg("amrex::getEnumNameIntPairs: AMREX_ENUM(");
                error_msg.append(ET::class_name).append(", ").append(ET::enum_names)
                    .append(").");
                throw std::runtime_error(error_msg);
            }
        }
        return r;
    }
}  // namespace detail
 
    template <typename T, typename ET = amrex_enum_traits<T>>
    requires (ET::value)
    std::vector<std::pair<std::string,T>> const& getEnumNameValuePairs ()
    {
        // cache enum value strings for the whole type T
        static auto r = detail::getNewEnumNameValuePairs<T>();
        return r;
    }
 
    template <typename T, typename ET = amrex_enum_traits<T>>
    requires (ET::value)
    T getEnum (std::string_view const& s)
    {
        auto const& kv = getEnumNameValuePairs<T>();
        auto it = std::find_if(kv.begin(), kv.end(),
                               [&] (auto const& x) -> bool
                                   { return x.first == s; });
        if (it != kv.end()) {
            return it->second;
        } else {
            std::string error_msg("amrex::getEnum: Unknown enum: ");
            error_msg.append(s).append(" in AMREX_ENUM(").append(ET::class_name)
                .append(", ").append(ET::enum_names).append(").");
            throw std::runtime_error(error_msg);
            return T();
        }
    }
 
    template <typename T, typename ET = amrex_enum_traits<T>>
    requires (ET::value)
    T getEnumCaseInsensitive (std::string_view const& s)
    {
        auto const& kv = getEnumNameValuePairs<T>();
        std::string ls = amrex::toLower(std::string(s));
        auto it = std::find_if(kv.begin(), kv.end(),
                               [&] (auto const& x) -> bool
                                   { return amrex::toLower(x.first) == ls; });
        if (it != kv.end()) {
            return it->second;
        } else {
            std::string error_msg("amrex::getEnumCaseInsensitive: Unknown enum: ");
            error_msg.append(s).append(" in AMREX_ENUM(").append(ET::class_name)
                .append(", ").append(ET::enum_names).append(").");
            throw std::runtime_error(error_msg);
            return T();
        }
    }
 
    template <typename T, typename ET = amrex_enum_traits<T>>
    requires (ET::value)
    std::string getEnumNameString (T const& v)
    {
        auto const& kv = getEnumNameValuePairs<T>();
        auto it = std::find_if(kv.begin(), kv.end(),
                               [&] (auto const& x) -> bool
                                   { return x.second == v; });
        if (it != kv.end()) {
            return it->first;
        } else {
            std::string error_msg("amrex::getEnumNameString: Unknown enum value: ");
            error_msg.append(std::to_string(static_cast<int>(v)))
                .append(" in AMREX_ENUM(").append(ET::class_name).append(", ")
                .append(ET::enum_names).append(").");
            throw std::runtime_error(error_msg);
            return std::string();
        }
    }
 
    template <typename T, typename ET = amrex_enum_traits<T>>
    requires (ET::value)
    std::vector<std::string> getEnumNameStrings ()
    {
        auto r = amrex::split(std::string(ET::enum_names), ",");
        for (auto& s : r) {
            auto found = s.find('=');
            if (found != std::string::npos) {
                s.erase(found);
            }
            s = amrex::trim(s);
        }
        return r;
    }
 
    template <typename T, typename ET = amrex_enum_traits<T>>
    requires (ET::value)
    std::string getEnumClassName ()
    {
        return std::string(ET::class_name);
    }
 
    template <typename T, typename ET = amrex_enum_traits<T>>
    requires (ET::value)
    constexpr auto toUnderlying (T v) noexcept
    {
        return static_cast<std::underlying_type_t<T>>(v);
    }
}
 
#define AMREX_ENUM(CLASS, ...) \
    enum class CLASS : int { __VA_ARGS__ }; \
 \
    struct CLASS##_EnumTraits { \
        using enum_class_t = CLASS; \
        static constexpr bool value = true; \
        static constexpr std::string_view class_name{#CLASS}; \
        static constexpr std::string_view enum_names{#__VA_ARGS__}; \
    }; \
 \
    CLASS##_EnumTraits amrex_get_enum_traits(CLASS)
 
#define AMREX_ENUM_IN_CLASS(CLASS, ...) \
    enum class CLASS : int { __VA_ARGS__ }; \
 \
    struct CLASS##_EnumTraits { \
        using enum_class_t = CLASS; \
        static constexpr bool value = true; \
        static constexpr std::string_view class_name{#CLASS}; \
        static constexpr std::string_view enum_names{#__VA_ARGS__}; \
    }; \
 \
    friend CLASS##_EnumTraits amrex_get_enum_traits(CLASS) { return {}; } \
    /* This gets rid of trailing semicolon warning. */ static_assert(true, "")
 
#endif