2-18 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 wie Example_vtype; dclvt_argsbased(p_vtargs) wie Example_op2_vtype; wenn vtptr=sysnull()||p_vtargs=null/* etwas falsch! */ /* signalisieren Sie Störungs* /; allocvt; ENDENVT_Example_init; vt_Example_delete: PROC(vtptr, p_vtargs); dclvtptr-PTRBYADDR; dclp_vtargs-PTRBYVALUE; dclvtbased(vtptr) wie Example_vtype; dclvt_argsbased(p_vtargs) wie Example_op2_vtype; wenn vtptr=sysnull()||p_vtargs=null/* etwas falsch! */ /* signalisieren Sie Störungs* /; vt.refct=1; benennen Sie vt_decref(vtptr); BEENDEN Sie vt_Example_delete; dcl 1 Example_op1_vtype gegründet, Resultat 3 regelte bin(31) init(0); dcl 1 Example_op2_vtype gegründet, PTR mit 3 x; Resultat 3 regelte bin(31) init(0); dcl 1 Example_val2_vtype gegründet, Resultat 3 regelte bin(31) init(0); dcl 1 Example_vtype gegründet, PTRINIT(SYSNULL() mit 3 ctl), refct 3 regelte bin(31) init(0), 3 val1 regelten bin(15) init(0), 3 val2 regelten bin(31) init(0), init(sysnull() PTRS 3 val3), 3 val4 Hin- und Herbewegung dec(6) init(0); dcl 1 Example_pepv_vtype gegründet, 3 Example_pepv PTRINIT(SYSNULL()); dcl 1 Example_epv_vtype gegründet, PTR mit 3 ctl, Eintragung 3 op1 begrenzt, Eintragung 3 op2 begrenzt, Eintragung 3 get_val2 begrenzt,