[Rcpp-commits] r3129 - pkg/Rcpp/inst/include/Rcpp/internal

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

Author: romain
Date: 2011-07-11 15:16:26 +0200 (Mon, 11 Jul 2011)
New Revision: 3129

Modified:
   pkg/Rcpp/inst/include/Rcpp/internal/wrap.h
Log:
helping RcppEigen 1/2

Modified: pkg/Rcpp/inst/include/Rcpp/internal/wrap.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/internal/wrap.h	2011-07-10 21:20:03 UTC (rev 3128)
+++ pkg/Rcpp/inst/include/Rcpp/internal/wrap.h	2011-07-11 13:16:26 UTC (rev 3129)
@@ -32,6 +32,8 @@
 
 template <typename T> SEXP wrap( const T& object ) ;
 
+template <typename T> class CustomImporter ;
+
 namespace internal{
 	
 	template <typename InputIterator> SEXP range_wrap(InputIterator first, InputIterator last) ;
@@ -661,7 +663,11 @@
 	return wrap_dispatch_importer<T,typename T::r_import_type>( object ) ;
 }
  
- 
+template <typename T>
+inline SEXP wrap_dispatch( const T& object, ::Rcpp::traits::wrap_type_custom_importer_tag ){
+	return CustomImporter<T>( object ) ;
+}
+
 /** 
  * This is called by wrap when the wrap_type_traits is wrap_type_unknown_tag
  *