FUNCTION limd_get_sto
(input : SET [0:?] OF local_linear_stack_armx) : BAG [0:?] OF stratum_technology_occurrence_armx;
LOCAL sto : BAG OF Stratum_technology_occurrence_armx := []; stol : BAG OF Stratum_technology_occurrence_link_armx := []; i : INTEGER := 0; END_LOCAL; REPEAT i := 1 TO SIZEOF(input) BY 1; stol := stol + input[i]\Local_linear_stack_armx.stratum_technology_sequence; END_REPEAT; REPEAT i := 1 TO SIZEOF(stol) BY 1; sto := sto + stol[i]\Stratum_technology_occurrence_link_armx.precedent_sto; sto := sto + stol[i]\Stratum_technology_occurrence_link_armx.subsequent_sto; END_REPEAT; RETURN(sto); END_FUNCTION; -- limd_get_sto
|