|
Rcpp Version 0.9.10
|
00001 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*- 00002 // 00003 // clone.h: Rcpp R/C++ interface class library -- clone RObject's 00004 // 00005 // Copyright (C) 2010 - 2011 Dirk Eddelbuettel and Romain Francois 00006 // 00007 // This file is part of Rcpp. 00008 // 00009 // Rcpp is free software: you can redistribute it and/or modify it 00010 // under the terms of the GNU General Public License as published by 00011 // the Free Software Foundation, either version 2 of the License, or 00012 // (at your option) any later version. 00013 // 00014 // Rcpp is distributed in the hope that it will be useful, but 00015 // WITHOUT ANY WARRANTY; without even the implied warranty of 00016 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00017 // GNU General Public License for more details. 00018 // 00019 // You should have received a copy of the GNU General Public License 00020 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>. 00021 00022 #ifndef Rcpp__StringTransformer_h 00023 #define Rcpp__StringTransformer_h 00024 00025 #include <RcppCommon.h> 00026 00027 namespace Rcpp{ 00028 00029 template <typename UnaryOperator> 00030 class StringTransformer : public std::unary_function<const char*, const char*>{ 00031 public: 00032 StringTransformer( const UnaryOperator& op_ ): op(op_), buffer(){} 00033 ~StringTransformer(){} 00034 00035 const char* operator()(const char* input ) { 00036 buffer = input ; 00037 std::transform( buffer.begin(), buffer.end(), buffer.begin(), op ) ; 00038 return buffer.c_str() ; 00039 } 00040 00041 private: 00042 const UnaryOperator& op ; 00043 std::string buffer ; 00044 } ; 00045 00046 template <typename UnaryOperator> 00047 StringTransformer<UnaryOperator> make_string_transformer( const UnaryOperator& fun){ 00048 return StringTransformer<UnaryOperator>( fun ) ; 00049 } 00050 00051 } 00052 00053 #endif