init_tmb.hpp

Go to the documentation of this file.

 
#ifndef SRC_INIT_HPP
#define SRC_INIT_HPP
 
#include <stdlib.h>
#include <Rcpp.h>
#include <R_ext/Rdynload.h>
 
#ifdef FIMS_ONLOAD_INIT_TMB
extern "C" SEXP fims_post_load_init_tmb() {
#ifdef TMB_CCALLABLES
  Rprintf("** Initializing TMB C callables for FIMS...\n");
  TMB_CCALLABLES("FIMS");
#endif
  return R_NilValue;
}
 
#else
 
extern "C" {
 
SEXP _rcpp_module_boot_fims();
 
static const R_CallMethodDef CallEntries[] = {
    TMB_CALLDEFS,
    {"_rcpp_module_boot_fims", (DL_FUNC)&_rcpp_module_boot_fims, 0},
    {NULL, NULL, 0}};
 
__attribute__((visibility("default"))) void R_init_FIMS(DllInfo *dll) {
  R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
  R_useDynamicSymbols(dll, FALSE);
#ifdef TMB_CCALLABLES
  TMB_CCALLABLES("FIMS");
#endif
}
}
 
#endif  // FIMS_ONLOAD_INIT_TMB
 
#endif  // SRC_INIT_HPP