|
FUNCTION mixed_loop_type_set (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 := ( 'topology_schema.poly_loop' IN TYPEOF ( l [ 1 ] ) ) ; REPEAT i := 2 TO SIZEOF ( l ) ; IF ( ( 'topology_schema.poly_loop' IN TYPEOF ( l [ i ] ) ) <> poly_loop_type ) THEN RETURN ( TRUE ) ; END_IF ; END_REPEAT ; RETURN ( FALSE ) ; END_FUNCTION; -- mixed_loop_type_set |
|
public class FMixed_loop_type_set public static Value run(SdaiContext _context, Value l) |