[Rcpp-commits] r2027 - pkg/Rcpp/inst/include/Rcpp/sugar/block
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Aug 16 13:59:17 CEST 2010
Author: romain
Date: 2010-08-16 13:59:17 +0200 (Mon, 16 Aug 2010)
New Revision: 2027
Added:
pkg/Rcpp/inst/include/Rcpp/sugar/block/SugarBlock_3.h
Modified:
pkg/Rcpp/inst/include/Rcpp/sugar/block/block.h
Log:
preliminary version of SugarBlock 3 (only the VVV case so far)
Added: pkg/Rcpp/inst/include/Rcpp/sugar/block/SugarBlock_3.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/sugar/block/SugarBlock_3.h (rev 0)
+++ pkg/Rcpp/inst/include/Rcpp/sugar/block/SugarBlock_3.h 2010-08-16 11:59:17 UTC (rev 2027)
@@ -0,0 +1,122 @@
+// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
+//
+// SugarBlock.h: Rcpp R/C++ interface class library -- sugar functions
+//
+// Copyright (C) 2010 Dirk Eddelbuettel and Romain Francois
+//
+// This file is part of Rcpp.
+//
+// Rcpp is free software: you can redistribute it and/or modify it
+// under the terms of the GNU General Public License as published by
+// the Free Software Foundation, either version 2 of the License, or
+// (at your option) any later version.
+//
+// Rcpp is distributed in the hope that it will be useful, but
+// WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with Rcpp. If not, see <http://www.gnu.org/licenses/>.
+
+#ifndef RCPP_SUGAR_BLOCK_3_H
+#define RCPP_SUGAR_BLOCK_3_H
+
+namespace Rcpp{
+namespace sugar{
+
+template <
+ bool NA, typename OUT,
+ typename U1, typename T1,
+ typename U2, typename T2,
+ typename U3, typename T3
+>
+class SugarBlock_3_VVV : public Rcpp::VectorBase<
+ Rcpp::traits::r_sexptype_traits<OUT>::rtype ,
+ NA,
+ SugarBlock_3_VVV<NA,OUT,U1,T1,U2,T2,U3,T3> > {
+public:
+ typedef OUT (*FunPtr)(U1,U2,U3) ;
+ SugarBlock_3_VVV( FunPtr ptr_, const T1 & x_, const T2& y_, const T3& z_ ) :
+ ptr(ptr_), x(x_), y(y_), z(z_) {
+ // TODO: size checks, recycling, etc ...
+ }
+ inline OUT operator[]( int i) const {
+ return ptr( x[i], y[i], z[i] ) ;
+ }
+ inline int size() const { return x.size() ; }
+
+private:
+ FunPtr ptr ;
+ const T1& x ;
+ const T2& y ;
+ const T2& z ;
+};
+
+
+// template <bool NA, typename OUT, typename U1, typename T1, typename U2>
+// class SugarBlock_3__VP : public Rcpp::VectorBase< Rcpp::traits::r_sexptype_traits<OUT>::rtype , NA, SugarBlock_3__VP<NA,OUT,U1,T1,U2> > {
+// public:
+// typedef OUT (*FunPtr)(U1,U2) ;
+// SugarBlock_3__VP( FunPtr ptr_, const T1 & x_, U2 u2 ) :
+// ptr(ptr_), x(x_), y(u2){}
+//
+// inline OUT operator[]( int i) const {
+// return ptr( x[i], y ) ;
+// }
+// inline int size() const { return x.size() ; }
+//
+// private:
+// FunPtr ptr ;
+// const T1& x ;
+// U2 y ;
+// };
+//
+// template <bool NA, typename OUT, typename U1, typename U2, typename T2>
+// class SugarBlock_3__PV : public Rcpp::VectorBase< Rcpp::traits::r_sexptype_traits<OUT>::rtype , NA, SugarBlock_3__PV<NA,OUT,U1,U2,T2> > {
+// public:
+// typedef OUT (*FunPtr)(U1,U2) ;
+// SugarBlock_3__PV( FunPtr ptr_, U1 u1, const T2& y_ ) :
+// ptr(ptr_), x(u1), y(y_){}
+//
+// inline OUT operator[]( int i) const {
+// return ptr( x, y[i] ) ;
+// }
+// inline int size() const { return y.size() ; }
+//
+// private:
+// FunPtr ptr ;
+// U1 x ;
+// const T2& y ;
+// };
+
+
+} // sugar
+} // Rcpp
+
+#define SUGAR_BLOCK_3(__NAME__,__SYMBOL__) \
+namespace Rcpp{ \
+ template <bool T1_NA, typename T1, bool T2_NA, typename T2, bool T3_NA, typename T3> \
+ inline sugar::SugarBlock_3__VVV< \
+ (T1_NA||T2_NA||T3_NA) ,double, \
+ double,T1, \
+ double,T2 \
+ double,T3 \
+ > \
+ __NAME__( \
+ const VectorBase<REALSXP,T1_NA,T1>& x1, \
+ const VectorBase<REALSXP,T2_NA,T2>& x2, \
+ const VectorBase<REALSXP,T3_NA,T3>& x3 \
+ ){ \
+ return sugar::SugarBlock_3__VVV< \
+ (T1_NA||T2_NA||T3_NA) , double, \
+ double,T1, \
+ double,T2, \
+ double,T3, \
+ >( \
+ __SYMBOL__ , x1, x2, x \
+ ) ; \
+ } \
+}
+
+#endif
Modified: pkg/Rcpp/inst/include/Rcpp/sugar/block/block.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/sugar/block/block.h 2010-08-16 11:41:05 UTC (rev 2026)
+++ pkg/Rcpp/inst/include/Rcpp/sugar/block/block.h 2010-08-16 11:59:17 UTC (rev 2027)
@@ -23,6 +23,9 @@
#define Rcpp__sugar__block__block_h
#include <Rcpp/sugar/block/SugarBlock_1.h>
+#include <Rcpp/sugar/block/SugarBlock_2.h>
+#include <Rcpp/sugar/block/SugarBlock_3.h>
+
#include <Rcpp/sugar/block/SugarMath.h>
#endif
More information about the Rcpp-commits
mailing list