//
// Copyright (c) 2017 The Khronos Group Inc.
// 
// 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 TEST_CONFORMANCE_CLCPP_RELATIONAL_FUNCS_TEST_FUNCS_HPP
#define TEST_CONFORMANCE_CLCPP_RELATIONAL_FUNCS_TEST_FUNCS_HPP

#include "common.hpp"

// This marco creates a class wrapper for unary test function we want to test.
#define DEF_UNARY_TEST_FUNC(CLASS_NAME, FUNC_NAME, HOST_FUNC_EXPRESSION) \
template <cl_int N /* Vector size */> \
struct CLASS_NAME : public unary_func< \
                                    typename make_vector_type<cl_float, N>::type, /* create cl_floatN type */ \
                                    typename make_vector_type<cl_int, N>::type /* create cl_intN type */ \
                                 > \
{ \
    typedef typename make_vector_type<cl_float, N>::type input_type; \
    typedef typename make_vector_type<cl_int, N>::type result_type; \
    \
    std::string str() \
    { \
        return #FUNC_NAME; \
    } \
    \
    std::string headers() \
    { \
        return "#include <opencl_relational>\n"; \
    } \
    \
    result_type operator()(const input_type& x) \
    {    \
        typedef typename scalar_type<input_type>::type SCALAR; \
        return perform_function<input_type, result_type>( \
            x, \
            [](const SCALAR& a) \
            { \
                if(HOST_FUNC_EXPRESSION) \
                { \
                    return cl_int(1); \
                } \
                return cl_int(0); \
            } \
        ); \
    } \
    \
    bool is_out_bool() \
    { \
        return true; \
    } \
    \
    input_type min1() \
    { \
        return detail::def_limit<input_type>(-10000.0f); \
    } \
    \
    input_type max1() \
    { \
        return detail::def_limit<input_type>(10000.0f); \
    } \
    \
    std::vector<input_type> in1_special_cases() \
    { \
        typedef typename scalar_type<input_type>::type SCALAR; \
        return {  \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::infinity()), \
            detail::make_value<input_type>(-std::numeric_limits<SCALAR>::infinity()), \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::quiet_NaN()), \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::signaling_NaN()), \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::denorm_min()), \
            detail::make_value<input_type>(0.0f), \
            detail::make_value<input_type>(-0.0f) \
        }; \
    } \
};

// This marco creates a class wrapper for binary test function we want to test.
#define DEF_BINARY_TEST_FUNC(CLASS_NAME, FUNC_NAME, HOST_FUNC_EXPRESSION) \
template <cl_int N /* Vector size */> \
struct CLASS_NAME : public binary_func< \
                                    typename make_vector_type<cl_float, N>::type, /* create cl_floatN type */ \
                                    typename make_vector_type<cl_float, N>::type, /* create cl_floatN type */ \
                                    typename make_vector_type<cl_int, N>::type /* create cl_intN type */ \
                                 > \
{ \
    typedef typename make_vector_type<cl_float, N>::type input_type; \
    typedef typename make_vector_type<cl_int, N>::type result_type; \
    \
    std::string str() \
    { \
        return #FUNC_NAME; \
    } \
    \
    std::string headers() \
    { \
        return "#include <opencl_relational>\n"; \
    } \
    \
    result_type operator()(const input_type& x, const input_type& y) \
    {    \
        typedef typename scalar_type<input_type>::type SCALAR; \
        return perform_function<input_type, input_type, result_type>( \
            x, y, \
            [](const SCALAR& a, const SCALAR& b) \
            { \
                if(HOST_FUNC_EXPRESSION) \
                { \
                    return cl_int(1); \
                } \
                return cl_int(0); \
            } \
        ); \
    } \
    \
    bool is_out_bool() \
    { \
        return true; \
    } \
    \
    input_type min1() \
    { \
        return detail::def_limit<input_type>(-10000.0f); \
    } \
    \
    input_type max1() \
    { \
        return detail::def_limit<input_type>(10000.0f); \
    } \
    \
    input_type min2() \
    { \
        return detail::def_limit<input_type>(-10000.0f); \
    } \
    \
    input_type max2() \
    { \
        return detail::def_limit<input_type>(10000.0f); \
    } \
    \
    std::vector<input_type> in1_special_cases() \
    { \
        typedef typename scalar_type<input_type>::type SCALAR; \
        return {  \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::infinity()), \
            detail::make_value<input_type>(-std::numeric_limits<SCALAR>::infinity()), \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::quiet_NaN()), \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::signaling_NaN()), \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::denorm_min()), \
            detail::make_value<input_type>(0.0f), \
            detail::make_value<input_type>(-0.0f) \
        }; \
    } \
    \
    std::vector<input_type> in2_special_cases() \
    { \
        typedef typename scalar_type<input_type>::type SCALAR; \
        return {  \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::infinity()), \
            detail::make_value<input_type>(-std::numeric_limits<SCALAR>::infinity()), \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::quiet_NaN()), \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::signaling_NaN()), \
            detail::make_value<input_type>(std::numeric_limits<SCALAR>::denorm_min()), \
            detail::make_value<input_type>(0.0f), \
            detail::make_value<input_type>(-0.0f) \
        }; \
    } \
};

DEF_UNARY_TEST_FUNC(test_func_isfinite, isfinite, (std::isfinite)(a))
DEF_UNARY_TEST_FUNC(test_func_isinf, isinf, (std::isinf)(a))
DEF_UNARY_TEST_FUNC(test_func_isnan, isnan, (std::isnan)(a))
DEF_UNARY_TEST_FUNC(test_func_isnormal, isnormal, (std::isnormal)(a))
DEF_UNARY_TEST_FUNC(test_func_signbit, signbit , (std::signbit)(a))

DEF_BINARY_TEST_FUNC(test_func_isordered, isordered, !(std::isunordered)(a, b))
DEF_BINARY_TEST_FUNC(test_func_isunordered, isunordered, (std::isunordered)(a, b))

#undef DEF_UNARY_TEST_FUNC
#undef DEF_BINARY_TEST_FUNC

template <cl_int N /* Vector size */>
struct test_func_all : public unary_func<
                                    typename make_vector_type<cl_int, N>::type, /* create cl_intN type */
                                    cl_int /* create cl_intN type */
                                 >
{
    typedef typename make_vector_type<cl_int, N>::type input_type;
    typedef cl_int result_type;

    std::string str()
    {
        return "all";
    }

    std::string headers()
    {
        return "#include <opencl_relational>\n";
    }

    result_type operator()(const input_type& x)
    {
        return perform_all_function(x);
    }

    bool is_out_bool()
    {
        return true;
    }

    bool is_in1_bool()
    {
        return true;
    }

    std::vector<input_type> in1_special_cases()
    {
        return {
            detail::make_value<input_type>(0),
            detail::make_value<input_type>(1),
            detail::make_value<input_type>(12),
            detail::make_value<input_type>(-12)
        };
    }
};

template <cl_int N /* Vector size */>
struct test_func_any : public unary_func<
                                    typename make_vector_type<cl_int, N>::type, /* create cl_intN type */
                                    cl_int /* create cl_intN type */
                                 >
{
    typedef typename make_vector_type<cl_int, N>::type input_type;
    typedef cl_int result_type;

    std::string str()
    {
        return "any";
    }

    std::string headers()
    {
        return "#include <opencl_relational>\n";
    }

    result_type operator()(const input_type& x)
    {
        return perform_any_function(x);
    }

    bool is_out_bool()
    {
        return true;
    }

    bool is_in1_bool()
    {
        return true;
    }

    std::vector<input_type> in1_special_cases()
    {
        return {
            detail::make_value<input_type>(0),
            detail::make_value<input_type>(1),
            detail::make_value<input_type>(12),
            detail::make_value<input_type>(-12)
        };
    }
};

AUTO_TEST_CASE(test_relational_test_funcs)
(cl_device_id device, cl_context context, cl_command_queue queue, int n_elems)
{
    int error = CL_SUCCESS;
    int last_error = CL_SUCCESS;

// Helper macro, so we don't have to repreat the same code.
#define TEST_UNARY_REL_FUNC_MACRO(CLASS_NAME) \
    TEST_UNARY_FUNC_MACRO(CLASS_NAME<1>()) \
    TEST_UNARY_FUNC_MACRO(CLASS_NAME<2>()) \
    TEST_UNARY_FUNC_MACRO(CLASS_NAME<4>()) \
    TEST_UNARY_FUNC_MACRO(CLASS_NAME<8>()) \
    TEST_UNARY_FUNC_MACRO(CLASS_NAME<16>())

    TEST_UNARY_REL_FUNC_MACRO(test_func_isfinite)
    TEST_UNARY_REL_FUNC_MACRO(test_func_isinf)
    TEST_UNARY_REL_FUNC_MACRO(test_func_isnan)
    TEST_UNARY_REL_FUNC_MACRO(test_func_isnormal)
    TEST_UNARY_REL_FUNC_MACRO(test_func_signbit)

// Tests for all(booln x) and any(booln x) are not run in USE_OPENCLC_KERNELS mode,
// because those functions in OpenCL C require different reference functions on host
// compared to their equivalents from OpenCL C++.
// (In OpenCL C those functions returns true/false based on the most significant bits
// in any/all component/s of x)
#ifndef USE_OPENCLC_KERNELS
    TEST_UNARY_REL_FUNC_MACRO(test_func_all)
    TEST_UNARY_REL_FUNC_MACRO(test_func_any)
#else
    log_info("WARNING:\n\tTests for bool all(booln x) are not run in USE_OPENCLC_KERNELS mode\n");
    log_info("WARNING:\n\tTests for bool any(booln x) are not run in USE_OPENCLC_KERNELS mode\n");
#endif

#undef TEST_UNARY_REL_FUNC_MACRO

#define TEST_BINARY_REL_FUNC_MACRO(CLASS_NAME) \
    TEST_BINARY_FUNC_MACRO(CLASS_NAME<1>()) \
    TEST_BINARY_FUNC_MACRO(CLASS_NAME<2>()) \
    TEST_BINARY_FUNC_MACRO(CLASS_NAME<4>()) \
    TEST_BINARY_FUNC_MACRO(CLASS_NAME<8>()) \
    TEST_BINARY_FUNC_MACRO(CLASS_NAME<16>())

    TEST_BINARY_REL_FUNC_MACRO(test_func_isordered)
    TEST_BINARY_REL_FUNC_MACRO(test_func_isunordered)

#undef TEST_BINARY_REL_FUNC_MACRO

    if(error != CL_SUCCESS)
    {
        return -1;
    }
    return error;
}

#endif // TEST_CONFORMANCE_CLCPP_RELATIONAL_FUNCS_TEST_FUNCS_HPP