Displaying 1 result from an estimated 1 matches for "len_rev".
Did you mean:
en_rep
2009 Sep 03
1
Running an expression 1MN times using embedded R
...16) +
((uint32_t)c3 << 8) + c4;
}
}
SEXP rh_status(SEXP mess){
if(TYPEOF(mess)!=STRSXP){
return R_NilValue;
}
char *status = (char*)CHAR(STRING_ELT( mess , 0));
// fwrite(&SET_STATUS,sizeof(uint8_t),1,stderr);
// uint32_t stle = strlen(status);
// uint32_t len_rev = reverseUInt(stle);
// fwrite(&len_rev,sizeof(uint32_t),1,stderr);
// fwrite(status,stle,1,stderr);
}
SEXP rexpress(const char* cmd)
{
SEXP cmdSexp, cmdexpr, ans = R_NilValue;
int i,Rerr;
ParseStatus status;
PROTECT(cmdSexp = Rf_allocVector(STRSXP, 1));
SET_STRING_ELT(cm...