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

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Sun May 16 18:18:26 CEST 2010


Author: edd
Date: 2010-05-16 18:18:25 +0200 (Sun, 16 May 2010)
New Revision: 1247

Modified:
   pkg/Rcpp/inst/include/RcppCommon.h
Log:
only white-space changes on indentation


Modified: pkg/Rcpp/inst/include/RcppCommon.h
===================================================================
--- pkg/Rcpp/inst/include/RcppCommon.h	2010-05-14 23:30:44 UTC (rev 1246)
+++ pkg/Rcpp/inst/include/RcppCommon.h	2010-05-16 16:18:25 UTC (rev 1247)
@@ -1,4 +1,4 @@
-// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
+// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 4 -*-
 //
 // RcppCommon.h: Rcpp R/C++ interface class library -- common include and defines statements
 //
@@ -30,16 +30,18 @@
  * \brief Rcpp API
  */
 namespace Rcpp{
-/**
- * \brief traits used to dispatch wrap
- */
-namespace traits{
-} // traits
-/**
- * \brief internal implementation details
- */
-namespace internal{	
-} // internal 
+
+	/**
+	 * \brief traits used to dispatch wrap
+	 */
+	namespace traits{
+	} // traits
+
+	/**
+	 * \brief internal implementation details
+	 */
+	namespace internal{	
+	} // internal 
 } // Rcpp
 
 #ifdef __GNUC__
@@ -113,13 +115,13 @@
 
 
 namespace Rcpp{
-namespace internal{
-template <typename T> int rcpp_call_test(T t){
-	return T::r_type::value ;
+	namespace internal{
+		template <typename T> int rcpp_call_test(T t){
+			return T::r_type::value ;
+		}
+		int rcpp_call_test_(SEXP) ;
+	}
 }
-int rcpp_call_test_(SEXP) ;
-}
-}
 
 extern "C" SEXP rcpp_call_test(SEXP x) ;
 
@@ -150,22 +152,22 @@
 #include <Rcpp/exceptions.h>
 
 namespace Rcpp{
-/* internal namespace for things not intended to be used by the 
-   user */
-namespace internal{	
+	/* internal namespace for things not intended to be used by the 
+	   user */
+	namespace internal{	
 	
-	/* defined in Evaluator.cpp */
-	SEXP convert_using_rfunction(SEXP x, const char* const fun) throw(::Rcpp::not_compatible) ;
+		/* defined in Evaluator.cpp */
+		SEXP convert_using_rfunction(SEXP x, const char* const fun) throw(::Rcpp::not_compatible) ;
 	
-	SEXP try_catch( SEXP expr, SEXP env ) throw(::Rcpp::eval_error) ;
-	SEXP try_catch( SEXP expr ) throw(::Rcpp::eval_error) ;
+		SEXP try_catch( SEXP expr, SEXP env ) throw(::Rcpp::eval_error) ;
+		SEXP try_catch( SEXP expr ) throw(::Rcpp::eval_error) ;
 	
-} // namespace internal 
+	} // namespace internal 
 
-inline bool Rboolean_to_bool( int x){ return x == TRUE ; }
-inline bool int_to_bool(int x){ return x != 0 ; }
-inline bool double_to_bool(double x){ return x != 0.0 ; }
-inline bool Rbyte_to_bool(Rbyte x){ return x != static_cast<Rbyte>(0) ; }
+	inline bool Rboolean_to_bool( int x){ return x == TRUE ; }
+	inline bool int_to_bool(int x){ return x != 0 ; }
+	inline bool double_to_bool(double x){ return x != 0.0 ; }
+	inline bool Rbyte_to_bool(Rbyte x){ return x != static_cast<Rbyte>(0) ; }
 
 } // namespace Rcpp
 



More information about the Rcpp-commits mailing list