4-24 Abbildende Ada-Sprache, v1.2 Oktober 2001 4 Akte chicken.idl: # ifndefcHuhn # definieren Sie HUHN schließen Sie Huhn an; # schließen Sie "egg.idl" mit ein schließen Sie Huhn an { Eilay(); }; # endif Akte egg.idl: # ifndefcEi # definieren Sie EI schließen Sie Ei an; # schließen Sie "chicken.idl" mit ein schließen Sie Ei an { Huhnhatch(); }; # endif Dieser Gebrauch IDL stellt ein schwieriges Problem für den Ada dar, der seit Ada zwei abbildet Pakete können nicht "mit". Die Lösung soll die Betriebe in jedem definieren Schnittstelle in einer "Vorwärts" Art ausgedrückt; folglich kann die Kreisförmigkeit behoben werden. Paket Chicken_IDL_FILE ist Ende Chicken_IDL_FILE; mit CORBA.Forward; Paket Chicken_Forward ist neues CORBA.Forward; mit CORBA.Forward; Paket Egg_Forward ist neues CORBA.Forward; mit CORBA.Object; mit Chicken_Forward; mit Egg_Forward; Paketei ist Arthinweis ist neues CORBA.Object.Ref mit Nullaufzeichnung; Funktionsluke (Selbst: in Hinweis) RückholChicken_Forward.Ref; Funktion To_Ref(The_Ref: in CORBA.Object.Ref'CLASS) Rückholhinweis; Paketbekehrter ist neues Egg_Forward.Convert(Ref); Endenei;