dotc.hpp

//*****************************************************************************
// Copyright (c) 2024, Intel Corporation
// All rights reserved.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are met:
// - Redistributions of source code must retain the above copyright notice,
//   this list of conditions and the following disclaimer.
// - Redistributions in binary form must reproduce the above copyright notice,
//   this list of conditions and the following disclaimer in the documentation
//   and/or other materials provided with the distribution.
// - Neither the name of the copyright holder nor the names of its contributors
//   may be used to endorse or promote products derived from this software
//   without specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
// THE POSSIBILITY OF SUCH DAMAGE.
//*****************************************************************************
 
#pragma once
 
#include <stdexcept>
 
#include "dot_common.hpp"
 
namespace dpnp::extensions::blas
{
namespace mkl_blas = oneapi::mkl::blas;
namespace type_utils = dpctl::tensor::type_utils;
 
template <typename T>
static sycl::event dotc_impl(sycl::queue &exec_q,
                             const std::int64_t n,
                             const char *vectorX,
                             const std::int64_t incx,
                             const char *vectorY,
                             const std::int64_t incy,
                             char *result,
                             const std::vector<sycl::event> &depends)
{
    type_utils::validate_type_for_device<T>(exec_q);
 
    const T *x = reinterpret_cast<const T *>(vectorX);
    const T *y = reinterpret_cast<const T *>(vectorY);
    T *res = reinterpret_cast<T *>(result);
 
    std::stringstream error_msg;
    bool is_exception_caught = false;
 
    sycl::event dotc_event;
    try {
        dotc_event =
            mkl_blas::column_major::dotc(exec_q,
                                         n,    // size of the input vectors
                                         x,    // Pointer to vector x.
                                         incx, // Stride of vector x.
                                         y,    // Pointer to vector y.
                                         incy, // Stride of vector y.
                                         res,  // Pointer to result.
                                         depends);
    } catch (oneapi::mkl::exception const &e) {
        error_msg
            << "Unexpected MKL exception caught during dotc() call:\nreason: "
            << e.what();
        is_exception_caught = true;
    } catch (sycl::exception const &e) {
        error_msg << "Unexpected SYCL exception caught during dotc() call:\n"
                  << e.what();
        is_exception_caught = true;
    }
 
    if (is_exception_caught) // an unexpected error occurs
    {
        throw std::runtime_error(error_msg.str());
    }
 
    return dotc_event;
}
 
template <typename fnT, typename varT>
struct DotcContigFactory
{
    fnT get()
    {
        if constexpr (types::DotcTypePairSupportFactory<varT>::is_defined) {
            return dotc_impl<varT>;
        }
        else {
            return nullptr;
        }
    }
};
 
} // namespace dpnp::extensions::blas