--KSpaceImpl.mesa

DIRECTORY
  KSpace, Space;

KSpaceImpl: PROGRAM IMPORTS  Space 
EXPORTS KSpace = { OPEN Space, KSpace;

kspace: Space.Handle _ Space.nullHandle;

GetS: PUBLIC PROC [] = {
  kspace _ Space.Create[size: 500, parent: Space.virtualMemory];
  };

KillS: PUBLIC PROC [] = {
 IF kspace#nullHandle THEN {Space.Delete[kspace]; kspace _ nullHandle};
 };
 
}.