directStatementEvaluator.hpp

/*
 * CoDiPack, a Code Differentiation Package
 *
 * Copyright (C) 2015-2025 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 <algorithm>
#include <functional>
#include <type_traits>
 
#include "../../expressions/activeType.hpp"
#include "../../misc/macros.hpp"
#include "statementEvaluatorInterface.hpp"
 
namespace codi {
 
  struct PrimalTapeStatementFunctions {
    public:
 
      using Handle = void*;  
 
      Handle forward;           
      Handle primal;            
      Handle reverse;           
      Handle writeInformation;  
      PrimalTapeStatementFunctions(Handle forward, Handle primal, Handle reverse, Handle writeInformation)
          : forward(forward), primal(primal), reverse(reverse), writeInformation(writeInformation) {}
  };
 
  template<typename Generator, typename Expr>
  struct DirectStatementEvaluatorStaticStore {
    public:
 
      static PrimalTapeStatementFunctions const staticStore;
  };
 
  template<typename Generator, typename Expr>
  PrimalTapeStatementFunctions const DirectStatementEvaluatorStaticStore<Generator, Expr>::staticStore(
      (typename PrimalTapeStatementFunctions::Handle)Generator::template statementEvaluateForward<Expr>,
      (typename PrimalTapeStatementFunctions::Handle)Generator::template statementEvaluatePrimal<Expr>,
      (typename PrimalTapeStatementFunctions::Handle)Generator::template statementEvaluateReverse<Expr>,
      (typename PrimalTapeStatementFunctions::Handle)Generator::template statementGetWriteInformation<Expr>);
  template<typename T_Real>
  struct DirectStatementEvaluator : public StatementEvaluatorInterface<T_Real> {
    public:
 
      using Real = CODI_DD(T_Real, double);  
 
      /*******************************************************************************/
 
      using Handle = PrimalTapeStatementFunctions const*;  
 
      template<typename Tape, typename... Args>
      static Real callForward(Handle const& h, Args&&... args) {
        return ((FunctionForward<Tape>)h->forward)(std::forward<Args>(args)...);
      }
 
      template<typename Tape, typename... Args>
      static Real callPrimal(Handle const& h, Args&&... args) {
        return ((FunctionPrimal<Tape>)h->primal)(std::forward<Args>(args)...);
      }
 
      template<typename Tape, typename... Args>
      static void callReverse(Handle const& h, Args&&... args) {
        ((FunctionReverse<Tape>)h->reverse)(std::forward<Args>(args)...);
      }
 
      template<typename Tape, typename... Args>
      static WriteInfo getWriteInformation(Handle const& h, Args&&... args) {
        return ((FunctionWriteInformation<Tape>)h->writeInformation)(std::forward<Args>(args)...);
      }
 
      template<typename Tape, typename Generator, typename Expr>
      static Handle createHandle() {
        return &DirectStatementEvaluatorStaticStore<Generator, Expr>::staticStore;
      }
 
 
    protected:
 
      template<typename Tape>
      using FunctionForward = decltype(&Tape::template statementEvaluateForward<ActiveType<Tape>>);
 
      template<typename Tape>
      using FunctionPrimal = decltype(&Tape::template statementEvaluatePrimal<ActiveType<Tape>>);
 
      template<typename Tape>
      using FunctionReverse = decltype(&Tape::template statementEvaluateReverse<ActiveType<Tape>>);
 
      template<typename Tape>
      using FunctionWriteInformation = decltype(&Tape::template statementGetWriteInformation<ActiveType<Tape>>);
  };
}