|
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 |
|
public class FList_loop_edges public static Value run(SdaiContext _context, Value l) |