move functions to headers

Author: romainfrancois

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

@@ -145,7 +145,11 @@ namespace internal{
         return TYPEOF(x) == REALSXP && Rf_inherits( x, "POSIXt" ) ;
     }
 
-    bool is_module_object_internal(SEXP, const char*) ;
+    inline bool is_module_object_internal(SEXP obj, const char* clazz){
+	    Environment env(obj) ;
+	    XPtr<class_Base> xp( env.get(".cppclass") );
+	    return xp->has_typeinfo_name( clazz ) ;
+	}
     template <typename T> bool is__module__object( SEXP x){
         typedef typename Rcpp::traits::un_pointer<T>::type CLASS ;
         return is_module_object_internal(x, typeid(CLASS).name() ) ;     

inst/include/Rcpp/as.h

@@ -83,7 +83,11 @@ namespace Rcpp{
             return exporter.get() ;
         }
 
-        void* as_module_object_internal(SEXP) ;
+        inline void* as_module_object_internal(SEXP obj) {
+            Environment env(obj) ;
+            SEXP xp = env.get(".pointer") ;
+            return R_ExternalPtrAddr(xp );   
+        }
         template <typename T> object<T> as_module_object(SEXP x){
             return (T*) as_module_object_internal(x) ;
         }

src/Module.cpp

@@ -239,20 +239,3 @@ extern "C" void R_init_Rcpp( DllInfo* info){
 	init_Rcpp_routines(info) ;
 }
 
-namespace Rcpp{
-	
-	namespace internal{
-	    void* as_module_object_internal(SEXP obj){
-	        Environment env(obj) ;
-	        SEXP xp = env.get(".pointer") ;
-	        return R_ExternalPtrAddr(xp );
-	    }
-	    bool is_module_object_internal(SEXP obj, const char* clazz){
-	        Environment env(obj) ;
-	        XPtr<class_Base> xp( env.get(".cppclass") );
-	        return xp->has_typeinfo_name( clazz ) ;
-	    }
-	}
-	
-}
-