[Rcpp-commits] r4129 - in pkg/Rcpp/inst/include: . Rcpp Rcpp/macros Rcpp/preprocessor

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Mon Dec 10 15:20:54 CET 2012


Author: romain
Date: 2012-12-10 15:20:53 +0100 (Mon, 10 Dec 2012)
New Revision: 4129

Added:
   pkg/Rcpp/inst/include/Rcpp/macros/cat.hpp
   pkg/Rcpp/inst/include/Rcpp/macros/config.hpp
   pkg/Rcpp/inst/include/Rcpp/macros/dispatch.h
   pkg/Rcpp/inst/include/Rcpp/macros/preprocessor_generated.h
   pkg/Rcpp/inst/include/Rcpp/macros/traits.h
   pkg/Rcpp/inst/include/Rcpp/macros/xp.h
Removed:
   pkg/Rcpp/inst/include/Rcpp/preprocessor.h
   pkg/Rcpp/inst/include/Rcpp/preprocessor/cat.hpp
   pkg/Rcpp/inst/include/Rcpp/preprocessor/config.hpp
   pkg/Rcpp/inst/include/Rcpp/preprocessor_generated.h
Modified:
   pkg/Rcpp/inst/include/Rcpp/macros/macros.h
   pkg/Rcpp/inst/include/RcppCommon.h
Log:
more cleaning of Rcpp.h

Copied: pkg/Rcpp/inst/include/Rcpp/macros/cat.hpp (from rev 4125, pkg/Rcpp/inst/include/Rcpp/preprocessor/cat.hpp)
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/macros/cat.hpp	                        (rev 0)
+++ pkg/Rcpp/inst/include/Rcpp/macros/cat.hpp	2012-12-10 14:20:53 UTC (rev 4129)
@@ -0,0 +1,33 @@
+# /* Copyright (C) 2001
+#  * Housemarque Oy
+#  * http://www.housemarque.com
+#  *
+#  * Distributed under the Boost Software License, Version 1.0. (See
+#  * accompanying file LICENSE_1_0.txt or copy at
+#  * http://www.boost.org/LICENSE_1_0.txt)
+#  */
+#
+# /* Revised by Paul Mensonides (2002) */
+#
+# /* See http://www.boost.org for most recent version. */
+#
+# ifndef RCPP_PREPROCESSOR_CAT_HPP
+# define RCPP_PREPROCESSOR_CAT_HPP
+#
+# /* RCPP_PP_CAT */
+#
+# if ~RCPP_PP_CONFIG_FLAGS() & RCPP_PP_CONFIG_MWCC()
+#    define RCPP_PP_CAT(a, b) RCPP_PP_CAT_I(a, b)
+# else
+#    define RCPP_PP_CAT(a, b) RCPP_PP_CAT_OO((a, b))
+#    define RCPP_PP_CAT_OO(par) RCPP_PP_CAT_I ## par
+# endif
+#
+# if ~RCPP_PP_CONFIG_FLAGS() & RCPP_PP_CONFIG_MSVC()
+#    define RCPP_PP_CAT_I(a, b) a ## b
+# else
+#    define RCPP_PP_CAT_I(a, b) RCPP_PP_CAT_II(a ## b)
+#    define RCPP_PP_CAT_II(res) res
+# endif
+#
+# endif

Copied: pkg/Rcpp/inst/include/Rcpp/macros/config.hpp (from rev 4125, pkg/Rcpp/inst/include/Rcpp/preprocessor/config.hpp)
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/macros/config.hpp	                        (rev 0)
+++ pkg/Rcpp/inst/include/Rcpp/macros/config.hpp	2012-12-10 14:20:53 UTC (rev 4129)
@@ -0,0 +1,70 @@
+# /* **************************************************************************
+#  *                                                                          *
+#  *     (C) Copyright Paul Mensonides 2002.
+#  *     Distributed under the Boost Software License, Version 1.0. (See
+#  *     accompanying file LICENSE_1_0.txt or copy at
+#  *     http://www.boost.org/LICENSE_1_0.txt)
+#  *                                                                          *
+#  ************************************************************************** */
+#
+# /* See http://www.boost.org for most recent version. */
+#
+# ifndef RCPP_PREPROCESSOR_CONFIG_CONFIG_HPP
+# define RCPP_PREPROCESSOR_CONFIG_CONFIG_HPP
+#
+# /* RCPP_PP_CONFIG_FLAGS */
+#
+# define RCPP_PP_CONFIG_STRICT() 0x0001
+# define RCPP_PP_CONFIG_IDEAL() 0x0002
+#
+# define RCPP_PP_CONFIG_MSVC() 0x0004
+# define RCPP_PP_CONFIG_MWCC() 0x0008
+# define RCPP_PP_CONFIG_BCC() 0x0010
+# define RCPP_PP_CONFIG_EDG() 0x0020
+# define RCPP_PP_CONFIG_DMC() 0x0040
+#
+# ifndef RCPP_PP_CONFIG_FLAGS
+#    if defined(__GCCXML__)
+#        define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_STRICT())
+#    elif defined(__WAVE__)
+#        define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_STRICT())
+#    elif defined(__MWERKS__) && __MWERKS__ >= 0x3200
+#        define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_STRICT())
+#    elif defined(__EDG__) || defined(__EDG_VERSION__)
+#        if defined(_MSC_VER) && __EDG_VERSION__ >= 308
+#            define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_MSVC())
+#        else
+#            define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_EDG() | RCPP_PP_CONFIG_STRICT())
+#        endif
+#    elif defined(__MWERKS__)
+#        define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_MWCC())
+#    elif defined(__DMC__)
+#        define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_DMC())
+#    elif defined(__BORLANDC__) && __BORLANDC__ >= 0x581
+#        define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_STRICT())
+#    elif defined(__BORLANDC__) || defined(__IBMC__) || defined(__IBMCPP__) || defined(__SUNPRO_CC)
+#        define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_BCC())
+#    elif defined(_MSC_VER)
+#        define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_MSVC())
+#    else
+#        define RCPP_PP_CONFIG_FLAGS() (RCPP_PP_CONFIG_STRICT())
+#    endif
+# endif
+#
+# /* RCPP_PP_CONFIG_EXTENDED_LINE_INFO */
+#
+# ifndef RCPP_PP_CONFIG_EXTENDED_LINE_INFO
+#    define RCPP_PP_CONFIG_EXTENDED_LINE_INFO 0
+# endif
+#
+# /* RCPP_PP_CONFIG_ERRORS */
+#
+# ifndef RCPP_PP_CONFIG_ERRORS
+#    ifdef NDEBUG
+#        define RCPP_PP_CONFIG_ERRORS 0
+#    else
+#        define RCPP_PP_CONFIG_ERRORS 1
+#    endif
+# endif
+#
+# endif

Added: pkg/Rcpp/inst/include/Rcpp/macros/dispatch.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/macros/dispatch.h	                        (rev 0)
+++ pkg/Rcpp/inst/include/Rcpp/macros/dispatch.h	2012-12-10 14:20:53 UTC (rev 4129)
@@ -0,0 +1,48 @@
+// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
+//
+// dispatch.h: Rcpp R/C++ interface class library -- macros for dispatch
+//
+// Copyright (C) 2012 Dirk Eddelbuettel and Romain Francois
+//
+// 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__macros__dispatch_h
+#define Rcpp__macros__dispatch_h
+
+#define ___RCPP_HANDLE_CASE___( ___RTYPE___ , ___FUN___ , ___OBJECT___ , ___RCPPTYPE___ )	\
+	case ___RTYPE___ :																	\
+		return ___FUN___( ::Rcpp::___RCPPTYPE___< ___RTYPE___ >( ___OBJECT___ ) ) ;	
+		         
+#define ___RCPP_RETURN___( __FUN__, __SEXP__ , __RCPPTYPE__ )						\
+	SEXP __TMP__ = __SEXP__ ;															\
+	switch( TYPEOF( __TMP__ ) ){										 				\
+		___RCPP_HANDLE_CASE___( INTSXP  , __FUN__ , __TMP__ , __RCPPTYPE__ )			\
+		___RCPP_HANDLE_CASE___( REALSXP , __FUN__ , __TMP__ , __RCPPTYPE__ )			\
+		___RCPP_HANDLE_CASE___( RAWSXP  , __FUN__ , __TMP__ , __RCPPTYPE__ )			\
+		___RCPP_HANDLE_CASE___( LGLSXP  , __FUN__ , __TMP__ , __RCPPTYPE__ )			\
+		___RCPP_HANDLE_CASE___( CPLXSXP , __FUN__ , __TMP__ , __RCPPTYPE__ )			\
+		___RCPP_HANDLE_CASE___( STRSXP  , __FUN__ , __TMP__ , __RCPPTYPE__ )			\
+		___RCPP_HANDLE_CASE___( VECSXP  , __FUN__ , __TMP__ , __RCPPTYPE__ )			\
+		___RCPP_HANDLE_CASE___( EXPRSXP , __FUN__ , __TMP__ , __RCPPTYPE__ )			\
+	default:																			\
+		throw std::range_error( "not a vector" ) ;									\
+	}
+
+#define RCPP_RETURN_VECTOR( _FUN_, _SEXP_ )  ___RCPP_RETURN___( _FUN_, _SEXP_ , Vector ) 
+#define RCPP_RETURN_MATRIX( _FUN_, _SEXP_ )  ___RCPP_RETURN___( _FUN_, _SEXP_ , Matrix )
+
+
+#endif

Modified: pkg/Rcpp/inst/include/Rcpp/macros/macros.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/macros/macros.h	2012-12-10 12:47:38 UTC (rev 4128)
+++ pkg/Rcpp/inst/include/Rcpp/macros/macros.h	2012-12-10 14:20:53 UTC (rev 4129)
@@ -22,10 +22,34 @@
 #ifndef Rcpp_macros_macros_h
 #define Rcpp_macros_macros_h
 
+#define RCPP_DECORATE(__FUN__) __FUN__##__rcpp__wrapper__
+#define RCPP_GET_NAMES(x)       Rf_getAttrib(x, R_NamesSymbol)
+#define RCPP_GET_CLASS(x)       Rf_getAttrib(x, R_ClassSymbol)
+
+#ifndef BEGIN_RCPP
+#define BEGIN_RCPP try{ 
+#endif 
+
+#ifndef VOID_END_RCPP
+#define VOID_END_RCPP } catch( std::exception& __ex__ ){ forward_exception_to_r( __ex__ ) ; } catch(...){ ::Rf_error( "c++ exception (unknown reason)" ) ; }
+#endif
+
+#ifndef END_RCPP
+#define END_RCPP VOID_END_RCPP return R_NilValue;
+#endif
+
+#ifndef END_RCPP_RETURN_ERROR
+#define END_RCPP_RETURN_ERROR } catch( std::exception& __ex__ ){ return exception_to_try_error( __ex__ ) ; } catch(...){ return string_to_try_error( "c++ exception (unknown reason)" ) ; } return R_NilValue;
+#endif
+
 #include <Rcpp/macros/debug.h>
 #include <Rcpp/macros/unroll.h>
+#include <Rcpp/macros/dispatch.h>
+#include <Rcpp/macros/xp.h>
+#include <Rcpp/macros/preprocessor_generated.h>
+#include <Rcpp/macros/traits.h>
+#include <Rcpp/macros/config.hpp>
+#include <Rcpp/macros/cat.hpp>
 
-#define RCPP_GET_NAMES(x)       Rf_getAttrib(x, R_NamesSymbol)
-#define RCPP_GET_CLASS(x)       Rf_getAttrib(x, R_ClassSymbol)
 
 #endif

Copied: pkg/Rcpp/inst/include/Rcpp/macros/preprocessor_generated.h (from rev 4125, pkg/Rcpp/inst/include/Rcpp/preprocessor_generated.h)
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/macros/preprocessor_generated.h	                        (rev 0)
+++ pkg/Rcpp/inst/include/Rcpp/macros/preprocessor_generated.h	2012-12-10 14:20:53 UTC (rev 4129)
@@ -0,0 +1,6651 @@
+// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
+// :tabSize=4:indentSize=4:noTabs=true:folding=explicit:collapseFolds=1:
+// preprocessor_generated.h: Rcpp R/C++ interface class library -- pre processor help
+//
+// Copyright (C) 2010 - 2011 Dirk Eddelbuettel and Romain Francois
+//
+// 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__PREPROCESSOR_GENERATED_H
+#define RCPP__PREPROCESSOR_GENERATED_H
+
+// {{{ RCPP_FUNCTION 
+
+
+#define RCPP_FUNCTION_0(__OUT__,__NAME__)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 0 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)() ;               \
+extern "C" SEXP __NAME__(){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)() ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)()
+
+#define RCPP_FUNCTION_1(__OUT__,__NAME__, ___0)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 1 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0) ;               \
+extern "C" SEXP __NAME__(SEXP x0){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0)
+
+#define RCPP_FUNCTION_2(__OUT__,__NAME__, ___0, ___1)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 2 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1)
+
+#define RCPP_FUNCTION_3(__OUT__,__NAME__, ___0, ___1, ___2)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 3 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2)
+
+#define RCPP_FUNCTION_4(__OUT__,__NAME__, ___0, ___1, ___2, ___3)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 4 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3)
+
+#define RCPP_FUNCTION_5(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 5 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 ), ::Rcpp::internal::converter( x4 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4)
+
+#define RCPP_FUNCTION_6(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4, ___5)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 6 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4, #___5                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 ), ::Rcpp::internal::converter( x4 ), ::Rcpp::internal::converter( x5 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5)
+
+#define RCPP_FUNCTION_7(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4, ___5, ___6)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 7 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4, #___5, #___6                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 ), ::Rcpp::internal::converter( x4 ), ::Rcpp::internal::converter( x5 ), ::Rcpp::internal::converter( x6 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6)
+
+#define RCPP_FUNCTION_8(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 8 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4, #___5, #___6, #___7                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 ), ::Rcpp::internal::converter( x4 ), ::Rcpp::internal::converter( x5 ), ::Rcpp::internal::converter( x6 ), ::Rcpp::internal::converter( x7 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7)
+
+#define RCPP_FUNCTION_9(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 9 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4, #___5, #___6, #___7, #___8                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 ), ::Rcpp::internal::converter( x4 ), ::Rcpp::internal::converter( x5 ), ::Rcpp::internal::converter( x6 ), ::Rcpp::internal::converter( x7 ), ::Rcpp::internal::converter( x8 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8)
+
+#define RCPP_FUNCTION_10(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 10 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4, #___5, #___6, #___7, #___8, #___9                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 ), ::Rcpp::internal::converter( x4 ), ::Rcpp::internal::converter( x5 ), ::Rcpp::internal::converter( x6 ), ::Rcpp::internal::converter( x7 ), ::Rcpp::internal::converter( x8 ), ::Rcpp::internal::converter( x9 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9)
+
+#define RCPP_FUNCTION_11(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 11 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4, #___5, #___6, #___7, #___8, #___9, #___10                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 ), ::Rcpp::internal::converter( x4 ), ::Rcpp::internal::converter( x5 ), ::Rcpp::internal::converter( x6 ), ::Rcpp::internal::converter( x7 ), ::Rcpp::internal::converter( x8 ), ::Rcpp::internal::converter( x9 ), ::Rcpp::internal::converter( x10 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10)
+
+#define RCPP_FUNCTION_12(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10, ___11)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 12 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4, #___5, #___6, #___7, #___8, #___9, #___10, #___11                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10, ___11) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 ), ::Rcpp::internal::converter( x4 ), ::Rcpp::internal::converter( x5 ), ::Rcpp::internal::converter( x6 ), ::Rcpp::internal::converter( x7 ), ::Rcpp::internal::converter( x8 ), ::Rcpp::internal::converter( x9 ), ::Rcpp::internal::converter( x10 ), ::Rcpp::internal::converter( x11 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10, ___11)
+
+#define RCPP_FUNCTION_13(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10, ___11, ___12)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 13 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4, #___5, #___6, #___7, #___8, #___9, #___10, #___11, #___12                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10, ___11, ___12) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12){                       \
+SEXP res = R_NilValue ;                             \
+BEGIN_RCPP                                          \
+res = ::Rcpp::wrap( RCPP_DECORATE(__NAME__)(::Rcpp::internal::converter( x0 ), ::Rcpp::internal::converter( x1 ), ::Rcpp::internal::converter( x2 ), ::Rcpp::internal::converter( x3 ), ::Rcpp::internal::converter( x4 ), ::Rcpp::internal::converter( x5 ), ::Rcpp::internal::converter( x6 ), ::Rcpp::internal::converter( x7 ), ::Rcpp::internal::converter( x8 ), ::Rcpp::internal::converter( x9 ), ::Rcpp::internal::converter( x10 ), ::Rcpp::internal::converter( x11 ), ::Rcpp::internal::converter( x12 )) ) ; \
+return res ;                                        \
+END_RCPP                                            \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10, ___11, ___12)
+
+#define RCPP_FUNCTION_14(__OUT__,__NAME__, ___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10, ___11, ___12, ___13)        \
+extern "C" SEXP RCPP_PP_CAT(__NAME__,__rcpp_info__)( ){         \
+    using Rcpp::_ ;                                 \
+	Rcpp::List info = Rcpp::List::create(           \
+        _["n"]   = 14 ,                             \
+        _["output"] = #__OUT__ ,                       \
+        _["input"]  = Rcpp::CharacterVector::create(   \
+        	#___0, #___1, #___2, #___3, #___4, #___5, #___6, #___7, #___8, #___9, #___10, #___11, #___12, #___13                                       \
+        	) ) ;                                    \
+    info.attr( "class" ) = "rcppfunctioninfo" ;      \
+    return info ;                                   \
+}                                                   \
+__OUT__ RCPP_DECORATE(__NAME__)(___0, ___1, ___2, ___3, ___4, ___5, ___6, ___7, ___8, ___9, ___10, ___11, ___12, ___13) ;               \
+extern "C" SEXP __NAME__(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13){                       \
+SEXP res = R_NilValue ;                             \
[TRUNCATED]

To get the complete diff run:
    svnlook diff /svnroot/rcpp -r 4129


More information about the Rcpp-commits mailing list