1 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*- 2 // 3 // Module_generated_CppFunction.h: -- generated helper code for Modules 4 // see rcpp-scripts repo for generator script 5 // 6 // Copyright (C) 2010 - 2014 Dirk Eddelbuettel and Romain Francois 7 // 8 // This file is part of Rcpp. 9 // 10 // Rcpp is free software: you can redistribute it and/or modify it 11 // under the terms of the GNU General Public License as published by 12 // the Free Software Foundation, either version 2 of the License, or 13 // (at your option) any later version. 14 // 15 // Rcpp is distributed in the hope that it will be useful, but 16 // WITHOUT ANY WARRANTY; without even the implied warranty of 17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 // GNU General Public License for more details. 19 // 20 // You should have received a copy of the GNU General Public License 21 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>. 22 23 #ifndef Rcpp_Module_generated_CppFunction_h 24 #define Rcpp_Module_generated_CppFunction_h 25 26 namespace Rcpp { 27 28 template <typename RESULT_TYPE> 29 class CppFunction0 : public CppFunction { 30 public: CppFunction(docstring)31 CppFunction0(RESULT_TYPE (*fun)(void), const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} operator()32 SEXP operator()(SEXP*) { 33 BEGIN_RCPP 34 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun()); 35 END_RCPP 36 } 37 nargs()38 inline int nargs() { return 0; } signature(std::string & s,const char * name)39 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE>(s, name); } get_function_ptr()40 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 41 42 private: 43 RESULT_TYPE (*ptr_fun)(void); 44 }; 45 46 47 template <> 48 class CppFunction0<void> : public CppFunction { 49 public: CppFunction(docstring)50 CppFunction0(void (*fun)(void), const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {}; 51 operator()52 SEXP operator()(SEXP*) { 53 BEGIN_RCPP 54 ptr_fun(); 55 END_RCPP 56 } 57 nargs()58 inline int nargs() { return 0; } is_void()59 inline bool is_void() { return true; } signature(std::string & s,const char * name)60 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type>(s, name); } get_function_ptr()61 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 62 63 private: 64 void (*ptr_fun)(void); 65 }; 66 67 68 template <typename RESULT_TYPE> 69 class CppFunction_WithFormals0 : public CppFunction { 70 public: CppFunction(docstring)71 CppFunction_WithFormals0(RESULT_TYPE (*fun)(void), Rcpp::List, const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} operator()72 SEXP operator()(SEXP*) { 73 BEGIN_RCPP 74 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun()); 75 END_RCPP 76 } 77 nargs()78 inline int nargs() { return 0; } signature(std::string & s,const char * name)79 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE>(s, name); } get_function_ptr()80 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 81 82 private: 83 RESULT_TYPE (*ptr_fun)(void); 84 }; 85 86 87 template <> 88 class CppFunction_WithFormals0<void> : public CppFunction { 89 public: CppFunction(docstring)90 CppFunction_WithFormals0(void (*fun)(void), Rcpp::List, const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} ; 91 operator()92 SEXP operator()(SEXP*) { 93 BEGIN_RCPP 94 ptr_fun() ; 95 END_RCPP 96 } 97 nargs()98 inline int nargs() { return 0; } is_void()99 inline bool is_void() { return true; } signature(std::string & s,const char * name)100 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type>(s, name); } get_function_ptr()101 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 102 103 private: 104 void (*ptr_fun)(void) ; 105 }; 106 107 108 template <typename RESULT_TYPE, typename U0> class CppFunction1 : public CppFunction { 109 public: 110 CppFunction(docstring)111 CppFunction1(RESULT_TYPE (*fun)(U0) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 112 operator()113 SEXP operator()(SEXP* args) { 114 BEGIN_RCPP 115 typename traits::input_parameter< U0 >::type x0(args[0]); 116 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0)); 117 END_RCPP 118 } 119 nargs()120 inline int nargs() { return 1; } signature(std::string & s,const char * name)121 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0>(s, name); } get_function_ptr()122 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 123 124 private: 125 RESULT_TYPE (*ptr_fun)(U0) ; 126 }; 127 128 template <typename U0> 129 class CppFunction1<void,U0> : public CppFunction { 130 public: CppFunction(docstring)131 CppFunction1(void (*fun)(U0) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 132 operator()133 SEXP operator()(SEXP* args) { 134 BEGIN_RCPP 135 typename traits::input_parameter< U0 >::type x0(args[0]); 136 ptr_fun(x0); 137 END_RCPP 138 } 139 nargs()140 inline int nargs() { return 1; } is_void()141 inline bool is_void() { return true; } signature(std::string & s,const char * name)142 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0>(s, name); } get_function_ptr()143 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 144 145 private: 146 void (*ptr_fun)(U0) ; 147 }; 148 149 150 151 template <typename RESULT_TYPE, typename U0> 152 class CppFunction_WithFormals1 : public CppFunction { 153 public: 154 155 CppFunction_WithFormals1(RESULT_TYPE (*fun)(U0) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)156 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 157 operator()158 SEXP operator()(SEXP* args) { 159 BEGIN_RCPP 160 typename traits::input_parameter< U0 >::type x0(args[0]); 161 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0)); 162 END_RCPP 163 } 164 nargs()165 inline int nargs() { return 1; } signature(std::string & s,const char * name)166 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0>(s, name); } get_formals()167 SEXP get_formals() { return formals; } get_function_ptr()168 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 169 170 private: 171 Rcpp::List formals; 172 RESULT_TYPE (*ptr_fun)(U0); 173 }; 174 175 template <typename U0> 176 class CppFunction_WithFormals1<void,U0> : public CppFunction { 177 public: 178 CppFunction_WithFormals1(void (*fun)(U0), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)179 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 180 operator()181 SEXP operator()(SEXP* args) { 182 BEGIN_RCPP 183 typename traits::input_parameter< U0 >::type x0(args[0]); 184 ptr_fun(x0); 185 END_RCPP 186 } 187 nargs()188 inline int nargs() { return 1; } is_void()189 inline bool is_void() { return true; } signature(std::string & s,const char * name)190 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0>(s, name); } get_formals()191 SEXP get_formals() { return formals; } get_function_ptr()192 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 193 194 private: 195 Rcpp::List formals; 196 void (*ptr_fun)(U0); 197 }; 198 199 200 template <typename RESULT_TYPE, typename U0,typename U1> class CppFunction2 : public CppFunction { 201 public: 202 CppFunction(docstring)203 CppFunction2(RESULT_TYPE (*fun)(U0,U1) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 204 operator()205 SEXP operator()(SEXP* args) { 206 BEGIN_RCPP 207 typename traits::input_parameter< U0 >::type x0(args[0]); 208 typename traits::input_parameter< U1 >::type x1(args[1]); 209 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1)); 210 END_RCPP 211 } 212 nargs()213 inline int nargs() { return 2; } signature(std::string & s,const char * name)214 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1>(s, name); } get_function_ptr()215 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 216 217 private: 218 RESULT_TYPE (*ptr_fun)(U0,U1) ; 219 }; 220 221 template <typename U0, typename U1> 222 class CppFunction2<void,U0,U1> : public CppFunction { 223 public: CppFunction(docstring)224 CppFunction2(void (*fun)(U0,U1) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 225 operator()226 SEXP operator()(SEXP* args) { 227 BEGIN_RCPP 228 typename traits::input_parameter< U0 >::type x0(args[0]); 229 typename traits::input_parameter< U1 >::type x1(args[1]); 230 ptr_fun(x0,x1); 231 END_RCPP 232 } 233 nargs()234 inline int nargs() { return 2; } is_void()235 inline bool is_void() { return true; } signature(std::string & s,const char * name)236 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1>(s, name); } get_function_ptr()237 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 238 239 private: 240 void (*ptr_fun)(U0,U1) ; 241 }; 242 243 244 245 template <typename RESULT_TYPE, typename U0,typename U1> 246 class CppFunction_WithFormals2 : public CppFunction { 247 public: 248 249 CppFunction_WithFormals2(RESULT_TYPE (*fun)(U0,U1) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)250 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 251 operator()252 SEXP operator()(SEXP* args) { 253 BEGIN_RCPP 254 typename traits::input_parameter< U0 >::type x0(args[0]); 255 typename traits::input_parameter< U1 >::type x1(args[1]); 256 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1)); 257 END_RCPP 258 } 259 nargs()260 inline int nargs() { return 2; } signature(std::string & s,const char * name)261 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1>(s, name); } get_formals()262 SEXP get_formals() { return formals; } get_function_ptr()263 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 264 265 private: 266 Rcpp::List formals; 267 RESULT_TYPE (*ptr_fun)(U0,U1); 268 }; 269 270 template <typename U0, typename U1> 271 class CppFunction_WithFormals2<void,U0,U1> : public CppFunction { 272 public: 273 CppFunction_WithFormals2(void (*fun)(U0,U1), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)274 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 275 operator()276 SEXP operator()(SEXP* args) { 277 BEGIN_RCPP 278 typename traits::input_parameter< U0 >::type x0(args[0]); 279 typename traits::input_parameter< U1 >::type x1(args[1]); 280 ptr_fun(x0,x1); 281 END_RCPP 282 } 283 nargs()284 inline int nargs() { return 2; } is_void()285 inline bool is_void() { return true; } signature(std::string & s,const char * name)286 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1>(s, name); } get_formals()287 SEXP get_formals() { return formals; } get_function_ptr()288 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 289 290 private: 291 Rcpp::List formals; 292 void (*ptr_fun)(U0,U1); 293 }; 294 295 296 template <typename RESULT_TYPE, typename U0,typename U1,typename U2> class CppFunction3 : public CppFunction { 297 public: 298 CppFunction(docstring)299 CppFunction3(RESULT_TYPE (*fun)(U0,U1,U2) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 300 operator()301 SEXP operator()(SEXP* args) { 302 BEGIN_RCPP 303 typename traits::input_parameter< U0 >::type x0(args[0]); 304 typename traits::input_parameter< U1 >::type x1(args[1]); 305 typename traits::input_parameter< U2 >::type x2(args[2]); 306 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2)); 307 END_RCPP 308 } 309 nargs()310 inline int nargs() { return 3; } signature(std::string & s,const char * name)311 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2>(s, name); } get_function_ptr()312 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 313 314 private: 315 RESULT_TYPE (*ptr_fun)(U0,U1,U2) ; 316 }; 317 318 template <typename U0, typename U1, typename U2> 319 class CppFunction3<void,U0,U1,U2> : public CppFunction { 320 public: CppFunction(docstring)321 CppFunction3(void (*fun)(U0,U1,U2) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 322 operator()323 SEXP operator()(SEXP* args) { 324 BEGIN_RCPP 325 typename traits::input_parameter< U0 >::type x0(args[0]); 326 typename traits::input_parameter< U1 >::type x1(args[1]); 327 typename traits::input_parameter< U2 >::type x2(args[2]); 328 ptr_fun(x0,x1,x2); 329 END_RCPP 330 } 331 nargs()332 inline int nargs() { return 3; } is_void()333 inline bool is_void() { return true; } signature(std::string & s,const char * name)334 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2>(s, name); } get_function_ptr()335 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 336 337 private: 338 void (*ptr_fun)(U0,U1,U2) ; 339 }; 340 341 342 343 template <typename RESULT_TYPE, typename U0,typename U1,typename U2> 344 class CppFunction_WithFormals3 : public CppFunction { 345 public: 346 347 CppFunction_WithFormals3(RESULT_TYPE (*fun)(U0,U1,U2) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)348 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 349 operator()350 SEXP operator()(SEXP* args) { 351 BEGIN_RCPP 352 typename traits::input_parameter< U0 >::type x0(args[0]); 353 typename traits::input_parameter< U1 >::type x1(args[1]); 354 typename traits::input_parameter< U2 >::type x2(args[2]); 355 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2)); 356 END_RCPP 357 } 358 nargs()359 inline int nargs() { return 3; } signature(std::string & s,const char * name)360 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2>(s, name); } get_formals()361 SEXP get_formals() { return formals; } get_function_ptr()362 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 363 364 private: 365 Rcpp::List formals; 366 RESULT_TYPE (*ptr_fun)(U0,U1,U2); 367 }; 368 369 template <typename U0, typename U1, typename U2> 370 class CppFunction_WithFormals3<void,U0,U1,U2> : public CppFunction { 371 public: 372 CppFunction_WithFormals3(void (*fun)(U0,U1,U2), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)373 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 374 operator()375 SEXP operator()(SEXP* args) { 376 BEGIN_RCPP 377 typename traits::input_parameter< U0 >::type x0(args[0]); 378 typename traits::input_parameter< U1 >::type x1(args[1]); 379 typename traits::input_parameter< U2 >::type x2(args[2]); 380 ptr_fun(x0,x1,x2); 381 END_RCPP 382 } 383 nargs()384 inline int nargs() { return 3; } is_void()385 inline bool is_void() { return true; } signature(std::string & s,const char * name)386 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2>(s, name); } get_formals()387 SEXP get_formals() { return formals; } get_function_ptr()388 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 389 390 private: 391 Rcpp::List formals; 392 void (*ptr_fun)(U0,U1,U2); 393 }; 394 395 396 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3> class CppFunction4 : public CppFunction { 397 public: 398 CppFunction(docstring)399 CppFunction4(RESULT_TYPE (*fun)(U0,U1,U2,U3) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 400 operator()401 SEXP operator()(SEXP* args) { 402 BEGIN_RCPP 403 typename traits::input_parameter< U0 >::type x0(args[0]); 404 typename traits::input_parameter< U1 >::type x1(args[1]); 405 typename traits::input_parameter< U2 >::type x2(args[2]); 406 typename traits::input_parameter< U3 >::type x3(args[3]); 407 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3)); 408 END_RCPP 409 } 410 nargs()411 inline int nargs() { return 4; } signature(std::string & s,const char * name)412 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3>(s, name); } get_function_ptr()413 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 414 415 private: 416 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3) ; 417 }; 418 419 template <typename U0, typename U1, typename U2, typename U3> 420 class CppFunction4<void,U0,U1,U2,U3> : public CppFunction { 421 public: CppFunction(docstring)422 CppFunction4(void (*fun)(U0,U1,U2,U3) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 423 operator()424 SEXP operator()(SEXP* args) { 425 BEGIN_RCPP 426 typename traits::input_parameter< U0 >::type x0(args[0]); 427 typename traits::input_parameter< U1 >::type x1(args[1]); 428 typename traits::input_parameter< U2 >::type x2(args[2]); 429 typename traits::input_parameter< U3 >::type x3(args[3]); 430 ptr_fun(x0,x1,x2,x3); 431 END_RCPP 432 } 433 nargs()434 inline int nargs() { return 4; } is_void()435 inline bool is_void() { return true; } signature(std::string & s,const char * name)436 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3>(s, name); } get_function_ptr()437 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 438 439 private: 440 void (*ptr_fun)(U0,U1,U2,U3) ; 441 }; 442 443 444 445 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3> 446 class CppFunction_WithFormals4 : public CppFunction { 447 public: 448 449 CppFunction_WithFormals4(RESULT_TYPE (*fun)(U0,U1,U2,U3) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)450 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 451 operator()452 SEXP operator()(SEXP* args) { 453 BEGIN_RCPP 454 typename traits::input_parameter< U0 >::type x0(args[0]); 455 typename traits::input_parameter< U1 >::type x1(args[1]); 456 typename traits::input_parameter< U2 >::type x2(args[2]); 457 typename traits::input_parameter< U3 >::type x3(args[3]); 458 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3)); 459 END_RCPP 460 } 461 nargs()462 inline int nargs() { return 4; } signature(std::string & s,const char * name)463 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3>(s, name); } get_formals()464 SEXP get_formals() { return formals; } get_function_ptr()465 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 466 467 private: 468 Rcpp::List formals; 469 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3); 470 }; 471 472 template <typename U0, typename U1, typename U2, typename U3> 473 class CppFunction_WithFormals4<void,U0,U1,U2,U3> : public CppFunction { 474 public: 475 CppFunction_WithFormals4(void (*fun)(U0,U1,U2,U3), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)476 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 477 operator()478 SEXP operator()(SEXP* args) { 479 BEGIN_RCPP 480 typename traits::input_parameter< U0 >::type x0(args[0]); 481 typename traits::input_parameter< U1 >::type x1(args[1]); 482 typename traits::input_parameter< U2 >::type x2(args[2]); 483 typename traits::input_parameter< U3 >::type x3(args[3]); 484 ptr_fun(x0,x1,x2,x3); 485 END_RCPP 486 } 487 nargs()488 inline int nargs() { return 4; } is_void()489 inline bool is_void() { return true; } signature(std::string & s,const char * name)490 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3>(s, name); } get_formals()491 SEXP get_formals() { return formals; } get_function_ptr()492 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 493 494 private: 495 Rcpp::List formals; 496 void (*ptr_fun)(U0,U1,U2,U3); 497 }; 498 499 500 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4> class CppFunction5 : public CppFunction { 501 public: 502 CppFunction(docstring)503 CppFunction5(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 504 operator()505 SEXP operator()(SEXP* args) { 506 BEGIN_RCPP 507 typename traits::input_parameter< U0 >::type x0(args[0]); 508 typename traits::input_parameter< U1 >::type x1(args[1]); 509 typename traits::input_parameter< U2 >::type x2(args[2]); 510 typename traits::input_parameter< U3 >::type x3(args[3]); 511 typename traits::input_parameter< U4 >::type x4(args[4]); 512 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4)); 513 END_RCPP 514 } 515 nargs()516 inline int nargs() { return 5; } signature(std::string & s,const char * name)517 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4>(s, name); } get_function_ptr()518 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 519 520 private: 521 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4) ; 522 }; 523 524 template <typename U0, typename U1, typename U2, typename U3, typename U4> 525 class CppFunction5<void,U0,U1,U2,U3,U4> : public CppFunction { 526 public: CppFunction(docstring)527 CppFunction5(void (*fun)(U0,U1,U2,U3,U4) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 528 operator()529 SEXP operator()(SEXP* args) { 530 BEGIN_RCPP 531 typename traits::input_parameter< U0 >::type x0(args[0]); 532 typename traits::input_parameter< U1 >::type x1(args[1]); 533 typename traits::input_parameter< U2 >::type x2(args[2]); 534 typename traits::input_parameter< U3 >::type x3(args[3]); 535 typename traits::input_parameter< U4 >::type x4(args[4]); 536 ptr_fun(x0,x1,x2,x3,x4); 537 END_RCPP 538 } 539 nargs()540 inline int nargs() { return 5; } is_void()541 inline bool is_void() { return true; } signature(std::string & s,const char * name)542 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4>(s, name); } get_function_ptr()543 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 544 545 private: 546 void (*ptr_fun)(U0,U1,U2,U3,U4) ; 547 }; 548 549 550 551 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4> 552 class CppFunction_WithFormals5 : public CppFunction { 553 public: 554 555 CppFunction_WithFormals5(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)556 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 557 operator()558 SEXP operator()(SEXP* args) { 559 BEGIN_RCPP 560 typename traits::input_parameter< U0 >::type x0(args[0]); 561 typename traits::input_parameter< U1 >::type x1(args[1]); 562 typename traits::input_parameter< U2 >::type x2(args[2]); 563 typename traits::input_parameter< U3 >::type x3(args[3]); 564 typename traits::input_parameter< U4 >::type x4(args[4]); 565 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4)); 566 END_RCPP 567 } 568 nargs()569 inline int nargs() { return 5; } signature(std::string & s,const char * name)570 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4>(s, name); } get_formals()571 SEXP get_formals() { return formals; } get_function_ptr()572 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 573 574 private: 575 Rcpp::List formals; 576 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4); 577 }; 578 579 template <typename U0, typename U1, typename U2, typename U3, typename U4> 580 class CppFunction_WithFormals5<void,U0,U1,U2,U3,U4> : public CppFunction { 581 public: 582 CppFunction_WithFormals5(void (*fun)(U0,U1,U2,U3,U4), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)583 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 584 operator()585 SEXP operator()(SEXP* args) { 586 BEGIN_RCPP 587 typename traits::input_parameter< U0 >::type x0(args[0]); 588 typename traits::input_parameter< U1 >::type x1(args[1]); 589 typename traits::input_parameter< U2 >::type x2(args[2]); 590 typename traits::input_parameter< U3 >::type x3(args[3]); 591 typename traits::input_parameter< U4 >::type x4(args[4]); 592 ptr_fun(x0,x1,x2,x3,x4); 593 END_RCPP 594 } 595 nargs()596 inline int nargs() { return 5; } is_void()597 inline bool is_void() { return true; } signature(std::string & s,const char * name)598 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4>(s, name); } get_formals()599 SEXP get_formals() { return formals; } get_function_ptr()600 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 601 602 private: 603 Rcpp::List formals; 604 void (*ptr_fun)(U0,U1,U2,U3,U4); 605 }; 606 607 608 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5> class CppFunction6 : public CppFunction { 609 public: 610 CppFunction(docstring)611 CppFunction6(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 612 operator()613 SEXP operator()(SEXP* args) { 614 BEGIN_RCPP 615 typename traits::input_parameter< U0 >::type x0(args[0]); 616 typename traits::input_parameter< U1 >::type x1(args[1]); 617 typename traits::input_parameter< U2 >::type x2(args[2]); 618 typename traits::input_parameter< U3 >::type x3(args[3]); 619 typename traits::input_parameter< U4 >::type x4(args[4]); 620 typename traits::input_parameter< U5 >::type x5(args[5]); 621 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5)); 622 END_RCPP 623 } 624 nargs()625 inline int nargs() { return 6; } signature(std::string & s,const char * name)626 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5>(s, name); } get_function_ptr()627 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 628 629 private: 630 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5) ; 631 }; 632 633 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5> 634 class CppFunction6<void,U0,U1,U2,U3,U4,U5> : public CppFunction { 635 public: CppFunction(docstring)636 CppFunction6(void (*fun)(U0,U1,U2,U3,U4,U5) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 637 operator()638 SEXP operator()(SEXP* args) { 639 BEGIN_RCPP 640 typename traits::input_parameter< U0 >::type x0(args[0]); 641 typename traits::input_parameter< U1 >::type x1(args[1]); 642 typename traits::input_parameter< U2 >::type x2(args[2]); 643 typename traits::input_parameter< U3 >::type x3(args[3]); 644 typename traits::input_parameter< U4 >::type x4(args[4]); 645 typename traits::input_parameter< U5 >::type x5(args[5]); 646 ptr_fun(x0,x1,x2,x3,x4,x5); 647 END_RCPP 648 } 649 nargs()650 inline int nargs() { return 6; } is_void()651 inline bool is_void() { return true; } signature(std::string & s,const char * name)652 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5>(s, name); } get_function_ptr()653 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 654 655 private: 656 void (*ptr_fun)(U0,U1,U2,U3,U4,U5) ; 657 }; 658 659 660 661 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5> 662 class CppFunction_WithFormals6 : public CppFunction { 663 public: 664 665 CppFunction_WithFormals6(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)666 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 667 operator()668 SEXP operator()(SEXP* args) { 669 BEGIN_RCPP 670 typename traits::input_parameter< U0 >::type x0(args[0]); 671 typename traits::input_parameter< U1 >::type x1(args[1]); 672 typename traits::input_parameter< U2 >::type x2(args[2]); 673 typename traits::input_parameter< U3 >::type x3(args[3]); 674 typename traits::input_parameter< U4 >::type x4(args[4]); 675 typename traits::input_parameter< U5 >::type x5(args[5]); 676 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5)); 677 END_RCPP 678 } 679 nargs()680 inline int nargs() { return 6; } signature(std::string & s,const char * name)681 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5>(s, name); } get_formals()682 SEXP get_formals() { return formals; } get_function_ptr()683 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 684 685 private: 686 Rcpp::List formals; 687 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5); 688 }; 689 690 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5> 691 class CppFunction_WithFormals6<void,U0,U1,U2,U3,U4,U5> : public CppFunction { 692 public: 693 CppFunction_WithFormals6(void (*fun)(U0,U1,U2,U3,U4,U5), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)694 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 695 operator()696 SEXP operator()(SEXP* args) { 697 BEGIN_RCPP 698 typename traits::input_parameter< U0 >::type x0(args[0]); 699 typename traits::input_parameter< U1 >::type x1(args[1]); 700 typename traits::input_parameter< U2 >::type x2(args[2]); 701 typename traits::input_parameter< U3 >::type x3(args[3]); 702 typename traits::input_parameter< U4 >::type x4(args[4]); 703 typename traits::input_parameter< U5 >::type x5(args[5]); 704 ptr_fun(x0,x1,x2,x3,x4,x5); 705 END_RCPP 706 } 707 nargs()708 inline int nargs() { return 6; } is_void()709 inline bool is_void() { return true; } signature(std::string & s,const char * name)710 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5>(s, name); } get_formals()711 SEXP get_formals() { return formals; } get_function_ptr()712 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 713 714 private: 715 Rcpp::List formals; 716 void (*ptr_fun)(U0,U1,U2,U3,U4,U5); 717 }; 718 719 720 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6> class CppFunction7 : public CppFunction { 721 public: 722 CppFunction(docstring)723 CppFunction7(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 724 operator()725 SEXP operator()(SEXP* args) { 726 BEGIN_RCPP 727 typename traits::input_parameter< U0 >::type x0(args[0]); 728 typename traits::input_parameter< U1 >::type x1(args[1]); 729 typename traits::input_parameter< U2 >::type x2(args[2]); 730 typename traits::input_parameter< U3 >::type x3(args[3]); 731 typename traits::input_parameter< U4 >::type x4(args[4]); 732 typename traits::input_parameter< U5 >::type x5(args[5]); 733 typename traits::input_parameter< U6 >::type x6(args[6]); 734 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6)); 735 END_RCPP 736 } 737 nargs()738 inline int nargs() { return 7; } signature(std::string & s,const char * name)739 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6>(s, name); } get_function_ptr()740 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 741 742 private: 743 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6) ; 744 }; 745 746 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6> 747 class CppFunction7<void,U0,U1,U2,U3,U4,U5,U6> : public CppFunction { 748 public: CppFunction(docstring)749 CppFunction7(void (*fun)(U0,U1,U2,U3,U4,U5,U6) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 750 operator()751 SEXP operator()(SEXP* args) { 752 BEGIN_RCPP 753 typename traits::input_parameter< U0 >::type x0(args[0]); 754 typename traits::input_parameter< U1 >::type x1(args[1]); 755 typename traits::input_parameter< U2 >::type x2(args[2]); 756 typename traits::input_parameter< U3 >::type x3(args[3]); 757 typename traits::input_parameter< U4 >::type x4(args[4]); 758 typename traits::input_parameter< U5 >::type x5(args[5]); 759 typename traits::input_parameter< U6 >::type x6(args[6]); 760 ptr_fun(x0,x1,x2,x3,x4,x5,x6); 761 END_RCPP 762 } 763 nargs()764 inline int nargs() { return 7; } is_void()765 inline bool is_void() { return true; } signature(std::string & s,const char * name)766 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6>(s, name); } get_function_ptr()767 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 768 769 private: 770 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6) ; 771 }; 772 773 774 775 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6> 776 class CppFunction_WithFormals7 : public CppFunction { 777 public: 778 779 CppFunction_WithFormals7(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)780 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 781 operator()782 SEXP operator()(SEXP* args) { 783 BEGIN_RCPP 784 typename traits::input_parameter< U0 >::type x0(args[0]); 785 typename traits::input_parameter< U1 >::type x1(args[1]); 786 typename traits::input_parameter< U2 >::type x2(args[2]); 787 typename traits::input_parameter< U3 >::type x3(args[3]); 788 typename traits::input_parameter< U4 >::type x4(args[4]); 789 typename traits::input_parameter< U5 >::type x5(args[5]); 790 typename traits::input_parameter< U6 >::type x6(args[6]); 791 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6)); 792 END_RCPP 793 } 794 nargs()795 inline int nargs() { return 7; } signature(std::string & s,const char * name)796 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6>(s, name); } get_formals()797 SEXP get_formals() { return formals; } get_function_ptr()798 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 799 800 private: 801 Rcpp::List formals; 802 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6); 803 }; 804 805 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6> 806 class CppFunction_WithFormals7<void,U0,U1,U2,U3,U4,U5,U6> : public CppFunction { 807 public: 808 CppFunction_WithFormals7(void (*fun)(U0,U1,U2,U3,U4,U5,U6), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)809 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 810 operator()811 SEXP operator()(SEXP* args) { 812 BEGIN_RCPP 813 typename traits::input_parameter< U0 >::type x0(args[0]); 814 typename traits::input_parameter< U1 >::type x1(args[1]); 815 typename traits::input_parameter< U2 >::type x2(args[2]); 816 typename traits::input_parameter< U3 >::type x3(args[3]); 817 typename traits::input_parameter< U4 >::type x4(args[4]); 818 typename traits::input_parameter< U5 >::type x5(args[5]); 819 typename traits::input_parameter< U6 >::type x6(args[6]); 820 ptr_fun(x0,x1,x2,x3,x4,x5,x6); 821 END_RCPP 822 } 823 nargs()824 inline int nargs() { return 7; } is_void()825 inline bool is_void() { return true; } signature(std::string & s,const char * name)826 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6>(s, name); } get_formals()827 SEXP get_formals() { return formals; } get_function_ptr()828 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 829 830 private: 831 Rcpp::List formals; 832 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6); 833 }; 834 835 836 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7> class CppFunction8 : public CppFunction { 837 public: 838 CppFunction(docstring)839 CppFunction8(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 840 operator()841 SEXP operator()(SEXP* args) { 842 BEGIN_RCPP 843 typename traits::input_parameter< U0 >::type x0(args[0]); 844 typename traits::input_parameter< U1 >::type x1(args[1]); 845 typename traits::input_parameter< U2 >::type x2(args[2]); 846 typename traits::input_parameter< U3 >::type x3(args[3]); 847 typename traits::input_parameter< U4 >::type x4(args[4]); 848 typename traits::input_parameter< U5 >::type x5(args[5]); 849 typename traits::input_parameter< U6 >::type x6(args[6]); 850 typename traits::input_parameter< U7 >::type x7(args[7]); 851 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7)); 852 END_RCPP 853 } 854 nargs()855 inline int nargs() { return 8; } signature(std::string & s,const char * name)856 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7>(s, name); } get_function_ptr()857 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 858 859 private: 860 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7) ; 861 }; 862 863 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7> 864 class CppFunction8<void,U0,U1,U2,U3,U4,U5,U6,U7> : public CppFunction { 865 public: CppFunction(docstring)866 CppFunction8(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 867 operator()868 SEXP operator()(SEXP* args) { 869 BEGIN_RCPP 870 typename traits::input_parameter< U0 >::type x0(args[0]); 871 typename traits::input_parameter< U1 >::type x1(args[1]); 872 typename traits::input_parameter< U2 >::type x2(args[2]); 873 typename traits::input_parameter< U3 >::type x3(args[3]); 874 typename traits::input_parameter< U4 >::type x4(args[4]); 875 typename traits::input_parameter< U5 >::type x5(args[5]); 876 typename traits::input_parameter< U6 >::type x6(args[6]); 877 typename traits::input_parameter< U7 >::type x7(args[7]); 878 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7); 879 END_RCPP 880 } 881 nargs()882 inline int nargs() { return 8; } is_void()883 inline bool is_void() { return true; } signature(std::string & s,const char * name)884 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7>(s, name); } get_function_ptr()885 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 886 887 private: 888 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7) ; 889 }; 890 891 892 893 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7> 894 class CppFunction_WithFormals8 : public CppFunction { 895 public: 896 897 CppFunction_WithFormals8(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)898 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 899 operator()900 SEXP operator()(SEXP* args) { 901 BEGIN_RCPP 902 typename traits::input_parameter< U0 >::type x0(args[0]); 903 typename traits::input_parameter< U1 >::type x1(args[1]); 904 typename traits::input_parameter< U2 >::type x2(args[2]); 905 typename traits::input_parameter< U3 >::type x3(args[3]); 906 typename traits::input_parameter< U4 >::type x4(args[4]); 907 typename traits::input_parameter< U5 >::type x5(args[5]); 908 typename traits::input_parameter< U6 >::type x6(args[6]); 909 typename traits::input_parameter< U7 >::type x7(args[7]); 910 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7)); 911 END_RCPP 912 } 913 nargs()914 inline int nargs() { return 8; } signature(std::string & s,const char * name)915 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7>(s, name); } get_formals()916 SEXP get_formals() { return formals; } get_function_ptr()917 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 918 919 private: 920 Rcpp::List formals; 921 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7); 922 }; 923 924 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7> 925 class CppFunction_WithFormals8<void,U0,U1,U2,U3,U4,U5,U6,U7> : public CppFunction { 926 public: 927 CppFunction_WithFormals8(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)928 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 929 operator()930 SEXP operator()(SEXP* args) { 931 BEGIN_RCPP 932 typename traits::input_parameter< U0 >::type x0(args[0]); 933 typename traits::input_parameter< U1 >::type x1(args[1]); 934 typename traits::input_parameter< U2 >::type x2(args[2]); 935 typename traits::input_parameter< U3 >::type x3(args[3]); 936 typename traits::input_parameter< U4 >::type x4(args[4]); 937 typename traits::input_parameter< U5 >::type x5(args[5]); 938 typename traits::input_parameter< U6 >::type x6(args[6]); 939 typename traits::input_parameter< U7 >::type x7(args[7]); 940 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7); 941 END_RCPP 942 } 943 nargs()944 inline int nargs() { return 8; } is_void()945 inline bool is_void() { return true; } signature(std::string & s,const char * name)946 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7>(s, name); } get_formals()947 SEXP get_formals() { return formals; } get_function_ptr()948 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 949 950 private: 951 Rcpp::List formals; 952 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7); 953 }; 954 955 956 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8> class CppFunction9 : public CppFunction { 957 public: 958 CppFunction(docstring)959 CppFunction9(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 960 operator()961 SEXP operator()(SEXP* args) { 962 BEGIN_RCPP 963 typename traits::input_parameter< U0 >::type x0(args[0]); 964 typename traits::input_parameter< U1 >::type x1(args[1]); 965 typename traits::input_parameter< U2 >::type x2(args[2]); 966 typename traits::input_parameter< U3 >::type x3(args[3]); 967 typename traits::input_parameter< U4 >::type x4(args[4]); 968 typename traits::input_parameter< U5 >::type x5(args[5]); 969 typename traits::input_parameter< U6 >::type x6(args[6]); 970 typename traits::input_parameter< U7 >::type x7(args[7]); 971 typename traits::input_parameter< U8 >::type x8(args[8]); 972 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8)); 973 END_RCPP 974 } 975 nargs()976 inline int nargs() { return 9; } signature(std::string & s,const char * name)977 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8>(s, name); } get_function_ptr()978 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 979 980 private: 981 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8) ; 982 }; 983 984 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8> 985 class CppFunction9<void,U0,U1,U2,U3,U4,U5,U6,U7,U8> : public CppFunction { 986 public: CppFunction(docstring)987 CppFunction9(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 988 operator()989 SEXP operator()(SEXP* args) { 990 BEGIN_RCPP 991 typename traits::input_parameter< U0 >::type x0(args[0]); 992 typename traits::input_parameter< U1 >::type x1(args[1]); 993 typename traits::input_parameter< U2 >::type x2(args[2]); 994 typename traits::input_parameter< U3 >::type x3(args[3]); 995 typename traits::input_parameter< U4 >::type x4(args[4]); 996 typename traits::input_parameter< U5 >::type x5(args[5]); 997 typename traits::input_parameter< U6 >::type x6(args[6]); 998 typename traits::input_parameter< U7 >::type x7(args[7]); 999 typename traits::input_parameter< U8 >::type x8(args[8]); 1000 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8); 1001 END_RCPP 1002 } 1003 nargs()1004 inline int nargs() { return 9; } is_void()1005 inline bool is_void() { return true; } signature(std::string & s,const char * name)1006 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8>(s, name); } get_function_ptr()1007 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1008 1009 private: 1010 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8) ; 1011 }; 1012 1013 1014 1015 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8> 1016 class CppFunction_WithFormals9 : public CppFunction { 1017 public: 1018 1019 CppFunction_WithFormals9(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1020 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1021 operator()1022 SEXP operator()(SEXP* args) { 1023 BEGIN_RCPP 1024 typename traits::input_parameter< U0 >::type x0(args[0]); 1025 typename traits::input_parameter< U1 >::type x1(args[1]); 1026 typename traits::input_parameter< U2 >::type x2(args[2]); 1027 typename traits::input_parameter< U3 >::type x3(args[3]); 1028 typename traits::input_parameter< U4 >::type x4(args[4]); 1029 typename traits::input_parameter< U5 >::type x5(args[5]); 1030 typename traits::input_parameter< U6 >::type x6(args[6]); 1031 typename traits::input_parameter< U7 >::type x7(args[7]); 1032 typename traits::input_parameter< U8 >::type x8(args[8]); 1033 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8)); 1034 END_RCPP 1035 } 1036 nargs()1037 inline int nargs() { return 9; } signature(std::string & s,const char * name)1038 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8>(s, name); } get_formals()1039 SEXP get_formals() { return formals; } get_function_ptr()1040 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1041 1042 private: 1043 Rcpp::List formals; 1044 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8); 1045 }; 1046 1047 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8> 1048 class CppFunction_WithFormals9<void,U0,U1,U2,U3,U4,U5,U6,U7,U8> : public CppFunction { 1049 public: 1050 CppFunction_WithFormals9(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1051 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1052 operator()1053 SEXP operator()(SEXP* args) { 1054 BEGIN_RCPP 1055 typename traits::input_parameter< U0 >::type x0(args[0]); 1056 typename traits::input_parameter< U1 >::type x1(args[1]); 1057 typename traits::input_parameter< U2 >::type x2(args[2]); 1058 typename traits::input_parameter< U3 >::type x3(args[3]); 1059 typename traits::input_parameter< U4 >::type x4(args[4]); 1060 typename traits::input_parameter< U5 >::type x5(args[5]); 1061 typename traits::input_parameter< U6 >::type x6(args[6]); 1062 typename traits::input_parameter< U7 >::type x7(args[7]); 1063 typename traits::input_parameter< U8 >::type x8(args[8]); 1064 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8); 1065 END_RCPP 1066 } 1067 nargs()1068 inline int nargs() { return 9; } is_void()1069 inline bool is_void() { return true; } signature(std::string & s,const char * name)1070 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8>(s, name); } get_formals()1071 SEXP get_formals() { return formals; } get_function_ptr()1072 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1073 1074 private: 1075 Rcpp::List formals; 1076 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8); 1077 }; 1078 1079 1080 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9> class CppFunction10 : public CppFunction { 1081 public: 1082 CppFunction(docstring)1083 CppFunction10(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1084 operator()1085 SEXP operator()(SEXP* args) { 1086 BEGIN_RCPP 1087 typename traits::input_parameter< U0 >::type x0(args[0]); 1088 typename traits::input_parameter< U1 >::type x1(args[1]); 1089 typename traits::input_parameter< U2 >::type x2(args[2]); 1090 typename traits::input_parameter< U3 >::type x3(args[3]); 1091 typename traits::input_parameter< U4 >::type x4(args[4]); 1092 typename traits::input_parameter< U5 >::type x5(args[5]); 1093 typename traits::input_parameter< U6 >::type x6(args[6]); 1094 typename traits::input_parameter< U7 >::type x7(args[7]); 1095 typename traits::input_parameter< U8 >::type x8(args[8]); 1096 typename traits::input_parameter< U9 >::type x9(args[9]); 1097 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9)); 1098 END_RCPP 1099 } 1100 nargs()1101 inline int nargs() { return 10; } signature(std::string & s,const char * name)1102 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9>(s, name); } get_function_ptr()1103 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 1104 1105 private: 1106 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9) ; 1107 }; 1108 1109 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9> 1110 class CppFunction10<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9> : public CppFunction { 1111 public: CppFunction(docstring)1112 CppFunction10(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1113 operator()1114 SEXP operator()(SEXP* args) { 1115 BEGIN_RCPP 1116 typename traits::input_parameter< U0 >::type x0(args[0]); 1117 typename traits::input_parameter< U1 >::type x1(args[1]); 1118 typename traits::input_parameter< U2 >::type x2(args[2]); 1119 typename traits::input_parameter< U3 >::type x3(args[3]); 1120 typename traits::input_parameter< U4 >::type x4(args[4]); 1121 typename traits::input_parameter< U5 >::type x5(args[5]); 1122 typename traits::input_parameter< U6 >::type x6(args[6]); 1123 typename traits::input_parameter< U7 >::type x7(args[7]); 1124 typename traits::input_parameter< U8 >::type x8(args[8]); 1125 typename traits::input_parameter< U9 >::type x9(args[9]); 1126 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9); 1127 END_RCPP 1128 } 1129 nargs()1130 inline int nargs() { return 10; } is_void()1131 inline bool is_void() { return true; } signature(std::string & s,const char * name)1132 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9>(s, name); } get_function_ptr()1133 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1134 1135 private: 1136 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9) ; 1137 }; 1138 1139 1140 1141 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9> 1142 class CppFunction_WithFormals10 : public CppFunction { 1143 public: 1144 1145 CppFunction_WithFormals10(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1146 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1147 operator()1148 SEXP operator()(SEXP* args) { 1149 BEGIN_RCPP 1150 typename traits::input_parameter< U0 >::type x0(args[0]); 1151 typename traits::input_parameter< U1 >::type x1(args[1]); 1152 typename traits::input_parameter< U2 >::type x2(args[2]); 1153 typename traits::input_parameter< U3 >::type x3(args[3]); 1154 typename traits::input_parameter< U4 >::type x4(args[4]); 1155 typename traits::input_parameter< U5 >::type x5(args[5]); 1156 typename traits::input_parameter< U6 >::type x6(args[6]); 1157 typename traits::input_parameter< U7 >::type x7(args[7]); 1158 typename traits::input_parameter< U8 >::type x8(args[8]); 1159 typename traits::input_parameter< U9 >::type x9(args[9]); 1160 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9)); 1161 END_RCPP 1162 } 1163 nargs()1164 inline int nargs() { return 10; } signature(std::string & s,const char * name)1165 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9>(s, name); } get_formals()1166 SEXP get_formals() { return formals; } get_function_ptr()1167 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1168 1169 private: 1170 Rcpp::List formals; 1171 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9); 1172 }; 1173 1174 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9> 1175 class CppFunction_WithFormals10<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9> : public CppFunction { 1176 public: 1177 CppFunction_WithFormals10(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1178 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1179 operator()1180 SEXP operator()(SEXP* args) { 1181 BEGIN_RCPP 1182 typename traits::input_parameter< U0 >::type x0(args[0]); 1183 typename traits::input_parameter< U1 >::type x1(args[1]); 1184 typename traits::input_parameter< U2 >::type x2(args[2]); 1185 typename traits::input_parameter< U3 >::type x3(args[3]); 1186 typename traits::input_parameter< U4 >::type x4(args[4]); 1187 typename traits::input_parameter< U5 >::type x5(args[5]); 1188 typename traits::input_parameter< U6 >::type x6(args[6]); 1189 typename traits::input_parameter< U7 >::type x7(args[7]); 1190 typename traits::input_parameter< U8 >::type x8(args[8]); 1191 typename traits::input_parameter< U9 >::type x9(args[9]); 1192 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9); 1193 END_RCPP 1194 } 1195 nargs()1196 inline int nargs() { return 10; } is_void()1197 inline bool is_void() { return true; } signature(std::string & s,const char * name)1198 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9>(s, name); } get_formals()1199 SEXP get_formals() { return formals; } get_function_ptr()1200 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1201 1202 private: 1203 Rcpp::List formals; 1204 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9); 1205 }; 1206 1207 1208 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10> class CppFunction11 : public CppFunction { 1209 public: 1210 CppFunction(docstring)1211 CppFunction11(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1212 operator()1213 SEXP operator()(SEXP* args) { 1214 BEGIN_RCPP 1215 typename traits::input_parameter< U0 >::type x0(args[0]); 1216 typename traits::input_parameter< U1 >::type x1(args[1]); 1217 typename traits::input_parameter< U2 >::type x2(args[2]); 1218 typename traits::input_parameter< U3 >::type x3(args[3]); 1219 typename traits::input_parameter< U4 >::type x4(args[4]); 1220 typename traits::input_parameter< U5 >::type x5(args[5]); 1221 typename traits::input_parameter< U6 >::type x6(args[6]); 1222 typename traits::input_parameter< U7 >::type x7(args[7]); 1223 typename traits::input_parameter< U8 >::type x8(args[8]); 1224 typename traits::input_parameter< U9 >::type x9(args[9]); 1225 typename traits::input_parameter< U10 >::type x10(args[10]); 1226 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10)); 1227 END_RCPP 1228 } 1229 nargs()1230 inline int nargs() { return 11; } signature(std::string & s,const char * name)1231 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10>(s, name); } get_function_ptr()1232 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 1233 1234 private: 1235 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10) ; 1236 }; 1237 1238 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10> 1239 class CppFunction11<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10> : public CppFunction { 1240 public: CppFunction(docstring)1241 CppFunction11(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1242 operator()1243 SEXP operator()(SEXP* args) { 1244 BEGIN_RCPP 1245 typename traits::input_parameter< U0 >::type x0(args[0]); 1246 typename traits::input_parameter< U1 >::type x1(args[1]); 1247 typename traits::input_parameter< U2 >::type x2(args[2]); 1248 typename traits::input_parameter< U3 >::type x3(args[3]); 1249 typename traits::input_parameter< U4 >::type x4(args[4]); 1250 typename traits::input_parameter< U5 >::type x5(args[5]); 1251 typename traits::input_parameter< U6 >::type x6(args[6]); 1252 typename traits::input_parameter< U7 >::type x7(args[7]); 1253 typename traits::input_parameter< U8 >::type x8(args[8]); 1254 typename traits::input_parameter< U9 >::type x9(args[9]); 1255 typename traits::input_parameter< U10 >::type x10(args[10]); 1256 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10); 1257 END_RCPP 1258 } 1259 nargs()1260 inline int nargs() { return 11; } is_void()1261 inline bool is_void() { return true; } signature(std::string & s,const char * name)1262 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10>(s, name); } get_function_ptr()1263 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1264 1265 private: 1266 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10) ; 1267 }; 1268 1269 1270 1271 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10> 1272 class CppFunction_WithFormals11 : public CppFunction { 1273 public: 1274 1275 CppFunction_WithFormals11(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1276 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1277 operator()1278 SEXP operator()(SEXP* args) { 1279 BEGIN_RCPP 1280 typename traits::input_parameter< U0 >::type x0(args[0]); 1281 typename traits::input_parameter< U1 >::type x1(args[1]); 1282 typename traits::input_parameter< U2 >::type x2(args[2]); 1283 typename traits::input_parameter< U3 >::type x3(args[3]); 1284 typename traits::input_parameter< U4 >::type x4(args[4]); 1285 typename traits::input_parameter< U5 >::type x5(args[5]); 1286 typename traits::input_parameter< U6 >::type x6(args[6]); 1287 typename traits::input_parameter< U7 >::type x7(args[7]); 1288 typename traits::input_parameter< U8 >::type x8(args[8]); 1289 typename traits::input_parameter< U9 >::type x9(args[9]); 1290 typename traits::input_parameter< U10 >::type x10(args[10]); 1291 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10)); 1292 END_RCPP 1293 } 1294 nargs()1295 inline int nargs() { return 11; } signature(std::string & s,const char * name)1296 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10>(s, name); } get_formals()1297 SEXP get_formals() { return formals; } get_function_ptr()1298 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1299 1300 private: 1301 Rcpp::List formals; 1302 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10); 1303 }; 1304 1305 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10> 1306 class CppFunction_WithFormals11<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10> : public CppFunction { 1307 public: 1308 CppFunction_WithFormals11(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1309 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1310 operator()1311 SEXP operator()(SEXP* args) { 1312 BEGIN_RCPP 1313 typename traits::input_parameter< U0 >::type x0(args[0]); 1314 typename traits::input_parameter< U1 >::type x1(args[1]); 1315 typename traits::input_parameter< U2 >::type x2(args[2]); 1316 typename traits::input_parameter< U3 >::type x3(args[3]); 1317 typename traits::input_parameter< U4 >::type x4(args[4]); 1318 typename traits::input_parameter< U5 >::type x5(args[5]); 1319 typename traits::input_parameter< U6 >::type x6(args[6]); 1320 typename traits::input_parameter< U7 >::type x7(args[7]); 1321 typename traits::input_parameter< U8 >::type x8(args[8]); 1322 typename traits::input_parameter< U9 >::type x9(args[9]); 1323 typename traits::input_parameter< U10 >::type x10(args[10]); 1324 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10); 1325 END_RCPP 1326 } 1327 nargs()1328 inline int nargs() { return 11; } is_void()1329 inline bool is_void() { return true; } signature(std::string & s,const char * name)1330 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10>(s, name); } get_formals()1331 SEXP get_formals() { return formals; } get_function_ptr()1332 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1333 1334 private: 1335 Rcpp::List formals; 1336 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10); 1337 }; 1338 1339 1340 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11> class CppFunction12 : public CppFunction { 1341 public: 1342 CppFunction(docstring)1343 CppFunction12(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1344 operator()1345 SEXP operator()(SEXP* args) { 1346 BEGIN_RCPP 1347 typename traits::input_parameter< U0 >::type x0(args[0]); 1348 typename traits::input_parameter< U1 >::type x1(args[1]); 1349 typename traits::input_parameter< U2 >::type x2(args[2]); 1350 typename traits::input_parameter< U3 >::type x3(args[3]); 1351 typename traits::input_parameter< U4 >::type x4(args[4]); 1352 typename traits::input_parameter< U5 >::type x5(args[5]); 1353 typename traits::input_parameter< U6 >::type x6(args[6]); 1354 typename traits::input_parameter< U7 >::type x7(args[7]); 1355 typename traits::input_parameter< U8 >::type x8(args[8]); 1356 typename traits::input_parameter< U9 >::type x9(args[9]); 1357 typename traits::input_parameter< U10 >::type x10(args[10]); 1358 typename traits::input_parameter< U11 >::type x11(args[11]); 1359 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11)); 1360 END_RCPP 1361 } 1362 nargs()1363 inline int nargs() { return 12; } signature(std::string & s,const char * name)1364 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11>(s, name); } get_function_ptr()1365 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 1366 1367 private: 1368 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11) ; 1369 }; 1370 1371 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11> 1372 class CppFunction12<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11> : public CppFunction { 1373 public: CppFunction(docstring)1374 CppFunction12(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1375 operator()1376 SEXP operator()(SEXP* args) { 1377 BEGIN_RCPP 1378 typename traits::input_parameter< U0 >::type x0(args[0]); 1379 typename traits::input_parameter< U1 >::type x1(args[1]); 1380 typename traits::input_parameter< U2 >::type x2(args[2]); 1381 typename traits::input_parameter< U3 >::type x3(args[3]); 1382 typename traits::input_parameter< U4 >::type x4(args[4]); 1383 typename traits::input_parameter< U5 >::type x5(args[5]); 1384 typename traits::input_parameter< U6 >::type x6(args[6]); 1385 typename traits::input_parameter< U7 >::type x7(args[7]); 1386 typename traits::input_parameter< U8 >::type x8(args[8]); 1387 typename traits::input_parameter< U9 >::type x9(args[9]); 1388 typename traits::input_parameter< U10 >::type x10(args[10]); 1389 typename traits::input_parameter< U11 >::type x11(args[11]); 1390 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11); 1391 END_RCPP 1392 } 1393 nargs()1394 inline int nargs() { return 12; } is_void()1395 inline bool is_void() { return true; } signature(std::string & s,const char * name)1396 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11>(s, name); } get_function_ptr()1397 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1398 1399 private: 1400 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11) ; 1401 }; 1402 1403 1404 1405 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11> 1406 class CppFunction_WithFormals12 : public CppFunction { 1407 public: 1408 1409 CppFunction_WithFormals12(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1410 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1411 operator()1412 SEXP operator()(SEXP* args) { 1413 BEGIN_RCPP 1414 typename traits::input_parameter< U0 >::type x0(args[0]); 1415 typename traits::input_parameter< U1 >::type x1(args[1]); 1416 typename traits::input_parameter< U2 >::type x2(args[2]); 1417 typename traits::input_parameter< U3 >::type x3(args[3]); 1418 typename traits::input_parameter< U4 >::type x4(args[4]); 1419 typename traits::input_parameter< U5 >::type x5(args[5]); 1420 typename traits::input_parameter< U6 >::type x6(args[6]); 1421 typename traits::input_parameter< U7 >::type x7(args[7]); 1422 typename traits::input_parameter< U8 >::type x8(args[8]); 1423 typename traits::input_parameter< U9 >::type x9(args[9]); 1424 typename traits::input_parameter< U10 >::type x10(args[10]); 1425 typename traits::input_parameter< U11 >::type x11(args[11]); 1426 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11)); 1427 END_RCPP 1428 } 1429 nargs()1430 inline int nargs() { return 12; } signature(std::string & s,const char * name)1431 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11>(s, name); } get_formals()1432 SEXP get_formals() { return formals; } get_function_ptr()1433 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1434 1435 private: 1436 Rcpp::List formals; 1437 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11); 1438 }; 1439 1440 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11> 1441 class CppFunction_WithFormals12<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11> : public CppFunction { 1442 public: 1443 CppFunction_WithFormals12(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1444 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1445 operator()1446 SEXP operator()(SEXP* args) { 1447 BEGIN_RCPP 1448 typename traits::input_parameter< U0 >::type x0(args[0]); 1449 typename traits::input_parameter< U1 >::type x1(args[1]); 1450 typename traits::input_parameter< U2 >::type x2(args[2]); 1451 typename traits::input_parameter< U3 >::type x3(args[3]); 1452 typename traits::input_parameter< U4 >::type x4(args[4]); 1453 typename traits::input_parameter< U5 >::type x5(args[5]); 1454 typename traits::input_parameter< U6 >::type x6(args[6]); 1455 typename traits::input_parameter< U7 >::type x7(args[7]); 1456 typename traits::input_parameter< U8 >::type x8(args[8]); 1457 typename traits::input_parameter< U9 >::type x9(args[9]); 1458 typename traits::input_parameter< U10 >::type x10(args[10]); 1459 typename traits::input_parameter< U11 >::type x11(args[11]); 1460 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11); 1461 END_RCPP 1462 } 1463 nargs()1464 inline int nargs() { return 12; } is_void()1465 inline bool is_void() { return true; } signature(std::string & s,const char * name)1466 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11>(s, name); } get_formals()1467 SEXP get_formals() { return formals; } get_function_ptr()1468 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1469 1470 private: 1471 Rcpp::List formals; 1472 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11); 1473 }; 1474 1475 1476 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12> class CppFunction13 : public CppFunction { 1477 public: 1478 CppFunction(docstring)1479 CppFunction13(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1480 operator()1481 SEXP operator()(SEXP* args) { 1482 BEGIN_RCPP 1483 typename traits::input_parameter< U0 >::type x0(args[0]); 1484 typename traits::input_parameter< U1 >::type x1(args[1]); 1485 typename traits::input_parameter< U2 >::type x2(args[2]); 1486 typename traits::input_parameter< U3 >::type x3(args[3]); 1487 typename traits::input_parameter< U4 >::type x4(args[4]); 1488 typename traits::input_parameter< U5 >::type x5(args[5]); 1489 typename traits::input_parameter< U6 >::type x6(args[6]); 1490 typename traits::input_parameter< U7 >::type x7(args[7]); 1491 typename traits::input_parameter< U8 >::type x8(args[8]); 1492 typename traits::input_parameter< U9 >::type x9(args[9]); 1493 typename traits::input_parameter< U10 >::type x10(args[10]); 1494 typename traits::input_parameter< U11 >::type x11(args[11]); 1495 typename traits::input_parameter< U12 >::type x12(args[12]); 1496 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12)); 1497 END_RCPP 1498 } 1499 nargs()1500 inline int nargs() { return 13; } signature(std::string & s,const char * name)1501 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12>(s, name); } get_function_ptr()1502 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 1503 1504 private: 1505 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12) ; 1506 }; 1507 1508 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12> 1509 class CppFunction13<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12> : public CppFunction { 1510 public: CppFunction(docstring)1511 CppFunction13(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1512 operator()1513 SEXP operator()(SEXP* args) { 1514 BEGIN_RCPP 1515 typename traits::input_parameter< U0 >::type x0(args[0]); 1516 typename traits::input_parameter< U1 >::type x1(args[1]); 1517 typename traits::input_parameter< U2 >::type x2(args[2]); 1518 typename traits::input_parameter< U3 >::type x3(args[3]); 1519 typename traits::input_parameter< U4 >::type x4(args[4]); 1520 typename traits::input_parameter< U5 >::type x5(args[5]); 1521 typename traits::input_parameter< U6 >::type x6(args[6]); 1522 typename traits::input_parameter< U7 >::type x7(args[7]); 1523 typename traits::input_parameter< U8 >::type x8(args[8]); 1524 typename traits::input_parameter< U9 >::type x9(args[9]); 1525 typename traits::input_parameter< U10 >::type x10(args[10]); 1526 typename traits::input_parameter< U11 >::type x11(args[11]); 1527 typename traits::input_parameter< U12 >::type x12(args[12]); 1528 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12); 1529 END_RCPP 1530 } 1531 nargs()1532 inline int nargs() { return 13; } is_void()1533 inline bool is_void() { return true; } signature(std::string & s,const char * name)1534 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12>(s, name); } get_function_ptr()1535 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1536 1537 private: 1538 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12) ; 1539 }; 1540 1541 1542 1543 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12> 1544 class CppFunction_WithFormals13 : public CppFunction { 1545 public: 1546 1547 CppFunction_WithFormals13(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1548 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1549 operator()1550 SEXP operator()(SEXP* args) { 1551 BEGIN_RCPP 1552 typename traits::input_parameter< U0 >::type x0(args[0]); 1553 typename traits::input_parameter< U1 >::type x1(args[1]); 1554 typename traits::input_parameter< U2 >::type x2(args[2]); 1555 typename traits::input_parameter< U3 >::type x3(args[3]); 1556 typename traits::input_parameter< U4 >::type x4(args[4]); 1557 typename traits::input_parameter< U5 >::type x5(args[5]); 1558 typename traits::input_parameter< U6 >::type x6(args[6]); 1559 typename traits::input_parameter< U7 >::type x7(args[7]); 1560 typename traits::input_parameter< U8 >::type x8(args[8]); 1561 typename traits::input_parameter< U9 >::type x9(args[9]); 1562 typename traits::input_parameter< U10 >::type x10(args[10]); 1563 typename traits::input_parameter< U11 >::type x11(args[11]); 1564 typename traits::input_parameter< U12 >::type x12(args[12]); 1565 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12)); 1566 END_RCPP 1567 } 1568 nargs()1569 inline int nargs() { return 13; } signature(std::string & s,const char * name)1570 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12>(s, name); } get_formals()1571 SEXP get_formals() { return formals; } get_function_ptr()1572 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1573 1574 private: 1575 Rcpp::List formals; 1576 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12); 1577 }; 1578 1579 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12> 1580 class CppFunction_WithFormals13<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12> : public CppFunction { 1581 public: 1582 CppFunction_WithFormals13(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1583 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1584 operator()1585 SEXP operator()(SEXP* args) { 1586 BEGIN_RCPP 1587 typename traits::input_parameter< U0 >::type x0(args[0]); 1588 typename traits::input_parameter< U1 >::type x1(args[1]); 1589 typename traits::input_parameter< U2 >::type x2(args[2]); 1590 typename traits::input_parameter< U3 >::type x3(args[3]); 1591 typename traits::input_parameter< U4 >::type x4(args[4]); 1592 typename traits::input_parameter< U5 >::type x5(args[5]); 1593 typename traits::input_parameter< U6 >::type x6(args[6]); 1594 typename traits::input_parameter< U7 >::type x7(args[7]); 1595 typename traits::input_parameter< U8 >::type x8(args[8]); 1596 typename traits::input_parameter< U9 >::type x9(args[9]); 1597 typename traits::input_parameter< U10 >::type x10(args[10]); 1598 typename traits::input_parameter< U11 >::type x11(args[11]); 1599 typename traits::input_parameter< U12 >::type x12(args[12]); 1600 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12); 1601 END_RCPP 1602 } 1603 nargs()1604 inline int nargs() { return 13; } is_void()1605 inline bool is_void() { return true; } signature(std::string & s,const char * name)1606 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12>(s, name); } get_formals()1607 SEXP get_formals() { return formals; } get_function_ptr()1608 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1609 1610 private: 1611 Rcpp::List formals; 1612 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12); 1613 }; 1614 1615 1616 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13> class CppFunction14 : public CppFunction { 1617 public: 1618 CppFunction(docstring)1619 CppFunction14(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1620 operator()1621 SEXP operator()(SEXP* args) { 1622 BEGIN_RCPP 1623 typename traits::input_parameter< U0 >::type x0(args[0]); 1624 typename traits::input_parameter< U1 >::type x1(args[1]); 1625 typename traits::input_parameter< U2 >::type x2(args[2]); 1626 typename traits::input_parameter< U3 >::type x3(args[3]); 1627 typename traits::input_parameter< U4 >::type x4(args[4]); 1628 typename traits::input_parameter< U5 >::type x5(args[5]); 1629 typename traits::input_parameter< U6 >::type x6(args[6]); 1630 typename traits::input_parameter< U7 >::type x7(args[7]); 1631 typename traits::input_parameter< U8 >::type x8(args[8]); 1632 typename traits::input_parameter< U9 >::type x9(args[9]); 1633 typename traits::input_parameter< U10 >::type x10(args[10]); 1634 typename traits::input_parameter< U11 >::type x11(args[11]); 1635 typename traits::input_parameter< U12 >::type x12(args[12]); 1636 typename traits::input_parameter< U13 >::type x13(args[13]); 1637 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13)); 1638 END_RCPP 1639 } 1640 nargs()1641 inline int nargs() { return 14; } signature(std::string & s,const char * name)1642 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13>(s, name); } get_function_ptr()1643 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 1644 1645 private: 1646 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13) ; 1647 }; 1648 1649 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13> 1650 class CppFunction14<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13> : public CppFunction { 1651 public: CppFunction(docstring)1652 CppFunction14(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1653 operator()1654 SEXP operator()(SEXP* args) { 1655 BEGIN_RCPP 1656 typename traits::input_parameter< U0 >::type x0(args[0]); 1657 typename traits::input_parameter< U1 >::type x1(args[1]); 1658 typename traits::input_parameter< U2 >::type x2(args[2]); 1659 typename traits::input_parameter< U3 >::type x3(args[3]); 1660 typename traits::input_parameter< U4 >::type x4(args[4]); 1661 typename traits::input_parameter< U5 >::type x5(args[5]); 1662 typename traits::input_parameter< U6 >::type x6(args[6]); 1663 typename traits::input_parameter< U7 >::type x7(args[7]); 1664 typename traits::input_parameter< U8 >::type x8(args[8]); 1665 typename traits::input_parameter< U9 >::type x9(args[9]); 1666 typename traits::input_parameter< U10 >::type x10(args[10]); 1667 typename traits::input_parameter< U11 >::type x11(args[11]); 1668 typename traits::input_parameter< U12 >::type x12(args[12]); 1669 typename traits::input_parameter< U13 >::type x13(args[13]); 1670 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13); 1671 END_RCPP 1672 } 1673 nargs()1674 inline int nargs() { return 14; } is_void()1675 inline bool is_void() { return true; } signature(std::string & s,const char * name)1676 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13>(s, name); } get_function_ptr()1677 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1678 1679 private: 1680 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13) ; 1681 }; 1682 1683 1684 1685 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13> 1686 class CppFunction_WithFormals14 : public CppFunction { 1687 public: 1688 1689 CppFunction_WithFormals14(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1690 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1691 operator()1692 SEXP operator()(SEXP* args) { 1693 BEGIN_RCPP 1694 typename traits::input_parameter< U0 >::type x0(args[0]); 1695 typename traits::input_parameter< U1 >::type x1(args[1]); 1696 typename traits::input_parameter< U2 >::type x2(args[2]); 1697 typename traits::input_parameter< U3 >::type x3(args[3]); 1698 typename traits::input_parameter< U4 >::type x4(args[4]); 1699 typename traits::input_parameter< U5 >::type x5(args[5]); 1700 typename traits::input_parameter< U6 >::type x6(args[6]); 1701 typename traits::input_parameter< U7 >::type x7(args[7]); 1702 typename traits::input_parameter< U8 >::type x8(args[8]); 1703 typename traits::input_parameter< U9 >::type x9(args[9]); 1704 typename traits::input_parameter< U10 >::type x10(args[10]); 1705 typename traits::input_parameter< U11 >::type x11(args[11]); 1706 typename traits::input_parameter< U12 >::type x12(args[12]); 1707 typename traits::input_parameter< U13 >::type x13(args[13]); 1708 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13)); 1709 END_RCPP 1710 } 1711 nargs()1712 inline int nargs() { return 14; } signature(std::string & s,const char * name)1713 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13>(s, name); } get_formals()1714 SEXP get_formals() { return formals; } get_function_ptr()1715 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1716 1717 private: 1718 Rcpp::List formals; 1719 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13); 1720 }; 1721 1722 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13> 1723 class CppFunction_WithFormals14<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13> : public CppFunction { 1724 public: 1725 CppFunction_WithFormals14(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1726 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1727 operator()1728 SEXP operator()(SEXP* args) { 1729 BEGIN_RCPP 1730 typename traits::input_parameter< U0 >::type x0(args[0]); 1731 typename traits::input_parameter< U1 >::type x1(args[1]); 1732 typename traits::input_parameter< U2 >::type x2(args[2]); 1733 typename traits::input_parameter< U3 >::type x3(args[3]); 1734 typename traits::input_parameter< U4 >::type x4(args[4]); 1735 typename traits::input_parameter< U5 >::type x5(args[5]); 1736 typename traits::input_parameter< U6 >::type x6(args[6]); 1737 typename traits::input_parameter< U7 >::type x7(args[7]); 1738 typename traits::input_parameter< U8 >::type x8(args[8]); 1739 typename traits::input_parameter< U9 >::type x9(args[9]); 1740 typename traits::input_parameter< U10 >::type x10(args[10]); 1741 typename traits::input_parameter< U11 >::type x11(args[11]); 1742 typename traits::input_parameter< U12 >::type x12(args[12]); 1743 typename traits::input_parameter< U13 >::type x13(args[13]); 1744 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13); 1745 END_RCPP 1746 } 1747 nargs()1748 inline int nargs() { return 14; } is_void()1749 inline bool is_void() { return true; } signature(std::string & s,const char * name)1750 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13>(s, name); } get_formals()1751 SEXP get_formals() { return formals; } get_function_ptr()1752 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1753 1754 private: 1755 Rcpp::List formals; 1756 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13); 1757 }; 1758 1759 1760 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14> class CppFunction15 : public CppFunction { 1761 public: 1762 CppFunction(docstring)1763 CppFunction15(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1764 operator()1765 SEXP operator()(SEXP* args) { 1766 BEGIN_RCPP 1767 typename traits::input_parameter< U0 >::type x0(args[0]); 1768 typename traits::input_parameter< U1 >::type x1(args[1]); 1769 typename traits::input_parameter< U2 >::type x2(args[2]); 1770 typename traits::input_parameter< U3 >::type x3(args[3]); 1771 typename traits::input_parameter< U4 >::type x4(args[4]); 1772 typename traits::input_parameter< U5 >::type x5(args[5]); 1773 typename traits::input_parameter< U6 >::type x6(args[6]); 1774 typename traits::input_parameter< U7 >::type x7(args[7]); 1775 typename traits::input_parameter< U8 >::type x8(args[8]); 1776 typename traits::input_parameter< U9 >::type x9(args[9]); 1777 typename traits::input_parameter< U10 >::type x10(args[10]); 1778 typename traits::input_parameter< U11 >::type x11(args[11]); 1779 typename traits::input_parameter< U12 >::type x12(args[12]); 1780 typename traits::input_parameter< U13 >::type x13(args[13]); 1781 typename traits::input_parameter< U14 >::type x14(args[14]); 1782 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14)); 1783 END_RCPP 1784 } 1785 nargs()1786 inline int nargs() { return 15; } signature(std::string & s,const char * name)1787 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14>(s, name); } get_function_ptr()1788 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 1789 1790 private: 1791 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14) ; 1792 }; 1793 1794 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14> 1795 class CppFunction15<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14> : public CppFunction { 1796 public: CppFunction(docstring)1797 CppFunction15(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1798 operator()1799 SEXP operator()(SEXP* args) { 1800 BEGIN_RCPP 1801 typename traits::input_parameter< U0 >::type x0(args[0]); 1802 typename traits::input_parameter< U1 >::type x1(args[1]); 1803 typename traits::input_parameter< U2 >::type x2(args[2]); 1804 typename traits::input_parameter< U3 >::type x3(args[3]); 1805 typename traits::input_parameter< U4 >::type x4(args[4]); 1806 typename traits::input_parameter< U5 >::type x5(args[5]); 1807 typename traits::input_parameter< U6 >::type x6(args[6]); 1808 typename traits::input_parameter< U7 >::type x7(args[7]); 1809 typename traits::input_parameter< U8 >::type x8(args[8]); 1810 typename traits::input_parameter< U9 >::type x9(args[9]); 1811 typename traits::input_parameter< U10 >::type x10(args[10]); 1812 typename traits::input_parameter< U11 >::type x11(args[11]); 1813 typename traits::input_parameter< U12 >::type x12(args[12]); 1814 typename traits::input_parameter< U13 >::type x13(args[13]); 1815 typename traits::input_parameter< U14 >::type x14(args[14]); 1816 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14); 1817 END_RCPP 1818 } 1819 nargs()1820 inline int nargs() { return 15; } is_void()1821 inline bool is_void() { return true; } signature(std::string & s,const char * name)1822 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14>(s, name); } get_function_ptr()1823 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1824 1825 private: 1826 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14) ; 1827 }; 1828 1829 1830 1831 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14> 1832 class CppFunction_WithFormals15 : public CppFunction { 1833 public: 1834 1835 CppFunction_WithFormals15(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1836 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1837 operator()1838 SEXP operator()(SEXP* args) { 1839 BEGIN_RCPP 1840 typename traits::input_parameter< U0 >::type x0(args[0]); 1841 typename traits::input_parameter< U1 >::type x1(args[1]); 1842 typename traits::input_parameter< U2 >::type x2(args[2]); 1843 typename traits::input_parameter< U3 >::type x3(args[3]); 1844 typename traits::input_parameter< U4 >::type x4(args[4]); 1845 typename traits::input_parameter< U5 >::type x5(args[5]); 1846 typename traits::input_parameter< U6 >::type x6(args[6]); 1847 typename traits::input_parameter< U7 >::type x7(args[7]); 1848 typename traits::input_parameter< U8 >::type x8(args[8]); 1849 typename traits::input_parameter< U9 >::type x9(args[9]); 1850 typename traits::input_parameter< U10 >::type x10(args[10]); 1851 typename traits::input_parameter< U11 >::type x11(args[11]); 1852 typename traits::input_parameter< U12 >::type x12(args[12]); 1853 typename traits::input_parameter< U13 >::type x13(args[13]); 1854 typename traits::input_parameter< U14 >::type x14(args[14]); 1855 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14)); 1856 END_RCPP 1857 } 1858 nargs()1859 inline int nargs() { return 15; } signature(std::string & s,const char * name)1860 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14>(s, name); } get_formals()1861 SEXP get_formals() { return formals; } get_function_ptr()1862 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1863 1864 private: 1865 Rcpp::List formals; 1866 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14); 1867 }; 1868 1869 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14> 1870 class CppFunction_WithFormals15<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14> : public CppFunction { 1871 public: 1872 CppFunction_WithFormals15(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1873 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1874 operator()1875 SEXP operator()(SEXP* args) { 1876 BEGIN_RCPP 1877 typename traits::input_parameter< U0 >::type x0(args[0]); 1878 typename traits::input_parameter< U1 >::type x1(args[1]); 1879 typename traits::input_parameter< U2 >::type x2(args[2]); 1880 typename traits::input_parameter< U3 >::type x3(args[3]); 1881 typename traits::input_parameter< U4 >::type x4(args[4]); 1882 typename traits::input_parameter< U5 >::type x5(args[5]); 1883 typename traits::input_parameter< U6 >::type x6(args[6]); 1884 typename traits::input_parameter< U7 >::type x7(args[7]); 1885 typename traits::input_parameter< U8 >::type x8(args[8]); 1886 typename traits::input_parameter< U9 >::type x9(args[9]); 1887 typename traits::input_parameter< U10 >::type x10(args[10]); 1888 typename traits::input_parameter< U11 >::type x11(args[11]); 1889 typename traits::input_parameter< U12 >::type x12(args[12]); 1890 typename traits::input_parameter< U13 >::type x13(args[13]); 1891 typename traits::input_parameter< U14 >::type x14(args[14]); 1892 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14); 1893 END_RCPP 1894 } 1895 nargs()1896 inline int nargs() { return 15; } is_void()1897 inline bool is_void() { return true; } signature(std::string & s,const char * name)1898 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14>(s, name); } get_formals()1899 SEXP get_formals() { return formals; } get_function_ptr()1900 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1901 1902 private: 1903 Rcpp::List formals; 1904 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14); 1905 }; 1906 1907 1908 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15> class CppFunction16 : public CppFunction { 1909 public: 1910 CppFunction(docstring)1911 CppFunction16(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1912 operator()1913 SEXP operator()(SEXP* args) { 1914 BEGIN_RCPP 1915 typename traits::input_parameter< U0 >::type x0(args[0]); 1916 typename traits::input_parameter< U1 >::type x1(args[1]); 1917 typename traits::input_parameter< U2 >::type x2(args[2]); 1918 typename traits::input_parameter< U3 >::type x3(args[3]); 1919 typename traits::input_parameter< U4 >::type x4(args[4]); 1920 typename traits::input_parameter< U5 >::type x5(args[5]); 1921 typename traits::input_parameter< U6 >::type x6(args[6]); 1922 typename traits::input_parameter< U7 >::type x7(args[7]); 1923 typename traits::input_parameter< U8 >::type x8(args[8]); 1924 typename traits::input_parameter< U9 >::type x9(args[9]); 1925 typename traits::input_parameter< U10 >::type x10(args[10]); 1926 typename traits::input_parameter< U11 >::type x11(args[11]); 1927 typename traits::input_parameter< U12 >::type x12(args[12]); 1928 typename traits::input_parameter< U13 >::type x13(args[13]); 1929 typename traits::input_parameter< U14 >::type x14(args[14]); 1930 typename traits::input_parameter< U15 >::type x15(args[15]); 1931 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15)); 1932 END_RCPP 1933 } 1934 nargs()1935 inline int nargs() { return 16; } signature(std::string & s,const char * name)1936 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15>(s, name); } get_function_ptr()1937 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 1938 1939 private: 1940 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15) ; 1941 }; 1942 1943 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15> 1944 class CppFunction16<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15> : public CppFunction { 1945 public: CppFunction(docstring)1946 CppFunction16(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 1947 operator()1948 SEXP operator()(SEXP* args) { 1949 BEGIN_RCPP 1950 typename traits::input_parameter< U0 >::type x0(args[0]); 1951 typename traits::input_parameter< U1 >::type x1(args[1]); 1952 typename traits::input_parameter< U2 >::type x2(args[2]); 1953 typename traits::input_parameter< U3 >::type x3(args[3]); 1954 typename traits::input_parameter< U4 >::type x4(args[4]); 1955 typename traits::input_parameter< U5 >::type x5(args[5]); 1956 typename traits::input_parameter< U6 >::type x6(args[6]); 1957 typename traits::input_parameter< U7 >::type x7(args[7]); 1958 typename traits::input_parameter< U8 >::type x8(args[8]); 1959 typename traits::input_parameter< U9 >::type x9(args[9]); 1960 typename traits::input_parameter< U10 >::type x10(args[10]); 1961 typename traits::input_parameter< U11 >::type x11(args[11]); 1962 typename traits::input_parameter< U12 >::type x12(args[12]); 1963 typename traits::input_parameter< U13 >::type x13(args[13]); 1964 typename traits::input_parameter< U14 >::type x14(args[14]); 1965 typename traits::input_parameter< U15 >::type x15(args[15]); 1966 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15); 1967 END_RCPP 1968 } 1969 nargs()1970 inline int nargs() { return 16; } is_void()1971 inline bool is_void() { return true; } signature(std::string & s,const char * name)1972 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15>(s, name); } get_function_ptr()1973 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 1974 1975 private: 1976 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15) ; 1977 }; 1978 1979 1980 1981 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15> 1982 class CppFunction_WithFormals16 : public CppFunction { 1983 public: 1984 1985 CppFunction_WithFormals16(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)1986 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 1987 operator()1988 SEXP operator()(SEXP* args) { 1989 BEGIN_RCPP 1990 typename traits::input_parameter< U0 >::type x0(args[0]); 1991 typename traits::input_parameter< U1 >::type x1(args[1]); 1992 typename traits::input_parameter< U2 >::type x2(args[2]); 1993 typename traits::input_parameter< U3 >::type x3(args[3]); 1994 typename traits::input_parameter< U4 >::type x4(args[4]); 1995 typename traits::input_parameter< U5 >::type x5(args[5]); 1996 typename traits::input_parameter< U6 >::type x6(args[6]); 1997 typename traits::input_parameter< U7 >::type x7(args[7]); 1998 typename traits::input_parameter< U8 >::type x8(args[8]); 1999 typename traits::input_parameter< U9 >::type x9(args[9]); 2000 typename traits::input_parameter< U10 >::type x10(args[10]); 2001 typename traits::input_parameter< U11 >::type x11(args[11]); 2002 typename traits::input_parameter< U12 >::type x12(args[12]); 2003 typename traits::input_parameter< U13 >::type x13(args[13]); 2004 typename traits::input_parameter< U14 >::type x14(args[14]); 2005 typename traits::input_parameter< U15 >::type x15(args[15]); 2006 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15)); 2007 END_RCPP 2008 } 2009 nargs()2010 inline int nargs() { return 16; } signature(std::string & s,const char * name)2011 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15>(s, name); } get_formals()2012 SEXP get_formals() { return formals; } get_function_ptr()2013 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2014 2015 private: 2016 Rcpp::List formals; 2017 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15); 2018 }; 2019 2020 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15> 2021 class CppFunction_WithFormals16<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15> : public CppFunction { 2022 public: 2023 CppFunction_WithFormals16(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)2024 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 2025 operator()2026 SEXP operator()(SEXP* args) { 2027 BEGIN_RCPP 2028 typename traits::input_parameter< U0 >::type x0(args[0]); 2029 typename traits::input_parameter< U1 >::type x1(args[1]); 2030 typename traits::input_parameter< U2 >::type x2(args[2]); 2031 typename traits::input_parameter< U3 >::type x3(args[3]); 2032 typename traits::input_parameter< U4 >::type x4(args[4]); 2033 typename traits::input_parameter< U5 >::type x5(args[5]); 2034 typename traits::input_parameter< U6 >::type x6(args[6]); 2035 typename traits::input_parameter< U7 >::type x7(args[7]); 2036 typename traits::input_parameter< U8 >::type x8(args[8]); 2037 typename traits::input_parameter< U9 >::type x9(args[9]); 2038 typename traits::input_parameter< U10 >::type x10(args[10]); 2039 typename traits::input_parameter< U11 >::type x11(args[11]); 2040 typename traits::input_parameter< U12 >::type x12(args[12]); 2041 typename traits::input_parameter< U13 >::type x13(args[13]); 2042 typename traits::input_parameter< U14 >::type x14(args[14]); 2043 typename traits::input_parameter< U15 >::type x15(args[15]); 2044 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15); 2045 END_RCPP 2046 } 2047 nargs()2048 inline int nargs() { return 16; } is_void()2049 inline bool is_void() { return true; } signature(std::string & s,const char * name)2050 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15>(s, name); } get_formals()2051 SEXP get_formals() { return formals; } get_function_ptr()2052 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2053 2054 private: 2055 Rcpp::List formals; 2056 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15); 2057 }; 2058 2059 2060 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15,typename U16> class CppFunction17 : public CppFunction { 2061 public: 2062 CppFunction(docstring)2063 CppFunction17(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 2064 operator()2065 SEXP operator()(SEXP* args) { 2066 BEGIN_RCPP 2067 typename traits::input_parameter< U0 >::type x0(args[0]); 2068 typename traits::input_parameter< U1 >::type x1(args[1]); 2069 typename traits::input_parameter< U2 >::type x2(args[2]); 2070 typename traits::input_parameter< U3 >::type x3(args[3]); 2071 typename traits::input_parameter< U4 >::type x4(args[4]); 2072 typename traits::input_parameter< U5 >::type x5(args[5]); 2073 typename traits::input_parameter< U6 >::type x6(args[6]); 2074 typename traits::input_parameter< U7 >::type x7(args[7]); 2075 typename traits::input_parameter< U8 >::type x8(args[8]); 2076 typename traits::input_parameter< U9 >::type x9(args[9]); 2077 typename traits::input_parameter< U10 >::type x10(args[10]); 2078 typename traits::input_parameter< U11 >::type x11(args[11]); 2079 typename traits::input_parameter< U12 >::type x12(args[12]); 2080 typename traits::input_parameter< U13 >::type x13(args[13]); 2081 typename traits::input_parameter< U14 >::type x14(args[14]); 2082 typename traits::input_parameter< U15 >::type x15(args[15]); 2083 typename traits::input_parameter< U16 >::type x16(args[16]); 2084 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16)); 2085 END_RCPP 2086 } 2087 nargs()2088 inline int nargs() { return 17; } signature(std::string & s,const char * name)2089 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16>(s, name); } get_function_ptr()2090 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 2091 2092 private: 2093 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16) ; 2094 }; 2095 2096 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15, typename U16> 2097 class CppFunction17<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16> : public CppFunction { 2098 public: CppFunction(docstring)2099 CppFunction17(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 2100 operator()2101 SEXP operator()(SEXP* args) { 2102 BEGIN_RCPP 2103 typename traits::input_parameter< U0 >::type x0(args[0]); 2104 typename traits::input_parameter< U1 >::type x1(args[1]); 2105 typename traits::input_parameter< U2 >::type x2(args[2]); 2106 typename traits::input_parameter< U3 >::type x3(args[3]); 2107 typename traits::input_parameter< U4 >::type x4(args[4]); 2108 typename traits::input_parameter< U5 >::type x5(args[5]); 2109 typename traits::input_parameter< U6 >::type x6(args[6]); 2110 typename traits::input_parameter< U7 >::type x7(args[7]); 2111 typename traits::input_parameter< U8 >::type x8(args[8]); 2112 typename traits::input_parameter< U9 >::type x9(args[9]); 2113 typename traits::input_parameter< U10 >::type x10(args[10]); 2114 typename traits::input_parameter< U11 >::type x11(args[11]); 2115 typename traits::input_parameter< U12 >::type x12(args[12]); 2116 typename traits::input_parameter< U13 >::type x13(args[13]); 2117 typename traits::input_parameter< U14 >::type x14(args[14]); 2118 typename traits::input_parameter< U15 >::type x15(args[15]); 2119 typename traits::input_parameter< U16 >::type x16(args[16]); 2120 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16); 2121 END_RCPP 2122 } 2123 nargs()2124 inline int nargs() { return 17; } is_void()2125 inline bool is_void() { return true; } signature(std::string & s,const char * name)2126 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16>(s, name); } get_function_ptr()2127 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2128 2129 private: 2130 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16) ; 2131 }; 2132 2133 2134 2135 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15,typename U16> 2136 class CppFunction_WithFormals17 : public CppFunction { 2137 public: 2138 2139 CppFunction_WithFormals17(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)2140 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 2141 operator()2142 SEXP operator()(SEXP* args) { 2143 BEGIN_RCPP 2144 typename traits::input_parameter< U0 >::type x0(args[0]); 2145 typename traits::input_parameter< U1 >::type x1(args[1]); 2146 typename traits::input_parameter< U2 >::type x2(args[2]); 2147 typename traits::input_parameter< U3 >::type x3(args[3]); 2148 typename traits::input_parameter< U4 >::type x4(args[4]); 2149 typename traits::input_parameter< U5 >::type x5(args[5]); 2150 typename traits::input_parameter< U6 >::type x6(args[6]); 2151 typename traits::input_parameter< U7 >::type x7(args[7]); 2152 typename traits::input_parameter< U8 >::type x8(args[8]); 2153 typename traits::input_parameter< U9 >::type x9(args[9]); 2154 typename traits::input_parameter< U10 >::type x10(args[10]); 2155 typename traits::input_parameter< U11 >::type x11(args[11]); 2156 typename traits::input_parameter< U12 >::type x12(args[12]); 2157 typename traits::input_parameter< U13 >::type x13(args[13]); 2158 typename traits::input_parameter< U14 >::type x14(args[14]); 2159 typename traits::input_parameter< U15 >::type x15(args[15]); 2160 typename traits::input_parameter< U16 >::type x16(args[16]); 2161 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16)); 2162 END_RCPP 2163 } 2164 nargs()2165 inline int nargs() { return 17; } signature(std::string & s,const char * name)2166 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16>(s, name); } get_formals()2167 SEXP get_formals() { return formals; } get_function_ptr()2168 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2169 2170 private: 2171 Rcpp::List formals; 2172 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16); 2173 }; 2174 2175 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15, typename U16> 2176 class CppFunction_WithFormals17<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16> : public CppFunction { 2177 public: 2178 CppFunction_WithFormals17(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)2179 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 2180 operator()2181 SEXP operator()(SEXP* args) { 2182 BEGIN_RCPP 2183 typename traits::input_parameter< U0 >::type x0(args[0]); 2184 typename traits::input_parameter< U1 >::type x1(args[1]); 2185 typename traits::input_parameter< U2 >::type x2(args[2]); 2186 typename traits::input_parameter< U3 >::type x3(args[3]); 2187 typename traits::input_parameter< U4 >::type x4(args[4]); 2188 typename traits::input_parameter< U5 >::type x5(args[5]); 2189 typename traits::input_parameter< U6 >::type x6(args[6]); 2190 typename traits::input_parameter< U7 >::type x7(args[7]); 2191 typename traits::input_parameter< U8 >::type x8(args[8]); 2192 typename traits::input_parameter< U9 >::type x9(args[9]); 2193 typename traits::input_parameter< U10 >::type x10(args[10]); 2194 typename traits::input_parameter< U11 >::type x11(args[11]); 2195 typename traits::input_parameter< U12 >::type x12(args[12]); 2196 typename traits::input_parameter< U13 >::type x13(args[13]); 2197 typename traits::input_parameter< U14 >::type x14(args[14]); 2198 typename traits::input_parameter< U15 >::type x15(args[15]); 2199 typename traits::input_parameter< U16 >::type x16(args[16]); 2200 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16); 2201 END_RCPP 2202 } 2203 nargs()2204 inline int nargs() { return 17; } is_void()2205 inline bool is_void() { return true; } signature(std::string & s,const char * name)2206 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16>(s, name); } get_formals()2207 SEXP get_formals() { return formals; } get_function_ptr()2208 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2209 2210 private: 2211 Rcpp::List formals; 2212 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16); 2213 }; 2214 2215 2216 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15,typename U16,typename U17> class CppFunction18 : public CppFunction { 2217 public: 2218 CppFunction(docstring)2219 CppFunction18(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 2220 operator()2221 SEXP operator()(SEXP* args) { 2222 BEGIN_RCPP 2223 typename traits::input_parameter< U0 >::type x0(args[0]); 2224 typename traits::input_parameter< U1 >::type x1(args[1]); 2225 typename traits::input_parameter< U2 >::type x2(args[2]); 2226 typename traits::input_parameter< U3 >::type x3(args[3]); 2227 typename traits::input_parameter< U4 >::type x4(args[4]); 2228 typename traits::input_parameter< U5 >::type x5(args[5]); 2229 typename traits::input_parameter< U6 >::type x6(args[6]); 2230 typename traits::input_parameter< U7 >::type x7(args[7]); 2231 typename traits::input_parameter< U8 >::type x8(args[8]); 2232 typename traits::input_parameter< U9 >::type x9(args[9]); 2233 typename traits::input_parameter< U10 >::type x10(args[10]); 2234 typename traits::input_parameter< U11 >::type x11(args[11]); 2235 typename traits::input_parameter< U12 >::type x12(args[12]); 2236 typename traits::input_parameter< U13 >::type x13(args[13]); 2237 typename traits::input_parameter< U14 >::type x14(args[14]); 2238 typename traits::input_parameter< U15 >::type x15(args[15]); 2239 typename traits::input_parameter< U16 >::type x16(args[16]); 2240 typename traits::input_parameter< U17 >::type x17(args[17]); 2241 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17)); 2242 END_RCPP 2243 } 2244 nargs()2245 inline int nargs() { return 18; } signature(std::string & s,const char * name)2246 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17>(s, name); } get_function_ptr()2247 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 2248 2249 private: 2250 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17) ; 2251 }; 2252 2253 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15, typename U16, typename U17> 2254 class CppFunction18<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17> : public CppFunction { 2255 public: CppFunction(docstring)2256 CppFunction18(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 2257 operator()2258 SEXP operator()(SEXP* args) { 2259 BEGIN_RCPP 2260 typename traits::input_parameter< U0 >::type x0(args[0]); 2261 typename traits::input_parameter< U1 >::type x1(args[1]); 2262 typename traits::input_parameter< U2 >::type x2(args[2]); 2263 typename traits::input_parameter< U3 >::type x3(args[3]); 2264 typename traits::input_parameter< U4 >::type x4(args[4]); 2265 typename traits::input_parameter< U5 >::type x5(args[5]); 2266 typename traits::input_parameter< U6 >::type x6(args[6]); 2267 typename traits::input_parameter< U7 >::type x7(args[7]); 2268 typename traits::input_parameter< U8 >::type x8(args[8]); 2269 typename traits::input_parameter< U9 >::type x9(args[9]); 2270 typename traits::input_parameter< U10 >::type x10(args[10]); 2271 typename traits::input_parameter< U11 >::type x11(args[11]); 2272 typename traits::input_parameter< U12 >::type x12(args[12]); 2273 typename traits::input_parameter< U13 >::type x13(args[13]); 2274 typename traits::input_parameter< U14 >::type x14(args[14]); 2275 typename traits::input_parameter< U15 >::type x15(args[15]); 2276 typename traits::input_parameter< U16 >::type x16(args[16]); 2277 typename traits::input_parameter< U17 >::type x17(args[17]); 2278 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17); 2279 END_RCPP 2280 } 2281 nargs()2282 inline int nargs() { return 18; } is_void()2283 inline bool is_void() { return true; } signature(std::string & s,const char * name)2284 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17>(s, name); } get_function_ptr()2285 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2286 2287 private: 2288 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17) ; 2289 }; 2290 2291 2292 2293 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15,typename U16,typename U17> 2294 class CppFunction_WithFormals18 : public CppFunction { 2295 public: 2296 2297 CppFunction_WithFormals18(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)2298 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 2299 operator()2300 SEXP operator()(SEXP* args) { 2301 BEGIN_RCPP 2302 typename traits::input_parameter< U0 >::type x0(args[0]); 2303 typename traits::input_parameter< U1 >::type x1(args[1]); 2304 typename traits::input_parameter< U2 >::type x2(args[2]); 2305 typename traits::input_parameter< U3 >::type x3(args[3]); 2306 typename traits::input_parameter< U4 >::type x4(args[4]); 2307 typename traits::input_parameter< U5 >::type x5(args[5]); 2308 typename traits::input_parameter< U6 >::type x6(args[6]); 2309 typename traits::input_parameter< U7 >::type x7(args[7]); 2310 typename traits::input_parameter< U8 >::type x8(args[8]); 2311 typename traits::input_parameter< U9 >::type x9(args[9]); 2312 typename traits::input_parameter< U10 >::type x10(args[10]); 2313 typename traits::input_parameter< U11 >::type x11(args[11]); 2314 typename traits::input_parameter< U12 >::type x12(args[12]); 2315 typename traits::input_parameter< U13 >::type x13(args[13]); 2316 typename traits::input_parameter< U14 >::type x14(args[14]); 2317 typename traits::input_parameter< U15 >::type x15(args[15]); 2318 typename traits::input_parameter< U16 >::type x16(args[16]); 2319 typename traits::input_parameter< U17 >::type x17(args[17]); 2320 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17)); 2321 END_RCPP 2322 } 2323 nargs()2324 inline int nargs() { return 18; } signature(std::string & s,const char * name)2325 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17>(s, name); } get_formals()2326 SEXP get_formals() { return formals; } get_function_ptr()2327 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2328 2329 private: 2330 Rcpp::List formals; 2331 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17); 2332 }; 2333 2334 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15, typename U16, typename U17> 2335 class CppFunction_WithFormals18<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17> : public CppFunction { 2336 public: 2337 CppFunction_WithFormals18(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)2338 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 2339 operator()2340 SEXP operator()(SEXP* args) { 2341 BEGIN_RCPP 2342 typename traits::input_parameter< U0 >::type x0(args[0]); 2343 typename traits::input_parameter< U1 >::type x1(args[1]); 2344 typename traits::input_parameter< U2 >::type x2(args[2]); 2345 typename traits::input_parameter< U3 >::type x3(args[3]); 2346 typename traits::input_parameter< U4 >::type x4(args[4]); 2347 typename traits::input_parameter< U5 >::type x5(args[5]); 2348 typename traits::input_parameter< U6 >::type x6(args[6]); 2349 typename traits::input_parameter< U7 >::type x7(args[7]); 2350 typename traits::input_parameter< U8 >::type x8(args[8]); 2351 typename traits::input_parameter< U9 >::type x9(args[9]); 2352 typename traits::input_parameter< U10 >::type x10(args[10]); 2353 typename traits::input_parameter< U11 >::type x11(args[11]); 2354 typename traits::input_parameter< U12 >::type x12(args[12]); 2355 typename traits::input_parameter< U13 >::type x13(args[13]); 2356 typename traits::input_parameter< U14 >::type x14(args[14]); 2357 typename traits::input_parameter< U15 >::type x15(args[15]); 2358 typename traits::input_parameter< U16 >::type x16(args[16]); 2359 typename traits::input_parameter< U17 >::type x17(args[17]); 2360 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17); 2361 END_RCPP 2362 } 2363 nargs()2364 inline int nargs() { return 18; } is_void()2365 inline bool is_void() { return true; } signature(std::string & s,const char * name)2366 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17>(s, name); } get_formals()2367 SEXP get_formals() { return formals; } get_function_ptr()2368 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2369 2370 private: 2371 Rcpp::List formals; 2372 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17); 2373 }; 2374 2375 2376 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15,typename U16,typename U17,typename U18> class CppFunction19 : public CppFunction { 2377 public: 2378 CppFunction(docstring)2379 CppFunction19(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 2380 operator()2381 SEXP operator()(SEXP* args) { 2382 BEGIN_RCPP 2383 typename traits::input_parameter< U0 >::type x0(args[0]); 2384 typename traits::input_parameter< U1 >::type x1(args[1]); 2385 typename traits::input_parameter< U2 >::type x2(args[2]); 2386 typename traits::input_parameter< U3 >::type x3(args[3]); 2387 typename traits::input_parameter< U4 >::type x4(args[4]); 2388 typename traits::input_parameter< U5 >::type x5(args[5]); 2389 typename traits::input_parameter< U6 >::type x6(args[6]); 2390 typename traits::input_parameter< U7 >::type x7(args[7]); 2391 typename traits::input_parameter< U8 >::type x8(args[8]); 2392 typename traits::input_parameter< U9 >::type x9(args[9]); 2393 typename traits::input_parameter< U10 >::type x10(args[10]); 2394 typename traits::input_parameter< U11 >::type x11(args[11]); 2395 typename traits::input_parameter< U12 >::type x12(args[12]); 2396 typename traits::input_parameter< U13 >::type x13(args[13]); 2397 typename traits::input_parameter< U14 >::type x14(args[14]); 2398 typename traits::input_parameter< U15 >::type x15(args[15]); 2399 typename traits::input_parameter< U16 >::type x16(args[16]); 2400 typename traits::input_parameter< U17 >::type x17(args[17]); 2401 typename traits::input_parameter< U18 >::type x18(args[18]); 2402 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18)); 2403 END_RCPP 2404 } 2405 nargs()2406 inline int nargs() { return 19; } signature(std::string & s,const char * name)2407 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18>(s, name); } get_function_ptr()2408 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 2409 2410 private: 2411 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18) ; 2412 }; 2413 2414 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15, typename U16, typename U17, typename U18> 2415 class CppFunction19<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18> : public CppFunction { 2416 public: CppFunction(docstring)2417 CppFunction19(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 2418 operator()2419 SEXP operator()(SEXP* args) { 2420 BEGIN_RCPP 2421 typename traits::input_parameter< U0 >::type x0(args[0]); 2422 typename traits::input_parameter< U1 >::type x1(args[1]); 2423 typename traits::input_parameter< U2 >::type x2(args[2]); 2424 typename traits::input_parameter< U3 >::type x3(args[3]); 2425 typename traits::input_parameter< U4 >::type x4(args[4]); 2426 typename traits::input_parameter< U5 >::type x5(args[5]); 2427 typename traits::input_parameter< U6 >::type x6(args[6]); 2428 typename traits::input_parameter< U7 >::type x7(args[7]); 2429 typename traits::input_parameter< U8 >::type x8(args[8]); 2430 typename traits::input_parameter< U9 >::type x9(args[9]); 2431 typename traits::input_parameter< U10 >::type x10(args[10]); 2432 typename traits::input_parameter< U11 >::type x11(args[11]); 2433 typename traits::input_parameter< U12 >::type x12(args[12]); 2434 typename traits::input_parameter< U13 >::type x13(args[13]); 2435 typename traits::input_parameter< U14 >::type x14(args[14]); 2436 typename traits::input_parameter< U15 >::type x15(args[15]); 2437 typename traits::input_parameter< U16 >::type x16(args[16]); 2438 typename traits::input_parameter< U17 >::type x17(args[17]); 2439 typename traits::input_parameter< U18 >::type x18(args[18]); 2440 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18); 2441 END_RCPP 2442 } 2443 nargs()2444 inline int nargs() { return 19; } is_void()2445 inline bool is_void() { return true; } signature(std::string & s,const char * name)2446 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18>(s, name); } get_function_ptr()2447 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2448 2449 private: 2450 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18) ; 2451 }; 2452 2453 2454 2455 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15,typename U16,typename U17,typename U18> 2456 class CppFunction_WithFormals19 : public CppFunction { 2457 public: 2458 2459 CppFunction_WithFormals19(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)2460 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 2461 operator()2462 SEXP operator()(SEXP* args) { 2463 BEGIN_RCPP 2464 typename traits::input_parameter< U0 >::type x0(args[0]); 2465 typename traits::input_parameter< U1 >::type x1(args[1]); 2466 typename traits::input_parameter< U2 >::type x2(args[2]); 2467 typename traits::input_parameter< U3 >::type x3(args[3]); 2468 typename traits::input_parameter< U4 >::type x4(args[4]); 2469 typename traits::input_parameter< U5 >::type x5(args[5]); 2470 typename traits::input_parameter< U6 >::type x6(args[6]); 2471 typename traits::input_parameter< U7 >::type x7(args[7]); 2472 typename traits::input_parameter< U8 >::type x8(args[8]); 2473 typename traits::input_parameter< U9 >::type x9(args[9]); 2474 typename traits::input_parameter< U10 >::type x10(args[10]); 2475 typename traits::input_parameter< U11 >::type x11(args[11]); 2476 typename traits::input_parameter< U12 >::type x12(args[12]); 2477 typename traits::input_parameter< U13 >::type x13(args[13]); 2478 typename traits::input_parameter< U14 >::type x14(args[14]); 2479 typename traits::input_parameter< U15 >::type x15(args[15]); 2480 typename traits::input_parameter< U16 >::type x16(args[16]); 2481 typename traits::input_parameter< U17 >::type x17(args[17]); 2482 typename traits::input_parameter< U18 >::type x18(args[18]); 2483 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18)); 2484 END_RCPP 2485 } 2486 nargs()2487 inline int nargs() { return 19; } signature(std::string & s,const char * name)2488 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18>(s, name); } get_formals()2489 SEXP get_formals() { return formals; } get_function_ptr()2490 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2491 2492 private: 2493 Rcpp::List formals; 2494 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18); 2495 }; 2496 2497 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15, typename U16, typename U17, typename U18> 2498 class CppFunction_WithFormals19<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18> : public CppFunction { 2499 public: 2500 CppFunction_WithFormals19(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)2501 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 2502 operator()2503 SEXP operator()(SEXP* args) { 2504 BEGIN_RCPP 2505 typename traits::input_parameter< U0 >::type x0(args[0]); 2506 typename traits::input_parameter< U1 >::type x1(args[1]); 2507 typename traits::input_parameter< U2 >::type x2(args[2]); 2508 typename traits::input_parameter< U3 >::type x3(args[3]); 2509 typename traits::input_parameter< U4 >::type x4(args[4]); 2510 typename traits::input_parameter< U5 >::type x5(args[5]); 2511 typename traits::input_parameter< U6 >::type x6(args[6]); 2512 typename traits::input_parameter< U7 >::type x7(args[7]); 2513 typename traits::input_parameter< U8 >::type x8(args[8]); 2514 typename traits::input_parameter< U9 >::type x9(args[9]); 2515 typename traits::input_parameter< U10 >::type x10(args[10]); 2516 typename traits::input_parameter< U11 >::type x11(args[11]); 2517 typename traits::input_parameter< U12 >::type x12(args[12]); 2518 typename traits::input_parameter< U13 >::type x13(args[13]); 2519 typename traits::input_parameter< U14 >::type x14(args[14]); 2520 typename traits::input_parameter< U15 >::type x15(args[15]); 2521 typename traits::input_parameter< U16 >::type x16(args[16]); 2522 typename traits::input_parameter< U17 >::type x17(args[17]); 2523 typename traits::input_parameter< U18 >::type x18(args[18]); 2524 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18); 2525 END_RCPP 2526 } 2527 nargs()2528 inline int nargs() { return 19; } is_void()2529 inline bool is_void() { return true; } signature(std::string & s,const char * name)2530 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18>(s, name); } get_formals()2531 SEXP get_formals() { return formals; } get_function_ptr()2532 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2533 2534 private: 2535 Rcpp::List formals; 2536 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18); 2537 }; 2538 2539 2540 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15,typename U16,typename U17,typename U18,typename U19> class CppFunction20 : public CppFunction { 2541 public: 2542 CppFunction(docstring)2543 CppFunction20(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 2544 operator()2545 SEXP operator()(SEXP* args) { 2546 BEGIN_RCPP 2547 typename traits::input_parameter< U0 >::type x0(args[0]); 2548 typename traits::input_parameter< U1 >::type x1(args[1]); 2549 typename traits::input_parameter< U2 >::type x2(args[2]); 2550 typename traits::input_parameter< U3 >::type x3(args[3]); 2551 typename traits::input_parameter< U4 >::type x4(args[4]); 2552 typename traits::input_parameter< U5 >::type x5(args[5]); 2553 typename traits::input_parameter< U6 >::type x6(args[6]); 2554 typename traits::input_parameter< U7 >::type x7(args[7]); 2555 typename traits::input_parameter< U8 >::type x8(args[8]); 2556 typename traits::input_parameter< U9 >::type x9(args[9]); 2557 typename traits::input_parameter< U10 >::type x10(args[10]); 2558 typename traits::input_parameter< U11 >::type x11(args[11]); 2559 typename traits::input_parameter< U12 >::type x12(args[12]); 2560 typename traits::input_parameter< U13 >::type x13(args[13]); 2561 typename traits::input_parameter< U14 >::type x14(args[14]); 2562 typename traits::input_parameter< U15 >::type x15(args[15]); 2563 typename traits::input_parameter< U16 >::type x16(args[16]); 2564 typename traits::input_parameter< U17 >::type x17(args[17]); 2565 typename traits::input_parameter< U18 >::type x18(args[18]); 2566 typename traits::input_parameter< U19 >::type x19(args[19]); 2567 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19)); 2568 END_RCPP 2569 } 2570 nargs()2571 inline int nargs() { return 20; } signature(std::string & s,const char * name)2572 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19>(s, name); } get_function_ptr()2573 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun ; } 2574 2575 private: 2576 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19) ; 2577 }; 2578 2579 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15, typename U16, typename U17, typename U18, typename U19> 2580 class CppFunction20<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19> : public CppFunction { 2581 public: CppFunction(docstring)2582 CppFunction20(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19) , const char* docstring = 0) : CppFunction(docstring), ptr_fun(fun) {} 2583 operator()2584 SEXP operator()(SEXP* args) { 2585 BEGIN_RCPP 2586 typename traits::input_parameter< U0 >::type x0(args[0]); 2587 typename traits::input_parameter< U1 >::type x1(args[1]); 2588 typename traits::input_parameter< U2 >::type x2(args[2]); 2589 typename traits::input_parameter< U3 >::type x3(args[3]); 2590 typename traits::input_parameter< U4 >::type x4(args[4]); 2591 typename traits::input_parameter< U5 >::type x5(args[5]); 2592 typename traits::input_parameter< U6 >::type x6(args[6]); 2593 typename traits::input_parameter< U7 >::type x7(args[7]); 2594 typename traits::input_parameter< U8 >::type x8(args[8]); 2595 typename traits::input_parameter< U9 >::type x9(args[9]); 2596 typename traits::input_parameter< U10 >::type x10(args[10]); 2597 typename traits::input_parameter< U11 >::type x11(args[11]); 2598 typename traits::input_parameter< U12 >::type x12(args[12]); 2599 typename traits::input_parameter< U13 >::type x13(args[13]); 2600 typename traits::input_parameter< U14 >::type x14(args[14]); 2601 typename traits::input_parameter< U15 >::type x15(args[15]); 2602 typename traits::input_parameter< U16 >::type x16(args[16]); 2603 typename traits::input_parameter< U17 >::type x17(args[17]); 2604 typename traits::input_parameter< U18 >::type x18(args[18]); 2605 typename traits::input_parameter< U19 >::type x19(args[19]); 2606 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19); 2607 END_RCPP 2608 } 2609 nargs()2610 inline int nargs() { return 20; } is_void()2611 inline bool is_void() { return true; } signature(std::string & s,const char * name)2612 inline void signature(std::string& s, const char* name) { Rcpp::signature<void_type,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19>(s, name); } get_function_ptr()2613 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2614 2615 private: 2616 void (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19) ; 2617 }; 2618 2619 2620 2621 template <typename RESULT_TYPE, typename U0,typename U1,typename U2,typename U3,typename U4,typename U5,typename U6,typename U7,typename U8,typename U9,typename U10,typename U11,typename U12,typename U13,typename U14,typename U15,typename U16,typename U17,typename U18,typename U19> 2622 class CppFunction_WithFormals20 : public CppFunction { 2623 public: 2624 2625 CppFunction_WithFormals20(RESULT_TYPE (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19) , Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)2626 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 2627 operator()2628 SEXP operator()(SEXP* args) { 2629 BEGIN_RCPP 2630 typename traits::input_parameter< U0 >::type x0(args[0]); 2631 typename traits::input_parameter< U1 >::type x1(args[1]); 2632 typename traits::input_parameter< U2 >::type x2(args[2]); 2633 typename traits::input_parameter< U3 >::type x3(args[3]); 2634 typename traits::input_parameter< U4 >::type x4(args[4]); 2635 typename traits::input_parameter< U5 >::type x5(args[5]); 2636 typename traits::input_parameter< U6 >::type x6(args[6]); 2637 typename traits::input_parameter< U7 >::type x7(args[7]); 2638 typename traits::input_parameter< U8 >::type x8(args[8]); 2639 typename traits::input_parameter< U9 >::type x9(args[9]); 2640 typename traits::input_parameter< U10 >::type x10(args[10]); 2641 typename traits::input_parameter< U11 >::type x11(args[11]); 2642 typename traits::input_parameter< U12 >::type x12(args[12]); 2643 typename traits::input_parameter< U13 >::type x13(args[13]); 2644 typename traits::input_parameter< U14 >::type x14(args[14]); 2645 typename traits::input_parameter< U15 >::type x15(args[15]); 2646 typename traits::input_parameter< U16 >::type x16(args[16]); 2647 typename traits::input_parameter< U17 >::type x17(args[17]); 2648 typename traits::input_parameter< U18 >::type x18(args[18]); 2649 typename traits::input_parameter< U19 >::type x19(args[19]); 2650 return Rcpp::module_wrap<RESULT_TYPE>(ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19)); 2651 END_RCPP 2652 } 2653 nargs()2654 inline int nargs() { return 20; } signature(std::string & s,const char * name)2655 inline void signature(std::string& s, const char* name) { Rcpp::signature<RESULT_TYPE,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19>(s, name); } get_formals()2656 SEXP get_formals() { return formals; } get_function_ptr()2657 inline DL_FUNC get_function_ptr() { return (DL_FUNC)ptr_fun; } 2658 2659 private: 2660 Rcpp::List formals; 2661 RESULT_TYPE (*ptr_fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19); 2662 }; 2663 2664 template <typename U0, typename U1, typename U2, typename U3, typename U4, typename U5, typename U6, typename U7, typename U8, typename U9, typename U10, typename U11, typename U12, typename U13, typename U14, typename U15, typename U16, typename U17, typename U18, typename U19> 2665 class CppFunction_WithFormals20<void,U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19> : public CppFunction { 2666 public: 2667 CppFunction_WithFormals20(void (*fun)(U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19), Rcpp::List formals_, const char* docstring = 0) : CppFunction(docstring)2668 CppFunction(docstring), formals(formals_), ptr_fun(fun) {} 2669 operator()2670 SEXP operator()(SEXP* args) { 2671 BEGIN_RCPP 2672 typename traits::input_parameter< U0 >::type x0(args[0]); 2673 typename traits::input_parameter< U1 >::type x1(args[1]); 2674 typename traits::input_parameter< U2 >::type x2(args[2]); 2675 typename traits::input_parameter< U3 >::type x3(args[3]); 2676 typename traits::input_parameter< U4 >::type x4(args[4]); 2677 typename traits::input_parameter< U5 >::type x5(args[5]); 2678 typename traits::input_parameter< U6 >::type x6(args[6]); 2679 typename traits::input_parameter< U7 >::type x7(args[7]); 2680 typename traits::input_parameter< U8 >::type x8(args[8]); 2681 typename traits::input_parameter< U9 >::type x9(args[9]); 2682 typename traits::input_parameter< U10 >::type x10(args[10]); 2683 typename traits::input_parameter< U11 >::type x11(args[11]); 2684 typename traits::input_parameter< U12 >::type x12(args[12]); 2685 typename traits::input_parameter< U13 >::type x13(args[13]); 2686 typename traits::input_parameter< U14 >::type x14(args[14]); 2687 typename traits::input_parameter< U15 >::type x15(args[15]); 2688 typename traits::input_parameter< U16 >::type x16(args[16]); 2689 typename traits::input_parameter< U17 >::type x17(args[17]); 2690 typename traits::input_parameter< U18 >::type x18(args[18]); 2691 typename traits::input_parameter< U19 >::type x19(args[19]); 2692 ptr_fun(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19); 2693 END_RCPP 2694 } 2695 nargs()2696 inline int nargs() { return 20; } is_void()2697