1 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*- 2 // 3 // Fast.h: Rcpp R/C++ interface class library -- faster vectors (less interface) 4 // 5 // Copyright (C) 2010 - 2016 Dirk Eddelbuettel and Romain Francois 6 // 7 // This file is part of Rcpp. 8 // 9 // Rcpp is free software: you can redistribute it and/or modify it 10 // under the terms of the GNU General Public License as published by 11 // the Free Software Foundation, either version 2 of the License, or 12 // (at your option) any later version. 13 // 14 // Rcpp is distributed in the hope that it will be useful, but 15 // WITHOUT ANY WARRANTY; without even the implied warranty of 16 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 // GNU General Public License for more details. 18 // 19 // You should have received a copy of the GNU General Public License 20 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>. 21 22 #ifndef Rcpp__Fast_h 23 #define Rcpp__Fast_h 24 25 namespace Rcpp { 26 template <typename VECTOR> 27 class Fast { 28 public: 29 typedef typename VECTOR::stored_type value_type; 30 Fast(VECTOR & v_)31 Fast( /*const*/ VECTOR& v_) : v(v_), data(v_.begin()) {} 32 33 inline value_type& operator[](R_xlen_t i) { return data[i]; } 34 inline const value_type& operator[](R_xlen_t i) const { return data[i]; } size()35 inline R_xlen_t size() const { return v.size(); } 36 37 private: 38 /*const*/ VECTOR& v; 39 value_type* data; 40 41 }; 42 } 43 44 #endif 45