registering get_string_buffer

Author: romainfrancois

inst/include/Rcpp/internal/wrap.h

@@ -40,8 +40,6 @@ template <typename T> class CustomImporter ;
 
 namespace internal{
 
-	char* get_string_buffer() ;
-	
 	inline SEXP make_charsexp__impl__wstring( const wchar_t* data ){
 		char* buffer = get_string_buffer() ;
 		wcstombs( buffer, data, MAXELTSIZE ) ;

inst/include/Rcpp/routines.h

@@ -30,6 +30,7 @@ namespace Rcpp{
     namespace internal{
         unsigned long enterRNGScope(); 
         unsigned long exitRNGScope() ;
+        char* get_string_buffer() ;
     }
     SEXP get_Rcpp_namespace() ; 
     SEXP rcpp_get_stack_trace() ;
@@ -100,6 +101,12 @@ namespace Rcpp {
             static Fun fun = GET_CALLABLE("exitRNGScope") ;
             return fun() ;
         }
+        
+        inline char* get_string_buffer(){
+            typedef char* (*Fun)(void) ;
+            static Fun fun = GET_CALLABLE("get_string_buffer") ;
+            return fun();
+        }
     }
 
     inline SEXP get_Rcpp_namespace() {

src/Rcpp_init.cpp

@@ -109,6 +109,7 @@ void registerFunctions(){
     RCPP_REGISTER(dataptr)
     RCPP_REGISTER(getCurrentScope)
     RCPP_REGISTER(setCurrentScope)
+    RCPP_REGISTER(get_string_buffer)
     RCPP_REGISTER(mktime00)
     RCPP_REGISTER(gmtime_)
     #undef RCPP_REGISTER