class FieldList
pri next : FieldList;
pri Field : FieldInfo;
meth SetNext =^ ( val n: FieldList ·
next:= n;
)
end
meth GetNext =^ ( res n: FieldList ·
n:= next;
)
end
meth SetField =^ ( val f: FieldInfo ·
Field:= f;
)
end
meth GetField =^ ( res f: FieldInfo ·
f:= Field;
)
end
end