Oktober 2001 Abbildender Ada, v1.2: SchnittstellencPaketcDiagramm 4-11 4 mit CORBA.Object; mit Zufuhr; Pakettier ist Arthinweis ist neues CORBA.Object.Ref mit Nullaufzeichnung; Artzustand ist (SCHLAFEND, WACHEN Sie auf); Verfahren essen (Selbst: in Hinweis; Beutel: in aus Feed.Ref; Rückkehr: aus Booleschem); -- Rückkehr richtet aus, wenn Tier voll ist Verfahren Set_Alertness (Selbst: in Hinweis; : im Zustand); Funktion Get_Alertness (Selbst: im Bezugs) Rückholzustand; Funktion Get_Parent(Self: in Hinweis) RückholRef'CLASS; Endentier; mit Tier; Paketpferd ist Arthinweis ist neues Animal.Ref mit Nullaufzeichnung; Formationsgliedzustand ist Animal.State; Verfahrenstrot (Selbst: in Hinweis; Abstand: in CORBA.Short); Endenpferd; Das folgende Beispiel umfaßt das Diagramm der mehrfachen Erbschaft. Dieses IDL: Schnittstellenwert { ... Lücke op1(); Lücke op2(); ... }; Schnittstellenträger { ... Lücke op3(); Lücke op4(); ... }; Schnittstellenbehälter: Träger, Wert { ... }; produziert den folgenden Ada-Code: