[Rcpp-commits] r1012 - pkg/RcppGSL/inst/include

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

Author: romain
Date: 2010-04-06 12:28:53 +0200 (Tue, 06 Apr 2010)
New Revision: 1012

Modified:
   pkg/RcppGSL/inst/include/RcppGSL.h
   pkg/RcppGSL/inst/include/RcppGSLForward.h
Log:
support for gsl_vector_long_double

Modified: pkg/RcppGSL/inst/include/RcppGSL.h
===================================================================
--- pkg/RcppGSL/inst/include/RcppGSL.h	2010-04-06 10:26:14 UTC (rev 1011)
+++ pkg/RcppGSL/inst/include/RcppGSL.h	2010-04-06 10:28:53 UTC (rev 1012)
@@ -105,7 +105,11 @@
 		reinterpret_cast<gsl_complex_long_double*>(x.data), 
 		reinterpret_cast<gsl_complex_long_double*>(x.data) + x.size ) ;	
 }
-  
+
+template <> SEXP wrap( const gsl_vector_long_double& x){
+	return wrap( x.data, x.data + x.size ) ;
+}
+
 } 
 
 #endif

Modified: pkg/RcppGSL/inst/include/RcppGSLForward.h
===================================================================
--- pkg/RcppGSL/inst/include/RcppGSLForward.h	2010-04-06 10:26:14 UTC (rev 1011)
+++ pkg/RcppGSL/inst/include/RcppGSLForward.h	2010-04-06 10:28:53 UTC (rev 1012)
@@ -67,6 +67,8 @@
 	template <> SEXP wrap( const gsl_vector_complex& ) ;
 	template <> SEXP wrap( const gsl_vector_complex_float& ) ;
 	template <> SEXP wrap( const gsl_vector_complex_long_double& ) ;
+	template <> SEXP wrap( const gsl_vector_long_double& ) ;
+	
 }
 
 #endif