FUNCTION list_loop_edges
(l : loop) : LIST [0:?] OF edge;
LOCAL
edges : LIST[0:?] OF edge := [];
END_LOCAL;
IF 'TOPOLOGY_SCHEMA.EDGE_LOOP' IN TYPEOF(l) THEN
REPEAT i := 1 TO SIZEOF(l\path.edge_list);
edges := edges + (l\path.edge_list[i].edge_element);
END_REPEAT;
END_IF;
RETURN(edges); END_FUNCTION; -- list_loop_edges
|