utils.h

// Copyright 2024, UChicago Argonne, LLC
// All Rights Reserved
// Software Name: NEML2 -- the New Engineering material Model Library, version 2
// By: Argonne National Laboratory
// OPEN SOURCE LICENSE (MIT)
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
// THE SOFTWARE.
 
#pragma once
 
#include "neml2/misc/types.h"
#include "neml2/misc/error.h"
 
namespace neml2
{
 
template <class... T>
bool broadcastable(T &&... tensors);
 
template <class... T>
Size broadcast_batch_dim(T &&...);
 
template <class... T>
void neml_assert_broadcastable(T &&...);
 
template <class... T>
void neml_assert_broadcastable_dbg(T &&...);
 
template <class... T>
void neml_assert_batch_broadcastable(T &&...);
 
template <class... T>
void neml_assert_batch_broadcastable_dbg(T &&...);
 
namespace utils
{
std::string demangle(const char * name);
 
template <class... T>
bool sizes_same(T &&... shapes);
 
template <class... T>
bool sizes_broadcastable(T &&... shapes);
 
template <class... T>
TensorShape broadcast_sizes(T &&... shapes);
 
Size storage_size(TensorShapeRef shape);
 
template <typename... S>
TensorShape add_shapes(S &&... shape);
 
TensorShape pad_prepend(TensorShapeRef s, Size dim, Size pad = 1);
 
TensorShape pad_append(TensorShapeRef s, Size dim, Size pad = 1);
 
std::string indentation(int level, int indent = 2);
 
template <typename T>
std::string stringify(const T & t);
 
namespace details
{
template <typename... S>
TensorShape add_shapes_impl(TensorShape &, TensorShapeRef, S &&...);
 
TensorShape add_shapes_impl(TensorShape &);
} // namespace details
} // namespace utils
} // namespace neml2
 
// Implementation
 
namespace neml2
{
template <class... T>
bool
broadcastable(T &&... tensors)
{
  if (!utils::sizes_same(tensors.base_sizes()...))
    return false;
  return utils::sizes_broadcastable(tensors.batch_sizes()...);
}
 
template <class... T>
Size
broadcast_batch_dim(T &&... tensor)
{
  return std::max({tensor.batch_dim()...});
}
 
template <class... T>
void
neml_assert_broadcastable(T &&... tensors)
{
  neml_assert(broadcastable(tensors...),
              "The ",
              sizeof...(tensors),
              " operands are not broadcastable. The batch shapes are ",
              tensors.batch_sizes()...,
              ", and the base shapes are ",
              tensors.base_sizes()...);
}
 
template <class... T>
void
neml_assert_broadcastable_dbg([[maybe_unused]] T &&... tensors)
{
#ifndef NDEBUG
  neml_assert_dbg(broadcastable(tensors...),
                  "The ",
                  sizeof...(tensors),
                  " operands are not broadcastable. The batch shapes are ",
                  tensors.batch_sizes()...,
                  ", and the base shapes are ",
                  tensors.base_sizes()...);
#endif
}
 
template <class... T>
void
neml_assert_batch_broadcastable(T &&... tensors)
{
  neml_assert(utils::sizes_broadcastable(tensors.batch_sizes()...),
              "The ",
              sizeof...(tensors),
              " operands are not batch-broadcastable. The batch shapes are ",
              tensors.batch_sizes()...);
}
 
template <class... T>
void
neml_assert_batch_broadcastable_dbg([[maybe_unused]] T &&... tensors)
{
#ifndef NDEBUG
  neml_assert_dbg(utils::sizes_broadcastable(tensors.batch_sizes()...),
                  "The ",
                  sizeof...(tensors),
                  " operands are not batch-broadcastable. The batch shapes are ",
                  tensors.batch_sizes()...);
#endif
}
namespace utils
{
template <class... T>
bool
sizes_same(T &&... shapes)
{
  auto all_shapes = std::vector<TensorShapeRef>{shapes...};
  for (size_t i = 0; i < all_shapes.size() - 1; i++)
    if (all_shapes[i] != all_shapes[i + 1])
      return false;
  return true;
}
 
template <class... T>
bool
sizes_broadcastable(T &&... shapes)
{
  auto dim = std::max({shapes.size()...});
  auto all_shapes_padded = std::vector<TensorShape>{pad_prepend(shapes, dim)...};
 
  for (size_t i = 0; i < dim; i++)
  {
    Size max_sz = 1;
    for (const auto & s : all_shapes_padded)
    {
      if (max_sz == 1)
      {
        neml_assert_dbg(s[i] > 0, "Found a size equal or less than 0.");
        if (s[i] > 1)
          max_sz = s[i];
      }
      else if (s[i] != 1 && s[i] != max_sz)
        return false;
    }
  }
 
  return true;
}
 
template <class... T>
TensorShape
broadcast_sizes(T &&... shapes)
{
  neml_assert_dbg(sizes_broadcastable(shapes...), "Shapes not broadcastable: ", shapes...);
 
  auto dim = std::max({shapes.size()...});
  auto all_shapes_padded = std::vector<TensorShape>{pad_prepend(shapes, dim)...};
  auto bshape = TensorShape(dim, 1);
 
  for (size_t i = 0; i < dim; i++)
    for (const auto & s : all_shapes_padded)
      if (s[i] > bshape[i])
        bshape[i] = s[i];
 
  return bshape;
}
 
template <typename... S>
TensorShape
add_shapes(S &&... shape)
{
  TensorShape net;
  return details::add_shapes_impl(net, std::forward<S>(shape)...);
}
 
template <typename T>
std::string
stringify(const T & t)
{
  std::ostringstream os;
  os << t;
  return os.str();
}
 
template <>
inline std::string
stringify(const bool & t)
{
  return t ? "true" : "false";
}
 
namespace details
{
template <typename... S>
TensorShape
add_shapes_impl(TensorShape & net, TensorShapeRef s, S &&... rest)
{
  net.insert(net.end(), s.begin(), s.end());
  return add_shapes_impl(net, std::forward<S>(rest)...);
}
} // namespace details
} // namespace utils
} // namespace neml2