5-20 Abbildende Ada-Sprache, v1.2 Oktober 2001 5 Das TypeCode schreiben Sie wird verwendet nach Art irgendeine und schreiben Sie irgendwelche wird von TypeCode verwendet . Wegen dieser Kreisförmigkeit das TypeCode Paket wird als genisteter Subpackage definiert vom CORBA-Paket. Seine Definition kann in Abschnitt 5,4 gefunden werden, "das CORBA Paket, "auf Seite 5-8 . 5,5,6 ORB Ein ORB ist die Programmiererschnittstelle zum Gegenstandantragvermittler. Das Paket CORBA.ORB stellt die Ada-Schnittstelle zum Antragvermittler zur Verfügung. Paket ORB ist spezifiziert als Maschine des begrenzten Zustandes anstatt Gegenstand. Keine der abgebildeten Betriebe enthalten Sie den Selbst Parameter spezifiziert im Pseudo-Gegenstand, der Richtlinien abbildet. -- Schnittstelle ORB { Paket CORBA.ORB ist -- ORB-Initialisierung Art ORBid ist neues CORBA.String; Paket IDL_Sequence_String ist neues CORBA.Sequences.Unbounded(... Art Arg_List ist neues IDL_Sequence_String.Sequence; Funktion Command_Line_Arguments RückholArg_List; Verfahren Init (ORB_Identifier: in ORBid; Argv: in Arg_List : = Command_Line_Arguments); Art ObjectID ist neues CORBA.String; Paket ObjectId_Unbounded ist neues CORBA.Sequences.Unbounded (... Art ObjectIdList ist neues ObjectId_Unbounded.Sequence; InvalidName: Ausnahme; Art InvalidName_Members ist neues CORBA.IDL_Exception_Members mit Nullaufzeichnung; Verfahren Get_Members (von: in Ada.Exceptions.Exception_Occurrence; : aus InvalidName_Members); Funktion Object_To_String (Obj: CORBA.Object.Ref'CLASS) RückholCORBA.String; Funktion Object_To_String (Obj: CORBA.Object.Ref'CLASS) RückholStandard.String; Verfahren String_to_Object (von: in CORBA.String; : in aus CORBA.Object.Ref'CLASS);