[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