FUNCTION get_pctd
(ac : assembly_component_armx; ajb : SET [0:?] OF assembly_joint_armx) : SET [0:?] OF part_connected_terminals_definition_armx;
LOCAL cf : LIST[1:2] OF Component_feature_armx := [ajb[1].assembly_feature_1, ajb[1].assembly_feature_2]; pctd : SET OF part_connected_terminals_definition_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.PART_TERMINAL' IN TYPEOF(cf[i].definition)) THEN pctd := cf[i].definition.connection_requirement; RETURN(pctd); ELSE RETURN(pctd); END_IF; ELSE RETURN(pctd); END_IF; END_REPEAT; RETURN(?); END_FUNCTION; -- get_pctd
|