FUNCTION list_loop_edges

(* SCHEMA STRUCTURAL_FRAME_SCHEMA; *)

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;  (* STEP Part 42 (unchanged in 2nd edition)  *)

Referenced By

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2023-03-25T00:11:39-04:00