-- CGStorageImpl.mesa
-- Last changed by Doug Wyatt, August 23, 1982 3:44 pm
-- Last changed by Paul Rovner, June 8, 1983 10:41 pm

DIRECTORY
  CGStorage USING [],
  SafeStorage USING [GetSystemZone];

CGStorageImpl: CEDAR PROGRAM
IMPORTS SafeStorage
EXPORTS CGStorage = {

pZone: PUBLIC ZONE _ NIL; -- prefixed zone
qZone: PUBLIC ZONE _ NIL; -- quantized zone

Init: PROC = {
  pZone _ SafeStorage.GetSystemZone[];
  qZone _ SafeStorage.GetSystemZone[];
  };

Init[];

}.