[Rcpp-commits] r4541 - in pkg/Rcpp: . inst/include/Rcpp/module inst/unitTests
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sat Sep 28 10:37:35 CEST 2013
Author: romain
Date: 2013-09-28 10:37:34 +0200 (Sat, 28 Sep 2013)
New Revision: 4541
Modified:
pkg/Rcpp/ChangeLog
pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppMethod.h
pkg/Rcpp/inst/include/Rcpp/module/Module_generated_Pointer_CppMethod.h
pkg/Rcpp/inst/unitTests/runit.Module.R
Log:
flexible semantics for method parameters
Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog 2013-09-28 06:22:57 UTC (rev 4540)
+++ pkg/Rcpp/ChangeLog 2013-09-28 08:37:34 UTC (rev 4541)
@@ -1,8 +1,11 @@
2013-09-28 Romain Francois <romain at r-enthusiasts.com>
- * inst/unitTests/cpp/Module.cpp: Making sure Rcp is not released before this
- is fixed
-
+ * include/Rcpp/module/Module_generated_CppMethod.h : more code bloat to handle
+ flexible semantics for passing parameters in methods
+ * include/Rcpp/module/Module_generated_Pointer_CppMethod.h : same
+ * inst/unitTests/cpp/Module.cpp: testing the above
+ * unitTests/runit.Module.R: testing
+
2013-09-27 Dirk Eddelbuettel <edd at debian.org>
* vignettes/Rcpp-unitTests.Rnw: Re-activated vignette
Modified: pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppMethod.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppMethod.h 2013-09-28 06:22:57 UTC (rev 4540)
+++ pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppMethod.h 2013-09-28 08:37:34 UTC (rev 4541)
@@ -2,7 +2,7 @@
//
// Module_generated_CppMethod.h: Rcpp R/C++ interface class library -- Rcpp modules
//
-// Copyright (C) 2010-2012 Dirk Eddelbuettel and Romain Francois
+// Copyright (C) 2010-2013 Dirk Eddelbuettel and Romain Francois
//
// This file is part of Rcpp.
//
@@ -106,7 +106,8 @@
CppMethod1(Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0 ) ) ;
}
inline int nargs(){ return 1 ; }
inline bool is_void(){ return false ; }
@@ -124,7 +125,8 @@
CppMethod1( Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+ (object->*met)( x0 ) ;
return R_NilValue ;
}
inline int nargs(){ return 1 ; }
@@ -147,7 +149,8 @@
const_CppMethod1(Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0 ) ) ;
}
inline int nargs(){ return 1 ; }
inline bool is_void(){ return false ; }
@@ -165,7 +168,8 @@
const_CppMethod1( Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+ (object->*met)( x0 ) ;
return R_NilValue ;
}
inline int nargs(){ return 1 ; }
@@ -188,7 +192,9 @@
CppMethod2(Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1 ) ) ;
}
inline int nargs(){ return 2 ; }
inline bool is_void(){ return false ; }
@@ -206,7 +212,9 @@
CppMethod2( Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+ (object->*met)( x0, x1 ) ;
return R_NilValue ;
}
inline int nargs(){ return 2 ; }
@@ -229,7 +237,9 @@
const_CppMethod2(Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1 ) ) ;
}
inline int nargs(){ return 2 ; }
inline bool is_void(){ return false ; }
@@ -247,7 +257,9 @@
const_CppMethod2( Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+ (object->*met)( x0, x1 ) ;
return R_NilValue ;
}
inline int nargs(){ return 2 ; }
@@ -270,7 +282,10 @@
CppMethod3(Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2 ) ) ;
}
inline int nargs(){ return 3 ; }
inline bool is_void(){ return false ; }
@@ -288,7 +303,10 @@
CppMethod3( Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+ (object->*met)( x0, x1, x2 ) ;
return R_NilValue ;
}
inline int nargs(){ return 3 ; }
@@ -311,7 +329,10 @@
const_CppMethod3(Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2 ) ) ;
}
inline int nargs(){ return 3 ; }
inline bool is_void(){ return false ; }
@@ -329,7 +350,10 @@
const_CppMethod3( Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+ (object->*met)( x0, x1, x2 ) ;
return R_NilValue ;
}
inline int nargs(){ return 3 ; }
@@ -352,7 +376,11 @@
CppMethod4(Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3 ) ) ;
}
inline int nargs(){ return 4 ; }
inline bool is_void(){ return false ; }
@@ -370,7 +398,11 @@
CppMethod4( Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+ (object->*met)( x0, x1, x2, x3 ) ;
return R_NilValue ;
}
inline int nargs(){ return 4 ; }
@@ -393,7 +425,11 @@
const_CppMethod4(Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3 ) ) ;
}
inline int nargs(){ return 4 ; }
inline bool is_void(){ return false ; }
@@ -411,7 +447,11 @@
const_CppMethod4( Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+ (object->*met)( x0, x1, x2, x3 ) ;
return R_NilValue ;
}
inline int nargs(){ return 4 ; }
@@ -434,7 +474,12 @@
CppMethod5(Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3, x4 ) ) ;
}
inline int nargs(){ return 5 ; }
inline bool is_void(){ return false ; }
@@ -452,7 +497,12 @@
CppMethod5( Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+ (object->*met)( x0, x1, x2, x3, x4 ) ;
return R_NilValue ;
}
inline int nargs(){ return 5 ; }
@@ -475,7 +525,12 @@
const_CppMethod5(Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3, x4 ) ) ;
}
inline int nargs(){ return 5 ; }
inline bool is_void(){ return false ; }
@@ -493,7 +548,12 @@
const_CppMethod5( Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+ (object->*met)( x0, x1, x2, x3, x4 ) ;
return R_NilValue ;
}
inline int nargs(){ return 5 ; }
@@ -516,7 +576,13 @@
CppMethod6(Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3, x4, x5 ) ) ;
}
inline int nargs(){ return 6 ; }
inline bool is_void(){ return false ; }
@@ -534,7 +600,13 @@
CppMethod6( Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+ (object->*met)( x0, x1, x2, x3, x4, x5 ) ;
return R_NilValue ;
}
inline int nargs(){ return 6 ; }
@@ -557,7 +629,13 @@
const_CppMethod6(Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3, x4, x5 ) ) ;
}
inline int nargs(){ return 6 ; }
inline bool is_void(){ return false ; }
@@ -575,7 +653,13 @@
const_CppMethod6( Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+ (object->*met)( x0, x1, x2, x3, x4, x5 ) ;
return R_NilValue ;
}
inline int nargs(){ return 6 ; }
@@ -598,7 +682,14 @@
CppMethod7(Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U6 >::type >( args[6] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+typename Rcpp::traits::input_parameter< U6 >::type x6( args[6] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3, x4, x5, x6 ) ) ;
}
inline int nargs(){ return 7 ; }
inline bool is_void(){ return false ; }
@@ -616,7 +707,14 @@
CppMethod7( Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U6 >::type >( args[6] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+typename Rcpp::traits::input_parameter< U6 >::type x6( args[6] ) ;
+ (object->*met)( x0, x1, x2, x3, x4, x5, x6 ) ;
return R_NilValue ;
}
inline int nargs(){ return 7 ; }
@@ -639,7 +737,14 @@
const_CppMethod7(Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U6 >::type >( args[6] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+typename Rcpp::traits::input_parameter< U6 >::type x6( args[6] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3, x4, x5, x6 ) ) ;
}
inline int nargs(){ return 7 ; }
inline bool is_void(){ return false ; }
@@ -657,7 +762,14 @@
const_CppMethod7( Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U6 >::type >( args[6] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+typename Rcpp::traits::input_parameter< U6 >::type x6( args[6] ) ;
+ (object->*met)( x0, x1, x2, x3, x4, x5, x6 ) ;
return R_NilValue ;
}
inline int nargs(){ return 7 ; }
@@ -680,7 +792,15 @@
CppMethod8(Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U6 >::type >( args[6] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U7 >::type >( args[7] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+typename Rcpp::traits::input_parameter< U6 >::type x6( args[6] ) ;
+typename Rcpp::traits::input_parameter< U7 >::type x7( args[7] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3, x4, x5, x6, x7 ) ) ;
}
inline int nargs(){ return 8 ; }
inline bool is_void(){ return false ; }
@@ -698,7 +818,15 @@
CppMethod8( Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U6 >::type >( args[6] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U7 >::type >( args[7] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+typename Rcpp::traits::input_parameter< U6 >::type x6( args[6] ) ;
+typename Rcpp::traits::input_parameter< U7 >::type x7( args[7] ) ;
+ (object->*met)( x0, x1, x2, x3, x4, x5, x6, x7 ) ;
return R_NilValue ;
}
inline int nargs(){ return 8 ; }
@@ -721,7 +849,15 @@
const_CppMethod8(Method m) : method_class(), met(m){}
SEXP operator()( Class* object, SEXP* args){
- return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U6 >::type >( args[6] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U7 >::type >( args[7] ) ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
+typename Rcpp::traits::input_parameter< U3 >::type x3( args[3] ) ;
+typename Rcpp::traits::input_parameter< U4 >::type x4( args[4] ) ;
+typename Rcpp::traits::input_parameter< U5 >::type x5( args[5] ) ;
+typename Rcpp::traits::input_parameter< U6 >::type x6( args[6] ) ;
+typename Rcpp::traits::input_parameter< U7 >::type x7( args[7] ) ;
+ return Rcpp::module_wrap<CLEANED_OUT>( (object->*met)( x0, x1, x2, x3, x4, x5, x6, x7 ) ) ;
}
inline int nargs(){ return 8 ; }
inline bool is_void(){ return false ; }
@@ -739,7 +875,15 @@
const_CppMethod8( Method m) : method_class(), met(m) {}
SEXP operator()( Class* object, SEXP* args){
- (object->*met)( Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U0 >::type >( args[0] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U1 >::type >( args[1] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U2 >::type >( args[2] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U3 >::type >( args[3] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U4 >::type >( args[4] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U5 >::type >( args[5] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U6 >::type >( args[6] ), Rcpp::as< typename Rcpp::traits::remove_const_and_reference< U7 >::type >( args[7] ) ) ;
+ typename Rcpp::traits::input_parameter< U0 >::type x0( args[0] ) ;
+typename Rcpp::traits::input_parameter< U1 >::type x1( args[1] ) ;
+typename Rcpp::traits::input_parameter< U2 >::type x2( args[2] ) ;
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/rcpp -r 4541
More information about the Rcpp-commits
mailing list