[Rcpp-commits] r1401 - in pkg/Rcpp/inst/include/Rcpp: . module

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

Author: romain
Date: 2010-06-02 15:41:09 +0200 (Wed, 02 Jun 2010)
New Revision: 1401

Modified:
   pkg/Rcpp/inst/include/Rcpp/Module.h
   pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppFunction.h
   pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppMethod.h
   pkg/Rcpp/inst/include/Rcpp/module/Module_generated_Pointer_CppMethod.h
Log:
workarounds to avoid some compiler warnoings

Modified: pkg/Rcpp/inst/include/Rcpp/Module.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/Module.h	2010-06-02 13:40:54 UTC (rev 1400)
+++ pkg/Rcpp/inst/include/Rcpp/Module.h	2010-06-02 13:41:09 UTC (rev 1401)
@@ -33,7 +33,9 @@
 class CppFunction {
 	public:
 		CppFunction() {}
-		virtual SEXP operator()(SEXP* args) { return R_NilValue ; } ;
+		virtual SEXP operator()(SEXP*) { 
+			return R_NilValue ;
+		}
 		virtual ~CppFunction(){} ;
 		virtual int nargs(){ return 0 ; }
 		virtual bool is_void(){ return false ; }
@@ -51,9 +53,13 @@
 	class_Base() :name(){} ;
 	class_Base(const char* name_) : name(name_){} ;
 	
-	virtual bool has_method( const std::string& m ){ return false ; }
-	virtual SEXP newInstance(SEXP *args, int nargs){  return R_NilValue; }
-	virtual SEXP invoke( const std::string& method_name, SEXP obj, SEXP *args, int nargs ){ 
+	virtual bool has_method( const std::string& ){ 
+		return false ; 
+	}
+	virtual SEXP newInstance(SEXP *, int){ 
+		return R_NilValue;
+	}
+	virtual SEXP invoke( const std::string&, SEXP, SEXP *, int ){ 
 		return R_NilValue ;
 	}
 	virtual Rcpp::CharacterVector method_names(){ return Rcpp::CharacterVector(0) ; }

Modified: pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppFunction.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppFunction.h	2010-06-02 13:40:54 UTC (rev 1400)
+++ pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppFunction.h	2010-06-02 13:41:09 UTC (rev 1401)
@@ -26,7 +26,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() ) ;
 		}
 		
@@ -42,7 +42,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: pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppMethod.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppMethod.h	2010-06-02 13:40:54 UTC (rev 1400)
+++ pkg/Rcpp/inst/include/Rcpp/module/Module_generated_CppMethod.h	2010-06-02 13:41:09 UTC (rev 1401)
@@ -27,7 +27,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 ; }
@@ -41,7 +41,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 ;
 		}
@@ -56,7 +56,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 ; }
@@ -70,7 +70,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: pkg/Rcpp/inst/include/Rcpp/module/Module_generated_Pointer_CppMethod.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/module/Module_generated_Pointer_CppMethod.h	2010-06-02 13:40:54 UTC (rev 1400)
+++ pkg/Rcpp/inst/include/Rcpp/module/Module_generated_Pointer_CppMethod.h	2010-06-02 13:41:09 UTC (rev 1401)
@@ -28,7 +28,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 ; }
@@ -42,7 +42,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 ;
 		}