Exemplo n.º 1
0
NFobject_p NFparseObjAliasCreate(XML_Parser parser, NFobject_p parent, const char *name, const char **attr) {
    const char *attrib;
    NFobjAlias_p alias = (NFobjAlias_p) NULL;

    if ((parent->Type != NFcompRegion) && (parent->Type != NFmodEquation) && (parent->Type != NFmodProcess)) {
        CMmsgPrint(CMmsgAppError, "This shouldn't have happened in %s%d.\n", __FILE__, __LINE__);
        goto Abort;
    }
    if ((alias = (NFobjAlias_p) NFobjectCreate(name, NFobjAlias)) == (NFobjAlias_p) NULL) {
        CMmsgPrint(CMmsgAppError, "Alias creation error in %s:%d.\n", __FILE__, __LINE__);
        goto Abort;
    }
    attrib = NFparseGetAttribute(attr, NFattrValueStr, NFkeyVariableStr);
    if ((strcmp(attrib, NFkeyVariableStr) != 0) && (strcmp(attrib, NFkeyParameterStr) != 0)) {
        CMmsgPrint(CMmsgUsrError, "Invalid alias type in line %d!\n", XML_GetCurrentLineNumber(parser));
        goto Abort;
    }
    alias->AliasType = strcmp(attrib, NFkeyVariableStr) == 0 ? NFaliasVariable : NFaliasParameter;
    if ((attrib = NFparseGetAttribute(attr, NFobjAliasStr, (char *) NULL)) == (char *) NULL) {
        CMmsgPrint(CMmsgUsrError, "Missing alias attribute URL in line %d!\n", XML_GetCurrentLineNumber(parser));
        goto Abort;
    }
    alias->Alias = CMstrDuplicate(attrib);

    alias->Parent = parent;
    return ((NFobject_p) alias);
    Abort:
    if (alias != (NFobjAlias_p) NULL) NFobjectFree((NFobject_p) alias);
    return ((NFobject_p) NULL);
}
Exemplo n.º 2
0
NFobject_p NFparseModProcessCreate (XML_Parser parser,NFobject_p parent,const char *name, const char **attr) {
	const char *attrib;

	NFmodProcess_p module = (NFmodProcess_p) NULL;
	NFcompModel_p  model;
	NFobjPlugin_p  plugin = (NFobjPlugin_p)  NULL;

	if (parent->Type != NFcompContainer) {
		CMmsgPrint (CMmsgAppError, "This shouldn't have happened in %s%d.\n",__FILE__,__LINE__);
		goto Abort;
	}

	if ((module = (NFmodProcess_p) NFobjectCreate (name,NFmodProcess)) == (NFmodProcess_p) NULL) {
		CMmsgPrint (CMmsgAppError, "Process module creation error in %s:%d\n",__FILE__,__LINE__);
		goto Abort;
	}
	if ((attrib = NFparseGetAttribute (attr, NFobjPluginStr, (char *) NULL)) == (char *) NULL) {
		CMmsgPrint (CMmsgUsrError, "Missing process [%s] plugi in line %d!\n",name, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	model = (NFcompModel_p) NFobjectRoot (parent);
	if ((plugin = NFpluginGet (model->ModPlugins,attrib)) == (NFobjPlugin_p) NULL) {
		CMmsgPrint (CMmsgUsrError, "Modules plugin [%s] loading error in line %d!\n",attrib, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if ((attrib = NFparseGetAttribute (attr, NFattrMethodStr, (char *) NULL)) == (char *) NULL) {
		CMmsgPrint (CMmsgUsrError, "Missing plugin [%s] method in line %d!\n",plugin->Name, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if ((module->Initialize = (NFinitializeFunc) NFpluginFunction (plugin, NFfuncInitializeStr, attrib)) == (NFinitializeFunc) NULL) {
		CMmsgPrint (CMmsgUsrError, "Error loding plugin [%s] function [%s] in line %d!\n",plugin->Name, attrib, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if ((module->Execute    = (NFexecuteFunc)    NFpluginFunction (plugin, NFfuncExecuteStr,   attrib)) == (NFexecuteFunc)    NULL) {
		CMmsgPrint (CMmsgUsrError, "Error loding plugin [%s] function [%s] in line %d!\n",plugin->Name, attrib, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if ((module->Finalize   = (NFfinalizeFunc)   NFpluginFunction (plugin, NFfuncFinalizeStr,  attrib)) == (NFfinalizeFunc)   NULL) {
		CMmsgPrint (CMmsgUsrError, "Error loading plugin [%s] function [%s] in line %d!\n",plugin->Name, attrib, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	module->Initialize (module->Context);
	if ((module->Context->UserData = (void *) malloc (module->Context->UserDataSize)) == (void *) NULL) {
		CMmsgPrint (CMmsgSysError, "Memory allocation errord in %s:%d\n",__FILE__,__LINE__);
		goto Abort;
	}
	module->Parent = parent;
	CMmsgPrint (CMmsgInfo,"Parameter num: %d Variable num: %d\n", module->Context->ParameterNum, module->Context->VariableNum);
	return ((NFobject_p) module);
Abort:
	if (module != (NFmodProcess_p) NULL) NFobjectFree ((NFobject_p) module);
	return ((NFobject_p) NULL);	
}
Exemplo n.º 3
0
NFobject_p NFparseCompModelCreate(XML_Parser parser, const char *name, const char **attr) {
    NFcompModel_p model = (NFcompModel_p) NULL;

    if ((model = (NFcompModel_p) NFobjectCreate(name, NFcompModel)) == (NFcompModel_p) NULL) {
        CMmsgPrint(CMmsgAppError, "Creating model in %s:%d\n", __FILE__, __LINE__);
        goto Abort;
    }
    if (NFtimeSetFromString(model->Begin, NFparseGetAttribute(attr, NFattrBeginStr, "0000-01-01")) == false) {
        CMmsgPrint(CMmsgAppError, "Begin time setting error in %s:%d!\n", __FILE__, __LINE__);
        goto Abort;
    }
    if (NFtimeSetFromString(model->End, NFparseGetAttribute(attr, NFattrEndStr, "0000-12-31")) == false) {
        CMmsgPrint(CMmsgAppError, "End time setting error in %s:%d!\n", __FILE__, __LINE__);
        goto Abort;

    }
    model->Version = CMstrDuplicate(NFparseGetAttribute(attr, NFattrVersionStr, "noversion"));
    return ((NFobject_p) model);
    Abort:
    if (model != (NFcompModel_p) NULL) NFobjectFree((NFobject_p) model);
    return ((NFobject_p) NULL);
}
Exemplo n.º 4
0
NFobject_p NFparseCompContainerCreate(XML_Parser parser, NFobject_p parent, const char *name, const char **attr) {
    const char *attrib;
    NFcompContainer_p component = (NFcompContainer_p) NULL;
    NFcompModel_p model;
    NFcomponent_p sibling;
    NFobjList_p componentList;
    NFtimeStep_p timeStep;

    if ((parent->Type != NFcompModel) && (parent->Type != NFcompContainer)) {
        CMmsgPrint(CMmsgAppError, "This shouldn't have happened in %s%d\n", __FILE__, __LINE__);
        goto Abort;
    }
    if ((component = (NFcompContainer_p) NFobjectCreate(name, NFcompContainer)) == (NFcompContainer_p) NULL) {
        CMmsgPrint(CMmsgAppError, "Component creation error in %s:%d\n", __FILE__, __LINE__);
        goto Abort;
    }
    attrib = NFparseGetAttribute(attr, NFcompLayoutStr, NFkeyInheritStr);
    if (strcmp(attrib, NFkeyInheritStr) == 0) {
        if (parent->Type == NFcompContainer)
            component->Domain = ((NFcomponent_p) parent)->Domain;
        else {
            CMmsgPrint(CMmsgUsrError, "Container [%s] in model can't inherit layout in line %d!\n", name,
                       XML_GetCurrentLineNumber(parser));
            goto Abort;
        }
    }
    else {
        switch (parent->Type) {
            case NFcompContainer:
                componentList = ((NFcompContainer_p) parent)->Components;
                break;
            case NFcompModel:
                componentList = ((NFcompModel_p) parent)->Components;
                break;
            default:
                CMmsgPrint(CMmsgUsrError, "This shouldn't have happened in %s,%d!\n", __FILE__, __LINE__);
                goto Abort;
        }
        if ((sibling = (NFcomponent_p) NFobjListFindItemByName(componentList, attrib)) == (NFcomponent_p) NULL) {
            CMmsgPrint(CMmsgUsrError, "Invalid container [%s] layout [%s] in line %d.\n", name, attrib,
                       XML_GetCurrentLineNumber(parser));
            goto Abort;
        }
        component->Domain = sibling->Domain;
    }
    model = (NFcompModel_p) NFobjectRoot(parent);
    attrib = NFparseGetAttribute(attr, NFattrTimeStepStr, "inherit");
    if (strcmp(attrib, NFkeyInheritStr) == 0) {
        switch (parent->Type) {
            case NFcompContainer:
            case NFcompModel:
                component->TimeStep = ((NFcomponent_p) parent)->TimeStep;
                break;
            default:
                CMmsgPrint(CMmsgAppError, "This shouldn't have happened in %s%d!\n", __FILE__, __LINE__);
                goto Abort;
        }
    }
    else {
        if (NFtimeStepSetFromString(component->TimeStep, attrib) == false) {
            CMmsgPrint(CMmsgAppError, "Time step [%s] error in %d!\n", attrib, XML_GetCurrentLineNumber(parser));
            goto Abort;
        }
        if ((timeStep = NFmodelAddTimeStep(model, component->TimeStep)) != component->TimeStep) {
            NFtimeStepFree(component->TimeStep);
            component->TimeStep = timeStep;
        }
    }
    if ((attrib = NFparseGetAttribute(attr, NFattrStatesStr, (char *) NULL)) == (char *) NULL) {
        CMmsgPrint(CMmsgUsrError, "Missing container state in line %d\n", XML_GetCurrentLineNumber(parser));
        goto Abort;
    }
    component->States = CMstrDuplicate(attrib);

    component->Parent = parent;
    return ((NFobject_p) component);
    Abort:
    if (component != (NFcompContainer_p) NULL) NFobjectFree((NFobject_p) component);
    return ((NFobject_p) NULL);
}
Exemplo n.º 5
0
NFobject_p NFparseModInterfaceCreate (XML_Parser parser,NFobject_p parent,const char *name, const char **attr) {
	const char *attrib;
	NFmodInterface_p module   = (NFmodInterface_p) NULL;
	NFnumVariable_p  inputVar;
	NFobject_p       component;
	NFobjList_p list;

	if ((parent->Type != NFcompContainer) || (parent->Parent == (NFobject_p) NULL))  {
		CMmsgPrint (CMmsgAppError, "This shouldn't have happened in %s%d.\n",__FILE__,__LINE__);
		goto Abort;
	}
	if ((attrib = NFparseGetAttribute (attr, NFattrRelationStr, (char *) NULL)) == (char *) NULL) {
		CMmsgPrint (CMmsgUsrError, "Missing interface [%s] relation in %d!\n",name, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if      (strcmp (attrib,NFkeyRootStr)   == 0) {
		component = NFobjectRoot (parent);
		if (component->Type == NFcompModel) list = ((NFcompModel_p) component)->Components;
		else {
			CMmsgPrint (CMmsgAppError, "This shouldn't have happened in %s%d.\n",__FILE__,__LINE__);
			goto Abort;
		}
	}
	else if (strcmp (attrib,NFkeyParentStr) == 0) {
		component = parent->Parent;
		switch (component->Type) {
		case NFcompModel:     list = ((NFcompModel_p)     component)->Components; break;
		case NFcompContainer: list = ((NFcompContainer_p) component)->Components; break;
		default:
			CMmsgPrint (CMmsgAppError, "This shouldn't have happened in %s%d.\n",__FILE__,__LINE__);
			goto Abort;
		}
	}
	else if (strcmp (attrib,NFkeyOwnStr)    == 0) list = ((NFcompModel_p) parent)->Components;

	if ((attrib = NFparseGetAttribute (attr, NFcomponentStr, (char *) NULL)) == (char *) NULL) {
		CMmsgPrint (CMmsgUsrError, "Missing interface [%s] component in %d!\n",name, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if ((component = NFobjListFindItemByName (list,attrib)) == (NFobject_p) NULL) {
		CMmsgPrint (CMmsgUsrError, "Invalid interface [%s] component [%s] in line %d!\n",name, attrib, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if ((attrib = NFparseGetAttribute (attr, NFcomponentStr, (char *) NULL)) == (char *) NULL) {
		CMmsgPrint (CMmsgUsrError, "Missing interface [%s] component in %d!\n",name, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if ((component = NFobjListFindItemByName (list,attrib)) == (NFobject_p) NULL) {
		CMmsgPrint (CMmsgUsrError, "Invalid interface [%s] component [%s] in line %d!\n",name, attrib, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if ((attrib = NFparseGetAttribute (attr, NFnumVariableStr, (char *) NULL)) == (char *) NULL) {
		CMmsgPrint (CMmsgUsrError, "Missing interface [%s] variable in line %d!\n",name,XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	switch (component->Type) {
	case NFcompAggregate: inputVar = (NFnumVariable_p) NFobjListFindItemByName (((NFcompAggregate_p) component)->Variables,attrib); break;
	case NFcompInput:     inputVar = (NFnumVariable_p) NFobjListFindItemByName (((NFcompInput_p    ) component)->Variables,attrib); break;
	case NFcompContainer: inputVar = (NFnumVariable_p) NFobjListFindItemByName (((NFcompContainer_p) component)->Variables,attrib); break;
	default:
		CMmsgPrint (CMmsgAppError, "This shouldn't have happened in %s%d.\n",__FILE__,__LINE__);
		goto Abort;
	}
	if (inputVar == (NFnumVariable_p) NULL) {
		CMmsgPrint (CMmsgUsrError, "Missing interface [%s] variable [%s] in line %d!\n",name, attrib, XML_GetCurrentLineNumber (parser));
		goto Abort;
	}
	if ((module    = (NFmodInterface_p) NFobjectCreate (name,NFmodInterface)) == (NFmodInterface_p) NULL) {
		CMmsgPrint (CMmsgAppError, "Interface module creation error in %s:%d.\n",__FILE__,__LINE__);
		goto Abort;
	}
	if ((module->Variable = (NFnumVariable_p) NFobjectCreate (name,NFnumVariable))  == (NFnumVariable_p) NULL) {
		CMmsgPrint (CMmsgAppError, "Derivative variable creation error in %s:%d.\n",__FILE__,__LINE__);
		goto Abort;
	}
	if ((attrib = NFparseGetAttribute (attr, NFattrCouplerStr, (char *) NULL)) != (char *) NULL) {
		if      (strcmp (attrib,NFkeyCouplerFluxStr)  == 0) module->CouplerType = NFcouplerFlux;
		else if (strcmp (attrib,NFkeyCouplerPointStr) == 0) module->CouplerType = NFcouplerPoint;
		else if (strcmp (attrib,NFkeyCouplerSurfStr)  == 0) module->CouplerType = NFcouplerSurface;
		// TODO set interface weight when the coupler type is point!
	}
	module->Component = (NFcomponent_p) component;
	module->Variable->Parent  = (NFobject_p) module;
	module->Variable->StandardName = CMstrDuplicate (inputVar->StandardName);
	module->Variable->UnitString   = CMstrDuplicate (inputVar->UnitString);

	module->InputVar   = inputVar;

	module->Parent = parent;
	return ((NFobject_p) module);
Abort:
	if (module           != (NFmodInterface_p) NULL) {
		if (module->Variable != (NFnumVariable_p) NULL)
			NFobjectFree ((NFobject_p) module->Variable);
		NFobjectFree ((NFobject_p) module);
	}
	return ((NFobject_p) NULL);
}
Exemplo n.º 6
0
/****************************************************************************************************************
 * Entry start
*****************************************************************************************************************/
static void XMLCALL _NFentryStart (void *argPtr, const char *entry, const char **attr) {
	const char *name;
	const char *modelChildren     [] = { NFcompAggregateStr, NFcompContainerStr, NFcompInputStr, NFcompRegionStr, NFnumParameterStr, (char *) NULL };
	const char *containerChildren [] = { NFcompAggregateStr,
	                                     NFcompContainerStr,
			                             NFcompRegionStr,
			                             NFnumParameterStr,
			                             NFnumInitialStr,
			                             NFnumVariableStr,
			                             NFmodDerivativeStr, 
			                             NFmodEquationStr,
			                             NFmodInterfaceStr,
			                             NFmodProcessStr,
			                             NFmodRouteStr,
			                             NFobjOutputStr,
			                             (char *) NULL };
	const char *ioChildren        [] = { NFnumVariableStr, (char *) NULL };
	const char *regionChildren    [] = { NFobjAliasStr,    (char *) NULL };
	const char *aggregateChildren [] = { NFobjCategoryStr, (char *) NULL };
	const char *moduleChildren    [] = { NFobjAliasStr, NFnumParameterStr, (char *) NULL };
	NFdata_t   *data;
	NFobject_p object, parent;
	XML_Parser parser = (XML_Parser) argPtr;

	data = (NFdata_t *) XML_GetUserData (parser);

	if (data->Skip) {
		if (strcmp (data->SkipName,entry) == 0) data->SkipLevel++;
		return;
	}
	if (data->Stack + 1 >= data->StackSize) {
		data->Objects = (NFobject_p *) realloc (data->Objects, (data->StackSize + 1) * sizeof (NFobject_p));
		if (data->Objects == (NFobject_p *) NULL) {
			CMmsgPrint (CMmsgSysError, "Memory allocation error in %s:%d\n",__FILE__,__LINE__);
			goto Abort;
		}
		data->Objects [data->StackSize] = (NFobject_p) NULL;
		data->StackSize++;
	}

	if ((name = NFparseGetAttribute (attr, NFattrNameStr, (const char *) NULL)) == (char *) NULL) {
		CMmsgPrint (CMmsgWarning,"Skipping unnamed %s section in line: %d\n",entry, XML_GetCurrentLineNumber (parser));
		goto Skip;
	}
	if (data->Stack == 0) { // Document root level
		if (strcmp (entry,NFcompModelStr) == 0) {
			if (data->Objects [data->Stack] != (NFobject_p) NULL) {
				CMmsgPrint (CMmsgWarning, "Skipping second model [%s] section [%s] in line: %d\n",entry, name, XML_GetCurrentLineNumber (parser));
				goto Skip;
			}
			if ((data->Objects [data->Stack] = NFparseCompModelCreate (parser,name,attr)) == (NFobject_p) NULL) {
				CMmsgPrint (CMmsgAppError, "Model creation error in %s:%d\n",__FILE__,__LINE__);
				goto Abort;
			}
			data->Model = (NFcompModel_p) data->Objects [data->Stack];
		}
		else {
			CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in line: %d\n",entry, name, XML_GetCurrentLineNumber (parser));
			goto Skip;
		}
	}
	else {
		parent = data->Objects [data->Stack - 1];
		switch (parent->Type) {
		case NFcompAggregate:
			if (CMoptLookup (aggregateChildren, entry, true) == CMfailed) {
				CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name);
				goto Skip;
			}
			break;
		case NFcompContainer:
			if (CMoptLookup (containerChildren, entry, true) == CMfailed) {
				CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name);
				goto Skip;
			}
			break;
		case NFcompInput:
			if (CMoptLookup (ioChildren, entry, true) == CMfailed) {
				CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name);
				goto Skip;
			}
			break;
		case NFcompModel:
			if (CMoptLookup (modelChildren, entry, true) == CMfailed) {
				CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name);
				goto Skip;
			}
			break;
		case NFcompRegion: 
			if (CMoptLookup (regionChildren, entry, true) == CMfailed) {
				CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name);
				goto Skip;
			}
			break;
		case NFnumInitial:    CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name); goto Skip;
		case NFnumParameter:  CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name); goto Skip;
		case NFnumVariable:   CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name); goto Skip;
		case NFmodDerivative: CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name); goto Skip;
		case NFmodEquation:
			if (CMoptLookup (moduleChildren, entry, true) == CMfailed) {
				CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name);
				goto Skip;
			}
			break;
		case NFmodInterface:  CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name); goto Skip;
		case NFmodProcess:
			if (CMoptLookup (moduleChildren, entry, true) == CMfailed) {
				CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name);
				goto Skip;
			}
			break;
		case NFmodRoute:      CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name); goto Skip;
		case NFobjAlias:      CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name); goto Skip;
		case NFobjCategory:   CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name); goto Skip;
		case NFobjOutput:
			if (CMoptLookup (ioChildren, entry, true) == CMfailed) {
				CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name);
				goto Skip;
			}
			break;
		case NFobjPlugin:   CMmsgPrint (CMmsgWarning,"Skipping [%s] section [%s] in %s [%s]\n",entry, name, NFobjTypeName (parent->Type), parent->Name); goto Skip;
		}
		if      (strcmp (entry, NFdimensionStr) == 0) {
			
		}
		else if (strcmp (entry, NFextentStr)    == 0) {
			
		}
		else {
			switch (NFobjTypeCode (entry)) {
				case NFcompAggregate: object = NFparseCompAggregateCreate (parser,parent,name,attr); break;
				case NFcompContainer: object = NFparseCompContainerCreate (parser,parent,name,attr); break;
				case NFcompInput:     object = NFparseCompInputCreate     (parser,parent,name,attr); break;
				case NFcompModel:     CMmsgPrint (CMmsgAppError, "This should never happen! %s:%d\n",__FILE__,__LINE__); goto Skip;
				case NFcompRegion:    object = NFparseCompRegionCreate    (parser,parent,name,attr); break;
				case NFnumInitial:    object = NFparseNumVariableCreate   (parser,parent,name,attr); break;
				case NFnumParameter:  object = NFparseNumParameterCreate  (parser,parent,name,attr); break;
				case NFnumVariable:   object = NFparseNumVariableCreate   (parser,parent,name,attr); break;
				case NFmodDerivative: object = NFparseModDerivativeCreate (parser,parent,name,attr); break;
				case NFmodEquation:   object = NFparseModEquationCreate   (parser,parent,name,attr); break;
				case NFmodInterface:  object = NFparseModInterfaceCreate  (parser,parent,name,attr); break;
				case NFmodProcess:    object = NFparseModProcessCreate    (parser,parent,name,attr); break;
				case NFmodRoute:      object = NFparseModRouteCreate      (parser,parent,name,attr); break;
				case NFobjAlias:      object = NFparseObjAliasCreate      (parser,parent,name,attr); break;
				case NFobjCategory:   object = NFparseObjCategoryCreate   (parser,parent,name,attr); break;
				case NFobjOutput:     object = NFparseObjOutputCreate     (parser,parent,name,attr); break;
				case NFobjPlugin:     CMmsgPrint (CMmsgAppError, "This should never happen! %s:%d\n",__FILE__,__LINE__); goto Skip;
			}
		if (object == (NFobject_p) NULL) goto Abort;
		data->Objects [data->Stack] = object;
		}
	}
	data->Stack++;
	return;

Abort:
	data->Abort     = true;
	
Skip:
	data->SkipName  = CMstrDuplicate (entry);
	data->Skip      = true;
	data->SkipLevel = 1;
	return;
}