[Rcpp-commits] r1084 - pkg/Rcpp/inst/include/Rcpp scripts
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Apr 19 22:00:11 CEST 2010
Author: romain
Date: 2010-04-19 22:00:11 +0200 (Mon, 19 Apr 2010)
New Revision: 1084
Added:
pkg/Rcpp/inst/include/Rcpp/preprocessor_generated.h
scripts/preprocessor.R
Modified:
pkg/Rcpp/inst/include/Rcpp/preprocessor.h
Log:
split the generated preprocessor code from the rest
Modified: pkg/Rcpp/inst/include/Rcpp/preprocessor.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/preprocessor.h 2010-04-19 11:11:52 UTC (rev 1083)
+++ pkg/Rcpp/inst/include/Rcpp/preprocessor.h 2010-04-19 20:00:11 UTC (rev 1084)
@@ -24,683 +24,28 @@
#define RCPP_DECORATE(__FUN__) __FUN__##__rcpp__wrapper__
-// res <- sapply( 0:65, function(i){
-// txt <- sprintf( '
-// #define RCPP_WRAPPER_%d(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(%s){ \\
-// SEXP res = R_NilValue ; \\
-// try{ \\
-// res = __NAME__(%s) ; \\
-// } catch( std::exception& __ex__ ){ \\
-// forward_exception_to_r( __ex__ ) ; \\
-// } \\
-// return res ; \\
-// }', i,
-// if( i == 0 ) "" else paste( sprintf( "SEXP x%d", 0:(i-1) ), collapse = ", " ),
-// if( i == 0 ) "" else paste( sprintf( "x%d", 0:(i-1) ), collapse = ", " )
-// )
-// })
-
+namespace Rcpp{
+namespace internal{
+ class converter {
+ public:
+ converter( ) : x(R_NilValue){} ;
+ converter( SEXP x_) : x(x_){} ;
+ converter( const converter& other){
+ x = other.x ;
+ return *this ;
+ }
+ ~converter(){}
+
+ template <typename T> operator T(){
+ return ::Rcpp::as<T>( x ) ;
+ }
+ private:
+ SEXP x ;
+
+ } ;
+} // namespace internal
+} // namespace Rcpp
+#include <Rcpp/preprocessor_generated.h>
-
-#define RCPP_WRAPPER_0(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__() ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_1(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(SEXP x0){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_2(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(SEXP x0, SEXP x1){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_3(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(SEXP x0, SEXP x1, SEXP x2){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_4(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(SEXP x0, SEXP x1, SEXP x2, SEXP x3){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_5(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_6(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_7(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_8(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_9(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_10(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_11(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_12(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_13(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_14(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_15(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_16(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_17(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_18(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_19(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_20(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_21(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_22(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_23(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_24(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_25(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_26(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24, SEXP x25){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_27(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24, SEXP x25, SEXP x26){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_28(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24, SEXP x25, SEXP x26, SEXP x27){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_29(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24, SEXP x25, SEXP x26, SEXP x27, SEXP x28){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_30(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24, SEXP x25, SEXP x26, SEXP x27, SEXP x28, SEXP x29){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_31(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24, SEXP x25, SEXP x26, SEXP x27, SEXP x28, SEXP x29, SEXP x30){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_32(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24, SEXP x25, SEXP x26, SEXP x27, SEXP x28, SEXP x29, SEXP x30, SEXP x31){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_33(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24, SEXP x25, SEXP x26, SEXP x27, SEXP x28, SEXP x29, SEXP x30, SEXP x31, SEXP x32){ \
-SEXP res = R_NilValue ; \
-try{ \
-res = __NAME__(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32) ; \
-} catch( std::exception& __ex__ ){ \
-forward_exception_to_r( __ex__ ) ; \
-} \
-return res ; \
-}
-
-#define RCPP_WRAPPER_34(__NAME__) extern "C" SEXP RCPP_DECORATE(__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 x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19, SEXP x20, SEXP x21, SEXP x22, SEXP x23, SEXP x24, SEXP x25, SEXP x26, SEXP x27, SEXP x28, SEXP x29, SEXP x30, SEXP x31, SEXP x32, SEXP x33){ \
-SEXP res = R_NilValue ; \
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/rcpp -r 1084
More information about the Rcpp-commits
mailing list