cpp11/inst/include/cpp11/declarations.hpp at master · tmastny/cpp11 · GitHub

History

52 lines (46 loc) · 1.7 KB

Raw

#pragma once

#include <cstring>

#include <string>

#include <vector>

#ifndef CPP11_PARTIAL

#include "cpp11.hpp"

using namespace cpp11;

namespace writable = cpp11::writable;

#endif

#include <R_ext/Rdynload.h>

namespace cpp11 {

template <class T>

T& unmove(T&& t) {

return t;

}

} // namespace cpp11

#ifdef HAS_UNWIND_PROTECT

#define CPP11_UNWIND R_ContinueUnwind(err);

#else

#define CPP11_UNWIND \

do { \

} while (false);

#endif

#define BEGIN_CPP11 \

SEXP err = R_NilValue; \

const size_t ERROR_SIZE = 8192; \

char buf[ERROR_SIZE] = ""; \

cpp11::release_existing_protections(); \

try {

#define END_CPP11 \

} \

catch (cpp11::unwind_exception & e) { \

err = e.token; \

} \

catch (std::exception & e) { \

strncpy(buf, e.what(), ERROR_SIZE - 1); \

} \

catch (...) { \

strncpy(buf, "C++ error (unknown cause)", ERROR_SIZE - 1); \

} \

if (buf[0] != '\0') { \

Rf_error("%s", buf); \

} else if (err != R_NilValue) { \

CPP11_UNWIND \

} \

return R_NilValue;

cpp11/inst/include/cpp11/declarations.hpp at master · tmastny/cpp11 · GitHub

Expand file tree

Breadcrumbs

declarations.hpp

Latest commit

History

Breadcrumbs

declarations.hpp

File metadata and controls