/******************************************************************************/
/*!
 * \file timlCNNConvWriteToFile.c
 */
/* Copyright (C) 2015 Texas Instruments Incorporated - http://www.ti.com/
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 *    Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *
 *    Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the
 *    distribution.
 *
 *    Neither the name of Texas Instruments Incorporated nor the names of
 *    its contributors may be used to endorse or promote products derived
 *    from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 ******************************************************************************/


/*******************************************************************************
 *
 * INCLUDES
 *
 ******************************************************************************/

#include "../api/timl.h"


/******************************************************************************/
/*!
 * \ingroup       cnn
 * \brief         Write the conv layer to file(s)
 * \param[in,out] fp1         FILE ptr to the level 1 text file
 * \param[in,out] fp2         FILE ptr to the level 2 bin file
 * \param[in,out] fp3         FILE ptr to the level 3 bin file
 * \param[in]     layer       Layer ptr
 * \param[in]     level       Write level
 * \param[in]     name        CNN name
 * \param[in]     floatFormat Format string for floats
 * \param[in]     intFormat   Format string for ints
 * \return        Error code
 */
/******************************************************************************/

int timlCNNConvWriteToFile(FILE *fp1, FILE *fp2, FILE *fp3, timlCNNLayer *layer, timlUtilParamsLevel level, const char* name, const char *floatFormat, const char *intFormat)
{
   int err;
   int dim;

   err = 0;
   // kernel row, col
   fprintf(fp1, "%s.layer(%d).convParams.kernelRow = %d;\n", name, layer->id + 1, layer->convParams.kernelRow);
   fprintf(fp1, "%s.layer(%d).convParams.kernelCol = %d;\n", name, layer->id + 1, layer->convParams.kernelCol);
   fprintf(fp1, "%s.layer(%d).convParams.padUp = %d;\n", name, layer->id + 1, layer->convParams.padUp);
   fprintf(fp1, "%s.layer(%d).convParams.padDown = %d;\n", name, layer->id + 1, layer->convParams.padDown);
   fprintf(fp1, "%s.layer(%d).convParams.padLeft = %d;\n", name, layer->id + 1, layer->convParams.padLeft);
   fprintf(fp1, "%s.layer(%d).convParams.padRight = %d;\n", name, layer->id + 1, layer->convParams.padRight);
   fprintf(fp1, "%s.layer(%d).convParams.strideX = %d;\n", name, layer->id + 1, layer->convParams.strideX);
   fprintf(fp1, "%s.layer(%d).convParams.strideY = %d;\n", name, layer->id + 1, layer->convParams.strideY);
   fprintf(fp1, "%s.layer(%d).convParams.inputFeatureMapChannel = %d;\n", name, layer->id + 1, layer->convParams.inputFeatureMapChannel);
   fprintf(fp1, "%s.layer(%d).convParams.outputFeatureMapChannel = %d;\n", name, layer->id + 1, layer->convParams.outputFeatureMapChannel);
   fprintf(fp1, "%s.layer(%d).convParams.type = %d;\n", name, layer->id + 1, layer->convParams.type);
   fprintf(fp1, "%s.layer(%d).convParams.kernelDecayFactor = ", name, layer->id + 1);
   fprintf(fp1, floatFormat, layer->convParams.kernelDecayFactor);
   fprintf(fp1, ";\n");
   fprintf(fp1, "%s.layer(%d).convParams.kernelInit.type = %d;\n", name, layer->id + 1, layer->convParams.kernelInit.type);
   fprintf(fp1, "%s.layer(%d).convParams.kernelLearningFactor =", name, layer->id + 1);
   fprintf(fp1, floatFormat, layer->convParams.kernelLearningFactor);
   fprintf(fp1, ";\n");
   fprintf(fp1, "%s.layer(%d).convParams.biasInit.type = %d;\n", name, layer->id + 1, layer->convParams.biasInit.type);
   fprintf(fp1, "%s.layer(%d).convParams.biasLearningFactor =", name, layer->id + 1);
   fprintf(fp1, floatFormat, layer->convParams.biasLearningFactor);
   fprintf(fp1, ";\n");

   dim = layer->convParams.kernelRow*layer->convParams.kernelCol*layer->convParams.inputFeatureMapChannel*layer->convParams.outputFeatureMapChannel;
   if (fp2 != NULL) {
      timlUtilFwrite(layer->convParams.kernel, sizeof(float), dim, fp2);
      timlUtilFwrite(layer->convParams.bias, sizeof(float), layer->channel, fp2);
   }

   if (fp3 != NULL) {
      timlUtilFwrite(layer->featureMap, sizeof(float), layer->maxBatchSize*layer->row*layer->col*layer->channel, fp3);
      timlUtilFwrite(layer->convParams.prevFeatureMapReshape, sizeof(float), layer->convParams.inputFeatureMapChannel*layer->convParams.kernelRow*layer->convParams.kernelCol*layer->row*layer->col, fp3);
      if (layer->allocatorLevel == Util_AllocatorLevel1) {
         timlUtilFwrite(layer->delta, sizeof(float), layer->maxBatchSize*layer->row*layer->col*layer->channel, fp3);
         timlUtilFwrite(layer->convParams.kernelInc, sizeof(float), dim, fp3);
         timlUtilFwrite(layer->convParams.kernelGradAccum, sizeof(float), dim, fp3);
         timlUtilFwrite(layer->convParams.biasInc, sizeof(float), layer->channel, fp3);
         timlUtilFwrite(layer->convParams.biasGradAccum, sizeof(float), layer->channel, fp3);
      }
   }

   return err;
}