1-22 Abbildende Ada-Sprache, v1.2 Oktober 2001 1 -- Ada - example-extended.ads mit Example.Marker; Paket Example.Extended ist Arthinweis ist neues Example.Marker.Ref mit Nullaufzeichnung; Verfahren BaseOp(Self: Hinweis); Funktion Method(Self: Hinweis; Arg: in CORBA.Long) RückholCORBA.Long; Verfahren Set_Assignable(Self: Hinweis; in CORBA.Long); Funktion Get_Assignable(Self: Hinweis) RückholCORBA.Long; Funktion Get_Nonassignable(Self: Hinweis) RückholCORBA.Long; Ende Example.Extended; 1,10,4,4 Niedrige Arten für abstrakte Schnittstellen , um abstrakte Schnittstellen zu stützen, wird das folgende Paket eingeführt: -- Ada Paket CORBA.AbstractBase ist Arthinweis ist neues Ada.Finalization.Controlled mit Aufzeichnung PTR: CORBA.Impl.Object_Ptr; ... Endesatz; Verfahren initialisieren (The_Ref: in aus Hinweis); Verfahren justieren (The_Ref: in aus Hinweis); Verfahren beenden (The_Ref: in aus Hinweis); Verfahren Unref (The_Ref: in aus Hinweis) benennt beenden um; Funktion Is_Nil(Self: in der Bezugs) Rückkehr Boolesch; Funktion Is_Null(Self: in der Bezugs) Rückkehr Boolesch benennt Is_Nil um; Verfahren Duplicate(Self: in aus Hinweis) benennt justieren um; Verfahren Release(Self: in aus Hinweis); Funktion Object_of(Self: Hinweis) RückholObject_Ptr; Ende CORBA.AbstractBase;