|
FUNCTION acyclic_superclass_relationship (current : class_bsu, visited : SET [0:?] OF class) : LOGICAL; IF SIZEOF ( current . definition ) = 1 THEN IF current . definition [ 1 ] IN visited THEN RETURN ( FALSE ) ; ELSE IF EXISTS ( current . definition [ 1 ] \ class . its_superclass ) THEN RETURN ( acyclic_superclass_relationship ( current . definition [ 1 ] \ class . its_superclass , visited + current . definition [ 1 ] ) ) ; ELSE RETURN ( TRUE ) ; END_IF ; END_IF ; ELSE RETURN ( UNKNOWN ) ; END_IF ; END_FUNCTION; -- acyclic_superclass_relationship |
|
public class FAcyclic_superclass_relationship public static Value run(SdaiContext _context, Value current, Value visited) |