[Rcpp-commits] r3099 - pkg/RcppEigen/inst/include

[noreply at r-forge.r-project.org]

Author: dmbates
Date: 2011-06-23 16:53:50 +0200 (Thu, 23 Jun 2011)
New Revision: 3099

Modified:
   pkg/RcppEigen/inst/include/RcppEigenForward.h
   pkg/RcppEigen/inst/include/RcppEigenWrap.h
Log:
bypass the incomplete exporter functions to support as<>


Modified: pkg/RcppEigen/inst/include/RcppEigenForward.h
===================================================================
--- pkg/RcppEigen/inst/include/RcppEigenForward.h	2011-06-23 13:49:17 UTC (rev 3098)
+++ pkg/RcppEigen/inst/include/RcppEigenForward.h	2011-06-23 14:53:50 UTC (rev 3099)
@@ -35,6 +35,7 @@
     template<typename T> SEXP wrap( const Eigen::Array<T, Eigen::Dynamic, Eigen::Dynamic>& ) ;
     template<typename T> SEXP wrap( const Eigen::Array<T, Eigen::Dynamic, 1>& ) ;
     
+#if 0
     namespace traits {
 
 	/* support for as */
@@ -43,6 +44,7 @@
 	template<typename T> class Exporter< Eigen::Matrix<T, 1, Eigen::Dynamic> > ;
 
     } // namespace traits 
+#endif
 
 }
 

Modified: pkg/RcppEigen/inst/include/RcppEigenWrap.h
===================================================================
--- pkg/RcppEigen/inst/include/RcppEigenWrap.h	2011-06-23 13:49:17 UTC (rev 3098)
+++ pkg/RcppEigen/inst/include/RcppEigenWrap.h	2011-06-23 14:53:50 UTC (rev 3099)
@@ -1,6 +1,6 @@
 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 4 -*-
 //
-// RcppEigenWrap.h: Rcpp/Eigen glue
+// RcppEigenWrap.h: Rcpp wrap methods for Eigen matrices, vectors and arrays
 //
 // Copyright (C)      2011 Douglas Bates, Dirk Eddelbuettel and Romain Francois
 //
@@ -62,34 +62,35 @@
 		return ::Rcpp::wrap(object.data(), object.data() + object.size());
     }
 
+#if 0
     /* support for Rcpp::as */
-
+	
     namespace traits {
-	
-	template <typename T> 
-	class Exporter< Eigen::Matrix<T, Eigen::Dynamic, 1> >
-	    : public IndexingExporter< Eigen::Matrix<T, Eigen::Dynamic, 1>, T > {
-	public: 
-	    Exporter(SEXP x) : IndexingExporter< Eigen::Matrix<T, Eigen::Dynamic, 1>, T >(x){}
-	}; 
-
-	template <typename T> 
-	class Exporter< Eigen::Matrix<T, 1, Eigen::Dynamic> >
-		: public IndexingExporter< Eigen::Matrix<T, 1, Eigen::Dynamic>, T > {
-	public:
-	    Exporter(SEXP x) : IndexingExporter< Eigen::Matrix<T, 1, Eigen::Dynamic>, T >(x){}
-	}; 
-
-	template <typename T> 
-	class Exporter< Eigen::Matrix<T, Eigen::Dynamic, Eigen::Dynamic> >
-		: public MatrixExporter< Eigen::Matrix<T, Eigen::Dynamic, Eigen::Dynamic>, T > {
-	public:
-	    Exporter(SEXP x) :
-			MatrixExporter< Eigen::Matrix<T, Eigen::Dynamic, Eigen::Dynamic>, T >(x){}
-	}; 
-	
+		
+		template <typename T> 
+		class Exporter< Eigen::Matrix<T, Eigen::Dynamic, 1> >
+			: public IndexingExporter< Eigen::Matrix<T, Eigen::Dynamic, 1>, T > {
+		public: 
+			Exporter(SEXP x) : IndexingExporter< Eigen::Matrix<T, Eigen::Dynamic, 1>, T >(x){}
+		}; 
+		
+		template <typename T> 
+		class Exporter< Eigen::Matrix<T, 1, Eigen::Dynamic> >
+			: public IndexingExporter< Eigen::Matrix<T, 1, Eigen::Dynamic>, T > {
+		public:
+			Exporter(SEXP x) : IndexingExporter< Eigen::Matrix<T, 1, Eigen::Dynamic>, T >(x){}
+		}; 
+		
+		template <typename T> 
+		class Exporter< Eigen::Matrix<T, Eigen::Dynamic, Eigen::Dynamic> >
+			: public MatrixExporter< Eigen::Matrix<T, Eigen::Dynamic, Eigen::Dynamic>, T > {
+		public:
+			Exporter(SEXP x) :
+				MatrixExporter< Eigen::Matrix<T, Eigen::Dynamic, Eigen::Dynamic>, T >(x){}
+		}; 
+		
     } // namespace traits
-
+#endif
 }
 
 #endif