FUNCTION acyclic_curve_replica

(* SCHEMA Ship_arrangement_schema; *)



   FUNCTION acyclic_curve_replica
      (rep : curve_replica;
       parent : curve ) : BOOLEAN;
      IF NOT ('SHIP_ARRANGEMENT_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;

Referenced By

Defintion acyclic_curve_replica is references by the following definitions:

Definition	Type
curve_replica	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:16:37-04:00