|
Rcpp Version 0.9.10
|
00001 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*- 00002 // 00003 // Named.h: Rcpp R/C++ interface class library -- named object 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_Named_h 00023 #define Rcpp_Named_h 00024 00025 namespace Rcpp{ 00026 00027 class Argument { 00028 public: 00029 Argument() : name(){} ; 00030 Argument( const std::string& name_) : name(name_){} 00031 00032 template<typename T> 00033 inline traits::named_object<T> operator=( const T& t){ 00034 return traits::named_object<T>( name, t ) ; 00035 } 00036 00037 std::string name ; 00038 } ; 00039 00040 inline Argument Named( const std::string& name){ 00041 return Argument( name ); 00042 } 00043 template <typename T> 00044 inline traits::named_object<T> Named( const std::string& name, const T& o){ 00045 return traits::named_object<T>( name, o ); 00046 } 00047 00048 namespace internal{ 00049 00050 class NamedPlaceHolder { 00051 public: 00052 NamedPlaceHolder(){} 00053 ~NamedPlaceHolder(){} 00054 Argument operator[]( const std::string& arg) const { 00055 return Argument( arg ) ; 00056 } 00057 Argument operator()(const std::string& arg) const { 00058 return Argument( arg ) ; 00059 } 00060 operator SEXP() const { return R_MissingArg ; } 00061 } ; 00062 } // internal 00063 00064 static internal::NamedPlaceHolder _ ; 00065 00066 } // namespace Rcpp 00067 00068 #endif