fixed example petrinetmodel

integration/code/pn_interface.alc

@@ -99,28 +99,24 @@ Integer function are_connected(model: Element, el1:Element, el2:Element):
 	el1_mmt = getMetaTypeName(model, el1)
 	el2_mmt = getMetaTypeName(model, el2)
 	if ( el1_mmt == "Class" ):
-		log("el1 is class")
 		if(el2_mmt == "Class"):
-			log("el2 is class, so 0")
 			return 0 //not connected, no edge inbetween
 		elif(el2_mmt == "l5"):
-			log("el2 is edge")
 			if( element_eq(read_edge_src(el2) , el1)): //warning is this the right type of equality?
-				log("source of el2 is el1")
 				return 1 //outgoing
 			elif( element_eq(read_edge_dst(el2) , el1)): //right type of equality?
-				log("destination of el2 is el1")
 				return 2 //incoming
 			else:
-				log("neither is true")
 				return 0 //the edge is not connected
 		else:
 			log("is_connected_to: unsupported type for second element")
 			log(string_join("type = ", el2_mmt))
 	elif (el1_mmt == "l5"):
 		if( element_eq(read_edge_src(el1) , el2)): //warning is this the right type of equality?
+			log("source of el1 is el2")
 			return 2 //incoming
 		elif( element_eq(read_edge_dst(el1) , el2)): //right type of equality?
+			log("destination of el1 is el2")
 			return 1 //outgoing
 		else:
 			return 0 //edge is not connected