1-14 Abbildende Ada-Sprache, v1.2 Oktober 2001 1 Funktionspostorder (Selbst: Value_Ref) RückholExampleB.Printer.ULongSeq; Verfahrensdruck (Selbst: Value_Ref; Daten: in Printer.ULongSeq); Ende Exampleb.WeightedBinaryTree; -- Ada - exampleb-weightedbinarytree-value_impl.ads Paket ExampleB.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; FunktionscreateWBT(w: in CORBA.Long) RückholObject_Ptr; Funktion preOrder (Selbst: machen Sie Gegenstand) zugänglich bringen Sie ExampleB.Printer.ULongSeq zurück; Funktionspostorder (Selbst: machen Sie Gegenstand) zugänglich bringen Sie ExampleB.Printer.ULongSeq zurück; Verfahrensdruck (Selbst: machen Sie Gegenstand zugänglich; Daten: in ExampleB.Printer.ULongSeq); Ende ExampleB.WeightedBinaryTree.Value_Impl; -- Ada - example-weightedbinarytree-helper.ads mit ExampleB.WeightedBinaryTree.Value_Impl; mit PortableServer; Paket ExampleB.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; schreiben Sie Bediensteten (Wert: machen Sie zugänglich ExampleB.WeightedBinaryTree.Value_Impl.Object'CLASS) ist neues PortableServer.Servant mit Nullaufzeichnung; Art Servant_Ref ist Zugang alles Servant'CLASS;