-- 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[];

}.