The R Project SVN R-packages

Rev

Rev 3457 | Rev 3509 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3457 Rev 3473
Line 337... Line 337...
337 
}
 337 
}
338 
 
 338 
 
339 
char *_str_tolower(char *out, const char *ref) {
 339 
char *_str_tolower(char *out, const char *ref) {
340 
    int i;
 340 
    int i;
341 
    for (i = 0; ref[i]; i++) out[i] = tolower(ref[i]);
 341 
    for (i = 0; ref[i]; i++) out[i] = tolower(ref[i]);
- 
 
 342 
    out[i] = 0;
342 
    return out;
 343 
    return out;
343 
}
 344 
}
344 
 
 345 
 
345 
/* see equivalent: inherits() */
 346 
/* see equivalent: inherits() */
346 
/* int _sexp_instance_of(SEXP obj, const char *class) {
 347 
/* int _sexp_instance_of(SEXP obj, const char *class) {