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

}.