EUInnerImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Louis Monier June 14, 1986 5:21:09 pm PDT
Bertrand Serlet June 7, 1986 7:34:12 pm PDT
Last Edited by: Louis Monier October 31, 1986 12:12:46 pm PST
DIRECTORY CoreCreate, EUInner, EUUtils;
EUInnerImpl:
CEDAR
PROGRAM
IMPORTS EUUtils
EXPORTS EUInner =
BEGIN OPEN EUInner, CoreCreate;
CreateEUInner:
PUBLIC
PROC []
RETURNS [ct: CellType] = {
ct ← EUUtils.Fetch["Inner"];
IF ct=
NIL
THEN {
ct ← EUUtils.Extract["Inner.sch"];
EUUtils.Store["Inner", ct];
};
};
CreateDataPath:
PUBLIC
PROC []
RETURNS [ct: CellType] = {
ct ← EUUtils.Fetch["DataPath"];
IF ct=
NIL
THEN {
ct ← EUUtils.Extract["DataPath.sch"];
EUUtils.Store["DataPath", ct];
};
};
END.