[Rcpp-commits] r1080 - pkg/Rcpp/inst/include/Rcpp

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

Author: romain
Date: 2010-04-19 01:27:01 +0200 (Mon, 19 Apr 2010)
New Revision: 1080

Modified:
   pkg/Rcpp/inst/include/Rcpp/preprocessor.h
Log:
added macros RCPP_WRAPPER_* (will explain later)

Modified: pkg/Rcpp/inst/include/Rcpp/preprocessor.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/preprocessor.h	2010-04-18 22:11:43 UTC (rev 1079)
+++ pkg/Rcpp/inst/include/Rcpp/preprocessor.h	2010-04-18 23:27:01 UTC (rev 1080)
@@ -24,13 +24,13 @@
 
 #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){ return  __NAME__(%s) ; }', 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 = ", " ) 
-	)
-})
+// res <- sapply( 0:65, function(i){
+// 	txt <- sprintf( '
+// 	#define RCPP_WRAPPER_%d(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(%s){ return  __NAME__(%s) ; }', 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 = ", " ) 
+// 	)
+// })
    
 
 #define RCPP_WRAPPER_0(__NAME__) extern "C" SEXP RCPP_DECORATE(__NAME__)(){ return  __NAME__() ; }