[Rcpp-devel] [Rcpp-commits] r276 - in pkg: R inst src src/Rcpp
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Tue Jan 5 10:06:54 CET 2010
Author: romain
Date: 2010-01-05 10:06:53 +0100 (Tue, 05 Jan 2010)
New Revision: 276
Modified:
pkg/R/RcppLdpath.R
pkg/R/zzz.R
pkg/inst/ChangeLog
pkg/src/Rcpp/Function.h
pkg/src/Rcpp/Language.h
pkg/src/Rcpp/Named.h
pkg/src/Rcpp/Pairlist.h
pkg/src/Rcpp/pairlist.h
pkg/src/RcppCommon.cpp
pkg/src/RcppCommon.h
Log:
improve conditional compiling logic
Modified: pkg/R/RcppLdpath.R
===================================================================
--- pkg/R/RcppLdpath.R 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/R/RcppLdpath.R 2010-01-05 09:06:53 UTC (rev 276)
@@ -37,3 +37,6 @@
CxxFlags <- function() cat(RcppCxxFlags())
LdFlags <- function() cat(RcppLdFlags())
+# capabilities
+RcppCapabilities <- capabilities <- function() .Call("capabilities", PACKAGE = "Rcpp")
+
Modified: pkg/R/zzz.R
===================================================================
--- pkg/R/zzz.R 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/R/zzz.R 2010-01-05 09:06:53 UTC (rev 276)
@@ -1,4 +1,4 @@
-# Copyright (C) 2009 Romain Francois
+# Copyright (C) 2009- 2010 Dirk Eddelbuettel and Romain Francois
#
# This file is part of Rcpp.
#
Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/inst/ChangeLog 2010-01-05 09:06:53 UTC (rev 276)
@@ -1,3 +1,17 @@
+2010-01-05 Romain Francois <francoisromain at free.fr>
+
+ * src/RcppCommon.h: improve the conditional compiling logic
+ with macros HAS_VARIADIC_TEMPLATES and HAS_INIT_LISTS instead
+ of CXX0X. This ensures the package can be compiled with
+ older GCC, with lower functionality
+
+ * src/RcppCommon.{h,cpp}: added a capabilities function that
+ can be used to bring the result of the two above macros to R
+
+ * R/RcppLdPaths.R: added unexported function RcppCapabilities
+ to call the internal capabilities. capabilities is an alias
+ to RcppCapabilities so that we can call Rcpp::capabilities()
+
2010-01-04 Romain Francois <francoisromain at free.fr>
* src/Rcpp/Function.h: new class Rcpp::Function to manage functions
Modified: pkg/src/Rcpp/Function.h
===================================================================
--- pkg/src/Rcpp/Function.h 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/src/Rcpp/Function.h 2010-01-05 09:06:53 UTC (rev 276)
@@ -68,7 +68,7 @@
* a wrap function that takes this type as its parameter
*
*/
-#ifdef CXX0X
+#ifdef HAS_VARIADIC_TEMPLATES
template<typename... Args>
SEXP operator()( const Args&... args) {
Evaluator evaluator( Rf_lcons( m_sexp, pairlist(args...) ) ) ;
Modified: pkg/src/Rcpp/Language.h
===================================================================
--- pkg/src/Rcpp/Language.h 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/src/Rcpp/Language.h 2010-01-05 09:06:53 UTC (rev 276)
@@ -99,7 +99,7 @@
* 0.0 is wrapped as a numeric vector using wrap( const& double )
* ...
*/
-#ifdef CXX0X
+#ifdef HAS_VARIADIC_TEMPLATES
template<typename... Args>
Language( const std::string& symbol, const Args&... args) : RObject() {
/* TODO: should we first allocate and protect the list ?*/
Modified: pkg/src/Rcpp/Named.h
===================================================================
--- pkg/src/Rcpp/Named.h 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/src/Rcpp/Named.h 2010-01-05 09:06:53 UTC (rev 276)
@@ -48,7 +48,7 @@
*/
Named( const std::string& tag ) : object(R_NilValue), tag(tag){} ;
-#ifdef CXX0X
+#ifdef HAS_VARIADIC_TEMPLATES
template<typename T>
Named( const std::string& tag, const T& value ) : object(R_NilValue), tag(tag) {
object = wrap( value ) ;
Modified: pkg/src/Rcpp/Pairlist.h
===================================================================
--- pkg/src/Rcpp/Pairlist.h 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/src/Rcpp/Pairlist.h 2010-01-05 09:06:53 UTC (rev 276)
@@ -72,7 +72,7 @@
* will create the same pair list as
* > pairlist( 10L, "foobar", "rnorm" )
*/
-#ifdef CXX0X
+#ifdef HAS_VARIADIC_TEMPLATES
template<typename... Args>
Pairlist( const Args&... args) : RObject() {
/* TODO: should we first allocate and protect the list ?*/
Modified: pkg/src/Rcpp/pairlist.h
===================================================================
--- pkg/src/Rcpp/pairlist.h 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/src/Rcpp/pairlist.h 2010-01-05 09:06:53 UTC (rev 276)
@@ -29,7 +29,7 @@
namespace Rcpp{
/* recursive packing of the arguments into a list,
use first as the CAR and build the CDR from the remaining args recursively */
-#ifdef CXX0X
+#ifdef HAS_VARIADIC_TEMPLATES
SEXP pairlist() ;
template<typename T, typename... Args>
SEXP pairlist( const T& first, const Args&... args ){
Modified: pkg/src/RcppCommon.cpp
===================================================================
--- pkg/src/RcppCommon.cpp 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/src/RcppCommon.cpp 2010-01-05 09:06:53 UTC (rev 276)
@@ -42,7 +42,7 @@
SEXP test_variadic() {
SEXP res = PROTECT( Rf_allocVector(INTSXP, 5) ) ;
-#ifdef CXX0X
+#ifdef HAS_VARIADIC_TEMPLATES
INTEGER(res)[0] = variadic_length() ;
INTEGER(res)[1] = variadic_length(1) ;
INTEGER(res)[2] = variadic_length(1, 3.3) ;
@@ -60,17 +60,39 @@
}
SEXP canUseCXX0X(){
-#ifdef CXX0X
+#ifdef HAS_VARIADIC_TEMPLATES
return Rf_ScalarLogical( TRUE ) ;
#else
return Rf_ScalarLogical( FALSE ) ;
#endif
}
+SEXP capabilities(){
+ SEXP cap = PROTECT( Rf_allocVector( LGLSXP, 2) ) ;
+ SEXP names = PROTECT( Rf_allocVector( STRSXP, 2 ) ) ;
+#ifdef HAS_VARIADIC_TEMPLATES
+ LOGICAL(cap)[0] = TRUE ;
+#else
+ LOGICAL(cap)[0] = FALSE ;
+#endif
+#ifdef HAS_INIT_LISTS
+ LOGICAL(cap)[1] = TRUE ;
+#else
+ LOGICAL(cap)[1] = FALSE ;
+#endif
+
+ SET_STRING_ELT(names, 0, Rf_mkChar("variadic templates") ) ;
+ SET_STRING_ELT(names, 1, Rf_mkChar("initializer lists") ) ;
+ Rf_setAttrib( cap, R_NamesSymbol, names ) ;
+ UNPROTECT(2) ;
+ return cap ;
+}
+
+
/* this is mainly here so that variadic template errors show up
at compile time */
SEXP test_named(){
-#ifdef CXX0X
+#ifdef HAS_VARIADIC_TEMPLATES
return Rcpp::Language( "foobar", Rcpp::Named("foo", 2 ), 2, Rcpp::Named("bar", 10) ) ;
#else
return R_NilValue ;
Modified: pkg/src/RcppCommon.h
===================================================================
--- pkg/src/RcppCommon.h 2010-01-04 22:51:53 UTC (rev 275)
+++ pkg/src/RcppCommon.h 2010-01-05 09:06:53 UTC (rev 276)
@@ -24,9 +24,15 @@
#ifndef RcppCommon_h
#define RcppCommon_h
-// TODO: need to bring this from the configure step
-// but I have no idea how to do it
-#define CXX0X
+#ifdef __GNUC__
+ #define GCC_VERSION (__GNUC__ * 10000 + __GNUC_MINOR__ * 100 + __GNUC_PATCHLEVEL__)
+ #if GCC_VERSION >= 40300
+ #define HAS_VARIADIC_TEMPLATES
+ #endif
+ #if GCC_VERSION >= 40400
+ #define HAS_INIT_LISTS
+ #endif
+#endif
#include <exception>
#include <iostream>
@@ -66,7 +72,7 @@
RcppExport SEXP initUncaughtExceptionHandler() ;
/* just testing variadic templates */
-#ifdef CXX0X
+#ifdef HAS_VARIADIC_TEMPLATES
template<typename... Args>
int variadic_length( const Args&... args) { return sizeof...(Args) ; }
#endif
@@ -74,5 +80,6 @@
RcppExport SEXP test_variadic() ;
RcppExport SEXP canUseCXX0X() ;
RcppExport SEXP test_named() ;
+RcppExport SEXP capabilities() ;
#endif
_______________________________________________
Rcpp-commits mailing list
Rcpp-commits at lists.r-forge.r-project.org
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-commits
More information about the Rcpp-devel
mailing list