00001 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*- 00002 // 00003 // RcppList.h: Rcpp R/C++ interface class library -- 'list' type support 00004 // 00005 // Copyright (C) 2009 Dirk Eddelbuettel 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 RcppList_h 00023 #define RcppList_h 00024 00025 #include <RcppCommon.h> 00026 00027 // This class was first used in the RProtoBuf project (currently on r-forge only) 00028 // but is more generally useful and hence moved over here 00029 class RcppList { 00030 public: 00031 RcppList(void); 00032 ~RcppList(); 00033 void setSize(int size); 00034 void append(std::string name, double value); 00035 void append(std::string name, int value); 00036 void append(std::string name, std::string value); 00037 //void append(std::string name, RcppDate& date); 00038 //void append(std::string name, RcppDatetime& datetime); 00039 void append(std::string name, SEXP sexp); 00040 void clearProtectionStack(); 00041 SEXP getList(void) const; 00042 00043 protected: 00044 friend class RcppResultSet; 00045 00046 private: 00047 SEXP listArg; 00048 int listSize, currListPosn, numProtected; 00049 std::vector<std::string> names; 00050 }; 00051 00052 #endif