|
FUNCTION acyclic_curve_replica (rep : curve_replica, parent : curve) : BOOLEAN; IF NOT ( ( 'geometry_schema.curve_replica' ) IN TYPEOF ( parent ) ) THEN RETURN ( TRUE ) ; END_IF ; IF ( parent :=: rep ) THEN RETURN ( FALSE ) ; ELSE RETURN ( acyclic_curve_replica ( rep , parent \ curve_replica . parent_curve ) ) ; END_IF ; END_FUNCTION; -- acyclic_curve_replica |
|
public class FAcyclic_curve_replica public static Value run(SdaiContext _context, Value rep, Value parent) |