constructStaticContext.hpp

/*
 * CoDiPack, a Code Differentiation Package
 *
 * Copyright (C) 2015-2024 Chair for Scientific Computing (SciComp), University of Kaiserslautern-Landau
 * Homepage: http://scicomp.rptu.de
 * Contact:  Prof. Nicolas R. Gauger (codi@scicomp.uni-kl.de)
 *
 * Lead developers: Max Sagebaum, Johannes Blühdorn (SciComp, University of Kaiserslautern-Landau)
 *
 * This file is part of CoDiPack (http://scicomp.rptu.de/software/codi).
 *
 * CoDiPack is free software: you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation, either version 3 of the
 * License, or (at your option) any later version.
 *
 * CoDiPack is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty
 * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 *
 * See the GNU General Public License for more details.
 * You should have received a copy of the GNU
 * General Public License along with CoDiPack.
 * If not, see <http://www.gnu.org/licenses/>.
 *
 * For other licensing options please contact us.
 *
 * Authors:
 *  - SciComp, University of Kaiserslautern-Landau:
 *    - Max Sagebaum
 *    - Johannes Blühdorn
 *    - Former members:
 *      - Tim Albring
 */
#pragma once
 
#include "../../config.h"
#include "../../misc/macros.hpp"
#include "../../tapes/interfaces/reverseTapeInterface.hpp"
#include "../../traits/expressionTraits.hpp"
#include "../binaryExpression.hpp"
#include "../constantExpression.hpp"
#include "../expressionInterface.hpp"
#include "../static/staticContextActiveType.hpp"
#include "../unaryExpression.hpp"
#include "nodeInterface.hpp"
 
namespace codi {
 
  template<typename T_Rhs, typename T_Tape, size_t T_primalValueOffset, size_t T_constantValueOffset, typename = void>
  struct ConstructStaticContextLogic {
    public:
 
      using Rhs = CODI_DD(T_Rhs, CODI_T(ExpressionInterface<double, CODI_ANY>));  
      using Tape = CODI_DD(
          T_Tape, CODI_T(ReverseTapeInterface<double, double, CODI_ANY>));  
      static constexpr size_t primalValueOffset =
          CODI_DD(T_primalValueOffset, 0);  
      static constexpr size_t constantValueOffset =
          CODI_DD(T_constantValueOffset, 0);  
 
      using Real = typename Tape::Real;                
      using Identifier = typename Tape::Identifier;    
      using PassiveReal = typename Tape::PassiveReal;  
 
      using ResultType = CODI_DD(T_Rhs, CODI_T(ExpressionInterface<double, CODI_ANY>));
 
      static ResultType construct(Real* primalVector, Identifier const* const identifiers,
                                  PassiveReal const* const constantData);
  };
 
#ifndef DOXYGEN_DISABLE
 
  template<typename T_Rhs, typename T_Tape, size_t T_primalValueOffset, size_t T_constantValueOffset>
  struct ConstructStaticContextLogic<T_Rhs, T_Tape, T_primalValueOffset, T_constantValueOffset,
                                     ExpressionTraits::EnableIfLhsExpression<T_Rhs>> {
    public:
 
      using Rhs = T_Rhs;
      using Tape = T_Tape;
      static constexpr size_t primalValueOffset = T_primalValueOffset;
      static constexpr size_t constantValueOffset = T_constantValueOffset;
 
      using Real = typename Tape::Real;
      using Identifier = typename Tape::Identifier;
      using PassiveReal = typename Tape::PassiveReal;
 
      using ResultType = StaticContextActiveType<Tape>;
 
      static ResultType construct(Real* primalVector, Identifier const* const identifiers,
                                  PassiveReal const* const constantData) {
        CODI_UNUSED(constantData);
 
        Identifier const identifier = identifiers[primalValueOffset];
        Real const primal = primalVector[identifier];
 
        return ResultType(primal, identifier);
      }
  };
 
  template<typename T_Rhs, typename T_Tape, size_t T_primalValueOffset, size_t T_constantValueOffset>
  struct ConstructStaticContextLogic<T_Rhs, T_Tape, T_primalValueOffset, T_constantValueOffset,
                                     ExpressionTraits::EnableIfConstantExpression<T_Rhs>> {
    public:
 
      using Rhs = T_Rhs;
      using Tape = T_Tape;
      static constexpr size_t primalValueOffset = T_primalValueOffset;
      static constexpr size_t constantValueOffset = T_constantValueOffset;
 
      using Real = typename Tape::Real;
      using Identifier = typename Tape::Identifier;
      using PassiveReal = typename Tape::PassiveReal;
 
      using ResultType = ConstantExpression<typename Rhs::Real>;
 
      static ResultType construct(Real* primalVector, Identifier const* const identifiers,
                                  PassiveReal const* const constantData) {
        CODI_UNUSED(primalVector, identifiers);
 
        using ConversionOperator = typename Rhs::template ConversionOperator<PassiveReal>;
 
        return ResultType(ConversionOperator::fromDataStore(constantData[constantValueOffset]));
      }
  };
 
  template<typename T_Real, typename T_ArgA, typename T_ArgB, template<typename> class T_Operation, typename T_Tape,
           size_t T_primalValueOffset, size_t T_constantValueOffset>
  struct ConstructStaticContextLogic<BinaryExpression<T_Real, T_ArgA, T_ArgB, T_Operation>, T_Tape, T_primalValueOffset,
                                     T_constantValueOffset> {
    public:
 
      using OpReal = T_Real;
      using ArgA = T_ArgA;
      using ArgB = T_ArgB;
      template<typename T>
      using Operation = T_Operation<T>;
      using Tape = T_Tape;
      static constexpr size_t primalValueOffset = T_primalValueOffset;
      static constexpr size_t constantValueOffset = T_constantValueOffset;
 
      using Real = typename Tape::Real;
      using Identifier = typename Tape::Identifier;
      using PassiveReal = typename Tape::PassiveReal;
 
      using ArgAConstructor = ConstructStaticContextLogic<ArgA, Tape, primalValueOffset, constantValueOffset>;
      using ArgAMod = typename ArgAConstructor::ResultType;
 
      static size_t constexpr primalValueOffsetArgB =
          primalValueOffset + ExpressionTraits::NumberOfActiveTypeArguments<ArgA>::value;
      static size_t constexpr constantValueOffsetArgB =
          constantValueOffset + ExpressionTraits::NumberOfConstantTypeArguments<ArgA>::value;
      using ArgBConstructor = ConstructStaticContextLogic<ArgB, Tape, primalValueOffsetArgB, constantValueOffsetArgB>;
      using ArgBMod = typename ArgBConstructor::ResultType;
 
      using ResultType = BinaryExpression<OpReal, ArgAMod, ArgBMod, Operation>;
 
      static ResultType construct(Real* primalVector, Identifier const* const identifiers,
                                  PassiveReal const* const constantData) {
        return ResultType(ArgAConstructor::construct(primalVector, identifiers, constantData),
                          ArgBConstructor::construct(primalVector, identifiers, constantData));
      }
  };
 
  template<typename T_Real, typename T_Arg, template<typename> class T_Operation, typename T_Tape,
           size_t T_primalValueOffset, size_t T_constantValueOffset>
  struct ConstructStaticContextLogic<UnaryExpression<T_Real, T_Arg, T_Operation>, T_Tape, T_primalValueOffset,
                                     T_constantValueOffset> {
    public:
 
      using OpReal = T_Real;
      using Arg = T_Arg;
      template<typename T>
      using Operation = T_Operation<T>;
      using Tape = T_Tape;
      static constexpr size_t primalValueOffset = T_primalValueOffset;
      static constexpr size_t constantValueOffset = T_constantValueOffset;
 
      using Real = typename Tape::Real;
      using Identifier = typename Tape::Identifier;
      using PassiveReal = typename Tape::PassiveReal;
 
      using ArgConstructor = ConstructStaticContextLogic<Arg, Tape, primalValueOffset, constantValueOffset>;
      using ArgMod = typename ArgConstructor::ResultType;
 
      using ResultType = UnaryExpression<OpReal, ArgMod, Operation>;
 
      static ResultType construct(Real* primalVector, Identifier const* const identifiers,
                                  PassiveReal const* const constantData) {
        return ResultType(ArgConstructor::construct(primalVector, identifiers, constantData));
      }
  };
#endif
}