| 461 | } |
| 462 | |
| 463 | Rcpp::List getMethods( const XP_Class& class_xp, std::string& buffer){ |
| 464 | RCPP_DEBUG_MODULE( "Rcpp::List getMethods( const XP_Class& class_xp, std::string& buffer" ) |
| 465 | #if RCPP_DEBUG_LEVEL > 0 |
| 466 | Rf_PrintValue( class_xp ) ; |
| 467 | #endif |
| 468 | size_t n = vec_methods.size() ; |
| 469 | Rcpp::CharacterVector mnames(n) ; |
| 470 | Rcpp::List res(n) ; |
| 471 | typename map_vec_signed_method::iterator it = vec_methods.begin( ) ; |
| 472 | vec_signed_method* v; |
| 473 | for( size_t i=0; i<n; i++, ++it){ |
| 474 | mnames[i] = it->first ; |
| 475 | v = it->second ; |
| 476 | res[i] = S4_CppOverloadedMethods<Class>( v , class_xp, it->first.c_str(), buffer ) ; |
| 477 | } |
| 478 | res.names() = mnames ; |
| 479 | return res ; |
| 480 | } |
| 481 | |
| 482 | Rcpp::List getConstructors( const XP_Class& class_xp, std::string& buffer){ |
| 483 | size_t n = constructors.size() ; |