jacobianBinaryReaderWriter.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 "jacobianBaseReaderWriter.hpp"
 
namespace codi {
  template<typename T_Type>
  struct JacobianBinaryTapeWriter : public CommonBaseTapeWriter<T_Type> {
      using Type = CODI_DD(T_Type, CODI_DEFAULT_LHS_EXPRESSION);  
      using Tape = typename Type::Tape;                           
      using Identifier = typename Type::Identifier;               
      using Real = typename Type::Real;                           
 
      FILE* fileHandleBin = nullptr;  
 
      JacobianBinaryTapeWriter(std::string const& name, std::vector<Identifier> const& in,
                               std::vector<Identifier> const& out)
          : CommonBaseTapeWriter<T_Type>(name, in, out) {};
 
      void start(Tape& tape) {
        this->printIoBinary(tape);
 
        this->openFile(fileHandleBin, this->fileName, "wb");
      }
 
      void writeStatement(Identifier const& curLhsIdentifier, size_t& curJacobianPos, Real const* const rhsJacobians,
                          Identifier const* const rhsIdentifiers, Config::ArgumentSize const& nJacobians) {
        fwrite(&curLhsIdentifier, sizeof(Identifier), 1, fileHandleBin);
        fwrite(&nJacobians, sizeof(Config::ArgumentSize), 1, fileHandleBin);
        if (nJacobians == Config::StatementInputTag) CODI_Unlikely {
          // Do nothing.
        } else CODI_Likely {
          fwrite(&rhsIdentifiers[curJacobianPos], sizeof(Identifier), nJacobians, fileHandleBin);
          fwrite(&rhsJacobians[curJacobianPos], sizeof(Real), nJacobians, fileHandleBin);
        }
      }
 
      void finish() {
        fclose(fileHandleBin);
      }
  };
 
  template<typename T_Type>
  struct JacobianBinaryTapeReader : public JacobianBaseTapeReader<T_Type> {
      using Type = CODI_DD(T_Type, CODI_DEFAULT_LHS_EXPRESSION);  
      using Tape = typename Type::Tape;                           
      using Identifier = typename Type::Identifier;               
      using Real = typename Type::Real;                           
 
      JacobianBinaryTapeReader() : JacobianBaseTapeReader<T_Type>() {}  
 
      void readFile(std::string const& name) {
        FILE* fileHandleReadBin = nullptr;
 
        bool isFirstIdentifier = true;
        Identifier lowestIndex = 0;
 
        Identifier lhsIdentifier;
        Config::ArgumentSize nArgs;
 
        std::vector<Identifier> rhsIdentifiers(Config::MaxArgumentSize, 0);
        std::vector<Real> rhsJacobians(Config::MaxArgumentSize, 0);
 
        this->fileName = name;
        this->restoreIoBinary();
        this->tape.getIndexManager().updateLargestCreatedIndex(this->largestIndex);
 
        this->openFile(fileHandleReadBin, this->fileName, "rb");
 
        while (fread(&lhsIdentifier, sizeof(Identifier), 1, fileHandleReadBin) == 1) {
          fread(&nArgs, sizeof(Config::ArgumentSize), 1, fileHandleReadBin);
          if (nArgs == Config::StatementLowLevelFunctionTag) CODI_Unlikely {
            // TODO.
          } else if (nArgs == Config::StatementInputTag) CODI_Unlikely {
            // Do nothing.
          } else CODI_Likely {
            fread(rhsIdentifiers.data(), sizeof(Identifier), nArgs, fileHandleReadBin);
            fread(rhsJacobians.data(), sizeof(Real), nArgs, fileHandleReadBin);
          }
          this->registerStatement(lhsIdentifier, nArgs, rhsIdentifiers, rhsJacobians, lowestIndex, isFirstIdentifier);
        }
 
        /* Update the user provided IO with a potential offset in the linear case. The registerStatement() returns
           the offset.*/
        this->updateUserIO(lowestIndex);
 
        fclose(fileHandleReadBin);
      }
  };
}