--- /dev/null
+/*
+ Copyright (C) 2012 Modelon AB
+
+ This program is free software: you can redistribute it and/or modify
+ it under the terms of the BSD style license.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ FMILIB_License.txt file for more details.
+
+ You should have received a copy of the FMILIB_License.txt file
+ along with this program. If not, contact Modelon AB <http://www.modelon.com>.
+*/
+
+#include <string.h>
+#include <stdio.h>
+
+/* For checking variable naming conventions */
+#include <fmi2_xml_variable_name_parser.tab.h>
+#define YYSTYPE YYFMI2STYPE
+#include <fmi2_xml_variable_name_lex.h>
+
+#include "fmi2_xml_model_description_impl.h"
+#include "fmi2_xml_parser.h"
+
+static const char * module = "FMI2XML";
+
+#define ATTR_STR(attr) #attr,
+const char *fmi2_xmlAttrNames[fmi2_xml_attr_number] = {
+ FMI2_XML_ATTRLIST(ATTR_STR)
+};
+
+/* fmi2_xml_scheme_ defines give parent ID, the index in a sequence among siblings, flag if multiple elems are allowed */
+#define fmi2_xml_scheme_fmiModelDescription {fmi2_xml_elmID_none, 0, 0}
+#define fmi2_xml_scheme_ModelExchange {fmi2_xml_elmID_fmiModelDescription, 0, 0}
+#define fmi2_xml_scheme_SourceFiles {fmi2_xml_elmID_ModelExchange, 0, 0}
+#define fmi2_xml_scheme_File {fmi2_xml_elmID_SourceFiles, 0, 1}
+#define fmi2_xml_scheme_CoSimulation {fmi2_xml_elmID_fmiModelDescription, 1, 0}
+#define fmi2_xml_scheme_SourceFilesCS {fmi2_xml_elmID_CoSimulation, 0, 0}
+#define fmi2_xml_scheme_FileCS {fmi2_xml_elmID_SourceFilesCS, 0, 1}
+#define fmi2_xml_scheme_UnitDefinitions {fmi2_xml_elmID_fmiModelDescription, 2, 0}
+#define fmi2_xml_scheme_Unit {fmi2_xml_elmID_UnitDefinitions, 0, 1}
+#define fmi2_xml_scheme_BaseUnit {fmi2_xml_elmID_Unit, 0, 0}
+#define fmi2_xml_scheme_DisplayUnit {fmi2_xml_elmID_Unit, 1, 1}
+#define fmi2_xml_scheme_TypeDefinitions {fmi2_xml_elmID_fmiModelDescription, 3, 0}
+#define fmi2_xml_scheme_SimpleType {fmi2_xml_elmID_TypeDefinitions, 0, 1}
+#define fmi2_xml_scheme_Real {fmi2_xml_elmID_SimpleType, 0, 0}
+#define fmi2_xml_scheme_Integer {fmi2_xml_elmID_SimpleType, 0, 0}
+#define fmi2_xml_scheme_Boolean {fmi2_xml_elmID_SimpleType, 0, 0}
+#define fmi2_xml_scheme_String {fmi2_xml_elmID_SimpleType, 0, 0}
+#define fmi2_xml_scheme_Enumeration {fmi2_xml_elmID_SimpleType, 0, 0}
+#define fmi2_xml_scheme_Item {fmi2_xml_elmID_Enumeration, 0, 1}
+#define fmi2_xml_scheme_LogCategories {fmi2_xml_elmID_fmiModelDescription, 4, 0}
+#define fmi2_xml_scheme_Category {fmi2_xml_elmID_LogCategories, 0, 1}
+#define fmi2_xml_scheme_DefaultExperiment {fmi2_xml_elmID_fmiModelDescription, 5, 0}
+#define fmi2_xml_scheme_VendorAnnotations {fmi2_xml_elmID_fmiModelDescription, 6, 0}
+#define fmi2_xml_scheme_Tool {fmi2_xml_elmID_VendorAnnotations, 0, 1}
+#define fmi2_xml_scheme_ModelVariables {fmi2_xml_elmID_fmiModelDescription, 7, 0}
+#define fmi2_xml_scheme_ScalarVariable {fmi2_xml_elmID_ModelVariables, 0, 1}
+
+#define fmi2_xml_scheme_ModelStructure {fmi2_xml_elmID_fmiModelDescription, 8, 0}
+#define fmi2_xml_scheme_Outputs {fmi2_xml_elmID_ModelStructure, 0, 0}
+/*#define fmi2_xml_scheme_OutputUnknown {fmi2_xml_elmID_Outputs, 0, 1}*/
+#define fmi2_xml_scheme_Unknown {fmi2_xml_elmID_Outputs, 0, 1}
+#define fmi2_xml_scheme_Derivatives {fmi2_xml_elmID_ModelStructure, 1, 0}
+#define fmi2_xml_scheme_DerivativeUnknown {fmi2_xml_elmID_Derivatives, 0, 1}
+#define fmi2_xml_scheme_DiscreteStates {fmi2_xml_elmID_ModelStructure, 2, 0}
+#define fmi2_xml_scheme_DiscreteStateUnknown {fmi2_xml_elmID_DiscreteStates, 0, 1}
+#define fmi2_xml_scheme_InitialUnknowns {fmi2_xml_elmID_ModelStructure, 3, 0}
+#define fmi2_xml_scheme_InitialUnknown {fmi2_xml_elmID_InitialUnknowns, 0, 1}
+
+#define fmi2_xml_scheme_RealVariable {fmi2_xml_elmID_ScalarVariable, 0, 0}
+#define fmi2_xml_scheme_IntegerVariable {fmi2_xml_elmID_ScalarVariable, 0, 0}
+#define fmi2_xml_scheme_BooleanVariable {fmi2_xml_elmID_ScalarVariable, 0, 0}
+#define fmi2_xml_scheme_StringVariable {fmi2_xml_elmID_ScalarVariable, 0, 0}
+#define fmi2_xml_scheme_EnumerationVariable {fmi2_xml_elmID_ScalarVariable, 0, 0}
+
+#define fmi2_xml_scheme_Annotations {fmi2_xml_elmID_ScalarVariable, 1, 0}
+#define fmi2_xml_scheme_VariableTool {fmi2_xml_elmID_Annotations, 0, 1}
+
+#define EXPAND_ELM_SCHEME(elm) fmi2_xml_scheme_##elm ,
+
+fmi2_xml_scheme_info_t fmi2_xml_scheme_info[fmi2_xml_elm_number] = {
+ FMI2_XML_ELMLIST(EXPAND_ELM_SCHEME)
+ {fmi2_xml_elm_actual_number,0,0},
+ FMI2_XML_ELMLIST_ALT(EXPAND_ELM_SCHEME)};
+
+#define EXPAND_ELM_NAME(elm) { #elm, fmi2_xml_handle_##elm, fmi2_xml_elmID_##elm},
+
+fmi2_xml_element_handle_map_t fmi2_element_handle_map[fmi2_xml_elm_number] = {
+ FMI2_XML_ELMLIST(EXPAND_ELM_NAME)
+ { NULL, NULL, fmi2_xml_elm_actual_number},
+ FMI2_XML_ELMLIST_ALT(EXPAND_ELM_NAME)
+};
+
+void fmi2_xml_parse_free_context(fmi2_xml_parser_context_t *context) {
+ if(!context) return;
+ if(context->modelDescription)
+ fmi2_xml_clear_model_description(context->modelDescription);
+ if(context->parser) {
+ XML_ParserFree(context->parser);
+ context->parser = 0;
+ }
+ fmi2_xml_free_parse_buffer(context);
+ if(context->attrMap) {
+ jm_vector_free(jm_named_ptr)(context->attrMap);
+ context->attrMap = 0;
+ }
+ if(context->elmMap) {
+ jm_vector_free(fmi2_xml_element_handle_map_t)(context->elmMap);
+ context->elmMap = 0;
+ }
+ if(context->attrBuffer) {
+ jm_vector_free(jm_string)(context->attrBuffer);
+ context->attrBuffer = 0;
+ }
+ jm_stack_free_data(int)(& context->elmStack );
+ jm_vector_free_data(char)( &context->elmData );
+
+ context->callbacks->free(context);
+}
+
+void fmi2_xml_parse_fatal(fmi2_xml_parser_context_t *context, const char* fmt, ...) {
+ va_list args;
+ va_start (args, fmt);
+ jm_log_fatal_v(context->callbacks, module, fmt, args);
+ va_end (args);
+ XML_StopParser(context->parser,0);
+}
+
+void fmi2_xml_parse_error(fmi2_xml_parser_context_t *context, const char* fmt, ...) {
+ va_list args;
+ va_start (args, fmt);
+ if(context->parser)
+ jm_log_info(context->callbacks, module, "[Line:%u] Detected during parsing:", XML_GetCurrentLineNumber(context->parser));
+ jm_log_error_v(context->callbacks, module,fmt, args);
+ va_end (args);
+}
+
+
+int fmi2_xml_is_attr_defined(fmi2_xml_parser_context_t *context, fmi2_xml_attr_enu_t attrID) {
+ return ( jm_vector_get_item(jm_string)(context->attrBuffer, attrID) != 0);
+}
+
+int fmi2_xml_get_attr_str(fmi2_xml_parser_context_t *context, fmi2_xml_elm_enu_t elmID, fmi2_xml_attr_enu_t attrID, int required,const char** valp) {
+
+ jm_string elmName, attrName, value;
+
+ elmName = fmi2_element_handle_map[elmID].elementName;
+ attrName = fmi2_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) {
+ fmi2_xml_parse_fatal(context, "Parsing XML element '%s': required attribute '%s' not found", elmName, attrName);
+ return -1;
+ }
+ else
+ return 0;
+ }
+ return 0;
+}
+
+int fmi2_xml_set_attr_string(fmi2_xml_parser_context_t *context, fmi2_xml_elm_enu_t elmID, fmi2_xml_attr_enu_t attrID, int required, jm_vector(char)* field) {
+ int ret;
+ jm_string elmName, attrName, val;
+ size_t len;
+ ret = fmi2_xml_get_attr_str(context, elmID, attrID,required,&val);
+ if(ret) return ret;
+ if((!val || !val[0]) && !required) {
+ jm_vector_resize(char)(field, 1);
+ jm_vector_set_item(char)(field, 0, 0);
+ jm_vector_resize(char)(field, 0);
+ return 0;
+ }
+ elmName = fmi2_element_handle_map[elmID].elementName;
+ attrName = fmi2_xmlAttrNames[attrID];
+
+ len = strlen(val) + 1;
+ if(jm_vector_resize(char)(field, len) < len) {
+ fmi2_xml_parse_fatal(context, "XML element '%s': could not allocate memory for setting '%s'='%s'", elmName, attrName, val);
+ return -1;
+ }
+ /* copy terminating 0 as well but set vector size to be actual string length */
+ memcpy(jm_vector_get_itemp(char)(field,0), val, len);
+ jm_vector_resize(char)(field, len - 1);
+ return 0;
+}
+
+int fmi2_xml_set_attr_uint(fmi2_xml_parser_context_t *context, fmi2_xml_elm_enu_t elmID, fmi2_xml_attr_enu_t attrID, int required, unsigned int* field, unsigned int defaultVal) {
+ int ret;
+ jm_string elmName, attrName, strVal;
+
+ ret = fmi2_xml_get_attr_str(context, elmID, attrID,required,&strVal);
+ if(ret) return ret;
+ if(!strVal && !required) {
+ *field = defaultVal;
+ return 0;
+ }
+
+ elmName = fmi2_element_handle_map[elmID].elementName;
+ attrName = fmi2_xmlAttrNames[attrID];
+
+ if(sscanf(strVal, "%u", field) != 1) {
+ fmi2_xml_parse_error(context, "XML element '%s': could not parse value for unsigned attribute '%s'='%s'", elmName, attrName, strVal);
+ return -1;
+ }
+ return 0;
+}
+
+
+int fmi2_xml_set_attr_enum(fmi2_xml_parser_context_t *context, fmi2_xml_elm_enu_t elmID, fmi2_xml_attr_enu_t attrID, int required, unsigned int* field, unsigned int defaultVal, jm_name_ID_map_t* nameMap) {
+ int ret, i;
+ jm_string elmName, attrName, strVal;
+
+ ret = fmi2_xml_get_attr_str(context, elmID, attrID,required,&strVal);
+ if(ret) return ret;
+ if(!strVal && !required) {
+ *field = defaultVal;
+ return 0;
+ }
+
+ elmName = fmi2_element_handle_map[elmID].elementName;
+ attrName = fmi2_xmlAttrNames[attrID];
+
+ i = 0;
+ while(nameMap[i].name && strcmp(nameMap[i].name, strVal)) i++;
+ if(!nameMap[i].name) {
+ fmi2_xml_parse_error(context, "XML element '%s': could not parse value for enumeration attribute '%s'='%s'", elmName, attrName, strVal);
+ return -1;
+ }
+ *field = nameMap[i].ID;
+ return 0;
+}
+
+int fmi2_xml_set_attr_boolean(fmi2_xml_parser_context_t *context, fmi2_xml_elm_enu_t elmID, fmi2_xml_attr_enu_t attrID, int required, unsigned int* field, unsigned int defaultVal) {
+ jm_name_ID_map_t fmi_boolean_i_dMap[] = {{"true", 1},{"false", 0}, {"1", 1},{"0", 0}, {0,0}};
+ return fmi2_xml_set_attr_enum(context,elmID, attrID,required, field, defaultVal, fmi_boolean_i_dMap);
+}
+
+int fmi2_xml_set_attr_int(fmi2_xml_parser_context_t *context, fmi2_xml_elm_enu_t elmID, fmi2_xml_attr_enu_t attrID, int required, int* field, int defaultVal) {
+ int ret;
+ jm_string elmName, attrName, strVal;
+
+ ret = fmi2_xml_get_attr_str(context, elmID, attrID,required,&strVal);
+ if(ret) return ret;
+ if(!strVal && !required) {
+ *field = defaultVal;
+ return 0;
+ }
+
+ elmName = fmi2_element_handle_map[elmID].elementName;
+ attrName = fmi2_xmlAttrNames[attrID];
+
+ if(sscanf(strVal, "%d", field) != 1) {
+ fmi2_xml_parse_error(context, "XML element '%s': could not parse value for integer attribute '%s'='%s'", elmName, attrName, strVal);
+ return -1;
+ }
+ return 0;
+}
+
+int fmi2_xml_set_attr_double(fmi2_xml_parser_context_t *context, fmi2_xml_elm_enu_t elmID, fmi2_xml_attr_enu_t attrID, int required, double* field, double defaultVal) {
+
+ int ret;
+ jm_string elmName, attrName, strVal;
+
+
+ ret = fmi2_xml_get_attr_str(context, elmID, attrID,required,&strVal);
+ if(ret) return ret;
+ if(!strVal && !required) {
+ *field = defaultVal;
+ return 0;
+ }
+
+ elmName = fmi2_element_handle_map[elmID].elementName;
+ attrName = fmi2_xmlAttrNames[attrID];
+
+ if(sscanf(strVal, "%lf", field) != 1) {
+ fmi2_xml_parse_error(context, "XML element '%s': could not parse value for real attribute '%s'='%s'", elmName, attrName, strVal);
+ return -1;
+ }
+ return 0;
+}
+
+int fmi2_xml_alloc_parse_buffer(fmi2_xml_parser_context_t *context, size_t items) {
+
+ jm_vector(jm_voidp)* parseBuffer = &context->parseBuffer;
+
+ if(jm_vector_init(jm_voidp)(parseBuffer,items,context->callbacks) < items) {
+ fmi2_xml_parse_fatal(context, "Could not allocate buffer for parsing XML");
+ return -1;
+ }
+ jm_vector_zero(jm_voidp)(parseBuffer);
+ return 0;
+}
+
+void fmi2_xml_free_parse_buffer(fmi2_xml_parser_context_t *context) {
+ size_t i;
+ jm_vector(jm_voidp)* parseBuffer = &context->parseBuffer;
+
+ for(i=0; i < jm_vector_get_size(jm_voidp)(parseBuffer); i++) {
+ jm_vector(char) * item = jm_vector_get_item(jm_voidp)(parseBuffer,i);
+ if(item) jm_vector_free(char)(item);
+ }
+ jm_vector_free_data(jm_voidp)(parseBuffer);
+}
+
+jm_vector(char) * fmi2_xml_reserve_parse_buffer(fmi2_xml_parser_context_t *context, size_t index, size_t size) {
+
+ jm_vector(jm_voidp)* parseBuffer = &context->parseBuffer;
+ jm_vector(char) * item = jm_vector_get_item(jm_voidp)(parseBuffer,index);
+ if(!item) {
+ item = jm_vector_alloc(char)(size,size,context->callbacks);
+ jm_vector_set_item(jm_voidp)(parseBuffer,index,item);
+ if(!item) {
+ fmi2_xml_parse_fatal(context, "Could not allocate a buffer for parsing XML");
+ return 0;
+ }
+ }
+ else {
+ if(jm_vector_resize(char)(item, size) < size ) {
+ fmi2_xml_parse_fatal(context, "Could not allocate a buffer for parsing XML");
+ return 0;
+ }
+ }
+ return item;
+}
+
+jm_vector(char) * fmi2_xml_get_parse_buffer(fmi2_xml_parser_context_t *context, size_t index) {
+ jm_vector(jm_voidp)* parseBuffer = &context->parseBuffer;
+ return jm_vector_get_item(jm_voidp)(parseBuffer,index);
+}
+
+
+
+int fmi2_create_attr_map(fmi2_xml_parser_context_t* context) {
+ int i;
+ context->attrBuffer = jm_vector_alloc(jm_string)(fmi2_xml_attr_number, fmi2_xml_attr_number, context->callbacks);
+ if(!context->attrBuffer) return -1;
+ context->attrMap = jm_vector_alloc(jm_named_ptr)(fmi2_xml_attr_number, fmi2_xml_attr_number, context->callbacks);
+ if(!context->attrMap) return -1;
+ for(i = 0; i < fmi2_xml_attr_number; i++) {
+ jm_named_ptr map;
+ jm_vector_set_item(jm_string)(context->attrBuffer, i, 0);
+ map.name = fmi2_xmlAttrNames[i];
+ map.ptr = (void*)(jm_vector_get_itemp(jm_string)(context->attrBuffer, i));
+ jm_vector_set_item(jm_named_ptr)(context->attrMap, i, map);
+ }
+ jm_vector_qsort(jm_named_ptr)(context->attrMap, jm_compare_named);
+ return 0;
+}
+
+int fmi2_create_elm_map(fmi2_xml_parser_context_t* context) {
+ size_t i;
+ context->elmMap = jm_vector_alloc(fmi2_xml_element_handle_map_t)(fmi2_xml_elm_actual_number, fmi2_xml_elm_number, context->callbacks);
+ if(!context->elmMap) return -1;
+ for(i = 0; i < fmi2_xml_elm_actual_number; i++) {
+ fmi2_xml_element_handle_map_t item = fmi2_element_handle_map[i];
+ jm_vector_set_item(fmi2_xml_element_handle_map_t)(context->elmMap, i, item);
+ }
+ jm_vector_qsort(fmi2_xml_element_handle_map_t)(context->elmMap, fmi2_xml_compare_elmName);
+ return 0;
+}
+
+void fmi2_xml_set_element_handle(fmi2_xml_parser_context_t *context, const char* elm, fmi2_xml_elm_enu_t id) {
+ fmi2_xml_element_handle_map_t keyEl;
+ fmi2_xml_element_handle_map_t* currentElMap;
+ keyEl.elementName = elm;
+ currentElMap = jm_vector_bsearch(fmi2_xml_element_handle_map_t)(context->elmMap, &keyEl, fmi2_xml_compare_elmName);
+
+ currentElMap->elementHandle = fmi2_element_handle_map[id].elementHandle;;
+ currentElMap->elemID = id;
+}
+
+
+static void XMLCALL fmi2_parse_element_start(void *c, const char *elm, const char **attr) {
+ jm_named_ptr key;
+ fmi2_xml_element_handle_map_t keyEl;
+ fmi2_xml_element_handle_map_t* currentElMap;
+ jm_named_ptr* currentMap;
+ fmi2_xml_elm_enu_t currentID;
+ int i;
+ fmi2_xml_parser_context_t *context = c;
+ context->has_produced_data_warning = 0;
+
+ if(context->useAnyHandleFlg) {
+ fmi2_xml_callbacks_t* anyH = context->anyHandle;
+ context->anyElmCount++;
+ if(anyH && anyH->startHandle) {
+ int ret = anyH->startHandle(anyH->context, context->anyToolName, context->anyParent, elm, attr);
+ if(ret != 0) {
+ fmi2_xml_parse_fatal(context, "User element handle returned non-zero error code %d", ret);
+ }
+ }
+ return;
+ }
+
+ if(context->skipElementCnt) {
+ context->skipElementCnt++;
+ jm_log_warning(context->callbacks, module, "[Line:%u] Skipping nested XML element '%s'",
+ XML_GetCurrentLineNumber(context->parser), elm);
+ return;
+ }
+
+ keyEl.elementName = elm;
+ /* find the element handle by name */
+ currentElMap = jm_vector_bsearch(fmi2_xml_element_handle_map_t)(context->elmMap, &keyEl, fmi2_xml_compare_elmName);
+ if(!currentElMap) {
+ /* not found error*/
+ jm_log_error(context->callbacks, module, "[Line:%u] Unknown element '%s' in XML, skipping",
+ XML_GetCurrentLineNumber(context->parser), elm);
+ context->skipElementCnt = 1;
+ return;
+ }
+
+ currentID = currentElMap->elemID;
+ /* Check that parent-child & siblings are fine */
+ {
+ fmi2_xml_elm_enu_t parentID = context->currentElmID;
+ fmi2_xml_elm_enu_t siblingID = context->lastElmID;
+
+ if(fmi2_xml_scheme_info[currentID].parentID != parentID) {
+ jm_log_error(context->callbacks, module,
+ "[Line:%u] XML element '%s' cannot be placed inside '%s', skipping",
+ XML_GetCurrentLineNumber(context->parser), elm, fmi2_element_handle_map[parentID].elementName);
+ context->skipElementCnt = 1;
+ return;
+ }
+ if(siblingID != fmi2_xml_elmID_none) {
+ if(siblingID == currentID) {
+ if(!fmi2_xml_scheme_info[currentID].multipleAllowed) {
+ jm_log_error(context->callbacks, module,
+ "[Line:%u] Multiple instances of XML element '%s' are not allowed, skipping",
+ XML_GetCurrentLineNumber(context->parser), elm);
+ context->skipElementCnt = 1;
+ return;
+ }
+ }
+ else {
+ int lastSiblingIndex = fmi2_xml_scheme_info[siblingID].siblingIndex;
+ int curSiblingIndex = fmi2_xml_scheme_info[currentID].siblingIndex;
+
+ if(lastSiblingIndex >= curSiblingIndex) {
+ jm_log_error(context->callbacks, module,
+ "[Line:%u] XML element '%s' cannot be placed after element '%s', skipping",
+ XML_GetCurrentLineNumber(context->parser), elm, fmi2_element_handle_map[siblingID].elementName);
+ context->skipElementCnt = 1;
+ return;
+ }
+ }
+ }
+ context->lastElmID = fmi2_xml_elmID_none;
+ }
+
+ /* process the attributes */
+ i = 0;
+ while(attr[i]) {
+ key.name = attr[i];
+ /* find attribute by name */
+ currentMap = jm_vector_bsearch(jm_named_ptr)(context->attrMap, &key, jm_compare_named);
+ if(!currentMap) {
+#define XMLSchema_instance "http://www.w3.org/2001/XMLSchema-instance"
+ const size_t stdNSlen = strlen(XMLSchema_instance);
+ const size_t attrStrLen = strlen(attr[i]);
+ if((attrStrLen > stdNSlen) && (attr[i][stdNSlen] == '|') && (strncmp(attr[i], XMLSchema_instance, stdNSlen) == 0)) {
+ const char* localName = attr[i] + stdNSlen + 1;
+ if( strcmp(localName, "noNamespaceSchemaLocation") == 0)
+ jm_log_warning(context->callbacks, module, "Attribute noNamespaceSchemaLocation='%s' is ignored. Using standard fmiModelDescription.xsd.",
+ attr[i+1]);
+ else if((strcmp(localName, "nil") == 0)
+ || (strcmp(localName, "type") == 0)) {
+ jm_log_warning(context->callbacks, module, "Attribute {" XMLSchema_instance "}%s=%s is ignored",
+ localName, attr[i+1]);
+ }
+ else if(strcmp(localName, "schemaLocation") == 0) {
+ /* just skip this */
+ }
+ else {
+ jm_log_error(context->callbacks, module, "Unknown attribute '%s=%s' in XML", attr[i], attr[i+1]);
+ }
+ }
+ else if(
+ (strcmp("providesPartialDerivativesOf_DerivativeFunction_wrt_States", attr[i]) == 0) ||\r
+ (strcmp("providesPartialDerivativesOf_DerivativeFunction_wrt_Inputs", attr[i]) == 0) ||\r
+ (strcmp("providesPartialDerivativesOf_OutputFunction_wrt_States", attr[i]) == 0) ||
+ (strcmp("providesPartialDerivativesOf_OutputFunction_wrt_Inputs", attr[i]) == 0)
+ ) {
+ jm_log_warning(context->callbacks, module,
+ "FMI API function fmiGetPartialDerivatives is removed from the specification. Attribute %s will be ignored.", attr[i]);
+ }
+ else {
+ /* not found error*/
+ jm_log_error(context->callbacks, module, "Unknown attribute '%s=%s' in XML", attr[i], attr[i+1]);
+ }
+ }
+ else {
+ /* save attr value (still as string) for further handling */
+ const char** mapItem = (const char**)currentMap->ptr;
+ *mapItem = attr[i+1];
+ }
+ i += 2;
+ }
+
+ /* handle the element */
+ if( currentElMap->elementHandle(context, 0) ) {
+ /* try to skip and continue anyway */
+ if(!context->skipElementCnt) context->skipElementCnt = 1;
+ }
+ if(context->skipElementCnt) return;
+ /* check that the element handle had process all the attributes */
+ for(i = 0; i < fmi2_xml_attr_number; i++) {
+ if(jm_vector_get_item(jm_string)(context->attrBuffer, i)) {
+ if(!context->skipOneVariableFlag)
+ jm_log_warning(context->callbacks,module, "Attribute '%s' not processed by element '%s' handle", fmi2_xmlAttrNames[i], elm);
+ jm_vector_set_item(jm_string)(context->attrBuffer, i,0);
+ }
+ }
+ if(context -> currentElmID != fmi2_xml_elmID_none) { /* with nested elements: put the parent on the stack*/
+ jm_stack_push(int)(&context->elmStack, context -> currentElmID);
+ }
+ context -> currentElmID = currentID;
+}
+
+static void XMLCALL fmi2_parse_element_end(void* c, const char *elm) {
+
+ fmi2_xml_element_handle_map_t keyEl;
+ fmi2_xml_element_handle_map_t* currentElMap;
+ fmi2_xml_elm_enu_t currentID;
+ fmi2_xml_parser_context_t *context = c;
+
+ if(context->useAnyHandleFlg && (context->anyElmCount > 0)) {
+ fmi2_xml_callbacks_t* anyH = context->anyHandle;
+ context->anyElmCount--;
+ if(anyH && anyH->endHandle) {
+ int ret = anyH->endHandle(anyH->context, elm);
+ if(ret != 0) {
+ fmi2_xml_parse_fatal(context, "User element handle returned non-zero error code %d", ret);
+ }
+ }
+ return;
+ }
+
+ if(context->skipElementCnt) {
+ context->skipElementCnt--;
+ return;
+ }
+
+ keyEl.elementName = elm;
+ currentElMap = jm_vector_bsearch(fmi2_xml_element_handle_map_t)(context->elmMap, &keyEl, fmi2_xml_compare_elmName);
+ if(!currentElMap) {
+ /* not found error*/
+ fmi2_xml_parse_fatal(context, "Unknown element end in XML (element: %s)", elm);
+ return;
+ }
+ currentID = currentElMap->elemID;
+
+ if(currentID != context -> currentElmID) {
+ /* missmatch error*/
+ fmi2_xml_parse_fatal(context, "Element end '%s' does not match element start '%s' in XML", elm,
+ fmi2_element_handle_map[context -> currentElmID].elementName);
+ return;
+ }
+
+ jm_vector_push_back(char)(&context->elmData, 0);
+
+ if( currentElMap->elementHandle(context, jm_vector_get_itemp(char)(&context->elmData, 0) )) {
+ return;
+ }
+ jm_vector_resize(char)(&context->elmData, 0);
+
+ /* record the last handle and pop the stack */
+ context->lastElmID = currentID;
+
+ if(jm_stack_is_empty(int)(&context->elmStack)) {
+ context -> currentElmID = fmi2_xml_elmID_none;
+ }
+ else {
+ context -> currentElmID = (fmi2_xml_elm_enu_t)jm_stack_pop(int)(&context->elmStack);
+ }
+}
+
+/*
+* Called to handle element data, e.g. "xy" in <Name>xy</Name>
+* Can be called many times, e.g. with "x" and then with "y" in the example above.
+* Feature in expat:
+* For some reason, if the element data is the empty string (Eg. <a></a>)
+* instead of an empty string with len == 0 we get "\n". The workaround is
+* to replace this with the empty string whenever we encounter "\n".
+*/
+static void XMLCALL fmi2_parse_element_data(void* c, const XML_Char *s, int len) {
+ int i;
+ fmi2_xml_parser_context_t *context = c;
+ if(context->useAnyHandleFlg && (context->anyElmCount > 0)) {
+ fmi2_xml_callbacks_t* anyH = context->anyHandle;
+ if(anyH && anyH->dataHandle) {
+ int ret = anyH->dataHandle(anyH->context, s, len);
+ if(ret != 0) {
+ fmi2_xml_parse_fatal(context, "User element handle returned non-zero error code %d", ret);
+ }
+ }
+ return;
+ }
+ if(context->skipElementCnt) {
+ return;
+ }
+ for(i = 0; i< len;i++) {
+ char ch = s[i];
+ if((ch != '\n') && (ch != ' ') && (ch != '\t')) {
+ break;
+ }
+ }
+
+ if((i != len) && !context->has_produced_data_warning) {
+ jm_log_warning(context->callbacks, module, "[Line:%u] Skipping unexpected XML element data",
+ XML_GetCurrentLineNumber(context->parser));
+ context->has_produced_data_warning = 1;
+ }
+}
+
+void fmi2_check_variable_naming_conventions(fmi2_xml_model_description_t *md) {
+ size_t n = jm_vector_get_size(jm_named_ptr)(&md->variablesByName);
+ size_t k;
+ yyscan_t scanner;
+ YY_BUFFER_STATE buf;
+
+ /* check for duplicate variable names */
+ for (k = 1; k < n; k++) {
+ const char *v1 = jm_vector_get_item(jm_named_ptr)(&md->variablesByName, k - 1).name;
+ const char *v2 = jm_vector_get_item(jm_named_ptr)(&md->variablesByName, k).name;
+ if(strcmp(v1, v2) == 0) {
+ jm_log_error(md->callbacks, module,
+ "Two variables with the same name %s found. This is not allowed.",
+ v1);
+ }
+ }
+
+ /* check variable name syntax */
+ if (md->namingConvension == fmi2_naming_enu_structured) {
+ yyfmi2lex_init(&scanner);
+ for (k = 0; k < n; k++) {
+ char *name = ((fmi2_xml_variable_t *) jm_vector_get_item(jm_voidp)(
+ md->variablesOrigOrder, k))->name;
+ buf = yyfmi2_scan_string(name, scanner);
+ yyfmi2parse(scanner, md->callbacks, name);
+ yyfmi2_delete_buffer(buf, scanner);
+ }
+ yyfmi2lex_destroy(scanner);
+ }
+}
+
+int fmi2_xml_parse_model_description(fmi2_xml_model_description_t* md,
+ const char* filename,
+ fmi2_xml_callbacks_t* xml_callbacks,
+ int configuration) {
+ XML_Memory_Handling_Suite memsuite;
+ fmi2_xml_parser_context_t* context;
+ XML_Parser parser = NULL;
+ FILE* file;
+
+ context = (fmi2_xml_parser_context_t*)md->callbacks->calloc(1, sizeof(fmi2_xml_parser_context_t));
+ if(!context) {
+ jm_log_fatal(md->callbacks, "FMIXML", "Could not allocate memory for XML parser context");
+ }
+ context->callbacks = md->callbacks;
+ context->modelDescription = md;
+ if(fmi2_xml_alloc_parse_buffer(context, 16)) return -1;
+ if(fmi2_create_attr_map(context) || fmi2_create_elm_map(context)) {
+ fmi2_xml_parse_fatal(context, "Error in parsing initialization");
+ fmi2_xml_parse_free_context(context);
+ return -1;
+ }
+ context->lastBaseUnit = 0;
+ context->skipOneVariableFlag = 0;
+ context->skipElementCnt = 0;
+ jm_stack_init(int)(&context->elmStack, context->callbacks);
+ jm_vector_init(char)(&context->elmData, 0, context->callbacks);
+ context->lastElmID = fmi2_xml_elmID_none;
+ context->currentElmID = fmi2_xml_elmID_none;
+ context->anyElmCount = 0;
+ context->useAnyHandleFlg = 0;
+ context->anyParent = 0;
+ context->anyHandle = xml_callbacks;
+
+ memsuite.malloc_fcn = context->callbacks->malloc;
+ memsuite.realloc_fcn = context->callbacks->realloc;
+ memsuite.free_fcn = context->callbacks->free;
+ context -> parser = parser = XML_ParserCreate_MM(0, &memsuite, "|");
+
+ if(! parser) {
+ fmi2_xml_parse_fatal(context, "Could not initialize XML parsing library.");
+ fmi2_xml_parse_free_context(context);
+ return -1;
+ }
+
+ XML_SetUserData( parser, context);
+
+ XML_SetElementHandler(parser, fmi2_parse_element_start, fmi2_parse_element_end);
+
+ XML_SetCharacterDataHandler(parser, fmi2_parse_element_data);
+
+ file = fopen(filename, "rb");
+ if (file == NULL) {
+ fmi2_xml_parse_fatal(context, "Cannot open file '%s' for parsing", filename);
+ fmi2_xml_parse_free_context(context);
+ return -1;
+ }
+
+ while (!feof(file)) {
+ char * text = jm_vector_get_itemp(char)(fmi2_xml_reserve_parse_buffer(context,0,XML_BLOCK_SIZE),0);
+ int n = (int)fread(text, sizeof(char), XML_BLOCK_SIZE, file);
+ if(ferror(file)) {
+ fmi2_xml_parse_fatal(context, "Error reading from file %s", filename);
+ fclose(file);
+ fmi2_xml_parse_free_context(context);
+ return -1;
+ }
+ if (!XML_Parse(parser, text, n, feof(file))) {
+ fmi2_xml_parse_fatal(context, "Parse error at line %d:\n%s",
+ (int)XML_GetCurrentLineNumber(parser),
+ XML_ErrorString(XML_GetErrorCode(parser)));
+ fclose(file);
+ fmi2_xml_parse_free_context(context);
+ return -1; /* failure */
+ }
+ }
+ fclose(file);
+ /* done later XML_ParserFree(parser);*/
+ if(!jm_stack_is_empty(int)(&context->elmStack)) {
+ fmi2_xml_parse_fatal(context, "Unexpected end of file (not all elements ended) when parsing %s", filename);
+ fmi2_xml_parse_free_context(context);
+ return -1;
+ }
+
+ if (configuration & FMI2_XML_NAME_CHECK) {
+ fmi2_check_variable_naming_conventions(md);
+ }
+
+ md->status = fmi2_xml_model_description_enu_ok;
+ context->modelDescription = 0;
+ fmi2_xml_parse_free_context(context);
+
+ return 0;
+}
+
+#define JM_TEMPLATE_INSTANCE_TYPE fmi2_xml_element_handle_map_t
+#include "JM/jm_vector_template.h"
Code Review / simantics / fmil.git / blobdiff