Overview Schemas Index

TOPOLOGY_SCHEMA (jsdai.STopology_schema)


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)