CMosBExtrasImpl.mesa
Copyright © 1983, 1987 by Xerox Corporation. All rights reserved.
Created by McCreight, April 28, 1987 4:13:04 pm PDT
DIRECTORY
Atom, CD, CMosB, CMosBExtras, IO;
CMosBImpl:
CEDAR
PROGRAM
IMPORTS Atom, CD, CMosB, IO
EXPORTS CMosBExtras =
extraLayers:
PUBLIC
ARRAY [1..20]
OF
CD.Layer;
InitKernelExtras:
PROC [] = {
--layers
FOR i:
NAT
IN [1..20]
DO
extraLayers[i] ← CD.NewLayer[CMosB.cmosB, Atom.MakeAtom[IO.PutFR["extraLayer%d", IO.int[i]]]];
ENDLOOP;
};
InitKernelExtras[];
END.