[Rcpp-commits] r1299 - pkg/Rcpp/inst/include/Rcpp
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Thu May 20 20:31:33 CEST 2010
Author: romain
Date: 2010-05-20 20:31:32 +0200 (Thu, 20 May 2010)
New Revision: 1299
Modified:
pkg/Rcpp/inst/include/Rcpp/preprocessor.h
Log:
space around the <> in macros
Modified: pkg/Rcpp/inst/include/Rcpp/preprocessor.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/preprocessor.h 2010-05-20 17:18:35 UTC (rev 1298)
+++ pkg/Rcpp/inst/include/Rcpp/preprocessor.h 2010-05-20 18:31:32 UTC (rev 1299)
@@ -72,7 +72,7 @@
extern "C" SEXP __NAME__( SEXP xp ){ \
SEXP res = R_NilValue ; \
BEGIN_RCPP \
- ::Rcpp::XPtr<__CLASS__> ptr(xp) ; \
+ ::Rcpp::XPtr< __CLASS__ > ptr(xp) ; \
res = ::Rcpp::wrap( ptr->__FIELD__ ) ; \
return res ; \
END_RCPP \
@@ -90,7 +90,7 @@
} \
extern "C" SEXP __NAME__( SEXP xp, SEXP value ){ \
BEGIN_RCPP \
- ::Rcpp::XPtr<__CLASS__> ptr(xp) ; \
+ ::Rcpp::XPtr< __CLASS__ > ptr(xp) ; \
ptr->__FIELD__ = ::Rcpp::internal::converter(value) ; \
END_RCPP \
}
@@ -102,16 +102,16 @@
#define RCPP_TRAITS(__CLASS__,__SEXPTYPE__) \
namespace Rcpp{ namespace traits { \
-template<> struct r_type_traits<__CLASS__>{ \
+template<> struct r_type_traits< __CLASS__ >{ \
typedef r_type_primitive_tag r_category ; \
} ; \
template<> struct r_type_traits< std::pair< std::string , __CLASS__ > >{ \
typedef r_type_pairstring_primitive_tag r_category ; \
} ; \
-template<> struct wrap_type_traits<__CLASS__>{ \
+template<> struct wrap_type_traits< __CLASS__ >{ \
typedef wrap_type_primitive_tag wrap_category ; \
} ; \
-template<> struct r_sexptype_traits<__CLASS__>{ \
+template<> struct r_sexptype_traits< __CLASS__ >{ \
enum{ rtype = __SEXPTYPE__ } ; \
} ; \
} }
More information about the Rcpp-commits
mailing list