Skip to content
Snippets Groups Projects
Commit 8b791e67 authored by Mick Jordan's avatar Mick Jordan
Browse files

add Rf_translateChar variants

parent 8005d5a3
Branches
No related tags found
No related merge requests found
...@@ -664,21 +664,24 @@ SEXP Rf_classgets(SEXP x, SEXP y) { ...@@ -664,21 +664,24 @@ SEXP Rf_classgets(SEXP x, SEXP y) {
} }
const char *Rf_translateChar(SEXP x) { const char *Rf_translateChar(SEXP x) {
// unimplemented("Rf_translateChar");
// TODO: proper implementation // TODO: proper implementation
TRACE(TARGp, x);
const char *result = CHAR(x); const char *result = CHAR(x);
// printf("translateChar: '%s'\n", result);
return result; return result;
} }
const char *Rf_translateChar0(SEXP x) { const char *Rf_translateChar0(SEXP x) {
unimplemented("Rf_translateChar0"); // TODO: proper implementation
return NULL; TRACE(TARGp, x);
const char *result = CHAR(x);
return result;
} }
const char *Rf_translateCharUTF8(SEXP x) { const char *Rf_translateCharUTF8(SEXP x) {
unimplemented("Rf_translateCharUTF8"); // TODO: proper implementation
return NULL; TRACE(TARGp, x);
const char *result = CHAR(x);
return result;
} }
SEXP Rf_lengthgets(SEXP x, R_len_t y) { SEXP Rf_lengthgets(SEXP x, R_len_t y) {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment