Oberon || Library || Module Index || Search Engine || Definition || Module
TYPE Pot = POINTER TO PotRec; TYPE PotRec = RECORD (Shards.PotRec) END; TYPE Lid = POINTER TO LidRec; TYPE LidRec = RECORD (Shards.LidRec) END;
PROCEDURE Create(VAR pot: Shards.Pot; VAR lid: Shards.Lid);
Create returns in pot a pot all original lids of this module fit to. Original are lids obtained by Create or Shards.Supply, but not PersistentObjects.Read.
Oberon || Library || Module Index || Search Engine || Definition || Module