[Rcpp-devel] [Rcpp-commits] r369 - in pkg: inst src src/Rcpp
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Wed Jan 13 09:19:09 CET 2010
Author: romain
Date: 2010-01-13 09:19:09 +0100 (Wed, 13 Jan 2010)
New Revision: 369
Added:
pkg/src/Rcpp/VectorBase.h
pkg/src/VectorBase.cpp
Modified:
pkg/inst/ChangeLog
pkg/src/GenericVector.cpp
pkg/src/IntegerVector.cpp
pkg/src/Rcpp/GenericVector.h
pkg/src/Rcpp/IntegerVector.h
Log:
+Rcpp::VectorBase
Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog 2010-01-13 07:50:10 UTC (rev 368)
+++ pkg/inst/ChangeLog 2010-01-13 08:19:09 UTC (rev 369)
@@ -1,11 +1,18 @@
2010-01-13 Romain Francois <francoisromain at free.fr>
+ * src/Rcpp/VectorBase.h: new virtual class Rcpp::VectorBase
+ to manage common things of all vectors (length, names, etc ...)
+
* src/Rcpp/Environment.h: Environment::Binding gains a templated
conversion operator, to facilitate distance 2 implicit conversion
making this possible:
Environment env("package:stats") ;
Function f = env["rnorm"] ;
+ * src/Rcpp/GenericVector.h: GenericVector::Proxy gains an
+ assignement operator to deal with Environment::Binding. This is
+ to work around distance 1 implicit conversion restrictions
+
* src/Rcpp/NumericVector.h: operator[], begiun and end are
promoted to inline member functions
* src/Rcpp/IntegerVector.h: idem
Modified: pkg/src/GenericVector.cpp
===================================================================
--- pkg/src/GenericVector.cpp 2010-01-13 07:50:10 UTC (rev 368)
+++ pkg/src/GenericVector.cpp 2010-01-13 08:19:09 UTC (rev 369)
@@ -89,6 +89,11 @@
return *this ;
}
+GenericVector::Proxy& GenericVector::Proxy::operator=( const Environment::Binding& rhs){
+ SET_VECTOR_ELT( parent, index, rhs ) ;
+ return *this ;
+}
+
const GenericVector::Proxy GenericVector::operator[](int i) const throw(index_out_of_bounds){
if( i<0 || i>=length()) throw index_out_of_bounds() ;
return Proxy(const_cast<GenericVector&>(*this), i) ;
Modified: pkg/src/IntegerVector.cpp
===================================================================
--- pkg/src/IntegerVector.cpp 2010-01-13 07:50:10 UTC (rev 368)
+++ pkg/src/IntegerVector.cpp 2010-01-13 08:19:09 UTC (rev 369)
@@ -26,7 +26,7 @@
namespace Rcpp{
- IntegerVector::IntegerVector(SEXP x) throw(not_compatible) : RObject() {
+ IntegerVector::IntegerVector(SEXP x) throw(not_compatible) : VectorBase() {
switch( TYPEOF( x ) ){
case INTSXP:
setSEXP( x ) ;
@@ -41,7 +41,7 @@
}
}
- IntegerVector::IntegerVector(int size) : RObject() {
+ IntegerVector::IntegerVector(int size) : VectorBase() {
setSEXP( Rf_allocVector(INTSXP, size) ) ;
}
Modified: pkg/src/Rcpp/GenericVector.h
===================================================================
--- pkg/src/Rcpp/GenericVector.h 2010-01-13 07:50:10 UTC (rev 368)
+++ pkg/src/Rcpp/GenericVector.h 2010-01-13 08:19:09 UTC (rev 369)
@@ -24,6 +24,7 @@
#include <RcppCommon.h>
#include <Rcpp/RObject.h>
+#include <Rcpp/Environment.h>
#ifdef HAS_INIT_LISTS
#include <initializer_list>
@@ -49,6 +50,7 @@
SET_VECTOR_ELT( parent, index, wrap(rhs) ) ;
return *this;
}
+ Proxy& operator=( const Environment::Binding& rhs) ;
/* rvalue use */
operator SEXP() const ;
Modified: pkg/src/Rcpp/IntegerVector.h
===================================================================
--- pkg/src/Rcpp/IntegerVector.h 2010-01-13 07:50:10 UTC (rev 368)
+++ pkg/src/Rcpp/IntegerVector.h 2010-01-13 08:19:09 UTC (rev 369)
@@ -24,6 +24,7 @@
#include <RcppCommon.h>
#include <Rcpp/RObject.h>
+#include <Rcpp/VectorBase.h>
#ifdef HAS_INIT_LISTS
#include <initializer_list>
@@ -32,7 +33,7 @@
namespace Rcpp{
-class IntegerVector : public RObject {
+class IntegerVector : public VectorBase {
public:
IntegerVector(SEXP x) throw(not_compatible);
@@ -42,18 +43,8 @@
IntegerVector( std::initializer_list<int> list ) ;
IntegerVector( std::initializer_list<double> list ) ;
#endif
-
- /**
- * the length of the vector, uses Rf_length
- */
- inline int length() const { return Rf_length( m_sexp ) ; }
-
- /**
- * alias of length
- */
- inline int size() const { return Rf_length( m_sexp ) ; }
-
- inline int& operator[]( int i ) const{ return INTEGER(m_sexp)[i] } ;
+
+ inline int& operator[]( int i ) const{ return INTEGER(m_sexp)[i] ; }
inline int* begin() const { return INTEGER(m_sexp) ; }
inline int* end() const { return INTEGER(m_sexp) + LENGTH(m_sexp) ; }
Added: pkg/src/Rcpp/VectorBase.h
===================================================================
--- pkg/src/Rcpp/VectorBase.h (rev 0)
+++ pkg/src/Rcpp/VectorBase.h 2010-01-13 08:19:09 UTC (rev 369)
@@ -0,0 +1,50 @@
+// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
+//
+// VectorBase.h: Rcpp R/C++ interface class library -- base class for all vectors
+//
+// Copyright (C) 2010 Dirk Eddelbuettel and Romain Francois
+//
+// This file is part of Rcpp.
+//
+// Rcpp 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.
+//
+// Rcpp 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 Rcpp. If not, see <http://www.gnu.org/licenses/>.
+
+#ifndef Rcpp_VectorBase_h
+#define Rcpp_VectorBase_h
+
+#include <RcppCommon.h>
+#include <Rcpp/RObject.h>
+
+namespace Rcpp{
+
+class VectorBase : public RObject {
+public:
+
+ VectorBase() ;
+ virtual ~VectorBase() = 0;
+
+ /**
+ * the length of the vector, uses Rf_length
+ */
+ inline int length() const { return Rf_length( m_sexp ) ; }
+
+ /**
+ * alias of length
+ */
+ inline int size() const { return Rf_length( m_sexp ) ; }
+
+} ;
+
+} // namespace
+
+#endif
Added: pkg/src/VectorBase.cpp
===================================================================
--- pkg/src/VectorBase.cpp (rev 0)
+++ pkg/src/VectorBase.cpp 2010-01-13 08:19:09 UTC (rev 369)
@@ -0,0 +1,30 @@
+// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
+//
+// VectorBase.h: Rcpp R/C++ interface class library -- base vector class
+//
+// Copyright (C) 2010 Dirk Eddelbuettel and Romain Francois
+//
+// This file is part of Rcpp.
+//
+// Rcpp 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.
+//
+// Rcpp 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 Rcpp. If not, see <http://www.gnu.org/licenses/>.
+
+#include <RcppCommon.h>
+#include <Rcpp/RObject.h>
+#include <Rcpp/VectorBase.h>
+
+namespace Rcpp{
+ VectorBase::VectorBase(): RObject(){} ;
+ VectorBase::~VectorBase(){}
+
+} // namespace
_______________________________________________
Rcpp-commits mailing list
Rcpp-commits at lists.r-forge.r-project.org
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-commits
More information about the Rcpp-devel
mailing list