4-16 Abbildende Ada-Sprache, v1.2 Oktober 2001 4 ? definieren a Bediensteter und a Servant_Ref Art. Diese Arten willen "die Verpackung" Value_Impl.Object Art definiert im Implementierungspaket für valuetype. Diese Arten werden definiert, wie folgt: schreiben Sie Bediensteten (Wert: machen Sie zugänglich mapped_implementation_object_type- ' KATEGORIE) ist neues PortableServer.Servant mit Nullaufzeichnung; Art Servant_Ref ist Zugang alles Servant'CLASS; ? definieren a To_Servant Funktion, die a zurückbringt Servant_Ref Fall für Fall Value_Impl.Object des Wertes Art. Diese Funktion hat folgende Unterzeichnung: Funktion To_Servant (Selbst: machen Sie mapped_implementation_object_type zugänglich ' KATEGORIE) RückholServant_Ref; Einmal ein Servant_Ref ist erreicht worden, kann es mit einem POA und einem a aktiviert werden Hinweis auf der gestützten Schnittstelle kann erhalten werden. Dieser Hinweis kann verbreitert werden, wenn notwendig. 4,6,5 Beispiele Das Helferpaket für das Tier Paket würde enthalten: Paket Animal.Helper ist TC_Ref: konstantes CORBA.TypeCode.Object; Funktion To_Any(Item: Hinweis) RückholCORBA.Any; Funktion From_Any(Item: CORBA.Any-) Rückholhinweis; TC_State: konstantes CORBA.TypeCode.Object; Funktion To_Any(Item: Zustand) RückholCORBA.Any; Funktion From_Any(Item: CORBA.Any-) Rückholzustand; Endentier; Das Helferpaket für das ExampleB.WeightedBinaryTree Schnittstellenpaket würde enthalten: -- 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;