The R Project SVN R

Rev

Rev 86615 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 86615 Rev 89255
Line 1161... Line 1161...
1161 
Rboolean R_altrep_inherits(SEXP x, R_altrep_class_t class)
 1161 
Rboolean R_altrep_inherits(SEXP x, R_altrep_class_t class)
1162 
{
 1162 
{
1163 
    return ALTREP(x) && ALTREP_CLASS(x) == R_SEXP(class);
 1163 
    return ALTREP(x) && ALTREP_CLASS(x) == R_SEXP(class);
1164 
}
 1164 
}
1165 
 
 1165 
 
- 
 
 1166 
SEXP R_altrep_class_name(SEXP x)
- 
 
 1167 
{
- 
 
 1168 
    return ALTREP(x) ? CAR(ATTRIB(ALTREP_CLASS(x))) : R_NilValue;
- 
 
 1169 
}
- 
 
 1170 
 
- 
 
 1171 
SEXP R_altrep_class_package(SEXP x)
- 
 
 1172 
{
- 
 
 1173 
    return ALTREP(x) ? CADR(ATTRIB(ALTREP_CLASS(x))) : R_NilValue;
- 
 
 1174 
}
- 
 
 1175 
 
1166 
attribute_hidden SEXP do_altrep_class(SEXP call, SEXP op, SEXP args, SEXP env)
 1176 
attribute_hidden SEXP do_altrep_class(SEXP call, SEXP op, SEXP args, SEXP env)
1167 
{
 1177 
{
1168 
    checkArity(op, args);
 1178 
    checkArity(op, args);
1169 
    SEXP x = CAR(args);
 1179 
    SEXP x = CAR(args);
1170 
    if (ALTREP(x)) {
 1180 
    if (ALTREP(x)) {