added missing implementations in DottedPairProxy

Author: romainfrancois

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

@@ -0,0 +1,50 @@
+// 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_DottedPairProxy_h
+#define Rcpp_api_meat_DottedPairProxy_h
+
+namespace Rcpp{
+        
+    template <typename CLASS>
+    template <typename T>
+    DottedPairProxyPolicy<CLASS>::DottedPairProxy& DottedPairProxyPolicy<CLASS>::DottedPairProxy::operator=( const T& rhs){
+        return set( wrap(rhs) ) ;
+    }
+    
+    template <typename CLASS>
+    template <typename T>
+    DottedPairProxyPolicy<CLASS>::DottedPairProxy& DottedPairProxyPolicy<CLASS>::DottedPairProxy::operator=( const traits::named_object<T>& rhs){
+        return set( wrap(rhs.object), rhs.name ) ;
+    }
+    
+    template <typename CLASS>
+    template <typename T>
+    DottedPairProxyPolicy<CLASS>::DottedPairProxy::operator T() const{
+        return as<T>(get());
+    }
+    
+    template <typename CLASS>
+    template <typename T>
+    DottedPairProxyPolicy<CLASS>::const_DottedPairProxy::operator T() const{
+        return as<T>(get());
+    }
+    
+    
+}
+
+#endif

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

@@ -28,6 +28,7 @@
 #include <Rcpp/api/meat/EnvironmentBinding.h>
 #include <Rcpp/api/meat/AttributeProxy.h>
 #include <Rcpp/api/meat/NamesProxy.h>
+#include <Rcpp/api/meat/DottedPairProxy.h>
 #include <Rcpp/api/meat/SlotProxy.h>
 
 #include <Rcpp/api/meat/Date.h>

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

@@ -51,7 +51,9 @@ class DottedPairProxyPolicy {
 		inline SEXP get() const { 
 		    return CAR(node); 
 		}
-		inline operator SEXP() const { return get() ; }
+		inline operator SEXP() const { 
+		    return get() ; 
+		}
 		inline DottedPairProxy& set(SEXP x){ 
 		    SETCAR( node, x ) ; 
 		    return *this ;
@@ -81,7 +83,9 @@ class DottedPairProxyPolicy {
 		inline SEXP get() const { 
 		    return CAR(node); 
 		}
-		inline operator SEXP() const { return get() ; }
+		inline operator SEXP() const { 
+		    return get() ; 
+		}
 
 	private:
 		SEXP node ;