FUNCTION get_gpn
(input : SET [0:?] OF printed_component_join_terminal) : SET [0:?] OF generic_physical_network;
LOCAL gpn : SET[0:?] OF Generic_physical_network := []; --this gives us access TO the information base END_LOCAL;
REPEAT i := 1 TO SIZEOF(input) BY 1; gpn := gpn + bag_to_set(USEDIN(input[i],'LAYERED_INTERCONNECT_MODULE_DESIGN_XIM.GENERIC_PHYSICAL_NETWORK.CONNECTIVITY_REQUIREMENT_ELEMENT')); END_REPEAT;
RETURN(gpn); END_FUNCTION; -- get_gpn
|