new inline header function Rcpp::print()

Author: eddelbuettel

ChangeLog

@@ -1,5 +1,8 @@
 2015-03-02  Dirk Eddelbuettel  <[email protected]>
 
+        * inst/include/Rcpp/print.h (Rcpp): New inline function Rcpp::print()
+        * inst/include/RcppCommon.h: Include new header
+
         * src/api.cpp: Commented-out print() in global namespace
         * src/Rcpp_init.cpp: Commented-out registration of print()
         * inst/include/Rcpp/routines.h: Commented-out initialization

inst/include/Rcpp/print.h

@@ -0,0 +1,32 @@
+// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
+//
+// Copyright (C) 2015  Dirk Eddelbuettel
+//
+// 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_PRINT_H
+#define RCPP_PRINT_H
+
+namespace Rcpp {
+
+inline void print(SEXP s) {
+    Rf_PrintValue(s);           // defined in Rinternals.h
+}
+
+}
+
+#endif
+

inst/include/RcppCommon.h

@@ -173,6 +173,7 @@ namespace Rcpp{
 #include <Rcpp/internal/SEXP_Iterator.h>
 #include <Rcpp/internal/converter.h>
 
+#include <Rcpp/print.h>
 #include <Rcpp/algo.h>
 
 #include <Rcpp/sugar/sugar_forward.h>

src/Rcpp_init.cpp

@@ -116,7 +116,7 @@ void registerFunctions(){
     RCPP_REGISTER(reset_current_error)
     RCPP_REGISTER(error_occured)
     RCPP_REGISTER(rcpp_get_current_error)
-    //RCPP_REGISTER(print)
+    // RCPP_REGISTER(print)
     #undef RCPP_REGISTER
 }