//    OpenVPN -- An application to securely tunnel IP networks
//               over a single port, with support for SSL/TLS-based
//               session authentication and key exchange,
//               packet encryption, packet authentication, and
//               packet compression.
//
//    Copyright (C) 2012- OpenVPN Inc.
//
//    SPDX-License-Identifier: MPL-2.0 OR AGPL-3.0-only WITH openvpn3-openssl-exception
//

#ifndef OPENVPN_COMMON_FFS_H
#define OPENVPN_COMMON_FFS_H

// find_first_set: find the one-based position of the first 1 bit in
// a word (scanning from least significant bit to most significant)

// find_last_set: find the one-based position of the last 1 bit in
// a word (scanning from most significant bit to least significant)

namespace openvpn {

#if defined(__GNUC__)

template <typename T>
inline constexpr int n_bits_type()
{
    return sizeof(T) * 8;
}

template <typename T>
inline constexpr int n_bits_type(const T &v)
{
    return sizeof(v) * 8;
}

inline int find_first_set(const unsigned int v)
{
    if (!v)
        return 0;
    return __builtin_ffs(v);
}

inline int find_first_set(const int v)
{
    return find_first_set(static_cast<unsigned int>(v));
}

inline int find_last_set(const unsigned int v)
{
    if (!v)
        return 0;
    return n_bits_type(v) - __builtin_clz(v);
}

inline int find_last_set(const int v)
{
    return find_last_set(static_cast<unsigned int>(v));
}

inline int find_first_set(const unsigned long v)
{
    if (!v)
        return 0;
    return __builtin_ffsl(v);
}

inline int find_first_set(const long v)
{
    return find_first_set(static_cast<unsigned long>(v));
}

inline int find_last_set(const unsigned long v)
{
    if (!v)
        return 0;
    return n_bits_type(v) - __builtin_clzl(v);
}

inline int find_last_set(const long v)
{
    return find_last_set(static_cast<unsigned long>(v));
}

inline int find_first_set(const unsigned long long v)
{
    if (!v)
        return 0;
    return __builtin_ffsll(v);
}

inline int find_first_set(const long long v)
{
    return find_first_set(static_cast<unsigned long long>(v));
}

inline int find_last_set(const unsigned long long v)
{
    if (!v)
        return 0;
    return n_bits_type(v) - __builtin_clzll(v);
}

inline int find_last_set(const long long v)
{
    return find_last_set(static_cast<unsigned long long>(v));
}

#elif defined(_MSC_VER)

#include <intrin.h>

inline int find_first_set(unsigned int x)
{
    if (!x)
        return 0;
    unsigned int r = 0;
    _BitScanForward((unsigned long *)&r, x);
    return r + 1;
}

inline int find_last_set(unsigned int x)
{
    if (!x)
        return 0;
    unsigned int r = 0;
    _BitScanReverse((unsigned long *)&r, x);
    return r + 1;
}

#else
#error no find_first_set / find_last_set implementation for this platform
#endif

template <typename T>
inline bool is_pow2(const T v)
{
    return v && find_first_set(v) == find_last_set(v);
}

template <typename T>
inline int log2(const T v)
{
    return find_last_set(v) - 1;
}

} // namespace openvpn

#endif // OPENVPN_COMMON_FFS_H
