Navigation

list_loop_edges

EXPRESS specification:

FUNCTION list_loop_edges
(l: loop): LIST[0:?] OF edge;
   LOCAL
 edges : LIST[0:?] OF edge := [];
   END_LOCAL;
 
   IF 'STRUCTURAL_FRAME_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;