jm_status_enu_t fmi1_capi_load_dll(fmi1_capi_t* fmu)
{
assert(fmu && fmu->dllPath);
fmu->dllHandle = jm_portability_load_dll_handle(fmu->dllPath); /* Load the shared library */
if (fmu->dllHandle == NULL) {
jm_log_fatal(fmu->callbacks, FMI_CAPI_MODULE_NAME, "Could not load the DLL: %s", jm_portability_get_last_dll_error());
return jm_status_error;
} else {
jm_log_verbose(fmu->callbacks, FMI_CAPI_MODULE_NAME, "Loaded FMU binary from %s", fmu->dllPath);
return jm_status_success;
}
}
jm_status_enu_t fmi2_capi_free_dll(fmi2_capi_t* fmu)
{
if (fmu == NULL) {
return jm_status_error; /* Return without writing any log message */
}
if (fmu->dllHandle) {
jm_status_enu_t status =
(fmu->debugMode != 0) ?
/* When running valgrind this may be convenient to track mem leaks */
jm_status_success:
jm_portability_free_dll_handle(fmu->dllHandle);
fmu->dllHandle = 0;
if (status == jm_status_error) { /* Free the library handle */
jm_log(fmu->callbacks, FMI_CAPI_MODULE_NAME, jm_log_level_error, "Could not free the FMU binary: %s", jm_portability_get_last_dll_error());
return jm_status_error;
} else {
jm_log_verbose(fmu->callbacks, FMI_CAPI_MODULE_NAME, "Successfully unloaded FMU binary");
return jm_status_success;
}
}
return jm_status_success;
}
/* Loading shared library functions */
static jm_status_enu_t fmi2_capi_get_fcn(fmi2_capi_t* fmu, const char* function_name, jm_dll_function_ptr* dll_function_ptrptr, jm_status_enu_t* status )
{
jm_status_enu_t jm_status = jm_portability_load_dll_function(fmu->dllHandle, (char*)function_name, dll_function_ptrptr);
if (jm_status == jm_status_error) {
jm_log_error(fmu->callbacks, FMI_CAPI_MODULE_NAME, "Could not load the FMI function '%s'. %s", function_name, jm_portability_get_last_dll_error());
*status = jm_status_error;
}
return jm_status;
}
/* Load FMI 1.0 Co-Simulation functions */
static jm_status_enu_t fmi1_capi_load_cs_fcn(fmi1_capi_t* fmu)
{
jm_status_enu_t jm_status = jm_status_success;
jm_log_verbose(fmu->callbacks, FMI_CAPI_MODULE_NAME, "Loading functions for the co-simulation interface");
/* Workaround for Dymola 2012 and SimulationX 3.x */
if (fmi1_capi_get_fcn(fmu, "fmiGetTypesPlatform",(jm_dll_function_ptr*)&fmu->fmiGetTypesPlatform) == jm_status_error) {
jm_log_warning(fmu->callbacks, FMI_CAPI_MODULE_NAME, "Could not load the FMI function 'fmiGetTypesPlatform'. %s. Trying to load fmiGetModelTypesPlatform instead.", jm_portability_get_last_dll_error());
jm_status = jm_status_warning;
if (fmi1_capi_get_fcn(fmu, "fmiGetModelTypesPlatform", (jm_dll_function_ptr*)&fmu->fmiGetTypesPlatform) == jm_status_error) {
jm_log_error(fmu->callbacks, FMI_CAPI_MODULE_NAME, "Could not load the FMI function 'fmiGetModelTypesPlatform'. %s", jm_portability_get_last_dll_error());
jm_status = jm_status_error;
}
}
LOAD_DLL_FUNCTION(fmiInstantiateSlave);
LOAD_DLL_FUNCTION(fmiInitializeSlave);
LOAD_DLL_FUNCTION(fmiTerminateSlave);
LOAD_DLL_FUNCTION(fmiResetSlave);
LOAD_DLL_FUNCTION(fmiFreeSlaveInstance);
LOAD_DLL_FUNCTION(fmiSetRealInputDerivatives);
LOAD_DLL_FUNCTION(fmiGetRealOutputDerivatives);
LOAD_DLL_FUNCTION(fmiCancelStep);
LOAD_DLL_FUNCTION(fmiDoStep);
LOAD_DLL_FUNCTION(fmiGetStatus);
LOAD_DLL_FUNCTION(fmiGetRealStatus);
LOAD_DLL_FUNCTION(fmiGetIntegerStatus);
LOAD_DLL_FUNCTION(fmiGetBooleanStatus);
LOAD_DLL_FUNCTION(fmiGetStringStatus);
LOAD_DLL_FUNCTION(fmiGetVersion);
LOAD_DLL_FUNCTION(fmiSetDebugLogging);
LOAD_DLL_FUNCTION(fmiSetReal);
LOAD_DLL_FUNCTION(fmiSetInteger);
LOAD_DLL_FUNCTION(fmiSetBoolean);
LOAD_DLL_FUNCTION(fmiSetString);
LOAD_DLL_FUNCTION(fmiGetReal);
LOAD_DLL_FUNCTION(fmiGetInteger);
LOAD_DLL_FUNCTION(fmiGetBoolean);
LOAD_DLL_FUNCTION(fmiGetString);
return jm_status;
}
