FUNCTION acyclic_curve_replica

(* SCHEMA step_ship_schema; *)

FUNCTION acyclic_curve_replica(
             rep: curve_replica;
             parent: curve
    ): BOOLEAN;
  IF NOT ('STEP_SHIP_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^TM EXPRESS to HTML Converter
on 2007-09-24T12:42:22-04:00