class OpStackList
pri next : OpStackList;
pri data : Object;
meth GetNext =^ (res n: OpStackList ·
n:= Next;
)
end
meth SetNext =^ (val n: OpStackList ·
Next:= n;
)
end
meth Getdata =^ (res o: Object ·
o:= data;
)
end
meth Setdata =^ (val o: Object ·
data:= o;
)
end
end