/*
 *  Copyright 2008-2009 NVIDIA Corporation
 *
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 */

/*
 * Modifications to this file:
 * Copyright (c) 2014-2015, The University of Queensland
 * Licensed under the Apache License, Version 2.0.
 *
 */

/*! \file dia_matrix.h
 *  \brief Diagonal matrix format.
 */

#pragma once

#include <cusp/detail/config.h>

#include <cusp/array1d.h>
#include <cusp/format.h>
#include <cusp/detail/matrix_base.h>
#include <cusp/detail/utils.h>

namespace cusp
{

/*! \addtogroup sparse_matrices Sparse Matrices
 */

/*! \addtogroup sparse_matrix_containers Sparse Matrix Containers
 *  \ingroup sparse_matrices
 *  \{
 */

    // Forward definitions
    struct column_major;
    template<typename ValueType, class MemorySpace, class Orientation> class array2d;
    template<typename Array, class Orientation>                        class array2d_view;
    template <typename Array1, typename Array2, typename IndexType, typename ValueType, typename MemorySpace> class dia_matrix_view;

/*! \p dia_matrix : Diagonal matrix container
 *
 * \tparam IndexType Type used for matrix indices (e.g. \c int).
 * \tparam ValueType Type used for matrix values (e.g. \c float).
 * \tparam MemorySpace A memory space (e.g. \c cusp::host_memory or cusp::device_memory)
 *
 * \note The diagonal offsets should not contain duplicate entries.
 *
 *  The following code snippet demonstrates how to create a 4-by-3
 *  \p dia_matrix on the host with 3 diagonals (6 total nonzeros)
 *  and then copies the matrix to the device.
 *
 *  \code
 *  #include <cusp/dia_matrix.h>
 *  ...
 *
 *  // allocate storage for (4,3) matrix with 6 nonzeros in 3 diagonals
 *  cusp::dia_matrix<int,float,cusp::host_memory> A(4,3,6,3);
 *
 *  // initialize diagonal offsets
 *  A.diagonal_offsets[0] = -2;
 *  A.diagonal_offsets[1] =  0;
 *  A.diagonal_offsets[2] =  1;
 *
 *  // initialize diagonal values
 *
 *  // first diagonal
 *  A.values(0,2) =  0;  // outside matrix
 *  A.values(1,2) =  0;  // outside matrix
 *  A.values(2,0) = 40;
 *  A.values(3,0) = 60;
 *
 *  // second diagonal
 *  A.values(0,1) = 10;
 *  A.values(1,1) =  0;
 *  A.values(2,1) = 50;
 *  A.values(3,1) = 50;  // outside matrix
 *
 *  // third diagonal
 *  A.values(0,2) = 20;
 *  A.values(1,2) = 30;
 *  A.values(2,2) =  0;  // outside matrix
 *  A.values(3,2) =  0;  // outside matrix
 *
 *  // A now represents the following matrix
 *  //    [10 20  0]
 *  //    [ 0  0 30]
 *  //    [40  0 50]
 *  //    [ 0 60  0]
 *
 *  // copy to the device
 *  cusp::dia_matrix<int,float,cusp::device_memory> B = A;
 *  \endcode
 *
 */
template <typename IndexType, typename ValueType, class MemorySpace>
class dia_matrix : public detail::matrix_base<IndexType,ValueType,MemorySpace,cusp::dia_format>
{
  typedef cusp::detail::matrix_base<IndexType,ValueType,MemorySpace,cusp::dia_format> Parent;
  public:
    // TODO statically assert is_signed<IndexType>

    /*! rebind matrix to a different MemorySpace
     */
    template<typename MemorySpace2>
    struct rebind { typedef cusp::dia_matrix<IndexType, ValueType, MemorySpace2> type; };

    /*! type of diagonal offsets array
     */
    typedef typename cusp::array1d<IndexType, MemorySpace>                     diagonal_offsets_array_type;

    /*! type of values array
     */
    typedef typename cusp::array2d<ValueType, MemorySpace, cusp::column_major> values_array_type;

    /*! equivalent container type
     */
    typedef typename cusp::dia_matrix<IndexType, ValueType, MemorySpace> container;

    /*! equivalent view type
     */
    typedef typename cusp::dia_matrix_view<typename diagonal_offsets_array_type::view,
                                           typename values_array_type::view,
                                           IndexType, ValueType, MemorySpace> view;

    /*! equivalent const_view type
     */
    typedef typename cusp::dia_matrix_view<typename diagonal_offsets_array_type::const_view,
                                           typename values_array_type::const_view,
                                           IndexType, ValueType, MemorySpace> const_view;

    /*! Storage for the diagonal offsets.
     */
    diagonal_offsets_array_type diagonal_offsets;

    /*! Storage for the nonzero entries of the DIA data structure.
     */
    values_array_type values;

    /*! Indicator for matrix symmetry. If true, only non-negative diagonal
     *  offsets are stored.
     */
    bool symmetric;

    /*! Construct an empty \p dia_matrix.
     */
    dia_matrix() : symmetric(false) {}

    /*! Construct a \p dia_matrix with a specific shape, number of nonzero entries,
     *  and number of occupied diagonals.
     *
     *  \param num_rows Number of rows.
     *  \param num_cols Number of columns.
     *  \param num_entries Number of nonzero matrix entries.
     *  \param num_diagonals Number of occupied diagonals.
     *  \param alignment Amount of padding used to align the data structure (default 32).
     */
    dia_matrix(size_t num_rows, size_t num_cols, size_t num_entries,
               size_t num_diagonals, bool is_symmetric, size_t alignment = 32)
      : Parent(num_rows, num_cols, num_entries),
        diagonal_offsets(num_diagonals),
        symmetric(is_symmetric)
      {
        // TODO use array2d constructor when it can accept pitch
        values.resize(num_rows, num_diagonals, detail::round_up(num_rows, alignment));
      }

    /*! Construct a \p dia_matrix from another matrix.
     *
     *  \param matrix Another sparse or dense matrix.
     */
    template <typename MatrixType>
    dia_matrix(const MatrixType& matrix);

    /*! Resize matrix dimensions and underlying storage
     */
    void resize(size_t num_rows, size_t num_cols, size_t num_entries,
                size_t num_diagonals)
    {
      Parent::resize(num_rows, num_cols, num_entries);
      diagonal_offsets.resize(num_diagonals);
      values.resize(num_rows, num_diagonals);
    }

    /*! Resize matrix dimensions and underlying storage
     */
    void resize(size_t num_rows, size_t num_cols, size_t num_entries,
                size_t num_diagonals, size_t alignment)
    {
      Parent::resize(num_rows, num_cols, num_entries);
      diagonal_offsets.resize(num_diagonals);
      values.resize(num_rows, num_diagonals, detail::round_up(num_rows, alignment));
    }

    /*! Swap the contents of two \p dia_matrix objects.
     *
     *  \param matrix Another \p dia_matrix with the same IndexType and ValueType.
     */
    void swap(dia_matrix& matrix)
    {
      Parent::swap(matrix);
      diagonal_offsets.swap(matrix.diagonal_offsets);
      values.swap(matrix.values);
      thrust::swap(symmetric, matrix.symmetric);
    }

    /*! Assignment from another matrix.
     *
     *  \param matrix Another sparse or dense matrix.
     */
    template <typename MatrixType>
    dia_matrix& operator=(const MatrixType& matrix);
}; // class dia_matrix
/*! \}
 */

/*! \addtogroup sparse_matrix_views Sparse Matrix Views
 *  \ingroup sparse_matrices
 *  \{
 */

/*! \p dia_matrix_view : Diagonal matrix view
 *
 * \tparam Array1 Type of \c diagonal_offsets
 * \tparam Array2 Type of \c values array view
 * \tparam IndexType Type used for matrix indices (e.g. \c int).
 * \tparam ValueType Type used for matrix values (e.g. \c float).
 * \tparam MemorySpace A memory space (e.g. \c cusp::host_memory or cusp::device_memory)
 *
 */
template <typename Array1,
          typename Array2,
          typename IndexType   = typename Array1::value_type,
          typename ValueType   = typename Array2::value_type,
          typename MemorySpace = typename cusp::minimum_space<typename Array1::memory_space, typename Array2::memory_space>::type >
class dia_matrix_view : public detail::matrix_base<IndexType,ValueType,MemorySpace,cusp::dia_format>
{
  typedef cusp::detail::matrix_base<IndexType,ValueType,MemorySpace,cusp::dia_format> Parent;
  public:
    /*! type of \c diagonal_offsets array
     */
    typedef Array1 diagonal_offsets_array_type;

    /*! type of \c column_indices array
     */
    typedef Array2 values_array_type;

    /*! equivalent container type
     */
    typedef typename cusp::dia_matrix<IndexType, ValueType, MemorySpace> container;

    /*! equivalent view type
     */
    typedef typename cusp::dia_matrix_view<Array1, Array2, IndexType, ValueType, MemorySpace> view;

    /*! Storage for the diagonal offsets.
     */
    diagonal_offsets_array_type diagonal_offsets;

    /*! Storage for the nonzero entries of the DIA data structure.
     */
    values_array_type values;

    /*! Construct an empty \p dia_matrix_view.
     */
    dia_matrix_view() {}

    template <typename OtherArray1, typename OtherArray2>
    dia_matrix_view(size_t num_rows, size_t num_cols, size_t num_entries,
                    OtherArray1& diagonal_offsets, OtherArray2& values)
    : Parent(num_rows, num_cols, num_entries), diagonal_offsets(diagonal_offsets), values(values) {}

    template <typename OtherArray1, typename OtherArray2>
    dia_matrix_view(size_t num_rows, size_t num_cols, size_t num_entries,
                    const OtherArray1& diagonal_offsets, const OtherArray2& values)
    : Parent(num_rows, num_cols, num_entries), diagonal_offsets(diagonal_offsets), values(values) {}

    template <typename Matrix>
    dia_matrix_view(Matrix& A)
    : Parent(A), diagonal_offsets(A.diagonal_offsets), values(A.values) {}

    template <typename Matrix>
    dia_matrix_view(const Matrix& A)
    : Parent(A), diagonal_offsets(A.diagonal_offsets), values(A.values) {}

    /*! Resize matrix dimensions and underlying storage
     */
    void resize(size_t num_rows, size_t num_cols, size_t num_entries,
                size_t num_diagonals)
    {
      Parent::resize(num_rows, num_cols, num_entries);
      diagonal_offsets.resize(num_diagonals);
      values.resize(num_rows, num_diagonals);
    }

    /*! Resize matrix dimensions and underlying storage
     */
    void resize(size_t num_rows, size_t num_cols, size_t num_entries,
                size_t num_diagonals, size_t alignment)
    {
      Parent::resize(num_rows, num_cols, num_entries);
      diagonal_offsets.resize(num_diagonals);
      values.resize(num_rows, num_diagonals, detail::round_up(num_rows, alignment));
    }
}; // class dia_matrix_view


template <typename Array1,
          typename Array2>
dia_matrix_view<Array1,Array2>
make_dia_matrix_view(size_t num_rows,
                     size_t num_cols,
                     size_t num_entries,
                     Array1 diagonal_offsets,
                     Array2 values);

template <typename Array1,
          typename Array2,
          typename IndexType,
          typename ValueType,
          typename MemorySpace>
dia_matrix_view<Array1,Array2,IndexType,ValueType,MemorySpace>
make_dia_matrix_view(const dia_matrix_view<Array1,Array2,IndexType,ValueType,MemorySpace>& m);

template <typename IndexType, typename ValueType, class MemorySpace>
typename dia_matrix<IndexType,ValueType,MemorySpace>::view
make_dia_matrix_view(dia_matrix<IndexType,ValueType,MemorySpace>& m);

template <typename IndexType, typename ValueType, class MemorySpace>
typename dia_matrix<IndexType,ValueType,MemorySpace>::const_view
make_dia_matrix_view(const dia_matrix<IndexType,ValueType,MemorySpace>& m);
/*! \} // end Views
 */

} // end namespace cusp

#include <cusp/array2d.h>
#include <cusp/detail/dia_matrix.inl>