| 202 | } |
| 203 | |
| 204 | SEXP CppMethod__invoke_notvoid(SEXP args) { |
| 205 | SEXP p = CDR(args); |
| 206 | |
| 207 | // the external pointer to the class |
| 208 | XP_Class clazz(CAR(p)); p = CDR(p); |
| 209 | |
| 210 | // the external pointer to the method |
| 211 | SEXP met = CAR(p); p = CDR(p); |
| 212 | |
| 213 | // the external pointer to the object |
| 214 | SEXP obj = CAR(p); p = CDR(p); |
| 215 | CHECK_DUMMY_OBJ(obj); |
| 216 | |
| 217 | // additional arguments, processed the same way as .Call does |
| 218 | UNPACK_EXTERNAL_ARGS(cargs,p) |
| 219 | |
| 220 | return clazz->invoke_notvoid(met, obj, cargs, nargs); |
| 221 | } |
| 222 | |
| 223 | namespace Rcpp{ |
| 224 | static Module* current_scope ; |
nothing calls this directly
no test coverage detected