September 2002 PL/I, das Spezifikation Abbildet: Diagramm für Valuetypes 2-19 2 begrenzte Eintragung 3 set_val2; vt_Example_epv des dcl 1 mögen Example_epv_vtype; vt_Example_pepv des dcl 1 mögen Example_pepv_vtype; In jedem valuetypeverfahren erhält der valuetypezeiger auf das valuetype abgebildet strukturieren Sie, um die verschiedenen Elemente des valuetype zugänglich zu machen. Dieses ist ähnlich wie das zweite Argument abgebildet wird, um das ankommende zugänglich zu machen, schreiben Sie. vt_Example_get_val2 zeigt, wie dieses verwendet wird. Eine Überprüfung sollte immer sein gebildet, um zu überprüfen der valuetypezeiger und die Daten beide gültig. Das generische Layout wird für jedes der Verfahren und des sehr einfachen gezeigt Implementierung wird für val2 gezeigt zeigen, wie die abgebildeten Zeiger benutzt werden. Wieder beachten Sie, daß es die nur Verfahren gibt, die für das Erhalten und die Einstellung des Inhalts von definiert werden val2 . Seit dem val1 wird als seiend privat erklärt, nur das valuetypeverfahren hat machen Sie zu diesem Datenmitglied zugänglich. Val2 ist andererseits allgemein und also sind Verfahren definiert, um seinen Inhalt zugänglich zu machen. Schließlich das _ init und _ Löschung Verfahren sind zur Verfügung gestellt für die Initialisierung des valuetype für Gebrauch und das Zerstören des valuetype, wenn er ist Bezugszählimpuls erreicht 0 . 2,12,5 Generische Verfahren Valuetype Es gibt vier generische Verfahren, die für jedes valuetype vorhanden sind. Sie sind wie folgt definiert und wird im VALBASE gespeichert schließen Sie Akte mit ein. Implementierungscode für diese Verfahren sind generisch. vt_incref(ptr); /* IN: valuetypezeiger*/ /* Stufensprünge der zählimpuls der valuetypes Bezugß */ vt_decref(ptr); /* IN: valuetypezeiger*/ /* Verminderung der zählimpuls der valuetypes Bezugß */ vt_duplicate(inptr,/* IN: origvt-PTR */ outptr); HERAUS: doppeltes vt-PTR*/ /* Duplikate valuetype*/ vt_refcount(ptr,/* IN: valuetypezeiger*/ örtlich festgelegtes bin(31)); HERAUS: Bezugszählimpuls*/ /* Rückkehr der Bezugszählimpuls für valuetype*/ Ein Beispiel von einigen ihrer Implementierungen folgt. Diese Beispiele sind für nur Informationszwecke. vt_incref: PROC(vtptr); dclvtptr-PTRBYVALUE; vtbased(vtptr) des dcl 1, PTR mit 3 ctl, refcount 3 regelte bin(31); vt.refcount=vt.refcount+1;