-- CGStorageImpl.mesa
-- Last changed by Doug Wyatt, August 23, 1982 3:44 pm

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

CGStorageImpl: CEDAR PROGRAM
IMPORTS SafeStorage
EXPORTS CGStorage = {

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

Init: PROC = {
  pZone _ SafeStorage.NewZone[prefixed];
  qZone _ SafeStorage.NewZone[quantized];
  };

Init[];

}.