first pass at global Rostreams (#928)

Author: Enchufa2

R/Attributes.R

@@ -291,6 +291,8 @@ cppFunction <- function(code,
     scaffolding <- c(scaffolding,
                      "",
                      "using namespace Rcpp;",
+                     "Rostream<true>&  Rcpp::Rcout = Rcpp_cout_get();",
+                     "Rostream<false>& Rcpp::Rcerr = Rcpp_cerr_get();",
                      "",
                      includes,
                      "// [[Rcpp::export]]",

inst/include/Rcpp/iostream/Rstreambuf.h

@@ -80,8 +80,8 @@ namespace Rcpp {
         ::R_FlushConsole();
         return 0;
     }								// #nocov end
-    static Rostream<true>  Rcout;
-    static Rostream<false> Rcerr;
+    extern Rostream<true>&  Rcout;
+    extern Rostream<false>& Rcerr;
 
 
 }

inst/include/Rcpp/routines.h

@@ -23,6 +23,8 @@
 #ifndef RCPP_ROUTINE_H
 #define RCPP_ROUTINE_H
 
+#include <Rcpp/iostream/Rstreambuf.h>
+
 #if defined(COMPILING_RCPP)
 
 // the idea is that this file should be generated automatically by Rcpp::register
@@ -45,6 +47,9 @@ namespace Rcpp{
     void Rcpp_precious_teardown();
     SEXP Rcpp_precious_preserve(SEXP object);
     void Rcpp_precious_remove(SEXP token);
+
+    Rostream<true>&  Rcpp_cout_get();
+    Rostream<false>& Rcpp_cerr_get();
 }
 
 SEXP          rcpp_get_stack_trace();
@@ -155,6 +160,17 @@ namespace Rcpp {
         fun(token);
     }
 
+    inline attribute_hidden Rostream<true>&  Rcpp_cout_get() {
+        typedef Rostream<true>& (*Fun)();
+        static Fun fun = GET_CALLABLE("Rcpp_cout_get");
+        return fun();
+    }
+    inline attribute_hidden Rostream<false>& Rcpp_cerr_get() {
+        typedef Rostream<false>& (*Fun)();
+        static Fun fun = GET_CALLABLE("Rcpp_cerr_get");
+        return fun();
+    }
+
 }
 
 // The 'attribute_hidden' used here is a simple precessor defined from

src/api.cpp

@@ -33,6 +33,18 @@ using namespace Rcpp;
 #endif
 
 namespace Rcpp {
+    // [[Rcpp::register]]
+    Rostream<true>&  Rcpp_cout_get() {
+      static Rostream<true>  Rcpp_cout;
+      return Rcpp_cout;
+    }
+    // [[Rcpp::register]]
+    Rostream<false>& Rcpp_cerr_get() {
+      static Rostream<false> Rcpp_cerr;
+      return Rcpp_cerr;
+    }
+    Rostream<true>&  Rcout = Rcpp_cout_get();
+    Rostream<false>& Rcerr = Rcpp_cerr_get();
 
     namespace internal {
 

src/attributes.cpp

@@ -2127,6 +2127,9 @@ namespace attributes {
 
         // always bring in Rcpp
         ostr << "using namespace Rcpp;" << std::endl << std::endl;
+        ostr << "Rostream<true>  &Rcpp::Rcout = Rcpp_cout_get();" << std::endl;
+        ostr << "Rostream<false> &Rcpp::Rcerr = Rcpp_cerr_get();" << std::endl;
+        ostr << std::endl;
 
         // commit with preamble
         return ExportsGenerator::commit(ostr.str());

src/rcpp_init.cpp

@@ -124,6 +124,8 @@ void registerFunctions(){
     RCPP_REGISTER(Rcpp_precious_teardown)
     RCPP_REGISTER(Rcpp_precious_preserve)
     RCPP_REGISTER(Rcpp_precious_remove)
+    RCPP_REGISTER(Rcpp_cout_get)
+    RCPP_REGISTER(Rcpp_cerr_get)
     #undef RCPP_REGISTER
 }