|
FUNCTION get_cit (ac : assembly_component_armx, ajb : SET [0:?] OF assembly_joint_armx) : physical_component_interface_terminal_armx; LOCAL cf : LIST [ 1 : 2 ] OF component_feature := [ ajb [ 1 ] . assembly_feature_1 , ajb [ 1 ] . assembly_feature_2 ] ; cit : physical_component_interface_terminal_armx ; END_LOCAL ; REPEAT i := 1 TO 2 BY 1 ; IF ac :=: cf [ i ] . associated_component THEN IF ( 'physical_node_requirement_to_implementing_component_allocation_xim.interface_component_armx' IN TYPEOF ( cf [ i ] . associated_component ) ) THEN RETURN ( cf [ i ] ) ; ELSE RETURN ( ? ) ; END_IF ; ELSE RETURN ( ? ) ; END_IF ; END_REPEAT ; RETURN ( ? ) ; END_FUNCTION; -- get_cit |
|
public class FGet_cit public static Value run(SdaiContext _context, Value ac, Value ajb) |