Oktober 2001 Abbildender Ada, v1.2: Diagramm Der WertcKästen 4-25 4 mit CORBA.Object; mit Ei; mit Chicken_Forward; Pakethuhn ist Arthinweis ist neues CORBA.Object.Ref mit Nullaufzeichnung; Funktionslage (Selbst: in Hinweis) RückholEgg.Ref; Funktion To_Ref(The_Ref: in CORBA.Object.Ref'CLASS) Rückholhinweis; Paketbekehrter ist neues Chicken_Forward.Convert(Ref); Endenhuhn; 4,10 Diagramm Der WertcKästen Die CORBA-/iiopcSpezifikation gibt dieses über Wertkästen an: "es ist häufig bequem, eine Wertart ohne Erbschaft oder Betriebe zu definieren und mit einzelnem Mitgliedsstaat. Eine Darstellung der Stenographie IDL wird benutzt, um den Gebrauch zu vereinfachen bewerten Sie Arten für diese Art der einfachen Eindämmung, gekennzeichnet, als ein "Wertkasten".", 4,10,1 WertcKastencPaket Anpassende Implementierungen liefern eine Implementierung vom folgenden generischen Paket: generisch die Art, die geschachtelt wird, ist privat; Art Boxed_Access ist der ganz geschachtelte Zugang; Paket CORBA.Value.Box ist Art Box_Ref ist neues CORBA.Value.Base mit privatem; Funktion Is_Null(The_Ref: Rückkehr Box_Ref) Boolesch; Funktion Create(With_Value: in geschachteltem) RückholBox_Ref; Funktion "+" (With_Value: in geschachteltem) RückholBox_Ref benennt verursachen um; Funktion Contents(The_Boxed: in Box_Ref) RückholBoxed_Access; Funktion "-" (The_Boxed: in Box_Ref) RückholBoxed_Access benennt Inhalt um; Verfahren Release(The_Ref: in aus Box_Ref); Ende CORBA.Value.Box; Implementierungen des Box_Ref Art stützt den Hinweis, der zählt, "intelligent Zeiger"Semantik für den geschachtelten Wert.