00001 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*- 00002 // 00003 // RcppCommon.cpp: R/C++ interface class library -- common functions 00004 // 00005 // Copyright (C) 2005 - 2006 Dominick Samperi 00006 // Copyright (C) 2008 - 2009 Dirk Eddelbuettel 00007 // 00008 // This file is part of Rcpp. 00009 // 00010 // Rcpp is free software: you can redistribute it and/or modify it 00011 // under the terms of the GNU General Public License as published by 00012 // the Free Software Foundation, either version 2 of the License, or 00013 // (at your option) any later version. 00014 // 00015 // Rcpp is distributed in the hope that it will be useful, but 00016 // WITHOUT ANY WARRANTY; without even the implied warranty of 00017 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00018 // GNU General Public License for more details. 00019 // 00020 // You should have received a copy of the GNU General Public License 00021 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>. 00022 00023 #include <Rcpp.h> 00024 #include <cstring> 00025 00026 // Paul Roebuck has observed that the memory used by an exception message 00027 // is not reclaimed if error() is called inside of a catch block (due to 00028 // a setjmp() call), and he suggested the following work-around. 00029 char *copyMessageToR(const char* const mesg) { 00030 char* Rmesg; 00031 const char* prefix = "Exception: "; 00032 void* Rheap = R_alloc(strlen(prefix)+strlen(mesg)+1,sizeof(char)); 00033 Rmesg = static_cast<char*>(Rheap); 00034 strcpy(Rmesg, prefix); 00035 strcat(Rmesg, mesg); 00036 return Rmesg; 00037 } 00038 00039 inline void logTxtFunction(const char* file, const int line, const char* expression) { 00040 Rprintf("%s:%d %s\n", file, line, expression); 00041 } 00042