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
|