added StretchyList::(push_front,push_back,get)

Author: romainfrancois

inst/include/Rcpp.h

@@ -48,7 +48,7 @@
 #include <Rcpp/Language.h>
 #include <Rcpp/DottedPair.h>
 #include <Rcpp/Pairlist.h>
-#include <Rcpp/StrechyList.h>
+#include <Rcpp/StretchyList.h>
 
 #include <Rcpp/WeakReference.h>
 #include <Rcpp/StringTransformer.h>

inst/include/Rcpp/StretchyList.h

@@ -23,22 +23,35 @@
 namespace Rcpp{
 
     RCPP_API_CLASS(StretchyList_Impl),
-        public DottedPairProxyPolicy<StretchyList_Impl<StoragePolicy> >, 
-        public DottedPairImpl<StretchyList_Impl<StoragePolicy> >{
+        public DottedPairProxyPolicy<StretchyList_Impl<StoragePolicy> > {
     public:
 
         RCPP_GENERATE_CTOR_ASSIGN(StretchyList_Impl) 
 
         typedef typename DottedPairProxyPolicy<StretchyList_Impl>::DottedPairProxy Proxy ;
         typedef typename DottedPairProxyPolicy<StretchyList_Impl>::const_DottedPairProxy const_Proxy ;
 
-        StretchyList_Impl(){}
+        StretchyList_Impl(){
+            SEXP s = Rf_cons(R_NilValue, R_NilValue);
+            SETCAR(s, s);
+            Storage::set__(s) ;
+        }
         StretchyList_Impl(SEXP x){
             Storage::set__(r_cast<LISTSXP>(x)) ;    
         }
 
         void update(SEXP x){}
 
+        inline operator SEXP() const{
+            return CDR(Storage::get__() );    
+        }
+        
+        template <typename T>
+        StretchyList_Impl& push_back(const T& obj ) ;
+        
+        template <typename T>
+        StretchyList_Impl& push_front(const T& obj ) ;
+        
     } ;
 
     typedef StretchyList_Impl<PreserveStorage> StretchyList ;

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

@@ -1,19 +1,19 @@
 // Copyright (C) 2013    Romain Francois
 //
-// This file is part of Rcpp11.
+// This file is part of Rcpp.
 //
-// Rcpp11 is free software: you can redistribute it and/or modify it
+// Rcpp is free software: you can redistribute it and/or modify it
 // under the terms of the GNU General Public License as published by
 // the Free Software Foundation, either version 2 of the License, or
 // (at your option) any later version.
 //
-// Rcpp11 is distributed in the hope that it will be useful, but
+// Rcpp is distributed in the hope that it will be useful, but
 // WITHOUT ANY WARRANTY; without even the implied warranty of
 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 // GNU General Public License for more details.
 //
 // You should have received a copy of the GNU General Public License
-// along with Rcpp11.  If not, see <http://www.gnu.org/licenses/>.
+// along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
 #ifndef Rcpp_api_meat_DottedPairImpl_h
 #define Rcpp_api_meat_DottedPairImpl_h

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

@@ -0,0 +1,48 @@
+// Copyright (C) 2013    Romain Francois
+//
+// This file is part of Rcpp.
+//
+// Rcpp is free software: you can redistribute it and/or modify it
+// under the terms of the GNU General Public License as published by
+// the Free Software Foundation, either version 2 of the License, or
+// (at your option) any later version.
+//
+// Rcpp is distributed in the hope that it will be useful, but
+// WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
+                    
+#ifndef Rcpp_api_meat_StretchyList_h
+#define Rcpp_api_meat_StretchyList_h
+
+namespace Rcpp{ 
+    
+    template< template <class> class StoragePolicy>
+    template< typename T>
+    StretchyList_Impl<StoragePolicy>& StretchyList_Impl<StoragePolicy>::push_back( const T& obj){
+        Shield<SEXP> s( wrap(obj) ) ;
+        SEXP tmp  = Rf_cons( s, R_NilValue );
+        SEXP self = Storage::get__() ;
+        SETCDR( CAR(self), tmp) ;
+        SETCAR( self, tmp ) ;
+        return *this ;
+    }
+
+    template< template <class> class StoragePolicy>
+    template< typename T>
+    StretchyList_Impl<StoragePolicy>& StretchyList_Impl<StoragePolicy>::push_front( const T& obj){
+        SEXP tmp ;
+        SEXP self = Storage::get__() ;
+        Shield<SEXP> s( wrap(obj) ) ;
+        tmp = Rf_cons(s, CDR(self) ) ;
+        SETCDR(self, tmp) ;
+        return *this ;
+    }
+
+    
+}
+
+#endif

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

@@ -41,6 +41,7 @@
 #include <Rcpp/api/meat/Environment.h>
 
 #include <Rcpp/api/meat/DottedPairImpl.h>
+#include <Rcpp/api/meat/StretchyList.h>
 #include <Rcpp/api/meat/Vector.h>
 #include <Rcpp/api/meat/Matrix.h>
 #include <Rcpp/api/meat/is.h>