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");
}
