Oktober 2001 Abbildender Ada, v1.2: Neue und geänderte Eigenschaften des Ada-Diagramms 1-13 1 // IDL Modul ExampleB { Schnittstelle Printer{ typedef sequence<unsigned lang > ULongSeq; leere Daten print(inULongSeq); }; valuetype WeightedBinaryTree stützt Drucker { allgemeines langes Gewicht; privates WeightedBinaryTree verließ; privates Recht WeightedBinaryTree; FabrikcreateWBT(in langes W); PreOrder() ULongSeq; PostOrder() ULongSeq; }; }; Diagramme: -- Ada - exampleb-printer.ads mit CORBA.Object; mit CORBA.Unsigned_Long_Unbounded; Paket Exampleb.Printer ist Arthinweis ist neues CORBA.Object.Ref mit Nullaufzeichnung; Art ULongSeq ist... Verfahren Print(Self: Hinweis; Daten: in ULongSeq); Ende Exampleb.Printer; -- Ada - exampleb-weightedbinarytree.ads mit CORBA.Value; mit CORBA.Value; mit Exampleb.Printer; Paket Exampleb.WeightedBinaryTree ist Art Value_Ref ist neues CORBA.Value.Base mit Nullaufzeichnung; Null_Value: konstantes Value_Ref; Funktion Get_weight(Self: Value_Ref) RückholCORBA.Long; Verfahren Set_weight(Self: Value_Ref; CORBA.Long); FunktionscreateWBT(w: in CORBA.Long) RückholValue_Ref; Funktion preOrder (Selbst: Value_Ref) RückholExampleB.Printer.ULongSeq;