|
FUNCTION acyclic_point_replica (rep : point_replica, parent : point) : BOOLEAN; IF NOT ( ( 'geometry_schema.point_replica' ) IN TYPEOF ( parent ) ) THEN RETURN ( TRUE ) ; END_IF ; IF ( parent :=: rep ) THEN RETURN ( FALSE ) ; ELSE RETURN ( acyclic_point_replica ( rep , parent \ point_replica . parent_pt ) ) ; END_IF ; END_FUNCTION; -- acyclic_point_replica |
|
public class FAcyclic_point_replica public static Value run(SdaiContext _context, Value rep, Value parent) |