|
FUNCTION get_tj (input : SET [0:?] OF physical_connectivity_element_armx) : SET [0:?] OF topological_junction; LOCAL tj : SET OF topological_junction := [ ] ; i : INTEGER := 0 ; END_LOCAL ; REPEAT i := 1 TO SIZEOF ( input ) BY 1 ; IF ( 'physical_connectivity_definition_xim.topological_junction' IN TYPEOF ( input [ i ] . start_terminus ) ) THEN tj := tj + input [ i ] . start_terminus ; END_IF ; IF ( 'physical_connectivity_definition_xim.topological_junction' IN TYPEOF ( input [ i ] . end_terminus ) ) THEN tj := tj + input [ i ] . end_terminus ; END_IF ; END_REPEAT ; RETURN ( tj ) ; END_FUNCTION; -- get_tj |
|
public class FGet_tj public static Value run(SdaiContext _context, Value input) |