prepare handling of named and unnamed objects in StretchyList::push_*

Author: romainfrancois

inst/include/Rcpp/StretchyList.h

@@ -47,10 +47,28 @@ namespace Rcpp{
         }
 
         template <typename T>
-        StretchyList_Impl& push_back(const T& obj ) ;
+        inline StretchyList_Impl& push_back(const T& obj ){
+            return push_back__impl( obj, typename traits::is_named<T>::type() ) ;
+        }
+        
+        template <typename T>
+        inline StretchyList_Impl& push_front(const T& obj ){
+            return push_front__impl( obj, typename traits::is_named<T>::type() ) ;    
+        }
+        
+    private:
+        
+        template <typename T>
+        StretchyList_Impl& push_back__impl(const T& obj, traits::true_type ) ;
+        
+        template <typename T>
+        StretchyList_Impl& push_back__impl(const T& obj, traits::false_type ) ;
+        
+        template <typename T>
+        StretchyList_Impl& push_front__impl(const T& obj, traits::true_type ) ;
 
         template <typename T>
-        StretchyList_Impl& push_front(const T& obj ) ;
+        StretchyList_Impl& push_front__impl(const T& obj, traits::false_type ) ;
 
     } ;
 

inst/include/Rcpp/api/meat/StretchyList.h

@@ -22,7 +22,7 @@ namespace Rcpp{
 
     template< template <class> class StoragePolicy>
     template< typename T>
-    StretchyList_Impl<StoragePolicy>& StretchyList_Impl<StoragePolicy>::push_back( const T& obj){
+    StretchyList_Impl<StoragePolicy>& StretchyList_Impl<StoragePolicy>::push_back__impl( const T& obj, traits::false_type ){
         Shield<SEXP> s( wrap(obj) ) ;
         SEXP tmp  = Rf_cons( s, R_NilValue );
         SEXP self = Storage::get__() ;
@@ -33,7 +33,7 @@ namespace Rcpp{
 
     template< template <class> class StoragePolicy>
     template< typename T>
-    StretchyList_Impl<StoragePolicy>& StretchyList_Impl<StoragePolicy>::push_front( const T& obj){
+    StretchyList_Impl<StoragePolicy>& StretchyList_Impl<StoragePolicy>::push_front__impl( const T& obj, traits::false_type){
         SEXP tmp ;
         SEXP self = Storage::get__() ;
         Shield<SEXP> s( wrap(obj) ) ;