Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

maintain existing interface and offer new one#1135

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to ourterms of service andprivacy statement. We’ll occasionally send you account related emails.

Already on GitHub?Sign in to your account

Merged
eddelbuettel merged 2 commits intomasterfromfeature/preserve_interface
Jan 20, 2021
Merged
Show file tree
Hide file tree
Changes from1 commit
Commits
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
NextNext commit
maintain existing interface and offer new one
  • Loading branch information
@eddelbuettel
eddelbuettel committedJan 19, 2021
commit796d8c8fe20d65f940e35c93b6bd47f8d7e5256f
10 changes: 10 additions & 0 deletionsChangeLog
View file
Open in desktop
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,13 @@
2021-01-19 Dirk Eddelbuettel <edd@debian.org>

* DESCRIPTION (Version, Date): Roll minor version
* inst/include/Rcpp/config.h: Idem

* inst/include/RcppCommon.h: Preverse existing API and offer new
token-based API alongside via Rcpp_Precious{Preserve,Release}
* inst/include/Rcpp/String.h: Use Rcpp_Precious{Preserve,Release}
* inst/include/Rcpp/storage/PreserveStorage.h: Ditto

2021-01-17 Iñaki Ucar <iucar@fedoraproject.org>

* inst/include/Rcpp/String.h: Use Rcpp_{Preserve,Release}Object
Expand Down
4 changes: 2 additions & 2 deletionsDESCRIPTION
View file
Open in desktop
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
Package: Rcpp
Title: Seamless R and C++ Integration
Version: 1.0.6.2
Date: 2021-01-17
Version: 1.0.6.3
Date: 2021-01-19
Author: Dirk Eddelbuettel, Romain Francois, JJ Allaire, Kevin Ushey, Qiang Kou,
Nathan Russell, Douglas Bates and John Chambers
Maintainer: Dirk Eddelbuettel <edd@debian.org>
Expand Down
98 changes: 49 additions & 49 deletionsinst/include/Rcpp/String.h
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -53,13 +53,13 @@ namespace Rcpp {

/** default constructor */
String(): data(Rf_mkCharCE("", CE_UTF8)), token(R_NilValue), buffer(), valid(true), buffer_ready(true), enc(CE_UTF8) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
RCPP_STRING_DEBUG("String()");
}

/** copy constructor */
String(const String& other) : data(other.get_sexp()), token(R_NilValue), valid(true), buffer_ready(false), enc(Rf_getCharCE(other.get_sexp())) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
RCPP_STRING_DEBUG("String(const String&)");
}

Expand All@@ -82,30 +82,30 @@ namespace Rcpp {
valid = true;
buffer_ready = false;
enc = Rf_getCharCE(data);
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
RCPP_STRING_DEBUG("String(SEXP)");
}

/** from string proxy */
String(const StringProxy& proxy): data(proxy.get()), token(R_NilValue), valid(true), buffer_ready(false), enc(Rf_getCharCE(proxy.get())) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
RCPP_STRING_DEBUG("String(const StringProxy&)");
}

String(const StringProxy& proxy, cetype_t enc): data(proxy.get()), token(R_NilValue), valid(true), buffer_ready(false) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
set_encoding(enc);
RCPP_STRING_DEBUG("String(const StringProxy&, cetype_t)");
}

/** from string proxy */
String(const const_StringProxy& proxy): data(proxy.get()), token(R_NilValue), valid(true), buffer_ready(false), enc(Rf_getCharCE(proxy.get())) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
RCPP_STRING_DEBUG("String(const const_StringProxy&)");
}

String(const const_StringProxy& proxy, cetype_t enc): data(proxy.get()), token(R_NilValue), valid(true), buffer_ready(false) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
set_encoding(enc);
RCPP_STRING_DEBUG("String(const const_StringProxy&, cetype_t)");
}
Expand All@@ -118,7 +118,7 @@ namespace Rcpp {
}

String(const std::wstring& s, cetype_t enc = CE_UTF8) : data(internal::make_charsexp(s)), token(R_NilValue), valid(true), buffer_ready(false), enc(enc) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
RCPP_STRING_DEBUG("String(const std::wstring&, cetype_t)");
}

Expand All@@ -130,79 +130,79 @@ namespace Rcpp {
}

String(const wchar_t* s, cetype_t enc = CE_UTF8) : data(internal::make_charsexp(s)), token(R_NilValue), valid(true), buffer_ready(false), enc(enc) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
RCPP_STRING_DEBUG("String(const wchar_t* s, cetype_t)");
}

/** constructors from R primitives */
String(int x) : data(internal::r_coerce<INTSXP,STRSXP>(x)), token(R_NilValue), valid(true), buffer_ready(false), enc(CE_UTF8) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
}
String(double x) : data(internal::r_coerce<REALSXP,STRSXP>(x)), token(R_NilValue), valid(true), buffer_ready(false), enc(CE_UTF8) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
}
String(bool x) : data(internal::r_coerce<LGLSXP,STRSXP>(x)), token(R_NilValue), valid(true) , buffer_ready(false), enc(CE_UTF8) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
}
String(Rcomplex x) : data(internal::r_coerce<CPLXSXP,STRSXP>(x)), token(R_NilValue), valid(true), buffer_ready(false), enc(CE_UTF8) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
}
String(Rbyte x) : data(internal::r_coerce<RAWSXP,STRSXP>(x)), token(R_NilValue), valid(true), buffer_ready(false), enc(CE_UTF8) {
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
}

~String() {
Rcpp_ReleaseObject(token);
Rcpp_PreciousRelease(token);
data = R_NilValue;
token = R_NilValue;
}


inline String& operator=(int x) {
data = internal::r_coerce<INTSXP, STRSXP>(x);
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
}
inline String& operator=(double x) {
data = internal::r_coerce<REALSXP, STRSXP>(x);
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
}
inline String& operator=(Rbyte x) {
data = internal::r_coerce<RAWSXP, STRSXP>(x);
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
}
inline String& operator=(bool x) {
data = internal::r_coerce<LGLSXP, STRSXP>(x);
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
}
inline String& operator=(Rcomplex x) {
data = internal::r_coerce<CPLXSXP, STRSXP>(x);
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
}
inline String& operator=(SEXP x) {
if (data != x) {
data = x;
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
}
valid = true;
buffer_ready = false;
Expand All@@ -212,8 +212,8 @@ namespace Rcpp {
SEXP x = proxy.get();
if (data != x) {
data = x;
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(x);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(x);
}
valid = true;
buffer_ready = false;
Expand All@@ -223,8 +223,8 @@ namespace Rcpp {
SEXP x = other.get_sexp();
if (data != x) {
data = x;
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(x);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(x);
}
valid = true;
buffer_ready = false;
Expand All@@ -247,8 +247,8 @@ namespace Rcpp {
template <typename T>
inline String& assign_wide_string(const T& s) {
data = internal::make_charsexp(s);
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
Expand DownExpand Up@@ -281,8 +281,8 @@ namespace Rcpp {
std::wstring tmp(buf, buf + strlen(buf));
tmp += s;
data = internal::make_charsexp(tmp);
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
Expand All@@ -298,8 +298,8 @@ namespace Rcpp {
if (is_na()) return *this;
if (other.is_na()) {
data = NA_STRING;
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
Expand All@@ -313,8 +313,8 @@ namespace Rcpp {
SEXP proxy_sexp = proxy;
if (proxy_sexp == NA_STRING) {
data = NA_STRING;
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
Expand All@@ -328,8 +328,8 @@ namespace Rcpp {
SEXP proxy_sexp = proxy;
if (proxy_sexp == NA_STRING) {
data = NA_STRING;
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
Expand All@@ -342,8 +342,8 @@ namespace Rcpp {
if (is_na()) return *this;
if (x == NA_STRING) {
data = NA_STRING;
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
return *this;
Expand DownExpand Up@@ -479,8 +479,8 @@ namespace Rcpp {

inline void set_na() {
data = NA_STRING;
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
valid = true;
buffer_ready = false;
}
Expand DownExpand Up@@ -533,11 +533,11 @@ namespace Rcpp {
// TODO: may longjmp on failure to translate?
const char* translated = Rf_translateCharUTF8(data);
data = Rf_mkCharCE(translated, encoding);
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
} else {
data = get_sexp_impl();
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
valid = true;
}
}
Expand DownExpand Up@@ -610,7 +610,7 @@ namespace Rcpp {
RCPP_STRING_DEBUG("setData");
if (!valid) {
data = get_sexp_impl();
token =Rcpp_PreserveObject(data);
token =Rcpp_PreciousPreserve(data);
valid = true;
}
}
Expand Down
4 changes: 2 additions & 2 deletionsinst/include/Rcpp/config.h
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -30,7 +30,7 @@
#define RCPP_VERSION_STRING "1.0.6"

// the current source snapshot
#define RCPP_DEV_VERSION RcppDevVersion(1,0,6,2)
#define RCPP_DEV_VERSION_STRING "1.0.6.2"
#define RCPP_DEV_VERSION RcppDevVersion(1,0,6,3)
#define RCPP_DEV_VERSION_STRING "1.0.6.3"

#endif
8 changes: 4 additions & 4 deletionsinst/include/Rcpp/storage/PreserveStorage.h
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -31,16 +31,16 @@ namespace Rcpp{
PreserveStorage() : data(R_NilValue), token(R_NilValue){}

~PreserveStorage(){
Rcpp_ReleaseObject(token) ;
Rcpp_PreciousRelease(token) ;
data = R_NilValue;
token = R_NilValue;
}

inline void set__(SEXP x){
if (data != x) {
data = x;
Rcpp_ReleaseObject(token);
token =Rcpp_PreserveObject(data);
Rcpp_PreciousRelease(token);
token =Rcpp_PreciousPreserve(data);
}

// calls the update method of CLASS
Expand All@@ -54,7 +54,7 @@ namespace Rcpp{

inline SEXP invalidate__(){
SEXP out = data ;
Rcpp_ReleaseObject(token);
Rcpp_PreciousRelease(token);
data = R_NilValue ;
token = R_NilValue ;
return out ;
Expand Down
24 changes: 22 additions & 2 deletionsinst/include/RcppCommon.h
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -91,11 +91,31 @@ namespace Rcpp {
template <typename T> class named_object;
}

inline SEXP Rcpp_PreserveObject(SEXP object) {
// begin deprecated interface not using precious list
// use Rcpp_PreciousPreserve + Rcpp_PreciousRelease below it
inline SEXP Rcpp_PreserveObject(SEXP x) {
if (x != R_NilValue) R_PreserveObject(x);
return x;
}
inline void Rcpp_ReleaseObject(SEXP x) {
if (x != R_NilValue) R_ReleaseObject(x);
}
inline SEXP Rcpp_ReplaceObject(SEXP x, SEXP y) {
// if we are setting to the same SEXP as we already have, do nothing
if (x != y) {
Rcpp_ReleaseObject(x);
Rcpp_PreserveObject(y);
}
return y;
}
// end deprecated interface not using precious list

// new preferred interface using token-based precious list
inline SEXP Rcpp_PreciousPreserve(SEXP object) {
return Rcpp_precious_preserve(object);
}

inline voidRcpp_ReleaseObject(SEXP token) {
inline voidRcpp_PreciousRelease(SEXP token) {
Rcpp_precious_remove(token);
}

Expand Down
[8]ページ先頭
©2009-2025 Movatter.jp