4-20 Abbildende Ada-Sprache, v1.2 Oktober 2001 4 mit CORBA; mit CORBA.Object; mit Pferd; Paket Plow.Impl ist Artgegenstand ist neues PortableServer.Servant_Base mit privat; Funktionsreihe (Selbst: machen Sie Gegenstand) zugänglich bringen Sie CORBA.Long zurück; Verfahrensbefestigung (Selbst: machen Sie Gegenstand zugänglich; Blatt: in CORBA.Short); Verfahrenskabelstrang (Selbst: machen Sie Gegenstand zugänglich; Energie: in Farm.Horse.Ref); privat Artgegenstand ist neues PortableServer.Servant_Base mit Aufzeichnung -- (Implementierungsdaten) Endesatz; Ende Plow.Impl; der Plazierung der Gegenstandaufzeichnung im privaten Teil wird nicht durch dieses Diagramm unterstellt. 4,7,7 ImplementierungscBeispiel Valuetype Das Implementierungspaket abgebildet vom ExampleB.WeightedBinaryTree valuetype ist: -- 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);