// %flair:license{
// This file is part of the Flair framework distributed under the
// CECILL-C License, Version 1.0.
// %flair:license}
//  created:    2012/03/21
//  filename:   cvmatrix_impl.cpp
//
//  author:     Guillaume Sanahuja
//              Copyright Heudiasyc UMR UTC/CNRS 7253
//
//  version:    $Id: $
//
//  purpose:    classe definissant le type de données "CvMat"
//
/*********************************************************************/

#include "cvmatrix.h"
#include "cvmatrix_impl.h"
#include <cxcore.h>
#include <typeinfo>
#include <sstream>

using std::string;
using namespace flair::core;

cvmatrix_impl::cvmatrix_impl(cvmatrix *self, int rows, int cols,
                             flair::core::ScalarType const &_elementDataType,
                             int n)
    : elementDataType(_elementDataType) {
  descriptor = new cvmatrix_descriptor(rows, cols);
  Init(self, n);
}

cvmatrix_impl::cvmatrix_impl(cvmatrix *self,
                             const cvmatrix_descriptor *descriptor,
                             flair::core::ScalarType const &_elementDataType,
                             int n)
    : elementDataType(_elementDataType) {
  this->descriptor = descriptor;
  Init(self, n);
}

void cvmatrix_impl::Init(cvmatrix *self, int n) {
  this->self = self;

  mat = nullptr;
  try {
    ScalarType const &scalarType =
        dynamic_cast<ScalarType const &>(elementDataType);
    if (typeid(scalarType) == typeid(FloatType)) {
      mat = cvCreateMat(descriptor->Rows(), descriptor->Cols(), CV_32FC1);
    } else if (typeid(scalarType) == typeid(SignedIntegerType)) {
      switch (elementDataType.GetSize()) {
      case 1:
        mat = cvCreateMat(descriptor->Rows(), descriptor->Cols(), CV_8SC1);
        break;
      case 2:
        mat = cvCreateMat(descriptor->Rows(), descriptor->Cols(), CV_16SC1);
        break;
      default:
        self->Err("unsupported integer scalar type\n");
      }
    } else {
      self->Err("unsupported scalar type\n");
    }
  } catch (std::bad_cast e) {
    self->Err("type is not a scalar\n");
  }

  if (mat == nullptr)
    self->Err("allocating matrix failed\n");
  if (n > 1)
    self->Warn("n>1 not supported\n");
}

cvmatrix_impl::~cvmatrix_impl() {
  cvReleaseMat(&mat);
  delete descriptor;
}