[Rcpp-commits] r822 - pkg/RcppArmadillo/inst/include

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Tue Mar 2 16:35:27 CET 2010


Author: edd
Date: 2010-03-02 16:35:27 +0100 (Tue, 02 Mar 2010)
New Revision: 822

Modified:
   pkg/RcppArmadillo/inst/include/RcppArmadillo.h
Log:
for symmetry, use ARMA_VERSION_GE_070 instead of ARMA_HAS_CUBE


Modified: pkg/RcppArmadillo/inst/include/RcppArmadillo.h
===================================================================
--- pkg/RcppArmadillo/inst/include/RcppArmadillo.h	2010-03-02 15:34:38 UTC (rev 821)
+++ pkg/RcppArmadillo/inst/include/RcppArmadillo.h	2010-03-02 15:35:27 UTC (rev 822)
@@ -34,7 +34,7 @@
     template <typename T> SEXP wrap ( const arma::Row<T>& ) ;
     template <typename T> SEXP wrap ( const arma::Col<T>& ) ;
     template <typename T> SEXP wrap ( const arma::field<T>& ) ;
-    #if ARMA_HAS_CUBE
+    #if ARMA_VERSION_GE_070
     template <typename T> SEXP wrap ( const arma::Cube<T>& ) ;
     #endif
 
@@ -59,7 +59,7 @@
 	template <typename T> class Exporter< arma::Row<T> > ;
 	template <typename T> class Exporter< arma::Col<T> > ;
 // template <typename T> class Exporter< arma::field<T> > ;
-// #ifdef ARMA_HAS_CUBE
+// #ifdef ARMA_VERSION_GE_070
 // 	template <typename T> class Exporter< arma::Cube<T> > ;
 // #endif
 
@@ -101,7 +101,7 @@
 	return RcppArmadillo::arma_wrap(data, Dimension( 1, data.n_elem ) ) ;
     } ;
 
-    #if ARMA_HAS_CUBE
+    #if ARMA_VERSION_GE_070
     template <typename T> SEXP wrap( const arma::Cube<T>& data ){
 	return RcppArmadillo::arma_wrap(data, Dimension(  data.n_rows, data.n_cols, data.n_slices ) ) ;
     }



More information about the Rcpp-commits mailing list