config.hpp

Go to the documentation of this file.

// Copyright (C) 2013-2015 Kasper Kristensen
// License: GPL-2

struct config_struct{
  /* Configuration variables.
     - Default values _must_be_ specified with SET(var,value) 
     - Can be either bool or integer.
  */
  struct {
    bool parallel;   
    bool optimize;   
    bool atomic;     
  } trace;
  struct {
    bool instantly;  
    bool parallel;   
  } optimize;
  struct {
    bool parallel;   
  } tape;
  struct {
    bool getListElement;
  } debug;
  struct {
    bool sparse_hessian_compress;
    bool atomic_sparse_log_determinant;
  } tmbad;
  bool autopar; 
  int nthreads; 
  int cmd;
  SEXP envir; /* PROTECTed because function argument - see
                 'TMBconfig' */
  template<class T>
  void set(const char* name, T &var, T default_value)
  {
    // cmd=0: set defaults in this struct.
    // cmd=1: copy from this struct to R.
    // cmd=2: copy from R to this struct.
    SEXP name_symbol = Rf_install(name);
    if (cmd==0) var = default_value;
    if (cmd==1) Rf_defineVar(name_symbol, asSEXP(var), envir);
    if (cmd==2) var = INTEGER(Rf_findVar(name_symbol, envir))[0];
  }
#define SET(name,value)set(#name,name,value);
  void set() CSKIP(
  {
    SET(trace.parallel,true);
    SET(trace.optimize,true);
    SET(trace.atomic,true);
    SET(debug.getListElement,false);
    SET(optimize.instantly,true);
    SET(optimize.parallel,false);
    SET(tape.parallel,true);
    SET(tmbad.sparse_hessian_compress,false);
    SET(tmbad.atomic_sparse_log_determinant,true);
    SET(autopar,false);
    SET(nthreads,1);
  })
#undef SET
  config_struct() CSKIP(
  {
    cmd=0;
    set();
  })
};
TMB_EXTERN config_struct config;

extern "C"
{
  SEXP TMBconfig(SEXP envir, SEXP cmd) CSKIP(
  {
    config.cmd=INTEGER(cmd)[0];
    config.envir=envir;
    config.set();
    return R_NilValue;
  })
}