
// RInsideCommon.h: R/C++ interface class library -- Easier R embedding into C++
//
// Copyright (C) 2010 - 2022  Dirk Eddelbuettel and Romain Francois
//
// This file is part of RInside.
//
// RInside is free software: you can redistribute it and/or modify it
// under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 2 of the License, or
// (at your option) any later version.
//
// RInside is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with RInside.  If not, see <http://www.gnu.org/licenses/>.

#ifndef RINSIDE_RINSIDECOMMON_H
#define RINSIDE_RINSIDECOMMON_H

#include <RInsideConfig.h>

#include <sys/time.h>           // gettimeofday()
#include <sys/types.h>          // pid_t
#include <unistd.h>             // getpid()
#include <stdint.h>             // uint_least64_t (in init_rand())

#include <inttypes.h> 			// intptr_t (one day we use cinttypes from C++11)
#include <stdint.h>				// uint64_t (one day we use cstdint from C++11)

#include <string>
#include <vector>
#include <iostream>

#include <Rcpp.h>

#ifdef WIN32
  #ifndef Win32
    // needed for parts of Rembedded.h
    #define Win32
  #endif
#endif

#ifndef WIN32
  // needed to turn-off stack checking, and we already have uintptr_t
  #define CSTACK_DEFNS
  #ifndef HAVE_UINTPTR_T
    #define HAVE_UINTPTR_T
  #endif
#endif

#include <Rembedded.h>
#include <R_ext/RStartup.h>

#include <MemBuf.h>

// simple logging help
inline void logTxtFunction(const char* file, const int line, const char* expression, const bool verbose) {
    if (verbose) {
        std::cout << file << ":" << line << " expression: " << expression << std::endl;
    }
}

#ifdef logTxt
#undef logTxt
#endif
//#define logTxt(x, b) logTxtFunction(__FILE__, __LINE__, x, b);
#define logTxt(x, b)

#endif
