source: trunk/yat/utility/VectorView.cc @ 1026

// $Id: VectorView.cc 1026 2008-02-01 18:34:35Z peter $

/*
  Copyright (C) 2003 Daniel Dalevi, Peter Johansson
  Copyright (C) 2004 Jari Häkkinen, Peter Johansson
  Copyright (C) 2005, 2006 Jari Häkkinen, Markus Ringnér, Peter Johansson
  Copyright (C) 2007 Jari Häkkinen, Peter Johansson

  This file is part of the yat library, http://trac.thep.lu.se/trac/yat

  The yat library 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 2 of the
  License, or (at your option) any later version.

  The yat library 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 this program; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  02111-1307, USA.
*/

#include "VectorView.h"
#include "matrix.h"
#include "utility.h"
#include "yat/random/random.h"

#include <algorithm>
#include <cassert>
#include <cmath>
#include <iostream>
#include <sstream>
#include <utility>
#include <vector>

namespace theplu {
namespace yat {
namespace utility {


  VectorView::VectorView(void)
    : VectorBase(), view_(NULL), const_view_(NULL)
  {
  }


  VectorView::VectorView(VectorView& other)
    : VectorBase(), const_view_(NULL)
  {
    view_ = new gsl_vector_view(gsl_vector_subvector(other.gsl_vector_p(), 
                                                     0, other.size()));
    const_vec_ = vec_ = &(view_->vector);
    
  }


  VectorView::VectorView(const VectorView& other)
    : VectorBase(), view_(NULL)
  {
    const_view_ = new gsl_vector_const_view(
        gsl_vector_const_subvector(other.gsl_vector_p(), 0, other.size()));
    const_vec_ = &(const_view_->vector);
  }


  VectorView::VectorView(VectorBase& other)
    : VectorBase(other.gsl_vector_p()), const_view_(NULL)
  {
    view_ = 
      new gsl_vector_view(gsl_vector_subvector_with_stride(other.gsl_vector_p(), 
                                                           0, 1,other.size()));
    const_vec_ = vec_ = &(view_->vector);
  }


  /*
  VectorView::VectorView(const VectorBase& other)
    : VectorBase(other.const_vec_), view_(NULL)
  {
  }
  */

  VectorView::VectorView(VectorBase& v, size_t offset,size_t n,size_t stride)
    : VectorBase(), const_view_(NULL)
  {
    view_ = 
      new gsl_vector_view(gsl_vector_subvector_with_stride(v.gsl_vector_p(), 
                                                           offset, stride,n));
    const_vec_ = vec_ = &(view_->vector);
  }


  VectorView::VectorView(const VectorBase& v, size_t offset,size_t n,
                         size_t stride)
    : VectorBase(), view_(NULL)
  {
    const_view_ = new gsl_vector_const_view(
                   gsl_vector_const_subvector_with_stride(v.gsl_vector_p(), 
                                                          offset, stride,n));
    const_vec_ = &(const_view_->vector);
  }


  VectorView::VectorView(matrix& m, size_t i, bool row)
    : VectorBase(), const_view_(NULL)
  {
    view_=new gsl_vector_view(row ?
                              gsl_matrix_row   (m.gsl_matrix_p(),i) :
                              gsl_matrix_column(m.gsl_matrix_p(),i)  );
    const_vec_ = vec_ = &(view_->vector);
  }


  VectorView::VectorView(const matrix& m, size_t i, bool row)
    : VectorBase(), view_(NULL)
  {
    const_view_ = 
      new gsl_vector_const_view(row ? 
                                gsl_matrix_const_row(m.gsl_matrix_p(),i) :
                                gsl_matrix_const_column(m.gsl_matrix_p(),i));
    const_vec_ = &(const_view_->vector);
  }


  /*
  VectorView::VectorView(proxy p)
    : VectorBase()
  {
    view_ = new gsl_vector_view(gsl_vector_subvector(p.vec_, 0, p.vec_->size));
    const_vec_ = vec_ = &(view_->vector);
  }
  */

  VectorView::~VectorView(void)
  {
    delete_allocated_memory();
  }


  const VectorView& VectorView::assign(const VectorBase& other )
  {
    if (size()!=other.size())
      throw utility::GSL_error("VectorView::dimension mis-match");
    if (!other.size())
      return *this;
    gsl_vector_memcpy(vec_, other.gsl_vector_p());
    const_vec_ = vec_;
    return *this;
  } 


  bool VectorView::isview(void) const
  {
    return true;
  }



  const VectorView& VectorView::operator=(const VectorView& other )
  {
    return assign(other);
  }

  
  const VectorView& VectorView::operator=(const VectorBase& other )
  {
    return assign(other);
  }

  
  /*
  const VectorView& VectorView::operator=(proxy p)
  {
    if (size()!=p.vec_->size)
      throw utility::GSL_error("VectorView::dimension mis-match");
    if (!size())
      return *this;
    clean_up();
    view_ = new gsl_vector_view(gsl_vector_subvector(p.vec_,0, p.vec_->size));
    const_vec_=vec_ = &view_->vector;
    return *this;
  } 
  */

  void VectorView::delete_allocated_memory(void)
  {
    if (view_){
      delete view_;
      view_=NULL;
    }
    else if (const_view_){
      delete const_view_;
      const_view_=NULL;
    }
    const_vec_ = vec_ = NULL;
  }


}}} // of namespace utility, yat, and thep