dotted pair proxy meat

Author: kevinushey

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

@@ -125,7 +125,6 @@ namespace Rcpp {
     }
 
     // Environment Binding
-
     template <typename CLASS>
     template <typename T>
     typename BindingPolicy<CLASS>::Binding&
@@ -145,6 +144,28 @@ namespace Rcpp {
     BindingPolicy<CLASS>::const_Binding::operator T() const {
         return as<T>(get());
     }
+
+    // Dotted pair proxies
+    template <typename CLASS>
+    template <typename T>
+    typename DottedPairProxyPolicy<CLASS>::DottedPairProxy&
+    DottedPairProxyPolicy<CLASS>::DottedPairProxy::operator=(const T& rhs) {
+        set(wrap(rhs));
+        return *this;
+    }
+
+    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/proxy/DottedPairProxy.h

@@ -33,26 +33,20 @@ class DottedPairProxyPolicy {
             node = x ;
         }
 
-		DottedPairProxy& operator=(const DottedPairProxy& rhs){
+		DottedPairProxy& operator=(const DottedPairProxy& rhs) {
 		    return set(rhs.get());
 		}
-		DottedPairProxy& operator=(SEXP rhs){
+		DottedPairProxy& operator=(SEXP rhs) {
 		    return set(rhs) ;
 		}
 
 		template <typename T>
-		DottedPairProxy& operator=(const T& rhs) {
-      return set( wrap(rhs) );
-		}
+		DottedPairProxy& operator=(const T& rhs);
 
 		template <typename T>
-		DottedPairProxy& operator=(const traits::named_object<T>& rhs) {
-      return set( wrap(rhs.object), rhs.name ) ;
-		}
+		DottedPairProxy& operator=(const traits::named_object<T>& rhs);
 
-		template <typename T> operator T() const {
-      return as<T>( get() );
-		}
+		template <typename T> operator T() const;
 
 		inline SEXP get() const {
 		    return CAR(node);
@@ -84,9 +78,7 @@ class DottedPairProxyPolicy {
             node = x ;
         }
 
-		template <typename T> operator T() const {
-      return as<T>( get() );
-		}
+		template <typename T> operator T() const;
 
 		inline SEXP get() const {
 		    return CAR(node);