OptionSet.h

// Copyright 2023, 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/error.h"
#include "neml2/misc/types.h"
#include "neml2/misc/parser_utils.h"
 
#include <map>
#include <sstream>
#include <string>
#include <typeinfo>
#include <vector>
#include <memory>
 
namespace neml2
{
 
template <typename P>
void print_helper(std::ostream & os, const P *);
template <typename P>
void print_helper(std::ostream & os, const std::vector<P> *);
template <typename P>
void print_helper(std::ostream & os, const std::vector<std::vector<P>> *);
 
class OptionSet
{
public:
  OptionSet() = default;
 
  OptionSet(const OptionSet &);
 
  virtual ~OptionSet() = default;
 
  virtual OptionSet & operator=(const OptionSet & source);
 
  virtual void operator+=(const OptionSet & source);
 
  const std::string & name() const { return _metadata.name; }
  std::string & name() { return _metadata.name; }
  const std::string & type() const { return _metadata.type; }
  std::string & type() { return _metadata.type; }
  const std::string & path() const { return _metadata.path; }
  std::string & path() { return _metadata.path; }
  const std::string & doc() const { return _metadata.doc; }
  std::string & doc() { return _metadata.doc; }
  const std::string & section() const { return _metadata.section; }
  std::string & section() { return _metadata.section; }
 
  template <typename T>
  bool contains(const std::string &) const;
 
  bool contains(const std::string &) const;
 
  std::size_t size() const { return _values.size(); }
 
  virtual void clear();
 
  void print(std::ostream & os = std::cout) const;
 
  class OptionBase
  {
  public:
    virtual ~OptionBase() = default;
 
    virtual bool operator==(const OptionBase & other) const = 0;
 
    const std::string & name() const { return _metadata.name; }
 
    const std::string & type() const { return _metadata.type; }
 
    const std::string & doc() const { return _metadata.doc; }
 
    std::string & doc() { return _metadata.doc; }
 
    const bool & suppressed() const { return _metadata.suppressed; }
 
    bool & suppressed() { return _metadata.suppressed; }
 
    virtual void print(std::ostream &) const = 0;
 
    virtual std::unique_ptr<OptionBase> clone() const = 0;
 
  protected:
    struct Metadata
    {
      std::string name = "";
      std::string type = "";
      std::string doc = "";
      bool suppressed = false;
 
      bool operator==(const Metadata & other) const
      {
        return name == other.name && type == other.type && doc == other.doc &&
               suppressed == other.suppressed;
      }
    } _metadata;
  };
 
  template <typename T>
  class Option : public OptionBase
  {
  public:
    Option(const std::string & name)
      : _value()
    {
      _metadata.name = name;
      _metadata.type = utils::demangle(typeid(T).name());
    }
 
    virtual bool operator==(const OptionBase & other) const override;
 
    const T & get() const { return _value; }
 
    T & set() { return _value; }
 
    virtual void print(std::ostream &) const override;
 
    virtual std::unique_ptr<OptionBase> clone() const override;
 
  private:
    T _value;
  };
 
  template <typename T>
  const T & get(const std::string &) const;
 
  const OptionBase & get(const std::string &) const;
 
  template <typename T>
  T & set(const std::string &);
 
  OptionBase & set(const std::string &);
 
  typedef std::map<std::string, std::unique_ptr<OptionBase>, std::less<>> map_type;
 
  typedef map_type::iterator iterator;
 
  typedef map_type::const_iterator const_iterator;
 
  iterator begin();
 
  const_iterator begin() const;
 
  iterator end();
 
  const_iterator end() const;
 
protected:
  struct Metadata
  {
    std::string name = "";
    std::string type = "";
    std::string path = "";
    std::string doc = "";
    std::string section = "";
  } _metadata;
 
  map_type _values;
};
 
template <typename T>
bool
OptionSet::Option<T>::operator==(const OptionBase & other) const
{
  const auto other_ptr = dynamic_cast<const Option<T> *>(&other);
  if (!other_ptr)
    return false;
 
  return (_metadata == other_ptr->_metadata) && (other_ptr->get() == this->get());
}
 
// LCOV_EXCL_START
template <typename T>
void
OptionSet::Option<T>::print(std::ostream & os) const
{
  print_helper(os, static_cast<const T *>(&_value));
}
// LCOV_EXCL_STOP
 
template <typename T>
std::unique_ptr<OptionSet::OptionBase>
OptionSet::Option<T>::clone() const
{
  auto copy = std::make_unique<Option<T>>(this->name());
  copy->_value = this->_value;
  copy->_metadata = this->_metadata;
  return copy;
}
 
std::ostream & operator<<(std::ostream & os, const OptionSet & p);
 
template <typename T>
bool
OptionSet::contains(const std::string & name) const
{
  OptionSet::const_iterator it = _values.find(name);
  if (it != _values.end())
    if (dynamic_cast<const Option<T> *>(it->second.get()))
      return true;
  return false;
}
 
template <typename T>
const T &
OptionSet::get(const std::string & name) const
{
  neml_assert(this->contains<T>(name),
              "ERROR: no option named \"",
              name,
              "\" found.\n\nKnown options:\n",
              *this);
 
  auto ptr = dynamic_cast<Option<T> *>(_values.at(name).get());
  return ptr->get();
}
 
template <typename T>
T &
OptionSet::set(const std::string & name)
{
  if (!this->contains<T>(name))
    _values[name] = std::make_unique<Option<T>>(name);
  auto ptr = dynamic_cast<Option<T> *>(_values[name].get());
  return ptr->set();
}
 
// LCOV_EXCL_START
template <typename P>
void
print_helper(std::ostream & os, const P * option)
{
  os << *option;
}
 
template <>
inline void
print_helper(std::ostream & os, const char * option)
{
  // Specialization so that we don't print out unprintable characters
  os << static_cast<int>(*option);
}
 
template <>
inline void
print_helper(std::ostream & os, const unsigned char * option)
{
  // Specialization so that we don't print out unprintable characters
  os << static_cast<int>(*option);
}
 
template <typename P>
void
print_helper(std::ostream & os, const std::vector<P> * option)
{
  for (const auto & p : *option)
    os << p << " ";
}
 
template <typename P>
void
print_helper(std::ostream & os, const std::vector<std::vector<P>> * option)
{
  for (const auto & pv : *option)
    for (const auto & p : pv)
      os << p << " ";
}
// LCOV_EXCL_STOP
} // namespace neml2