RcppExport void R_init_RcppTN (DllInfo *info) { R_RegisterCCallable("RcppTN", "RcppTN_etn1", (DL_FUNC) etn1) ; R_RegisterCCallable("RcppTN", "RcppTN_rtn1", (DL_FUNC) rtn1) ; R_RegisterCCallable("RcppTN", "RcppTN_vtn1", (DL_FUNC) vtn1) ; R_RegisterCCallable("RcppTN", "RcppTN_dtn1", (DL_FUNC) dtn1) ; R_RegisterCCallable("RcppTN", "RcppTN_enttn1", (DL_FUNC) enttn1) ; }
void R_init_svd(DllInfo *info) { (void)info; R_RegisterCCallable("svd", "is_extmat", (DL_FUNC)is_extmat); R_RegisterCCallable("svd", "extmat_nrow", (DL_FUNC)extmat_nrow); R_RegisterCCallable("svd", "extmat_ncol", (DL_FUNC)extmat_ncol); R_RegisterCCallable("svd", "ematmul", (DL_FUNC)ematmul); }
void attribute_visible R_init_aster(DllInfo *info) { R_registerRoutines(info, cMethods, callMethods, NULL, NULL); R_useDynamicSymbols(info, FALSE); R_forceSymbols(info, TRUE); R_RegisterCCallable("aster", "aster_mlogl_sat_unco", (DL_FUNC) aster_mlogl_sat_unco); R_RegisterCCallable("aster", "aster_mlogl_sat_cond", (DL_FUNC) aster_mlogl_sat_cond); }
void attribute_visible R_init_stats(DllInfo *dll) { R_registerRoutines(dll, CEntries, CallEntries, FortEntries, ExtEntries); R_useDynamicSymbols(dll, FALSE); R_forceSymbols(dll, TRUE); R_RegisterCCallable("stats", "nlminb_iterate", (DL_FUNC) nlminb_iterate); R_RegisterCCallable("stats", "nlsb_iterate", (DL_FUNC) nlsb_iterate); R_RegisterCCallable("stats", "Rf_divset", (DL_FUNC) Rf_divset); }
void R_init_expm(DllInfo *dll) { R_registerRoutines(dll, NULL, CallEntries, FortEntries, NULL); R_useDynamicSymbols(dll, FALSE); /* callable C code from other packages C code :*/ R_RegisterCCallable("expm", "expm", (DL_FUNC) expm); R_RegisterCCallable("matpow", "matpow", (DL_FUNC) matpow); R_RegisterCCallable("expm_eigen", "expm_eigen", (DL_FUNC) expm_eigen); R_RegisterCCallable("logm_eigen", "logm_eigen", (DL_FUNC) logm_eigen); R_RegisterCCallable("matexp_MH09", "matexp_MH09", (DL_FUNC) matexp_MH09); }
void R_init_zoo(DllInfo *info) { R_registerRoutines(info, NULL, callMethods, NULL, NULL); R_useDynamicSymbols(info, TRUE); #define RegisterZoo(routine) R_RegisterCCallable("zoo",#routine,(DL_FUNC) &routine) /* used by external packages linking to internal xts code from C */ R_RegisterCCallable("zoo","zoo_lag",(DL_FUNC) &zoo_lag); R_RegisterCCallable("zoo","zoo_coredata",(DL_FUNC) &zoo_coredata); }
void R_init_pomp (DllInfo *info) { R_RegisterCCallable("pomp","periodic_bspline_basis_eval",(DL_FUNC) &periodic_bspline_basis_eval); R_RegisterCCallable("pomp","dot_product",(DL_FUNC) &dot_product); R_RegisterCCallable("pomp","reulermultinom",(DL_FUNC) &reulermultinom); R_RegisterCCallable("pomp","deulermultinom",(DL_FUNC) &deulermultinom); R_RegisterCCallable("pomp","get_pomp_userdata",(DL_FUNC) &get_pomp_userdata); R_RegisterCCallable("pomp","get_pomp_userdata_int",(DL_FUNC) &get_pomp_userdata_int); R_RegisterCCallable("pomp","get_pomp_userdata_double",(DL_FUNC) &get_pomp_userdata_double); }
void R_init_muste(DllInfo *dll) { R_RegisterCCallable("muste", "data_open3", (DL_FUNC)data_open3); R_RegisterCCallable("muste", "data_close", (DL_FUNC)data_close); R_RegisterCCallable("muste", "muste_iconv", (DL_FUNC)muste_iconv); R_RegisterCCallable("muste", "fi_load", (DL_FUNC)fi_load); R_RegisterCCallable("muste", "fi_alpha_load", (DL_FUNC)fi_alpha_load); R_RegisterCCallable("muste", "muste_malloc", (DL_FUNC)muste_malloc); R_RegisterCCallable("muste", "muste_free", (DL_FUNC)muste_free); }
/** * Library initialization. * * R calls this automatically on lib load/attach. */ extern "C" void R_init_stringi(DllInfo* dll) { #if STRI_ICU_FOUND == 0 stri_set_icu_data_directory((char*)*(char**)(dll) /* dll->path */); #endif /* BTW: u_init: It is OK to simply use ICU services and functions without first having initialized ICU by calling u_init(). u_init() will attempt to load some part of ICU's data, and is useful as a test for configuration or installation problems that leave the ICU data inaccessible. A successful invocation of u_init() does not, however, guarantee that all ICU data is accessible. */ UErrorCode status = U_ZERO_ERROR; u_init(&status); if (U_FAILURE(status)) Rf_error("ICU init failed: %s", u_errorName(status)); R_registerRoutines(dll, NULL, cCallMethods, NULL, NULL); // R_useDynamicSymbols(dll, Rboolean(FALSE)); // slower const R_CallMethodDef* methods = cCallMethods; while (methods->name) { R_RegisterCCallable("stringi", methods->name, methods->fun); methods++; } if (!SUPPORT_UTF8) { /* Rconfig.h states that all R platforms supports that */ Rf_error("R does not support UTF-8 encoding."); } #ifndef NDEBUG // fprintf(stdout, "!NDEBUG: ************************************************\n"); // fprintf(stdout, "!NDEBUG: Dynamic library `stringi` loaded\n"); // fprintf(stdout, "!NDEBUG: Check out http://stringi.rexamine.com\n"); // fprintf(stdout, "!NDEBUG: \n"); // fprintf(stdout, "!NDEBUG: Please send bug reports to [email protected] \n"); // fprintf(stdout, "!NDEBUG: or at https://github.com/Rexamine/stringi/issues\n"); // fprintf(stdout, "!NDEBUG: \n"); // fprintf(stdout, "!NDEBUG: Have fun testing! :-)\n"); // fprintf(stdout, "!NDEBUG: ************************************************\n"); #endif }
void R_init_cubature(DllInfo *dll) { R_registerRoutines(dll, NULL, CallEntries, NULL, NULL); R_useDynamicSymbols(dll, FALSE); R_RegisterCCallable("cubature", "adapt_integrate", (DL_FUNC) hcubature); R_RegisterCCallable("cubature", "adapt_integrate_v", (DL_FUNC) hcubature_v); R_RegisterCCallable("cubature", "hcubature", (DL_FUNC) hcubature); R_RegisterCCallable("cubature", "hcubature_v", (DL_FUNC) hcubature_v); R_RegisterCCallable("cubature", "pcubature", (DL_FUNC) pcubature); R_RegisterCCallable("cubature", "pcubature_v", (DL_FUNC) pcubature_v); /* For future if people need it */ /* R_RegisterCCallable("cubature", "Cuhre", (DL_FUNC) Cuhre); */ /* R_RegisterCCallable("cubature", "Divonne", (DL_FUNC) Divonne); */ /* R_RegisterCCallable("cubature", "Suave", (DL_FUNC) Suave); */ /* R_RegisterCCallable("cubature", "Vegas", (DL_FUNC) Vegas); */ }
void R_init_mvtnorm(DllInfo *dll) { R_registerRoutines(dll, NULL, callMethods, cMethods, NULL); R_RegisterCCallable("mvtnorm", "C_mvtdst", (DL_FUNC) &C_mvtdst); }
extern "C" void R_init_rpf(DllInfo *info) { R_registerRoutines(info, NULL, flist, NULL, NULL); R_RegisterCCallable("rpf", "get_librpf_model_GPL", (DL_FUNC) get_librpf_models); Glibrpf_numModels = librpf_numModels; Glibrpf_model = librpf_model; }
void R_init_jiebaR(DllInfo *info) { R_registerRoutines(info, NULL, callMethods, NULL, NULL); R_useDynamicSymbols(info, TRUE); /* used by external packages linking to internal xts code from C */ // v4 // // _RJ(_jiebaR_jiebaclass_ptr) _RJ(_jiebaR_jiebaclass_ptr_v2) _RJ(_jiebaR_jiebaclass_mix_cut) _RJ(_jiebaR_jiebaclass_mp_cut) _RJ(_jiebaR_jiebaclass_hmm_cut) _RJ(_jiebaR_jiebaclass_full_cut) _RJ(_jiebaR_jiebaclass_query_cut) _RJ(_jiebaR_jiebaclass_tag_tag) _RJ(_jiebaR_jiebaclass_tag_file) _RJ(_jiebaR_jiebaclass_tag_vec) _RJ(_jiebaR_add_user_word) _RJ(_jiebaR_u64tobin) // v3 // R_RegisterCCallable("jiebaR", "_jiebaR_file_coding", (DL_FUNC) &_jiebaR_file_coding ); R_RegisterCCallable("jiebaR", "_jiebaR_mp_ptr", (DL_FUNC) &_jiebaR_mp_ptr ); R_RegisterCCallable("jiebaR", "_jiebaR_mp_cut", (DL_FUNC) &_jiebaR_mp_cut ); R_RegisterCCallable("jiebaR", "_jiebaR_mix_ptr", (DL_FUNC) &_jiebaR_mix_ptr ); R_RegisterCCallable("jiebaR", "_jiebaR_mix_cut", (DL_FUNC) &_jiebaR_mix_cut ); R_RegisterCCallable("jiebaR", "_jiebaR_query_ptr", (DL_FUNC) &_jiebaR_query_ptr ); R_RegisterCCallable("jiebaR", "_jiebaR_query_cut", (DL_FUNC) &_jiebaR_query_cut ); R_RegisterCCallable("jiebaR", "_jiebaR_hmm_ptr", (DL_FUNC) &_jiebaR_hmm_ptr ); R_RegisterCCallable("jiebaR", "_jiebaR_hmm_cut", (DL_FUNC) &_jiebaR_hmm_cut ); R_RegisterCCallable("jiebaR", "_jiebaR_tag_ptr", (DL_FUNC) &_jiebaR_tag_ptr ); R_RegisterCCallable("jiebaR", "_jiebaR_tag_tag", (DL_FUNC) &_jiebaR_tag_tag ); R_RegisterCCallable("jiebaR", "_jiebaR_tag_file", (DL_FUNC) &_jiebaR_tag_file ); R_RegisterCCallable("jiebaR", "_jiebaR_key_ptr", (DL_FUNC) &_jiebaR_key_ptr ); R_RegisterCCallable("jiebaR", "_jiebaR_key_tag", (DL_FUNC) &_jiebaR_key_tag ); R_RegisterCCallable("jiebaR", "_jiebaR_key_cut", (DL_FUNC) &_jiebaR_key_cut ); R_RegisterCCallable("jiebaR", "_jiebaR_key_keys", (DL_FUNC) &_jiebaR_key_keys ); R_RegisterCCallable("jiebaR", "_jiebaR_sim_ptr", (DL_FUNC) &_jiebaR_sim_ptr ); R_RegisterCCallable("jiebaR", "_jiebaR_sim_sim", (DL_FUNC) &_jiebaR_sim_sim ); R_RegisterCCallable("jiebaR", "_jiebaR_sim_distance",(DL_FUNC) &_jiebaR_sim_distance ); R_RegisterCCallable("jiebaR", "_jiebaR_words_freq", (DL_FUNC) &_jiebaR_words_freq ); }
void R_init_checkmate(DllInfo *dll) { R_registerRoutines(dll, NULL, CallEntries, NULL, NULL); R_useDynamicSymbols(dll, FALSE); R_RegisterCCallable("checkmate", "qtest", (DL_FUNC) &qtest); R_RegisterCCallable("checkmate", "qassert", (DL_FUNC) &qassert); }
void R_init_xts(DllInfo *info) { SymbolShortcuts(); R_registerRoutines(info, NULL, callMethods, NULL, externalMethods); R_useDynamicSymbols(info, TRUE); /* used by external packages linking to internal xts code from C */ R_RegisterCCallable("xts","do_is_ordered",(DL_FUNC) &do_is_ordered); R_RegisterCCallable("xts","coredata_xts", (DL_FUNC) &coredata_xts); R_RegisterCCallable("xts","isXts", (DL_FUNC) &isXts); R_RegisterCCallable("xts","tryXts", (DL_FUNC) &tryXts); R_RegisterCCallable("xts","do_rbind_xts", (DL_FUNC) &do_rbind_xts); R_RegisterCCallable("xts","naCheck", (DL_FUNC) &naCheck); R_RegisterCCallable("xts","lagXts", (DL_FUNC) &lagXts); R_RegisterCCallable("xts","make_index_unique", (DL_FUNC) &make_index_unique); R_RegisterCCallable("xts","make_unique", (DL_FUNC) &make_unique); R_RegisterCCallable("xts","endpoints", (DL_FUNC) &endpoints); R_RegisterCCallable("xts","do_merge_xts", (DL_FUNC) &do_merge_xts); R_RegisterCCallable("xts","na_omit_xts", (DL_FUNC) &na_omit_xts); R_RegisterCCallable("xts","na_locf", (DL_FUNC) &na_locf); /* used by xts (functions moved from xts to zoo) */ zoo_lag = (SEXP(*)(SEXP,SEXP,SEXP)) R_GetCCallable("zoo","zoo_lag"); zoo_coredata = (SEXP(*)(SEXP,SEXP)) R_GetCCallable("zoo","zoo_coredata"); }
R_init_Matrix(DllInfo *dll) { R_registerRoutines(dll, NULL, CallEntries, NULL, NULL); R_useDynamicSymbols(dll, FALSE); R_RegisterCCallable("Matrix", "as_cholmod_dense", (DL_FUNC)as_cholmod_dense); R_RegisterCCallable("Matrix", "as_cholmod_factor", (DL_FUNC)as_cholmod_factor); R_RegisterCCallable("Matrix", "as_cholmod_sparse", (DL_FUNC)as_cholmod_sparse); R_RegisterCCallable("Matrix", "chm_factor_to_SEXP", (DL_FUNC)chm_factor_to_SEXP); R_RegisterCCallable("Matrix", "chm_sparse_to_SEXP", (DL_FUNC)chm_sparse_to_SEXP); R_RegisterCCallable("Matrix", "cholmod_aat", (DL_FUNC)cholmod_aat); R_RegisterCCallable("Matrix", "cholmod_add", (DL_FUNC)cholmod_add); R_RegisterCCallable("Matrix", "cholmod_allocate_dense", (DL_FUNC)cholmod_allocate_dense); R_RegisterCCallable("Matrix", "cholmod_allocate_sparse", (DL_FUNC)cholmod_allocate_sparse); R_RegisterCCallable("Matrix", "cholmod_allocate_triplet", (DL_FUNC)cholmod_allocate_triplet); R_RegisterCCallable("Matrix", "cholmod_analyze", (DL_FUNC)cholmod_analyze); R_RegisterCCallable("Matrix", "cholmod_analyze_p", (DL_FUNC)cholmod_analyze_p); R_RegisterCCallable("Matrix", "cholmod_change_factor", (DL_FUNC)cholmod_change_factor); R_RegisterCCallable("Matrix", "cholmod_copy", (DL_FUNC)cholmod_copy); R_RegisterCCallable("Matrix", "cholmod_copy_dense", (DL_FUNC)cholmod_copy_dense); R_RegisterCCallable("Matrix", "cholmod_copy_factor", (DL_FUNC)cholmod_copy_factor); R_RegisterCCallable("Matrix", "cholmod_copy_sparse", (DL_FUNC)cholmod_copy_sparse); R_RegisterCCallable("Matrix", "cholmod_dense_to_sparse", (DL_FUNC)cholmod_dense_to_sparse); R_RegisterCCallable("Matrix", "cholmod_factor_to_sparse", (DL_FUNC)cholmod_factor_to_sparse); R_RegisterCCallable("Matrix", "cholmod_factorize", (DL_FUNC)cholmod_factorize); R_RegisterCCallable("Matrix", "cholmod_factorize_p", (DL_FUNC)cholmod_factorize_p); R_RegisterCCallable("Matrix", "cholmod_finish", (DL_FUNC)cholmod_finish); R_RegisterCCallable("Matrix", "cholmod_free_dense", (DL_FUNC)cholmod_free_dense); R_RegisterCCallable("Matrix", "cholmod_free_factor", (DL_FUNC)cholmod_free_factor); R_RegisterCCallable("Matrix", "cholmod_free_sparse", (DL_FUNC)cholmod_free_sparse); R_RegisterCCallable("Matrix", "cholmod_free_triplet", (DL_FUNC)cholmod_free_triplet); R_RegisterCCallable("Matrix", "cholmod_nnz", (DL_FUNC)cholmod_nnz); R_RegisterCCallable("Matrix", "cholmod_scale", (DL_FUNC)cholmod_scale); R_RegisterCCallable("Matrix", "cholmod_sdmult", (DL_FUNC)cholmod_sdmult); R_RegisterCCallable("Matrix", "cholmod_solve", (DL_FUNC)cholmod_solve); R_RegisterCCallable("Matrix", "cholmod_sort", (DL_FUNC)cholmod_sort); R_RegisterCCallable("Matrix", "cholmod_sparse_to_dense", (DL_FUNC)cholmod_sparse_to_dense); R_RegisterCCallable("Matrix", "cholmod_sparse_to_triplet", (DL_FUNC)cholmod_sparse_to_triplet); R_RegisterCCallable("Matrix", "cholmod_speye", (DL_FUNC)cholmod_speye); R_RegisterCCallable("Matrix", "cholmod_spsolve", (DL_FUNC)cholmod_spsolve); R_RegisterCCallable("Matrix", "cholmod_ssmult", (DL_FUNC)cholmod_ssmult); R_RegisterCCallable("Matrix", "cholmod_start", (DL_FUNC)cholmod_start); R_RegisterCCallable("Matrix", "cholmod_submatrix", (DL_FUNC)cholmod_submatrix); R_RegisterCCallable("Matrix", "cholmod_transpose", (DL_FUNC)cholmod_transpose); R_RegisterCCallable("Matrix", "cholmod_triplet_to_sparse", (DL_FUNC)cholmod_triplet_to_sparse); R_RegisterCCallable("Matrix", "cholmod_vertcat", (DL_FUNC)cholmod_vertcat); R_RegisterCCallable("Matrix", "dpoMatrix_chol", (DL_FUNC)dpoMatrix_chol); R_RegisterCCallable("Matrix", "numeric_as_chm_dense", (DL_FUNC)numeric_as_chm_dense); R_cholmod_start(&c); Matrix_DimNamesSym = install("Dimnames"); Matrix_DimSym = install("Dim"); Matrix_diagSym = install("diag"); Matrix_factorSym = install("factors"); Matrix_iSym = install("i"); Matrix_jSym = install("j"); Matrix_lengthSym = install("length"); Matrix_pSym = install("p"); Matrix_permSym = install("perm"); Matrix_uploSym = install("uplo"); Matrix_xSym = install("x"); }