fmi1_xml_vendor_t* fmi1_xml_get_vendor(fmi1_xml_vendor_list_t* v, unsigned int index) { jm_vector(jm_voidp)* vl; if(!v) { assert(v && "Vendor list cannot be NULL"); return 0; } vl = &v->vendors; if(index >= jm_vector_get_size(jm_voidp)(vl)) return 0; return (fmi1_xml_vendor_t*)jm_vector_get_item(jm_voidp)(vl, index); }
void fmi2_xml_zero_empty_dependencies(fmi2_xml_dependencies_t** pdep) { fmi2_xml_dependencies_t* dep =*pdep; size_t ndep = jm_vector_get_size(size_t)(&dep->dependencyIndex); size_t i; if(!dep) return; for(i = 0; i<ndep;i++) { if(jm_vector_get_item(size_t)(&dep->dependencyIndex, i)) break; } if(i == ndep) { fmi2_xml_free_dependencies(dep); *pdep = 0; } }
/* Get the list of all the variables in the model in alphabetical order */ fmi1_import_variable_list_t* fmi1_import_get_variable_list_alphabetical_order(fmi1_import_t* fmu) { jm_vector(jm_named_ptr)* vars; fmi1_import_variable_list_t* vl; size_t nv, i; if(!fmu->md) { jm_log_error(fmu->callbacks, module,"No FMU is loaded"); return 0; } vars = fmi1_xml_get_variables_alphabetical_order(fmu->md); nv = jm_vector_get_size(jm_named_ptr)(vars); vl = fmi1_import_alloc_variable_list(fmu, nv); if(!vl) return 0; for(i = 0; i< nv; i++) { jm_vector_set_item(jm_voidp)(&vl->variables, i, jm_vector_get_item(jm_named_ptr)(vars, i).ptr); } return vl; }
static int fmi1_get_attr_str(fmi1_xml_parser_context_t *context, fmi1_xml_elm_enu_t elmID, fmi1_xml_attr_enu_t attrID, int required,const char** valp) { jm_string elmName, attrName, value; elmName = fmi1_element_handle_map[elmID].elementName; attrName = fmi1_xmlAttrNames[attrID]; value = jm_vector_get_item(jm_string)(context->attrBuffer, attrID); *valp = value; jm_vector_set_item(jm_string)(context->attrBuffer, attrID, 0); if(!(*valp)) { if (required) { fmi1_xml_parse_fatal(context, "Parsing XML element '%s': required attribute '%s' not found", elmName, attrName); return -1; } else return 0; } return 0; }
int fmi1_xml_handle_Annotation(fmi1_xml_parser_context_t *context, const char* data) { if(!data) { fmi1_xml_model_description_t* md = context->modelDescription; size_t numVendors = jm_vector_get_size(jm_voidp)(&(md->vendorList)); fmi1_xml_vendor_t* vendor =(fmi1_xml_vendor_t*)jm_vector_get_item(jm_voidp)(&(md->vendorList), numVendors-1); jm_vector(char)* bufName = fmi1_xml_reserve_parse_buffer(context,1,100); jm_vector(char)* bufValue = fmi1_xml_reserve_parse_buffer(context,2,100); jm_named_ptr named, *pnamed; fmi1_xml_annotation_t* annotation = 0; size_t vallen; if(!bufName || !bufValue || /* <xs:attribute name="name" type="xs:normalizedString" use="required"/> */ fmi1_xml_set_attr_string(context, fmi1_xml_elmID_Annotation, fmi_attr_id_name, 1, bufName) || /* <xs:attribute name="value" type="xs:string" use="required"/> */ fmi1_xml_set_attr_string(context, fmi1_xml_elmID_Annotation, fmi_attr_id_value, 1, bufValue) ) return -1; vallen = jm_vector_get_size(char)(bufValue); named.ptr = 0; named.name = 0; pnamed = jm_vector_push_back(jm_named_ptr)(&vendor->annotations, named); if(pnamed) *pnamed = named = jm_named_alloc_v(bufName,sizeof(fmi1_xml_annotation_t)+vallen+1,sizeof(fmi1_xml_annotation_t)+vallen,context->callbacks); annotation = named.ptr; if( !pnamed || !annotation ) { fmi1_xml_parse_fatal(context, "Could not allocate memory"); return -1; } annotation->name = named.name; if(vallen) memcpy(annotation->value,jm_vector_get_itemp(char)(bufValue,0), vallen); annotation->value[vallen] = 0; } else { /* don't do anything. might give out a warning if(data[0] != 0) */ return 0; } return 0; }
fmi1_xml_annotation_t* fmi1_xml_get_vendor_annotation(fmi1_xml_vendor_t* v, unsigned int index) { if(index >= fmi1_xml_get_number_of_vendor_annotations(v)) return 0; return jm_vector_get_item(jm_named_ptr)(&v->annotations, index).ptr; }
return base; } /* Return the list of all the variables aliased to the given one (including the base one. The list is ordered: base variable, aliases, negated aliases. */ jm_status_enu_t fmi1_xml_get_variable_aliases(fmi1_xml_model_description_t* md,fmi1_xml_variable_t* v, jm_vector(jm_voidp)* list) { fmi1_xml_variable_t key, *cur; fmi1_value_reference_t vr = fmi1_xml_get_variable_vr(v); size_t baseIndex, i, num = jm_vector_get_size(jm_voidp)(md->variablesByVR); key = *v; key.aliasKind = 0; cur = &key; baseIndex = jm_vector_bsearch_index(jm_voidp)(md->variablesByVR,(void**)&cur, fmi1_xml_compare_vr); cur = (fmi1_xml_variable_t*)jm_vector_get_item(jm_voidp)(md->variablesByVR, baseIndex); assert(cur); i = baseIndex + 1; while(fmi1_xml_get_variable_vr(cur) == vr) { if(!jm_vector_push_back(jm_voidp)(list, cur)) { jm_log_fatal(md->callbacks,module,"Could not allocate memory"); return jm_status_error; }; if(i >= num) break; cur = (fmi1_xml_variable_t*)jm_vector_get_item(jm_voidp)(md->variablesByVR, i); assert(cur); i++; } if(baseIndex) { i = baseIndex - 1; cur = (fmi1_xml_variable_t*)jm_vector_get_item(jm_voidp)(md->variablesByVR, i);
/** \brief Collect model information by counting the number of variables with specific properties and fillinf in fmi1_import_model_counts_t struct. \param fmu - An fmu object as returned by fmi1_import_parse_xml(). \param counts - a pointer to a preallocated struct. */ void fmi1_import_collect_model_counts(fmi1_import_t* fmu, fmi1_import_model_counts_t* counts) { jm_vector(jm_voidp)* vars = fmi1_xml_get_variables_original_order(fmu->md); size_t nv, i; memset(counts,0,sizeof(fmi1_import_model_counts_t)); if(!vars) return; nv = jm_vector_get_size(jm_voidp)(vars); for(i = 0; i< nv; i++) { fmi1_xml_variable_t* var = (fmi1_xml_variable_t*)jm_vector_get_item(jm_voidp)(vars, i); switch (fmi1_xml_get_variability(var)) { case fmi1_variability_enu_constant: counts->num_constants++; break; case fmi1_variability_enu_parameter: counts->num_parameters++; break; case fmi1_variability_enu_discrete: counts->num_discrete++; break; case fmi1_variability_enu_continuous: counts->num_continuous++; break; default: assert(0); } switch(fmi1_xml_get_causality(var)) { case fmi1_causality_enu_none: counts->num_causality_none++; break; case fmi1_causality_enu_input: counts->num_inputs++; break; case fmi1_causality_enu_output: counts->num_outputs++; break; case fmi1_causality_enu_internal: counts->num_internal++; break; default: assert(0); } switch(fmi1_xml_get_variable_base_type(var)) { case fmi1_base_type_real: counts->num_real_vars++; break; case fmi1_base_type_int: counts->num_integer_vars++; break; case fmi1_base_type_bool: counts->num_bool_vars++; break; case fmi1_base_type_str: counts->num_string_vars++; break; case fmi1_base_type_enum: counts->num_enum_vars++; break; default: assert(0); } } return; }
void fmi1_log_forwarding_v(fmi1_component_t c, fmi1_string_t instanceName, fmi1_status_t status, fmi1_string_t category, fmi1_string_t message, va_list args) { char buf[50000], *curp; const char* statusStr; fmi1_import_t* fmu = 0; jm_callbacks* cb = jm_get_default_callbacks(); jm_log_level_enu_t logLevel = jm_log_level_error; if(fmi1_import_active_fmu) { size_t n = jm_vector_get_size(jm_voidp)(fmi1_import_active_fmu); size_t i; for(i= 0; i < n; i++) { fmu = (fmi1_import_t*)jm_vector_get_item(jm_voidp)(fmi1_import_active_fmu, i); if(fmu->capi->c == c) { cb = fmu->callbacks; break; } } if(i >= n) { /* Could not find matching FMU -> use default callbacks */ fmu = 0; cb = jm_get_default_callbacks(); } } switch(status) { case fmi1_status_discard: case fmi1_status_pending: case fmi1_status_ok: logLevel = jm_log_level_info; break; case fmi1_status_warning: logLevel = jm_log_level_warning; break; case fmi1_status_error: logLevel = jm_log_level_error; break; case fmi1_status_fatal: default: logLevel = jm_log_level_fatal; } if(logLevel > cb->log_level) return; curp = buf; *curp = 0; if(category) { sprintf(curp, "[%s]", category); curp += strlen(category)+2; } statusStr = fmi1_status_to_string(status); sprintf(curp, "[FMU status:%s] ", statusStr); curp += strlen(statusStr) + strlen("[FMU status:] "); vsprintf(curp, message, args); if(fmu) { fmi1_import_expand_variable_references(fmu, buf, cb->errMessageBuffer,JM_MAX_ERROR_MESSAGE_SIZE); } else { strncpy(cb->errMessageBuffer, buf, JM_MAX_ERROR_MESSAGE_SIZE); cb->errMessageBuffer[JM_MAX_ERROR_MESSAGE_SIZE - 1] = '\0'; } if(cb->logger) { cb->logger(cb, instanceName, logLevel, cb->errMessageBuffer); } }
int fmi1_xml_is_attr_defined(fmi1_xml_parser_context_t *context, fmi1_xml_attr_enu_t attrID) { return ( jm_vector_get_item(jm_string)(context->attrBuffer, attrID) != 0); }
fmi1_xml_display_unit_t* fmi1_xml_get_unit_display_unit(fmi1_xml_unit_t* u, size_t index) { if(index >= fmi1_xml_get_unit_display_unit_number(u)) return 0; return jm_vector_get_item(jm_voidp)(&u->displayUnits, index); }
fmi1_xml_unit_t* fmi1_xml_get_unit(fmi1_xml_unit_definitions_t* ud, unsigned int index) { if(index >= fmi1_xml_get_unit_definitions_number(ud)) return 0; return jm_vector_get_item(jm_named_ptr)(&ud->definitions, index).ptr; }