comin_plugin_info.cpp

Go to the documentation of this file.

 
#include "comin_plugin_info.hpp"
#include "comin_state.hpp"
#include "comin_util.hpp"
 
static_assert(sizeof(t_comin_log_severity) == sizeof(int),
              "Underlying type of t_comin_log_severity must be int for Fortran "
              "compatibility.");
 
static t_comin_plugin_info& get_current_plugin_info() {
  using comin::state;
  return state.plugin_info[state.current_plugin_id - 1];
}
 
extern "C" {
  const char* comin_current_get_plugin_name() {
    return get_current_plugin_info().name.c_str();
  }
 
  const char* comin_current_get_plugin_options() {
    return get_current_plugin_info().options.c_str();
  }
 
  const char* comin_current_get_plugin_comm() {
    return get_current_plugin_info().comm.c_str();
  }
 
  bool comin_current_get_plugin_errors_return() {
    return get_current_plugin_info().errors_return;
  }
 
  void comin_error_set_errors_return(bool errors_return) {
    get_current_plugin_info().errors_return = errors_return;
  }
 
  t_comin_log_severity comin_current_get_plugin_log_severity() {
    return get_current_plugin_info().log_severity;
  }
}