helper context XML!Element def: getAttrVal(name : String) : String = let a : Sequence(XML!Attribute) = self.children->select(c |
 		c.oclIsTypeOf(XML!Attribute) and c.name = name) in
 	if a.isEmpty() then
 		''
 	else
 		a.first().value
 	endif;

helper context XML!Element def: getSon(name : String) : Sequence(XML!Element) =
	self.children->select(c | c.name = name);

helper context XML!Element def: getName: String =
	self.children->select(c | c.oclIsTypeOf(XML!Element) and c.name = 'name')->first().children
		->select(d | d.oclIsTypeOf(XML!Element) and d.name = 'text')->first().children
			->select(e | e.oclIsKindOf(XML!Text))->first().value;
--
--
--	
helper def: getNodeType(type : String) : BPMN!NodeType =
	if (type='MessageEvent')
		then #MessageEvent
		else if (type='StartEvent')
			then #StartEvent
			else if (type='TimerEvent')
				then #TimerEvent
				else if (type='XOR-Join')
					then #XORJoin 
					else if (type='EBXOR-Join')
						then #EBXORJoin
						else if (type='AND-Join')
							then #ANDJoin
							else if (type='AND-Split')
								then #ANDSplit
								else if (type='EndEvent')
									then #EndEvent
									else if (type='XOR-Split')
										then #XORSplit
										else #EBXORSplit
									endif
								endif
							endif
						endif	
					endif
				endif
			endif
		endif
	endif;