|
FUNCTION acyclic_surface_replica (rep : surface_replica, parent : surface) : BOOLEAN; IF NOT ( ( 'geometry_schema.surface_replica' ) IN TYPEOF ( parent ) ) THEN RETURN ( TRUE ) ; END_IF ; IF ( parent :=: rep ) THEN RETURN ( FALSE ) ; ELSE RETURN ( acyclic_surface_replica ( rep , parent \ surface_replica . parent_surface ) ) ; END_IF ; END_FUNCTION; -- acyclic_surface_replica |
|
public class FAcyclic_surface_replica public static Value run(SdaiContext _context, Value rep, Value parent) |