Oktober 2001 Abbildender Ada, v1.2: Neue und geänderte Eigenschaften des Ada-Diagramms 1-9 1 -- Ada - examplea-weightedbinarytree.ads mit CORBA.Value; Paket ExampleA.WeightedBinaryTree ist Art Value_Ref ist neues CORBA.Value.Base mit Nullaufzeichnung; Null_Value: konstantes Value_Ref; Funktion Get_weight(Self: Value_Ref) RückholCORBA.Long; Verfahren Set_weight(Self: Value_Ref; CORBA.Long); FunktionscreateWBT(w: in CORBA.Long) RückholValue_Ref; Funktion preOrder (Selbst: Value_Ref) RückholExampleA.WeightSeq; Funktionspostorder (Selbst: Value_Ref) RückholExampleA.WeightSeq; Ende ExampleA.WeightedBinaryTree; -- Ada - examplea-weightedbinarytree-value_impl.ads mit CORBA.Value; Paket ExampleA.WeightedBinaryTree.Value_Impl ist Artgegenstand ist neues CORBA.Value.Impl_Base mit Aufzeichnung Gewicht: CORBA.Long; links: Value_Ref; Recht: Value_Ref; Endesatz; Art Object_Ptr ist Zugang alles Object'class; Funktion preOrder (Selbst: machen Sie Gegenstand) RückholWeightSeq zugänglich; Funktionspostorder (Selbst: machen Sie Gegenstand) zugänglich bringen Sie WeightSeq zurück; FunktionswreateWBT(W: in CORBA.Long) RückholObject_Ptr; Ende ExampleA.WeightedBinaryTree.Value_Impl; -- Ada - examplea-weightedbinarytree-helper.ads Paket ExampleA.WeightedBinaryTree.Helper ist Funktion To_Any (von: in Value_Ref) RückholCORBA.Any; Funktion From_Any (von: in CORBA.Any) RückholValue_Ref; TC_WeightedBinaryTree: konstantes CORBA.TypeCode.Object; Ende ExampleA.WeightedBinaryTree.Helper;