5-6 Abbildende Ada-Sprache, v1.2 Oktober 2001 5 Artgegenstand ist Auszug etikettiertes begrenztes privates; Ende CORBA.Local; 5,2,6 PortableServer.Servant_Base Diese Art ist die niedrige Art für alle Benutzerimplementierungen der Schnittstellenimplementierungen: "diese Spezifikation definiert eine gebürtige Art PortableServer::Servant . Werte vom Art- Bediensteten sind programmieren-Sprache-spezifische Implementierungen von CORBA-Schnittstellen. Jedes Sprachdiagramm muß spezifizieren wie Bediensteter wird abgebildet zur Programmiersprachedatenart, die einem Gegenstand entspricht Implementierung. Der Bedienstete schreiben Sie hat die folgenden Eigenschaften und Begrenzungen.", Das Ada-Diagramm dieser gebürtigen Art ist dem abbildenden C++ sehr ähnlich und ist spezifiziert als Teil des PortableServer Paket. Dieses Paket ist das Diagramm von das PortableServer Modul: Paket PortableServer ist Paket POA_Forward ist neues CORBA.Forward; --Ieingeborenbediensteter; Art Servant_Base ist Auszug etikettiertes begrenztes privates; Artbediensteter ist Zugang alles Servant_Base'CLASS; --I"Werte des Artbediensteten stützen ein sprachspezifisches programmierenschnittstelle des --I, der verwendet werden kann durch das ORB zu --I erreichen eine Rückstellung POA für diesen Bediensteten. Dieses --Ischnittstelle wird, um benutzt implizites nur zu stützen --Iaktivierung.", Funktion Get_Default_POA (For_Servant: in Servant_Base) RückholPOA_Forward.Ref; --I"Werte des Artbediensteten liefern Rückstellung --Iimplementierungen des Standardgegenstandhinweises --Ibetriebsget_interface, -is_a und -non_existent.", Funktion Get_Interface(For_Servant: Servant_Base) RückholCORBA.Object.Ref'CLASS; Funktion Is_A (For_Servant: Servant_Base; Logical_Type_ID: Standard.String) Rückholboolesches; Funktion Non_Existent (For_Servant: Servant_Base) Rückholboolesches; --I"Werte des Artbediensteten müssen für Identität prüfbar sein Funktion "=" (verlassen, recht: in Servant_Base) Rückholboolesches;