feat(cpp-object-oriented-modular-refactoring): step 10 - dense-blas-adapter

src/fesa/math/dense_blas_internal.cpp

@@ -0,0 +1,34 @@
+#include "math/dense_blas_internal.h"
+
+#include <limits>
+#include <stdexcept>
+
+namespace fesa::dense_blas_internal {
+
+Result<MKL_INT> ToMklSize(const std::size_t size) {
+  if (size > static_cast<std::size_t>((std::numeric_limits<MKL_INT>::max)())) {
+    return Result<MKL_INT>::Failure(Status::Failure(
+        {{Severity::kError,
+          "dense-blas-size-overflow",
+          {},
+          "",
+          "",
+          "Dense operation size exceeds the MKL integer range."}}));
+  }
+  return Result<MKL_INT>::Success(static_cast<MKL_INT>(size));
+}
+
+void CopyValues(const double* source, const std::size_t size,
+                double* destination) {
+  if (size == 0U) {
+    return;
+  }
+
+  const auto mkl_size = ToMklSize(size);
+  if (!mkl_size.HasValue()) {
+    throw std::length_error{"Dense copy size exceeds the MKL integer range."};
+  }
+  cblas_dcopy(mkl_size.Value(), source, 1, destination, 1);
+}
+
+}  // namespace fesa::dense_blas_internal