|
FUNCTION acyclic_set_replica (rep : geometric_set_replica, parent : geometric_set) : BOOLEAN; IF NOT ( ( 'geometry_schema.geometric_set_replica' ) IN TYPEOF ( parent ) ) THEN RETURN ( TRUE ) ; END_IF ; IF ( parent :=: rep ) THEN RETURN ( FALSE ) ; ELSE RETURN ( acyclic_set_replica ( rep , parent \ geometric_set_replica . parent_set ) ) ; END_IF ; END_FUNCTION; -- acyclic_set_replica |
|
public class FAcyclic_set_replica public static Value run(SdaiContext _context, Value rep, Value parent) |