4-22 Abbildende Ada-Sprache, v1.2 Oktober 2001 4 mit Zufuhr; mit PortableServer; mit Tier; generisch die aufgewickelte Art ist begrenztes privates; mit Verfahren essen Sie (Selbst: Zugang aufgewickelt; Beutel: in aus Feed.Ref; Rückkehr: aus CORBA.Boolean) ist < >; mit Funktion Get_alertness (Selbst: machen Sie aufgewickelt) zugänglich RückholAnimal.State ist < >; mit Verfahren Set_alertness (Selbst: Zugang aufgewickelt; : in Animal.State) ist < >; mit Funktion Get_parent (Selbst: machen Sie aufgewickelt) zugänglich RückholRef'CLASS ist < >; mit Verfahrenstrot (Selbst: Zugang aufgewickelt; Abstand: in CORBA.Short) ist < >; Paket Horse.Delegate ist schreiben Sie Object(< >) ist neues PortableServer.Servant_Base mit privatem; Art Object_Ptr ist Zugang alles Object'CLASS; Funktion Create(From: machen Sie aufgewickeltes) RückholObject_Ptr zugänglich; beenden Sie Horse.Delegate; 4,9 Diagramm Von VorwärtscErklärungen In IDL definiert eine Vorwärtserklärung den Namen einer Schnittstelle oder des valuetype außen Definieren sie. Dieses erlaubt Definitionen der Schnittstellen und der valuetypes, die auf sich beziehen. Dieses stellt eine Herausforderung dem Diagramm dar, da Ada-Pakete nicht "mit" können. Ein ausdrückliches Diagramm von Vorwärtserklärungen wird definiert, um dieses Withing zu brechen Problem. 4,9,1 VorwärtscDefinitionscPakete Anpassende Implementierungen liefern zwei generische Pakete, CORBA.Forward und CORBA.Value_Forward mit den folgenden Spezifikationen, die innen verwendet werden das Diagramm von Vorwärtserklärungen. generisch Paket CORBA.Forward ist Arthinweis ist neues CORBA.Object.Ref mit Nullaufzeichnung; generisch Art Ref_Type ist neues CORBA.Object.Ref mit privatem; Paketbekehrter ist Funktion From_Forward(The_Forward: in Hinweis) RückholRef_Type; Funktion To_Ref (The_Forward: in Hinweis)