1-24 Abbildende Ada-Sprache, v1.2 Oktober 2001 1 nähert sich zum Erzielen der Effekte der Mehrfacherbschaft, die werden eingeführt gut mit "säubern Sie Schiefer"). Andere Sprachkartenaufnahmen stützen eine Alternative, die für abbildet Gegenstandimplementierungen, das Delegation-gegründet wird. Z.B. das C++-Diagramm erfordert das Erzeugung einer "dieser Riegelkategorie" Delegierte ersucht um den Gegenstand Implementierung zu einem Fall von "band" Kategorie. Aus diesen Gründen kodifiziert diese Diagrammneuausgabe ein zusätzliches Diagramm für Gegenstand Implementierungen, das Delegation-gegründet wird. Die Form des zusätzlichen Diagramms ist a generisches Paket, das benutzt werden kann, irgendeine Art mit der korrekten Syntax "aufzuwickeln"; das heißt, es stützt Unterprogramme mit den korrekten Unterzeichnungen und erbringt eine CORBA-Bedienstetart das kann mit einem POA registriert werden. Für jede Schnittstelle soll ein zusätzliches "Implementierungsdelegation" Paket sein erzeugt. Das Paket ist ein Kindpaket des Schnittstellenpakets mit Namen Verlängerungs- Delegate . Das Implementierungsdelegationpaket ist mit generisch die folgenden Formalparameter: 1. Eine begrenzte private Art, die die aufzuwickelnde Art ist. 2. Für jedes abgebildete Attribut accessor/setter und abgebildeter Betrieb von der Schnittstelle und alle seine Vorfahren (nicht einschließlich CORBA.Object ein generisches formales Unterprogrammparameter mit der gleichen Unterschrift wie die Unterprogramme bildete für ab Impl Pakete werden angefordert. Der formale Unterprogrammparameter hat "ist Kasten" Form der Rückstellung. Das generische Paket definiert eine neue Art, die von abgeleitet wird PortableServer.Servant_Base . Fälle dieser Art können mit a registriert werden POA zum Instandhalten der Remote- und lokalen Anträge. Diese Art, Gegenstand wird mit erklärt unbekannte discriminants, damit Fälle nicht ohne Initialisierung erklärt werden können. A Kategorie-breite Zugangsart, Object_Ptr wird auch erklärt. Schließlich verursachen Funktion wird erklärt, die ein Object_Ptr erbringt einen Zugang zu einem Fall von gegeben die aufgewickelte Art. Z.B. für das Pferd Schnittstelle später beschrieben in diesem Dokument, das folgende Implementierungsdelegationpaket wird erzeugt: mit Zufuhr; mit PortableServer; mit Tier; generisch die aufgewickelte Art ist begrenztes privates; mit Verfahren essen Sie (Selbst: Zugang wickelte auf; 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 wickelte auf; : in Animal.State) ist < >; mit Funktion Get_parent (Selbst: machen Sie aufgewickelt) zugänglich RückholRef'CLASS ist < >; mit Verfahrenstrot (Selbst: Zugang wickelte auf; Abstand: in CORBA.Short) ist < >;