|
(* Modified for LPM/6 *)(l: SET[0:?] OF loop): LOGICAL;
LOCAL
poly_loop_type: LOGICAL;
END_LOCAL;
IF(SIZEOF(l) <= 1) THEN
RETURN(FALSE);
END_IF;
poly_loop_type := ('STRUCTURAL_FRAME_SCHEMA.POLY_LOOP' IN TYPEOF(l[1]));
REPEAT i := 2 TO SIZEOF(l);
IF(('STRUCTURAL_FRAME_SCHEMA.POLY_LOOP' IN TYPEOF(l[i])) <> poly_loop_type) THEN
RETURN(TRUE);
END_IF;
END_REPEAT;
RETURN(FALSE);
|
|