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

add Rf_translateChar variants

parent 8005d5a3
No related branches found
No related tags found
No related merge requests found
......@@ -664,21 +664,24 @@ SEXP Rf_classgets(SEXP x, SEXP y) {
}
const char *Rf_translateChar(SEXP x) {
// unimplemented("Rf_translateChar");
// TODO: proper implementation
TRACE(TARGp, x);
const char *result = CHAR(x);
// printf("translateChar: '%s'\n", result);
return result;
}
const char *Rf_translateChar0(SEXP x) {
unimplemented("Rf_translateChar0");
return NULL;
// TODO: proper implementation
TRACE(TARGp, x);
const char *result = CHAR(x);
return result;
}
const char *Rf_translateCharUTF8(SEXP x) {
unimplemented("Rf_translateCharUTF8");
return NULL;
// TODO: proper implementation
TRACE(TARGp, x);
const char *result = CHAR(x);
return result;
}
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.
Finish editing this message first!
Please register or to comment