fmi2_capi_t* fmi2_capi_create_dllfmu(jm_callbacks* cb, const char* dllPath, const char* modelIdentifier, const fmi2_callback_functions_t* callBackFunctions, fmi2_fmu_kind_enu_t standard)
{
fmi2_capi_t* fmu = NULL;
jm_log_debug(cb, FMI_CAPI_MODULE_NAME, "Initializing data structures for FMICAPI.");
/* Minor check for the callbacks */
if (cb == NULL) {
assert(0);
return NULL;
}
/* Allocate memory for the FMU instance */
fmu = (fmi2_capi_t*)cb->calloc(1, sizeof(fmi2_capi_t));
if (fmu == NULL) { /* Could not allocate memory for the FMU struct */
jm_log_fatal(cb, FMI_CAPI_MODULE_NAME, "Could not allocate memory for the FMU struct.");
return NULL;
}
/* Set the import package callback functions */
fmu->callbacks = cb;
/* Set the FMI callback functions */
fmu->callBackFunctions = *callBackFunctions;
/* Set FMI standard to load */
fmu->standard = standard;
/* Set all memory alloated pointers to NULL */
fmu->dllPath = NULL;
fmu->modelIdentifier = NULL;
/* Copy DLL path */
fmu->dllPath = (char*)cb->calloc(sizeof(char), strlen(dllPath) + 1);
if (fmu->dllPath == NULL) {
jm_log_fatal(cb, FMI_CAPI_MODULE_NAME, "Could not allocate memory for the DLL path string.");
fmi2_capi_destroy_dllfmu(fmu);
return NULL;
}
strcpy((char*)fmu->dllPath, dllPath);
/* Copy the modelIdentifier */
fmu->modelIdentifier = (char*)cb->calloc(sizeof(char), strlen(modelIdentifier) + 1);
if (fmu->modelIdentifier == NULL) {
jm_log_fatal(cb, FMI_CAPI_MODULE_NAME, "Could not allocate memory for the modelIdentifier string.");
fmi2_capi_destroy_dllfmu(fmu);
return NULL;
}
strcpy((char*)fmu->modelIdentifier, modelIdentifier);
jm_log_debug(cb, FMI_CAPI_MODULE_NAME, "Successfully initialized data structures for FMICAPI.");
/* Everything was successful */
return fmu;
}
void fmi2_import_destroy_dllfmu(fmi2_import_t* fmu) {
if (fmu == NULL) {
return;
}
if(fmu -> capi) {
jm_log_verbose(fmu->callbacks, module, "Releasing FMU CAPI interface");
/* Free DLL handle */
fmi2_capi_free_dll(fmu -> capi);
/* Destroy the C-API struct */
fmi2_capi_destroy_dllfmu(fmu -> capi);
fmu -> capi = NULL;
}
}
/* Load and destroy functions */
jm_status_enu_t fmi2_import_create_dllfmu(fmi2_import_t* fmu, fmi2_fmu_kind_enu_t fmuKind, const fmi2_callback_functions_t* callBackFunctions) {
char curDir[FILENAME_MAX + 2];
char* dllDirPath = 0;
char* dllFileName = 0;
const char* modelIdentifier;
fmi2_callback_functions_t defaultCallbacks;
if (fmu == NULL) {
assert(0);
return jm_status_error;
}
if(fmu -> capi) {
if(fmi2_capi_get_fmu_kind(fmu -> capi) == fmuKind) {
jm_log_warning(fmu->callbacks, module, "FMU binary is already loaded");
return jm_status_success;
}
else
fmi2_import_destroy_dllfmu(fmu);
}
if(fmuKind == fmi2_fmu_kind_me)
modelIdentifier = fmi2_import_get_model_identifier_ME(fmu);
else if(fmuKind == fmi2_fmu_kind_cs)
modelIdentifier = fmi2_import_get_model_identifier_CS(fmu);
else {
assert(0);
return jm_status_error;
}
if (modelIdentifier == NULL) {
jm_log_error(fmu->callbacks, module, "No model identifier given");
return jm_status_error;
}
if( jm_portability_get_current_working_directory(curDir, FILENAME_MAX+1) != jm_status_success) {
jm_log_warning(fmu->callbacks, module, "Could not get current working directory (%s)", strerror(errno));
curDir[0] = 0;
};
dllDirPath = fmi_construct_dll_dir_name(fmu->callbacks, fmu->dirPath);
dllFileName = fmi_construct_dll_file_name(fmu->callbacks, dllDirPath, modelIdentifier);
if (!dllDirPath ||!dllFileName) {
fmu->callbacks->free(dllDirPath);
return jm_status_error;
}
if(!callBackFunctions) {
jm_callbacks* cb = fmu->callbacks;
defaultCallbacks.allocateMemory = cb->calloc;
defaultCallbacks.freeMemory = cb->free;
defaultCallbacks.componentEnvironment = fmu;
defaultCallbacks.logger = fmi2_log_forwarding;
defaultCallbacks.stepFinished = 0;
callBackFunctions = &defaultCallbacks;
}
if(jm_portability_set_current_working_directory(dllDirPath) != jm_status_success) {
jm_log_fatal(fmu->callbacks, module, "Could not change to the DLL directory %s", dllDirPath);
if(ENOENT == errno)
jm_log_fatal(fmu->callbacks, module, "No binary for this platform?");
else
jm_log_fatal(fmu->callbacks, module, "System error: %s", strerror(errno));
}
else {
/* Allocate memory for the C-API struct */
fmu -> capi = fmi2_capi_create_dllfmu(fmu->callbacks, dllFileName, modelIdentifier, callBackFunctions, fmuKind);
}
/* Load the DLL handle */
if (fmu -> capi) {
jm_log_info(fmu->callbacks, module,
"Loading '" FMI_PLATFORM "' binary with '%s' platform types", fmi2_get_types_platform() );
if(fmi2_capi_load_dll(fmu -> capi) == jm_status_error) {
fmi2_capi_destroy_dllfmu(fmu -> capi);
fmu -> capi = NULL;
}
}
if(curDir[0] && (jm_portability_set_current_working_directory(curDir) != jm_status_success)) {
jm_log_error(fmu->callbacks, module, "Could not restore current working directory (%s)", strerror(errno));
}
fmu->callbacks->free((jm_voidp)dllDirPath);
fmu->callbacks->free((jm_voidp)dllFileName);
if (fmu -> capi == NULL) {
return jm_status_error;
}
/* Load the DLL functions */
if (fmi2_capi_load_fcn(fmu -> capi, fmi2_xml_get_capabilities(fmu->md)) == jm_status_error) {
fmi2_capi_free_dll(fmu -> capi);
fmi2_capi_destroy_dllfmu(fmu -> capi);
fmu -> capi = NULL;
return jm_status_error;
}
jm_log_verbose(fmu->callbacks, module, "Successfully loaded all the interface functions");
return jm_status_success;
}