FUNCTION get_cit
(ac : Assembly_component; ajb : SET [0:?] OF Assembly_joint) : Physical_component_interface_terminal;
LOCAL
cf : LIST[1:2] OF component_feature := [ajb[1].assembly_feature_1,
ajb[1].assembly_feature_2];
cit : Physical_component_interface_terminal;
END_LOCAL;
REPEAT i := 1 TO 2 BY 1;
IF ac :=: cf[i].associated_component THEN
IF ('PHYSICAL_NODE_REQUIREMENT_TO_IMPLEMENTING_COMPONENT_ALLOCATION_ARM.INTERFACE_COMPONENT' 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
|