[Rcpp-commits] r1400 - scripts

[noreply at r-forge.r-project.org]

Author: romain
Date: 2010-06-02 15:40:54 +0200 (Wed, 02 Jun 2010)
New Revision: 1400

Modified:
   scripts/generator_Module_CppFunction.R
   scripts/generator_Module_CppMethod.R
   scripts/generator_Module_PointerCppMethod.R
Log:
workarounds to avoid some compiler warnoings

Modified: scripts/generator_Module_CppFunction.R
===================================================================
--- scripts/generator_Module_CppFunction.R	2010-06-02 12:32:34 UTC (rev 1399)
+++ scripts/generator_Module_CppFunction.R	2010-06-02 13:40:54 UTC (rev 1400)
@@ -87,7 +87,7 @@
 class CppFunction0 : public CppFunction {
 	public:
 		CppFunction0(OUT (*fun)(void) ) : CppFunction(), ptr_fun(fun){}
-		SEXP operator()(SEXP* args) throw(std::range_error) {
+		SEXP operator()(SEXP*) throw(std::range_error) {
 			return Rcpp::wrap( ptr_fun() ) ;
 		}
 		
@@ -103,7 +103,7 @@
 	public:
 		CppFunction0(void (*fun)(void) ) : CppFunction(), ptr_fun(fun){} ;
 		
-		SEXP operator()(SEXP* args) throw(std::exception) {
+		SEXP operator()(SEXP*) throw(std::exception) {
 			ptr_fun() ;
 			return R_NilValue ;
 		}

Modified: scripts/generator_Module_CppMethod.R
===================================================================
--- scripts/generator_Module_CppMethod.R	2010-06-02 12:32:34 UTC (rev 1399)
+++ scripts/generator_Module_CppMethod.R	2010-06-02 13:40:54 UTC (rev 1400)
@@ -143,7 +143,7 @@
 		typedef OUT (Class::*Method)(void) ;
 		typedef CppMethod<Class> method_class ;
 		CppMethod0( Method m) : method_class(), met(m){} 
-		SEXP operator()( Class* object, SEXP* args){
+		SEXP operator()( Class* object, SEXP*){
 			return Rcpp::wrap( (object->*met)( ) ) ;
 		}
 		inline int nargs(){ return 0 ; }
@@ -157,7 +157,7 @@
 		typedef void (Class::*Method)(void) ;
 		typedef CppMethod<Class> method_class ;
 		CppMethod0( Method m) : method_class(), met(m){} 
-		SEXP operator()( Class* object, SEXP* args){
+		SEXP operator()( Class* object, SEXP* ){
 			(object->*met)( ) ;
 			return R_NilValue ;
 		}
@@ -172,7 +172,7 @@
 		typedef OUT (Class::*Method)(void) const ;
 		typedef CppMethod<Class> method_class ;
 		const_CppMethod0( Method m) : method_class(), met(m){} 
-		SEXP operator()( Class* object, SEXP* args){
+		SEXP operator()( Class* object, SEXP* ){
 			return Rcpp::wrap( (object->*met)( ) ) ;
 		}
 		inline int nargs(){ return 0 ; }
@@ -186,7 +186,7 @@
 		typedef void (Class::*Method)(void) const ;
 		typedef CppMethod<Class> method_class ;
 		const_CppMethod0( Method m) : method_class(), met(m){} 
-		SEXP operator()( Class* object, SEXP* args){
+		SEXP operator()( Class* object, SEXP* ){
 			(object->*met)( ) ;
 			return R_NilValue ;
 		}

Modified: scripts/generator_Module_PointerCppMethod.R
===================================================================
--- scripts/generator_Module_PointerCppMethod.R	2010-06-02 12:32:34 UTC (rev 1399)
+++ scripts/generator_Module_PointerCppMethod.R	2010-06-02 13:40:54 UTC (rev 1400)
@@ -95,7 +95,7 @@
 		typedef OUT (*Method)(Class*) ;
 		typedef CppMethod<Class> method_class ;
 		Pointer_CppMethod0( Method m) : method_class(), met(m){} 
-		SEXP operator()( Class* object, SEXP* args){
+		SEXP operator()( Class* object, SEXP* ){
 			return Rcpp::wrap( met(object) ) ;
 		}
 		inline int nargs(){ return 0 ; }
@@ -109,7 +109,7 @@
 		typedef void (*Method)(Class*) ;
 		typedef CppMethod<Class> method_class ;
 		Pointer_CppMethod0( Method m) : method_class(), met(m){} 
-		SEXP operator()( Class* object, SEXP* args){
+		SEXP operator()( Class* object, SEXP* ){
 			met( object ) ;
 			return R_NilValue ;
 		}